#!/usr/local/bin/perl5 -w ########################################################################### ### $Id: //depot/personal/ryan/main/src/wham/cgi-bin/white.cgi#2 $ ########################################################################### ### ########################################################################### use FindBin '$RealBin'; # locate libraries BEGIN { unshift(@INC,"$RealBin/../lib", "/usr/local/wham/lib/") } use strict; use CGI; use wham; my( $cgi, $cmd, $line, $class, $count, $mid, $whoami, $err, %config); open(STDERR, ">&STDOUT"); $|=1; $cgi=new CGI; %config=LoadConfig(); print $cgi->header; print < Whitelist Request
EOF if( defined( $cgi->param('address'))) { print "
\n"; print "\n"; print "\n"; print "
\n"; if( $cgi->param('address') !~ /(\S+\@\S+)/) { print "You do not appear to have entered a valid email address: ", $cgi->param('address'),"\n"; # &PrintForm; } else { if( ($err = &Whitelist( $1)) eq "") { print "Your address " ,$cgi->param('address'), " has been added to the whitelist.

Any mail from this address has been released.\n"; print "

\n"; print "
\n"; exit; } else { print "Unable to add your address: ", $cgi->param('address')," to the whitelist

$err
\n"; } } print "\n"; print "\n"; print "\n"; } else { } &PrintForm(); ########################################################################### ### &Whitelist($addr); ########################################################################### ### add user to the whitelist ########################################################################### sub Whitelist { my( $addr) = @_; my( @out, $cmd, $line, $status); $cmd = "/home/ryan/src/wham/bin/add_white -m 'added via white.cgi' -a '$addr'"; open( CMD, "$cmd 2>&1 |") || return "ERROR: could not execute '$cmd'\n"; #print "---\n"; while( defined( $line = )) { # print "==$line
\n"; push( @out, $line); } #print "---\n"; close( CMD); $status = ($? >> 8); if( $status != 0) { $line =join( "", @out); return "Exit Code:$status\n$line"; } ### Let's create the procmail.rc file that we'll use to ### filter out messages open( PROCRC, ">/tmp/procmailrc.wham.$$"); print PROCRC <param('delete'))) { print PROCRC ":0\n"; foreach $line ($cgi->param('delete')) { print "Deleting: $line\n"; print PROCRC "* 1^0 ^Message-ID: $line\n"; } print PROCRC "/dev/null\n"; } if( defined( $config{template})) { open( TEMPLATE, $config{ $template}) || die "ERROR: could not open $config{template} : $!\n"; while( defined( $line =