#!/usr/local/bin/perl5 -w ########################################################################### ### $Id:$ ########################################################################### ### ########################################################################### use FindBin '$RealBin'; # locate libraries BEGIN { unshift(@INC,"$RealBin/../lib") } use strict; use CGI; use Mail::Field::AddrList; use wham; my( $cgi, $cmd, $line, $class, $count, $mid, $whoami, $frm, $f, %config, $list); open(STDERR, ">&STDOUT"); $|=1; $cgi=new CGI; chomp($whoami=`whoami`); ### Set up the HTML print $cgi->header; print < Wham! Administration for $whoami

Wham! Administration for $whoami

EOF ### Quick security check $ENV{REMOTE_USER} = "" if( !defined( $ENV{REMOTE_USER})); if( $whoami ne $ENV{REMOTE_USER}) { print "

\n"; print "

ERROR: you do not appear to have authenticated correctly '$whoami' ne '$ENV{REMOTE_USER}'

\n"; print "

\n"; # exit; } %config = &LoadConfig(); print "

\n"; print "\n"; foreach $list ("black", "white") { # print ")))" , $cgi->param('save'); if( defined( $cgi->param('save')) && $cgi->param('save') eq $list) { ### Try to save changes if( 0==0) { &ShowList( $list); } else { ### Some error occured! &EditList( $list); } } elsif( defined( $cgi->param('edit')) && $cgi->param('edit') eq $list) { &EditList( $list); } else { &ShowList( $list); } } print "

\n"; print "

\n"; ########################################################################### ### ########################################################################### ### ########################################################################### sub ShowList { my( $list) = @_; print "", $cgi->start_form, $cgi->hidden(-name=>'edit',-value=>$list), " ${list}list ", $cgi->submit(-name=>"edit"),$cgi->end_form, "\n"; print "

\n";
#	print "\n";
	open( LIST, $config{$list}) || die "ERROR: could not open $config{$list}\n";
	while( defined( $line = <LIST>))
	{
		$line =~ s/(#.*)/<font color='#008800'>$1<\/font>/;
		print $line;
	}
#	print "\n";
	print "

\n"; } ########################################################################### ### &EditList( "black"); ########################################################################### ### ########################################################################### sub EditList { my( $list) = @_; print "", " ${list}list ", "\n"; print "", $cgi->start_form, $cgi->hidden(-name=>'save',-value=>$list); print "

", $cgi->submit(-name=>"submit", -value=>"save changes"), "
\n", $cgi->end_form; print "\n"; }