4|K) |f,:2cg7|.}(_\~ֆ'zJ+aÂ?eI>_]Yd00F^kz}h+O}cQJ%q5[5 Ʀ 粡KfYigXV.1@yaHd%CF-M$W\F JkRC +0!ZQȭ0W ?z Ђ@ A0Ga"[/cC+o p3a0Q}H.L*|ZȀjp lC4l"DTE ҍ|%KfĐ? Y?dSȁ8v|,dD2^G
3 4:mY =E05XbJ" JL
hB)oB,QTͰձ|]`λ:8#K+Jҗ;q_hXB}FwS(Yt ]sa.ˀFOXLB. cҰ=3
Băڡ_ ; webmin-inn/readme.txt 0100644 0000000 0000000 00000003303 07711506462 013625 0 ustar root root INN control Tool
actual Version 0.0.0b
-------------------------------------------
Dieses ist ein Werkzeug fr Administratoren
zur Verwaltung des lokalen INN
A Toolkit to administrate the InterNetNews (INN) by www-isc.org
The Package :
It includes innd, an NNTP server, and nnrpd, a newsreading server.
-------------------------------------------
Bugs :
- of cause a lot
- expire editing
-
Todos :
- a lot of Stuff
Info :
- After new compiling of INN-2.3.x and it won't come up
try that:
news@mars:/usr/local/news/db> mv history.n.dir history.dir
news@mars:/usr/local/news/db> mv history.n.hash history.hash
news@mars:/usr/local/news/db> mv history.n.index history.index
- Problems with storage.conf:
insert at the end like that to the ./etc/storage.conf file
method tradspool {
class: 1
newsgroups: *
}
<...snip>
And of cause read the ./doc/INSTALL
Controlling INN Webmin Module
------------------------------------------
Change Log :
0.0.0b1 - (24.Apri 2003)
- inserting an possibility to change the inn.conf
0.0.0b - (26.Mrz 2003)
- Implementing the Expire.ctl listing
- Displays SERVER-STATUS if throttled
- Editing the AUTH in the reades.conf
0.0.0a - (10.January 2003)
- Button for expire stats
- Listed the User-Permissions, but not edited
- inserting mail2news - original script by
0.0.0 - (Projekt gestartet am 30.September.2002):
firsttime Readme.txt installed.
-------------------------------------------
copyright 2003 by digiSec.de
Verfasser : M.Blohm
mailto : matthias.blohm@digisec.de
Special Thanks to : digiSec GbR
-------------------------------------------
MailtoNews owned by Bek Oberin
http://www.tertius.net.au/~gossamer/code/
webmin-inn/mail2news.cgi 0100644 0000000 0000000 00000013056 07666632563 014235 0 ustar root root #!/usr/bin/perl
#
# Controlling INN Webmin Module
# Copyright (C) 2003 by Matthias Blohm
#
#########################################
do '../web-lib.pl';
do '../sendmail/aliases-lib.pl';
$|=1;
&init_config();
%access=&get_module_acl();
my @ERG =();
my $path = $ENV{'PATH'};
do 'parser-lib.pl';
my $HOST = get_system_hostname();
## Look for useful files
if ( ! -e "$config{'mail2news'}/$config{'mail2news_prog'}" ) {
my ($CMMC) = "cp mail2news.pl $config{'mail2news'}/$config{'mail2news_prog'} ; chmod +x $config{'mail2news'}/$config{'mail2news_prog'}";
my $msg = `$CMMC 2>&1`;
}
# Try to get the version number
my $out = `$config{'inn_install_path'}/bin/innconfval` ;
my ( $dumm1, $innd_version) = split (/INN/,$out );
&header($text{'mail2news_title'}." mail2news.pl script by Bek Oberin","images/icon.gif", "help.webman", 1, 1,0,
"Written by Author :Matthias Blohm Home of v.$VERSION://digisec.mine.nu/webmin/",
undef,undef, &text('index_version')."$innd_version" );
print "
\n";
print "$text{'mail2news_description'} ";
print "
\n";
#if ( $msg ) {
print "
error: ".$msg."
/$config{'mail2news'}/$config{'mail2news_prog'}";
&sendmail_alias_form();
#######################################
## mail2news aliases auflisten
#######################################
print "
\n";
# Aliases auslesen
my @config_aliases = ( '/etc/aliases' );
my @aliases = &list_sendmail_aliases(@config_aliases);
# render tables
print " | \n";
if (@aliases) { &aliases_table(@aliases); }
print " | \n";
print " |
\n";
#######################################
## STATUS abfragen
#######################################
#print "
Ende :
";
# }
#######################################
&footer("/webmin-inn", $text{'index_inn'});
# uses the index entry in /lang/en
#######################################
### END of index.cgi ###.
sub aliases_table
{
print "\n";
print " | $text{'mail2news_aliases_addr'} | ",
"$text{'mail2news_aliases_to'} |
\n";
foreach $a (@_) {
($anum, $astr) = &alias_type(@{$a->{'values'}});
$_ = $astr;
if ( $anum == 4 && $astr =~ /mail2news/ )
{
# print "$anum - $astr
\n";
print "\n";
print "| {'num'}\">",
$a->{'enabled'} ? "" : "",&html_escape($a->{'name'}),
$a->{'enabled'} ? "" : ""," | \n";
print "\n";
foreach $v (@{$a->{'values'}}) {
($anum, $astr) = &alias_type($v);
print &text("mail2news_aliases_type$anum",
"".&html_escape($astr).""),"
\n";
}
if (!@{$a->{'values'}}) { print "$text{'mail2news_aliases_none'}\n"; }
print " |
\n";
}}
print "
\n";
}
# sendmail_alias_form([alias])
# Display a form for editing or creating an alias. Each alias can map to
# 1 or more programs, files, lists or users
sub sendmail_alias_form
{
local(@values, $v, $type, $val, @typenames);
#print "\n";
}
# list_aliases(files)
# Returns an array of data structures, each containing information about
# one sendmail alias
sub list_sendmail_aliases
{
local($lnum, @rv, $file, $lalias);
local @skip = split(/\s+/, $config{'alias_skip'});
foreach $file ($_[0]) {
$lnum = 0;
open(AFILE, $file);
while() {
s/\r|\n//g; # remove newlines
if (/^(#*)\s*([^:$ \t]+)\s*:\s*(.*)$/) {
local(%alias, @values, $v);
$alias{'eline'} = $alias{'line'} = $lnum;
$alias{'file'} = $file;
$alias{'enabled'} = $1 ? 0 : 1;
$alias{'name'} = $2;
$v = $alias{'value'} = $3;
while($v =~ /^\s*,?\s*()"([^"]+)"(.*)$/ ||
$v =~ /^\s*,?\s*(\|)"([^"]+)"(.*)$/ ||
$v =~ /^\s*,?\s*()([^,\s]+)(.*)$/) {
push(@values, $1.$2); $v = $3;
}
$alias{'values'} = \@values;
$alias{'num'} = scalar(@rv);
if (&indexof($alias{'name'}, @skip) < 0) {
push(@rv, \%alias);
$lalias = \%alias;
}
}
elsif (/^(#*)\s+(\S.*)$/ && $lalias &&
($1 && !$lalias->{'enabled'} ||
!$1 && $lalias->{'enabled'})) {
# continuation of last alias
$lalias->{'eline'} = $lnum;
local $v = $2;
$lalias->{'value'} .= $v;
while($v =~ /^\s*,?\s*()"([^"]+)"(.*)$/ ||
$v =~ /^\s*,?\s*(\|)"([^"]+)"(.*)$/ ||
$v =~ /^\s*,?\s*()([^,\s]+)(.*)$/) {
push(@{$lalias->{'values'}}, $1.$2); $v = $3;
}
}
else { $lalias = undef; }
$lnum++;
}
close(AFILE);
}
return @rv;
} webmin-inn/general_conf.cgi 0100644 0000000 0000000 00000006115 07676533305 014747 0 ustar root root #!/usr/bin/perl
#
## $Id: general_conf.cgi,v 1.8 2003/06/26 09:03:00 maja Exp $
#
# Controlling INN Webmin Module
# Copyright (C) 2003 by Matthias Blohm
#
#########################################
do '../web-lib.pl';
$|=1;
&init_config();
do 'parser-lib.pl';
use CGI qw(:standard :html3);
use CGI::Carp qw(fatalsToBrowser carpout);
%access=&get_module_acl();
my $EDITIEREN = param("EDITIEREN");
my $AENDERN = param("AENDERN");
my @ERG =();
my $FILE=$config{'inn_config_path'}."/"."inn.conf";
my $HOST = get_system_hostname();
## Check VAR !
if ( $config{'inn_install_path'} ) { $INN_INSTALL_PATH=$config{'inn_install_path'}; } else { $INN_INSTALL_PATH="/usr/lib/news"; }
# replace_file_line(file, line, [newline]*)
if ( $AENDERN == 81549 )
{
my $OLD_LINE=param("OLD_LINE");
my $OLD_TYPE=param("OLD_TYPE");
my $X_LINE=" ".$OLD_TYPE.": \"".param("X_LINE")."\""."\n";
my $RETU = &replace_file_line_dp($FILE, $OLD_LINE, "$X_LINE");
&redirect('/webmin-inn/general_conf.cgi');
}
# Try to get the version number
my $out = `$INN_INSTALL_PATH/bin/innconfval` ;
my ( $dumm1, $innd_version) = split (/INN/,$out );
&header($text{'index_title'},"images/icon.gif", "help.inn", 1, 1,0,
"Written by Author :Matthias Blohm Home of v.$VERSION://digisec.mine.nu/webmin/",
undef,undef, &text('index_version')."$innd_version" );
print <
EOT
local(%auth);
# Get the Config-File
&read_env_file_dp($FILE,\%auth);
#print "anz: $#auth
File:$FILE
";
# @access = &get_config("readers.conf","access");
#print "anz: $#access
";
if (%auth) {
# List all defined access control directives
print "$text{'inn_conf_edit_title'}
\n";
print "\n";
}
else {
print "$text{'general_no_exist'}
\n";
}
print "
\n";
# }
#######################################
&footer("/webmin-inn", $text{'index_inn'});
# uses the index entry in /lang/en
#######################################
### END of index.cgi ###.
webmin-inn/index.cgi 0100644 0000000 0000000 00000013454 07676533305 013440 0 ustar root root #!/usr/bin/perl
#
# Controlling INN Webmin Module
# Copyright (C) 2003 by Matthias Blohm
#
# Last Changed: $Date: 2003/06/26 09:03:00 $ $Revision: 1.18 $
#########################################
do '../web-lib.pl';
&init_config();
%access=&get_module_acl();
do 'parser-lib.pl';
my @ERG =();
my $VERSION="0.0.0b2-cvs";
my $HOST = get_system_hostname();
## Check VAR !
if ( $config{'inn_install_path'} ) { $INN_INSTALL_PATH=$config{'inn_install_path'}; } else { $INN_INSTALL_PATH="/usr/lib/news"; }
# Try to get the version number
my $out = `$INN_INSTALL_PATH/bin/innconfval` ;
my ( $dumm1, $innd_version) = split (/INN/,$out );
&header($text{'index_title'},"images/icon.gif", "help.inn", 1, 1,0,
"Written by Author :Matthias Blohm Home of v.$VERSION://digisec.mine.nu/webmin/",
undef,undef, &text('index_version')."$innd_version" );
print <
Global Options
EOT
print "";
#######################################
## Newsgroups auflisten
#######################################
@ERG = `$INN_INSTALL_PATH/bin/getlist -h localhost` ;
#print "XXX:$#ERG";
if ( $#ERG < 1 ) {
print "
";
print " ";
print " | Server Status | ";
print "
";
@STATUS = `$INN_INSTALL_PATH/bin/innstat`;
print " | @STATUS[1] | ";
print "
";
} else {
print "";
print " ";
print " | Newsgroup | ";
print " Start | ";
print " End | ";
print " active/moderated | ";
print "
";
foreach $EEE (@ERG) {
print " ";
(my $E1, my $E2, my $E3, my $E4 ) = split (/ /,$EEE);
print " | $E1 | ";
print " $E2 | ";
print " $E3 | ";
print " $E4 | ";
print "
";
}
}
print "
";
print "
\n";
## Formular
print "
";
#######################################
## Newsfeeds auflisten
#######################################
print "
\n";
#######################################
## STATUS abfragen
#######################################
print "
System Checking :
";
## INN testen
print"InterNetNews-Server(INN):
";
print "..checking : ";
my $resultat = `ps auxww | egrep "innd" | grep -v grep` ;
my ( $dumm2, $piddi) = split (/\s+/, $resultat );
if (($resultat))
{
print "$text{'status_ok'} on pid ($piddi)
";
} else {
print "$text{'status_notok'}
" ;
}
print "
";
#if (!$access{'ro'} && $access{'apply'}) {
if ($piddi && kill(0, $piddi)) {
# innd is running
print "
";
}
else {
# innd is not running
print "
\n";
print "\n";
}
# }
#######################################
&footer("/", $text{'index_webmin'});
# uses the index entry in /lang/en
#######################################
### END of index.cgi ###.
webmin-inn/config.info 0100644 0000000 0000000 00000000702 07607347113 013751 0 ustar root root line1=User configuration,11
run_as=Running as user,0
line2=System configuration,11
inn_install_path=Path of the INN installation,3,/usr/lib/news
inn_config_path=Configuration path,3,/etc/news
pid_file=Default PID file location,3,/var/run/innd.pid
start_cmd=Command to start INND,3,Default
line3=Mail2News availibilities,11
mail2news=Where to find the script mail2news.pl,3,/usr/local/bin
mail2news_prog=What is the Name of mail2news.pl,3,mail2news
webmin-inn/readers_conf.cgi 0100644 0000000 0000000 00000010724 07676533305 014760 0 ustar root root #!/usr/bin/perl
#
## $Id: readers_conf.cgi,v 1.12 2003/06/26 09:03:00 maja Exp $
#
# Controlling INN Webmin Module
# Copyright (C) 2003 by Matthias Blohm
#
#########################################
do '../web-lib.pl';
$|=1;
&init_config();
do 'parser-lib.pl';
use CGI qw(:standard :html3);
use CGI::Carp qw(fatalsToBrowser carpout);
%access=&get_module_acl();
my $EDITIEREN_ACC = param("EDITIEREN_ACC");
my $EDITIEREN_AUT = param("EDITIEREN_AUT");
my $AENDERN = param("AENDERN");
my @ERG =();
my $VERSION="0.0.0b2";
my $HOST = get_system_hostname();
## Check VAR !
if ( $config{'inn_install_path'} ) { $INN_INSTALL_PATH=$config{'inn_install_path'}; } else { $INN_INSTALL_PATH="/usr/lib/news"; }
# replace_file_line(file, line, [newline]*)
if ( $AENDERN == 42449 )
{
my $OLD_LINE=param("OLD_LINE");
my $OLD_TYPE=param("OLD_TYPE");
my $X_LINE=" ".$OLD_TYPE.": \"".param("X_LINE")."\""."\n";
my $FILE=$config{'inn_config_path'}."/"."readers.conf";
my $RETU = &replace_file_line($FILE, $OLD_LINE, "$X_LINE");
&redirect('/webmin-inn/readers_conf.cgi');
}
# Try to get the version number
my $out = `$INN_INSTALL_PATH/bin/innconfval` ;
my ( $dumm1, $innd_version) = split (/INN/,$out );
&header($text{'index_title'},"images/icon.gif", "help.inn", 1, 1,0,
"Written by Author :Matthias Blohm Home of v.$VERSION://digisec.mine.nu/webmin/",
undef,undef, &text('index_version')."$innd_version" );
print <
EOT
# Get the Config-File
@auth = &get_config("readers.conf","auth");
#print "anz: $#auth
";
@access = &get_config("readers.conf","access");
#print "anz: $#access
";
if (@auth) {
# List all defined access control directives
print "$text{'access_auth_title'}
\n";
print "\n";
print " | $text{'access_auth_name'} | \n";
print "$text{'access_auth_type'} | \n";
print "$text{'access_auth_match'} | edit |
\n";
foreach $a (@auth) {
print "\n";
print "| $a->{'name'} | \n";
print "$a->{'type'} | \n";
print "'$a->{'value'}' | \n";
if (( $a->{'value'} ) and ( ! $EDITIEREN_AUT )) {
print "{'line'}\">edit | \n";
}
else {
if ( $EDITIEREN_AUT == $a->{'line'} )
{
print " | ";
}
else {
print " | \n";
}
}
print "
\n";
}
print "
\n";
}
else {
print "$text{'access_auth_noacls'}
\n";
}
if (@access) {
# List all defined access control directives
print "$text{'access_access_title'}
\n";
print "\n";
print " | $text{'access_access_name'} | \n";
print "$text{'access_access_type'} | \n";
print "$text{'access_access_match'} | edit |
\n";
foreach $a (@access) {
print "\n";
print "| $a->{'name'} | \n";
print "$a->{'type'} | \n";
print "'$a->{'value'}' | \n";
if (( $a->{'value'} ) and ( ! $EDITIEREN_ACC )) {
print "{'line'}\">edit | \n";
}
else {
if ( $EDITIEREN_ACC == $a->{'line'} )
{
print " | ";
}
else {
print " | \n";
}
print "
\n";
}
}
print "
\n";
}
else {
print "$text{'access_access_noacls'}
\n";
}
print "
\n";
# }
#######################################
&footer("/webmin-inn", $text{'index_inn'});
# uses the index entry in /lang/en
#######################################
### END of index.cgi ###.
webmin-inn/module.info 0100644 0000000 0000000 00000000142 07546072106 013766 0 ustar root root category=others
desc=INN Control-Tool
desc_de=Inn Control Tool
name=inn
depends=0.99
version=0.99
webmin-inn/start.cgi 0100644 0000000 0000000 00000001260 07627141663 013454 0 ustar root root #!/usr/bin/perl
# start.cgi
# Start innd
# su news -c /path/to/rc.news
do '../web-lib.pl';
&init_config();
my $user="";
my $START_CMD;
## Check VAR !
if ( $config{'start_cmd'} ) { $START_CMD=$config{'start_cmd'}; } else { $START_CMD="/etc/init.d/inn"; }
#%access = &get_module_acl();
#$access{'ro'} && &error($text{'start_ecannot'});
#$access{'apply'} || &error($text{'start_ecannot'});
if ($config{'run_as'}) {
$user = "$config{'run_as'}";
} else { $user = "root"; }
# &error("su $user -c $START_CMD start
");
$out = &backquote_logged("su $user -c \"$START_CMD start\" >/dev/null 2>&1");
if ($out) { &error("$out
"); }
&webmin_log("start");
&redirect("");
webmin-inn/config-suse-linux 0100644 0000000 0000000 00000000204 07666632563 015141 0 ustar root root mail2news=/usr/local/bin
mail2news_prog=mail2news
inn_install_path=/usr/lib/news
inn_config_path=/etc/news
start_cmd=/etc/init.d/inn webmin-inn/parser-lib.pl 0100644 0000000 0000000 00000010635 07676533305 014240 0 ustar root root # parser-lib.pl
# Functions for reading and writing the inn config file
## $Id: parser-lib.pl,v 1.12 2003/06/26 09:03:00 maja Exp $
my $VERSION="0.0.0b2-cvs";
# replace_file_line(file, line, [newline]*)
# Replaces one line in some file with 0 or more new lines
sub replace_file_line_dp
{
local(@lines);
open(FILE, $_[0]);
@lines = ;
close(FILE);
if (@_ > 2) { splice(@lines, $_[1], 1, @_[2..$#_]); }
else { splice(@lines, $_[1], 1); }
open(FILE, "> $_[0]");
print FILE @lines;
close(FILE);
}
# read_env_file(file, &array)
sub read_env_file_dp
{
open(FILE, $_[0]) || return 0;
while() {
s/#.*$//g;
if (/([A-z0-9_\.]+)\s*:\s*"(.*)"/ ||
/([A-z0-9_\.]+)\s*:\s*'(.*)'/ ||
/([A-z0-9_\.]+)\s*:\s*(.*)/) {
$_[1]->{$1} = $2;
}
}
close(FILE);
return 1;
}
# get_config()
# Parses inn.conf into an array of data structures
sub get_config
{
local($lnum, $_);
my $FILE=$config{'inn_config_path'}."/".$_[0];
my $BEGINNER=0;
$SEARCH=$_[1];
my @get_config_cache;
open(CONF, $FILE);
$lnum = 0;
while() {
s/\r|\n//g; # strip newlines and comments
s/#.*$//g;
if (/^\s*(\S+)\s*(.*)$/) {
if (( /^$SEARCH/ ) or ( $BEGINNER == 1 )) {
# print $_."
";
if ( /^$SEARCH/ ) { $BEGINNER=1; }
if ( /}/ ) { $BEGINNER=0; }
local(%dir);
if ( /\{/ ) {
my ( $TEIL1, $TEIL2, $TEIL3 ) =split (/}/, $_ );
$TEIL1 =~ s/$SEARCH//g;
$TEIL1 =~ s/\"//g;
$TEIL1 =~ s/ //g;
$TEIL1 =~ s/({)|(})//g;
$dir{'name'} = $TEIL1;
$dir{'line'} = $lnum;
push(@get_config_cache, \%dir);
} else {
my ( $TEIL1, $TEIL2, $TEIL3 ) =split (/:/, $_ );
$TEIL2 =~ s/\"//g;
$TEIL1 =~ s/}//g;
$dir{'name'} = '';
$dir{'value'} = $TEIL2;
$dir{'type'} = $TEIL1;
$dir{'line'} = $lnum;
push(@get_config_cache, \%dir);
}
}
}
$lnum++;
}
close(CONF);
return @get_config_cache;
}
# find_config(name, &config)
# Returns the structure(s) with some name
sub find_config
{
local($c, @rv);
foreach $c (@{$_[1]}) {
if ($c->{'name'} eq $_[0]) {
push(@rv, $c);
}
}
return @rv ? wantarray ? @rv : $rv[0]
: wantarray ? () : undef;
}
# find_value(name, &config)
# Returns the value of some directive
sub find_value
{
local $rv = &find_config(@_);
return $rv ? $rv->{'value'} : undef;
}
# find_values(name, &config)
# Returns the value of some directive
sub find_values
{
local $rv = &find_config(@_);
return $rv ? $rv->{'values'} : undef;
}
# save_value(&config, name, value*)
sub save_value
{
local @v = map { { 'name' => $_[1],
'values' => [ $_ ] } } @_[2..@_-1];
&save_directive($_[0], $_[1], \@v);
}
# save_directive(&config, name, &values)
# Given a structure containing a directive name, type, values and members
# add, update or remove that directive in config structure and data files.
sub save_directive
{
local(@oldv, @newv, $i, $o, $n, $lref, $nl, $change);
@oldv = &find_config($_[1], $_[0]);
@newv = map { local %n = %$_; \%n } @{$_[2]};
$lref = &read_file_lines($config{'squid_conf'});
for($i=0; $i<@oldv || $i<@newv; $i++) {
if ($i >= @oldv) {
# a new directive is being added.. put it at the end of the file
$nl = &directive_line($newv[$i]);
if ($change) {
# put it after any directives of the same type
$newv[$i]->{'line'} = $change->{'line'}+1;
splice(@$lref, $newv[$i]->{'line'}, 0, $nl);
&renumber($_[0], $change->{'line'}, 1);
splice(@{$_[0]}, &indexof($change, @{$_[0]}),
0, $newv[$i]);
$change = $newv[$i];
}
else {
# put it at the end of the file
$newv[$i]->{'line'} = scalar(@$lref);
push(@$lref, $nl);
push(@{$_[0]}, $newv[$i]);
}
}
elsif ($i >= @newv) {
# a directive was deleted
splice(@$lref, $oldv[$i]->{'line'}, 1);
&renumber($_[0], $oldv[$i]->{'line'}, -1);
splice(@{$_[0]}, &indexof($oldv[$i], @{$_[0]}), 1);
}
else {
# updating some directive
$nl = &directive_line($newv[$i]);
splice(@$lref, $oldv[$i]->{'line'}, 1, $nl);
$newv[$i]->{'line'} = $oldv[$i]->{'line'};
$_[0]->[&indexof($oldv[$i], @{$_[0]})] = $newv[$i];
$change = $newv[$i];
}
}
}
# directive_line(&details)
sub directive_line
{
local(@v) = @{$_[0]->{'values'}};
return $_[0]->{'name'}.(@v ? " ".join(' ',@v) : "");
}
# renumber(&directives, line, count)
# Runs through the given array of directives and increases the line numbers
# of all those greater than some line by the given count
sub renumber
{
local($d);
foreach $d (@{$_[0]}) {
if ($d->{'line'} > $_[1]) {
$d->{'line'} += $_[2];
}
}
}
1;
webmin-inn/mail2news.pl 0100644 0000000 0000000 00000010275 07607347113 014073 0 ustar root root #!/usr/bin/perl -w
#
# mail2news
# From the mail2news mini-HOWTO and extensively adapted by
# Bek Oberin
#
# Below corections by Joop Boonen
#
# Added correct handeling of To and Cc
# also added multiline reading of To and Cc
# and corrected X-$to to $to
#
# Last updated by jboonen on Sun Feb 25 21:39:18 CET 2001
#
use strict;
use vars qw($inews $iopts $postinghost $nntphost $approved $organization $VERSION);
#
# User Config
#
# Where's your posting program?
$inews = "/usr/bin/inews";
$iopts = "-h";
#$inews = "/usr/bin/rnews";
#$iopts = "-v";
# for debugging - output to screen
#$inews = "cat";
#$iopts = "";
$nntphost = "localhost";
$postinghost = "localhost";
#$postinghost = "tertius.net.au";
# Approved: line. Can be anything, really.
$approved = "yes";
$organization = "none";
#
# Constants
#
$VERSION = "1.3";
#
# Parse args
#
my $newsgroup;
if ($#ARGV < 0) {
# $newsgroup = "test";
# we'll expect the newsgroup line in the body
} elsif ($#ARGV == 0) {
$newsgroup = $ARGV[0];
} else {
die "usage: mail2news [newsgroup]\n";
}
#
# Sig handler
#
# in case inews dumps core or something crazy
$SIG{'PIPE'} = "plumber";
sub plumber { die "mail2news: \"$inews\" died prematurely!\n"; }
#
# Make sure inews can find the server
#
$ENV{"NNTPSERVER"} = $nntphost;
#
# Main starts here
#
$approved ||= "yes"; # just make sure it's -something-
$organization ||= "mail2news gateway";
open (INEWS, "| $inews $iopts") || die "mail2news: can't run $inews\n";
my $to;
my $cc;
my $saw_approved = 0;
my $saw_organization = 0;
my $saw_subject = 0;
my $saw_msgid = 0;
my $saw_path = 0;
my $saw_newsgroup = 0;
my $saw_references = 0;
my $in_reply = 0;
# header munging loop
while () {
last if /^$/;
# transform real from: line back to icky style
s/^From:\s+(.*) <(.*)>/From: $2 ($1)/;
s/^Message-Id/Message-ID/i;
# check if "To:" is in the line in this case put it in $to
if ($_=~/^To: /) {
$to=$_;
# check if there are more than one address via last character ,
# if yes than read next line and add it to $to
while ($_=~/\,$/) {
chomp ($_=);
$to="$to"."$_\n";
}
}
# check if "cc:" (ignore case) is in the line in this case put it in $cc
if ($_=~/^Cc: /i) {
$cc=$_;
# check if there are more than one address via last character ,
# if yes than read next line and add it to $cc
while ($_=~/\,$/) {
chomp ($_=);
$cc="$cc"."$_\n";
}
}
$in_reply = $_ if /^In-Reply-To: /;
# transform from_ line to path header
if (!$saw_path &&
(s/^From\s+(\S+)@(\S+).*/Path: $2!$1/ ||
s/^From\s+(\S+)[^@]*$/Path: $1\n/)) {
$saw_path ||= ($1 eq 'Path');
}
next if /^Message-ID/ && $saw_msgid;
next if /^Path/ && $saw_path;
next if /^Newsgroups/ && $newsgroup; # argv newsgroup overrides
next if /^Message-ID:.*@.*@/; # invalid message-id, we don't want it
print INEWS
if /^(Date|From|Subject|Path|Newsgroups|Message-ID|Approved|Organization|Content-Type|MIME-Version|References):/i;
if (defined($1)) {
$saw_references ||= ($1 eq 'References');
$saw_path ||= ($1 eq 'Path');
$saw_subject ||= ($1 eq 'Subject');
$saw_msgid ||= ($1 eq 'Message-ID');
$saw_newsgroup ||= ($1 eq 'Newsgroups');
$saw_approved ||= ($1 eq 'Approved');
$saw_organization ||= ($1 eq 'Organization');
}
}
die "mail2news: didn't get newsgroup from either headers or ARGV\n"
unless $newsgroup || $saw_newsgroup;
my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
my $madeupid = "\<$year$mon$mday.$hour$min$sec.$$\@$postinghost\>";
print INEWS "Newsgroups: $newsgroup\n" if $newsgroup && !$saw_newsgroup;
print INEWS "Subject: unknown\n" unless $saw_subject;
print INEWS "Message-ID: $madeupid\n" unless $saw_msgid;
print INEWS "Approved: $approved\n" unless $saw_approved;
print INEWS "Organisation: $organization\n" unless $saw_organization;
print INEWS "$to" if $to;
print INEWS "$cc" if $cc;
if (!$saw_references && $in_reply) {
$in_reply =~ m/(<[^@>]+@[^>]+>)/;
print INEWS "References: $1\n" if $1;
}
print INEWS "\n";
print INEWS while ; # gobble rest of message
close INEWS;
exit $?;
#
# End.
#
webmin-inn/expire.cgi 0100644 0000000 0000000 00000011736 07637574136 013632 0 ustar root root #!/usr/bin/perl
#
# Controlling INN Webmin Module
# Copyright (C) 2003 by Matthias Blohm
#
# Last Changed: $Date: 2003/03/24 12:21:50 $ $Revision: 1.11 $
#########################################
do '../web-lib.pl';
$|=1;
&init_config();
my $VERSION="0.0.0b";
my $NEWS_DAILY='';
## Check VAR !
if ( $config{'inn_install_path'} ) { $INN_INSTALL_PATH=$config{'inn_install_path'}; } else { $INN_INSTALL_PATH="/usr/lib/news"; }
# Try to get the version number
my $out = `$INN_INSTALL_PATH/bin/innconfval` ;
my ( $dumm1, $innd_version) = split (/INN/,$out );
&header($text{'index_title'},"images/icon.gif", "help.inn", 1, 1,0,
"Written by Author :Matthias Blohm Home of v.$VERSION://digisec.mine.nu/webmin/",
undef,undef, &text('index_version')."$innd_version" );
print "
\n";
print "$text{'expire_description'} ";
print "
\n";
#######################################
# Reading the Crontab
#####
if ( ! $config{'run_as'} ) { $CRONUSER="news"; } else { $CRONUSER=$config{'run_as'}; }
my @ERG = `crontab -l -u root` ;
foreach $CRONNI ( @ERG ) {
if ( $CRONNI =~ /^no/ ) { $NEWS_DAILY="noCrontab for user $CRONUSER"; }
if ( $CRONNI =~ /news.daily/ ) { $NEWS_DAILY="news.daily existiert in der crontab von $CRONUSER
$CRONNI"; }
}
#####
print "
press to:
![](\"images/expires_now.gif\") |
$NEWS_DAILY |
";
## Ein Button mit der Mglichkeit es einzutragen.
## Expire-Now button
#######################################
## mail2news aliases auflisten
#######################################
print "
\n";
# expires auslesen
my $config_expires = '/etc/news/expire.ctl';
my $expires = &read_file_lines($config_expires);
## class specified in storage.conf
## wildmat-style patterns for the newsgroups
## Mininum number of days to keep article
## Default number of days to keep the article
## Flush article after this many days
# render tables
print "remember artcles\n";
print " \n";
print "\n";
print " | $text{'expire_remember'} | \n";
print "$text{'expire_remember_long'} | \n";
for($i=0; $i<@$expires; $i++) {
my ($class, $wildmat, $keep, $default, $purge) = split(/:/,$expires->[$i]);
if ( $class =~ /^\/remember\// ) {
print " \n";
print "| $class | $wildmat | \n";
print " \n";
}
}
print " ";
print "
group matching\n";
print "\n";
print " | $text{'expire_wildmat'} | \n";
print "$text{'expire_grouptype'} | \n";
print "$text{'expire_keep'} | \n";
print "$text{'expire_default'} | \n";
print "$text{'expire_purge'} | \n";
# M Only moderated groups
# U Only unmoderated groups
# A All groups
# X Removes the article from all groups that it appears in
for($i=0; $i<@$expires; $i++) {
my ($class, $wildmat, $keep, $default, $purge) = split(/:/,$expires->[$i]);
if ( $class =~ /(^#)|(^\/remember\/)/ ) { print " "; } else
{
if ( $purge )
{
if ($wildmat eq "M" ) { $wildmat="M - Only moderated groups";}
if ($wildmat eq "U" ) { $wildmat="U - Only unmoderated groups"; }
if ($wildmat eq "A" ) { $wildmat="A - All groups"; }
if ($wildmat eq "X" ) { $wildmat="X - Removes the article from all groups that it appears in"; }
print "\n";
print "| $class | $wildmat | $keep | $default | $purge | \n";
print " \n";
}
}
}
print " \n";
print "
based on storage class\n";
print "\n";
print " | $text{'expire_class'} | \n";
print "$text{'expire_wildmat'} | \n";
print "$text{'expire_keep'} | \n";
print "$text{'expire_default'} | \n";
for($i=0; $i<@$expires; $i++) {
my ($class, $wildmat, $keep, $default, $purge) = split(/:/,$expires->[$i]);
if ( $class =~ /(^#)|(^\/remember\/)/ ) { print " "; } else
{
if ( $class =~ /^[0-9]/ )
{
print " \n";
print "| $class | $wildmat | $keep | $default | \n";
print " \n";
}
}
}
print " \n";
print " | \n";
print " |
\n";
#######################################
## STATUS abfragen
#######################################
#print "
Ende :
";
# }
#######################################
&footer("/webmin-inn", $text{'index_inn'});
# uses the index entry in /lang/en
#######################################
### END of index.cgi ###.
webmin-inn/newstakesaction.cgi 0100644 0000000 0000000 00000001212 07611523712 015506 0 ustar root root #!/usr/bin/perl
do '../web-lib.pl';
&init_config();
do 'inn-lib.pl';
&ReadParse();
#$val_0 = "$config{'mail2news'}/$config{'mail2news_prog'} ".$val_0;
#&newgroup( $name, "m");#
(my $DUM , my $ACTION)=split(/=/,$in[1]);
($DUM, my $NEWSGROUP )=split(/=/,$in[0]);
($DUM, my $TYPE )=split(/=/,$in[2]);
($DUM, my $NEWTYPE )=split(/=/,$in[3]);
if ( $ACTION eq "a3" && $TYPE ) { &inn_newgroup($TYPE, $NEWTYPE); }
if ( $ACTION eq "a2" ) { &inn_rmgroup($NEWSGROUP); }
if ( $ACTION eq "a1" ) { &inn_renumber($NEWSGROUP); }
open(LOGDATEI, "> /tmp/Status");
print LOGDATEI "$ACTION - $NEWSGROUP - $TYPE - $NEWTYPE";
close LOGDATEI;
&redirect("index.cgi");
