#!/usr/local/bin/perl5 -w ########################################################################### ### $Id: //depot/personal/ryan/main/src/wham/cgi-bin/wham.cgi#4 $ ########################################################################### ### ########################################################################### 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, $blurb); open(STDERR, ">&STDOUT"); $|=1; $cgi=new CGI; chomp($whoami=`whoami`); ### Set up the HTML print $cgi->header; print < Spam Summary

Spam Summary 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(); ### Take care of any deleting or whitelisting &ProcessSpam() if( defined( $cgi->param('whitelist')) || defined( $cgi->param('blacklist')) || defined( $cgi->param('delete')) || defined($cgi->param('allblack'))); $cmd = "cat $config{spam} | /usr/bin/formail -s ./blurb.pl"; #$cmd = "cat $config{spam} | /usr/bin/formail -s sh -c '/usr/bin/formail -X\"From\" -X\"From:\" -X\"Subject:\" -X\"Message-ID\" ; /usr/bin/formail -I \"\" | head -5'"; open( CMD, "$cmd|") || die "ERROR: could not execute '$cmd'\n"; print "

\n"; print "

\n"; print "\n"; print "\n"; for( $count=0;defined( $line = );) { if( $line =~ /^From:\s*(.*)/) { $f = $1; if( $count != 0) { &PrintBlurb( $count, $frm, $mid, $blurb); } $blurb = ""; $count++; $frm = $f; } elsif( $line =~ /^Message-id:\s*(.*)/) { $mid = $1; } $line =~ s//\>\;/g; $line =~ s/$/
\n/; $line =~ s/^-+(\)?//; $blurb .= $line; } if( $count == 0) { print "\n"; } else { &PrintBlurb( $count, $frm, $mid, $blurb); # print "\n"; } print "

action	mail summary
Congratulations! You have no spam
whitelist delete

\n"; print "

\n"; print "\n" if( $count != 0); print "\n" if( $count != 0); close( CMD); if( $? != 0) { # print "ERROR: command failed : $?\n"; # die "ERROR: command failed : $?\n"; } ########################################################################### ### &PrintBlurb( $class, $from, $mid, $txt); ########################################################################### ### ########################################################################### sub PrintBlurb { my( $count, $from, $mid, $txt) = @_; $class = ($count%2==0) ? "a" : "b"; print "", $cgi->checkbox( -name=>'whitelist', -value=>"$from"), " ", $cgi->checkbox( -name=>'blacklist', -value=>"$from"), " ", $cgi->checkbox( -name=>'delete', -value=>"$mid"), " ", $cgi->hidden( -name=>'id', -value=>"$mid"), # $cgi->hidden( -name=>'from', -value=>"$from"), "\n", $txt, "\n"; } ########################################################################### ### &ProcessSpam(); ########################################################################### ### Actually go ahead and delete or whitelist stuff ########################################################################### sub ProcessSpam { my( $mbox, $addr, $from, $From, $filter, $line); print "\n"; print "\n"; print "\n"; print "\n"; print "by your command \n"; if( defined( $cgi->param('allblack'))) { print "OK ready to nuke everything!\n"; ### take each message in the folder (via formail) and ### pipe it through a .procmailrc ### 1st thing will pipe it though add_back -m ### then delete &AllBlack(); print "\n"; print " \n"; return; } ### add the addrs to the whitelist if( defined( $cgi->param('whitelist'))) { ### Add these entries to the whitelist # print "", $cgi->param('whitelist'), " \n"; foreach $from( $cgi->param('whitelist')) { # print "", $from, " \n"; $From = Mail::Field->new('From', $from); foreach $addr ($From->addresses) { # print "]]]", $addr, "\n"; if( defined( $filter = &IsWhite( $addr))) { print "Address $addr matches $filter \n"; } else { print "Whitelisting $addr\n"; &AddToList( "white", "added via wham.cgi", $addr); } } } } ### add the addrs to the blacklist if( defined( $cgi->param('blacklist'))) { ### Add these entries to the whitelist # print "", $cgi->param('blacklist'), " \n"; foreach $from( $cgi->param('blacklist')) { # print "", $from, " \n"; $From = Mail::Field->new('From', $from); foreach $addr ($From->addresses) { # print "]]]", $addr, "\n"; if( defined( $filter = &IsBlack( $addr))) { print "Address $addr matches $filter \n"; } else { print "Blacklisting $addr\n"; &AddToList( "black", "added via wham.cgi", $addr); } } } } ### Let's create the procmail.rc file that we'll use to ### filter out messages open( PROCRC, ">/tmp/procmailrc.wham.$$"); print PROCRC </tmp/procmailrc.wham.$$"); print PROCRC <param('delete'))) { print PROCRC ":0\n"; foreach $line ($cgi->param('delete')) { print "Deleting: $line\n"; $line =~ s/\$/\\\$/; 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 =

Spam Summary for $whoami

Congratulations! You have no spam