#!/usr/bin/perl # $Id: admin.cgi,v 1.25 2011/06/28 00:13:48 sbajic Exp $ # DSPAM # COPYRIGHT (C) 2002-2012 DSPAM PROJECT # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU Affero General Public License as # published by the Free Software Foundation, either version 3 of the # License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU Affero General Public License for more details. # # You should have received a copy of the GNU Affero General Public License # along with this program. If not, see . use strict; use Time::Local; use vars qw { %CONFIG %DATA %FORM %LANG $LANGUAGE }; # # Read configuration parameters common to all CGI scripts # if (!(-e "configure.pl") || !(-r "configure.pl")) { &htmlheader; print "Error!

"; print "Missing file configure.pl"; print "

\n"; exit; } require "configure.pl"; # # The current CGI script # $CONFIG{'ME'} = "admin.cgi"; # # Parse form # %FORM = &ReadParse; # # Configure languages # if ($FORM{'language'} ne "") { $LANGUAGE = $FORM{'language'}; } else { $LANGUAGE = $CONFIG{'LANGUAGE_USED'}; } if (! defined $CONFIG{'LANG'}->{$LANGUAGE}->{'NAME'}) { $LANGUAGE = $CONFIG{'LANGUAGE_USED'}; } my @dslanguages = (); for (split(/\n/,$CONFIG{'LANGUAGES'})) { my $lang = $_; $lang =~ s/\s*selected>/>/; if ($lang =~ /value="([^"]+)"/) { $lang =~ s/>/ selected>/ if ($1 eq $LANGUAGE); } push(@dslanguages, $lang); } $CONFIG{'LANGUAGES'} = join("\n", @dslanguages); $CONFIG{'TEMPLATES'} = $CONFIG{'LANG'}->{$LANGUAGE}->{'TEMPLATEDIR'}; # # Check Permissions # do { my($admin) = 0; open(FILE, "<./admins"); while() { chomp; if ($_ eq $ENV{'REMOTE_USER'}) { $admin = 1; last; } } close(FILE); if (!$admin) { &error("$CONFIG{'LANG'}->{$LANGUAGE}->{'error_access_denied'}"); } }; $| = 1; # # Determine which extensions are available # if ($CONFIG{'AUTODETECT'} == 1 || $CONFIG{'AUTODETECT'} eq "") { $CONFIG{'PREFERENCES_EXTENSION'} = 0; $CONFIG{'LARGE_SCALE'} = 0; $CONFIG{'DOMAIN_SCALE'} = 0; do { my $x = `$CONFIG{'DSPAM'} --version`; if ($x =~ /--enable-preferences-extension/) { $CONFIG{'PREFERENCES_EXTENSION'} = 1; } if ($x =~ /--enable-large-scale/) { $CONFIG{'LARGE_SCALE'} = 1; } if ($x =~ /--enable-domain-scale/) { $CONFIG{'DOMAIN_SCALE'} = 1; } }; } if ($ENV{'REMOTE_USER'} eq "") { &error("$CONFIG{'LANG'}->{$LANGUAGE}->{'error_no_identity'}"); } if ($FORM{'template'} eq "" || $FORM{'template'} !~ /^([A-Z0-9]*)$/i) { $FORM{'template'} = "status"; } # # Set up initial display variables # $DATA{'REMOTE_USER'} = $ENV{'REMOTE_USER'}; # # Display DSPAM Version # $DATA{'DSPAMVERSION'} = $CONFIG{'DSPAM_VERSION'}; # # Process Commands # # Status if ($FORM{'template'} eq "status") { &DisplayStatus; # User Statistics } elsif ($FORM{'template'} eq "user") { &DisplayUserStatistics; # Preferences } elsif ($FORM{'template'} eq "preferences") { &DisplayPreferences; } &error("$CONFIG{'LANG'}->{$LANGUAGE}->{'error_invalid_command'} $FORM{'COMMAND'}"); # # Preferences Functions # sub DisplayPreferences { my(%PREFS, $FILE, $USER); if ($FORM{'username'} eq "") { $USER = "default"; } else { $USER = $FORM{'username'}; } $DATA{'USERNAME'} = $USER; if ($FORM{'username'} eq "") { $FILE = "./default.prefs"; if ($CONFIG{'PREFERENCES_EXTENSION'} != 1 && ! -l "$CONFIG{'DSPAM_HOME'}/default.prefs") { $DATA{'ERROR'} = "WARNING: " . "These default preferences will not be loaded by DSPAM, but only by ". " the CGI interface when a user initially sets up their preferences. ". "To have DSPAM override its configuration with these default ". "preferences, symlink $CONFIG{'DSPAM_HOME'}/default.prefs to the ". "default.prefs file in the CGI directory.

"; } } else { $FILE = GetPath($FORM{'username'}) . ".prefs"; } if ($FORM{'submit'} ne "") { if ($FORM{'enableBNR'} ne "on") { $FORM{'enableBNR'} = "off"; } if ($FORM{'optIn'} ne "on") { $FORM{'optIn'} = "off"; } if ($FORM{'optOut'} ne "on") { $FORM{'optOut'} = "off"; } if ($FORM{'enableWhitelist'} ne "on") { $FORM{'enableWhitelist'} = "off"; } if ($FORM{'showFactors'} ne "on") { $FORM{'showFactors'} = "off"; } if ($FORM{'dailyQuarantineSummary'} ne "on") { $FORM{'dailyQuarantineSummary'} = "off"; } if ($CONFIG{'PREFERENCES_EXTENSION'} == 1) { if ($FORM{'spamSubject'} eq "") { $FORM{'spamSubject'} = "''"; } else { $FORM{'spamSubject'} = quotemeta($FORM{'spamSubject'}); } system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' trainingMode " . quotemeta($FORM{'trainingMode'}) . " > /dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' spamAction " . quotemeta($FORM{'spamAction'}) . " > /dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' signatureLocation " . quotemeta($FORM{'signatureLocation'}) . " > /dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' spamSubject " . $FORM{'spamSubject'} . " > /dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' statisticalSedation " . quotemeta($FORM{'statisticalSedation'}) . " > /dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' enableBNR " . quotemeta($FORM{'enableBNR'}) . "> /dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' optOut " . quotemeta($FORM{'optOut'}) . ">/dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' optIn " . quotemeta($FORM{'optIn'}) . ">/dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' showFactors " . quotemeta($FORM{'showFactors'}) . "> /dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' enableWhitelist " . quotemeta($FORM{'enableWhitelist'}) . "> /dev/null"); system("$CONFIG{'DSPAM_BIN'}/dspam_admin ch pref '".quotemeta($USER). "' dailyQuarantineSummary " . quotemeta($FORM{'dailyQuarantineSummary'}) . "> /dev/null"); } else { open(FILE, ">$FILE") || do { &error("$CONFIG{'LANG'}->{$LANGUAGE}->{'error_cannot_write_prefs'}: $!"); }; print FILE <<_END; trainingMode=$FORM{'trainingMode'} spamAction=$FORM{'spamAction'} spamSubject=$FORM{'spamSubject'} statisticalSedation=$FORM{'statisticalSedation'} enableBNR=$FORM{'enableBNR'} enableWhitelist=$FORM{'enableWhitelist'} signatureLocation=$FORM{'signatureLocation'} showFactors=$FORM{'showFactors'} dailyQuarantineSummary=$FORM{'dailyQuarantineSummary'} _END close(FILE); } } if (! -e $FILE) { %PREFS = GetPrefs($USER, "./default.prefs"); } else { %PREFS = GetPrefs($USER, $FILE); } $DATA{"SEDATION_$PREFS{'statisticalSedation'}"} = "CHECKED"; $DATA{"S_".$PREFS{'trainingMode'}} = "CHECKED"; $DATA{"S_LOC_".uc($PREFS{'signatureLocation'})} = "CHECKED"; $DATA{"S_ACTION_".uc($PREFS{'spamAction'})} = "CHECKED"; $DATA{"SPAM_SUBJECT"} = $PREFS{'spamSubject'}; if ($PREFS{'optIn'} eq "on") { $DATA{'C_OPTIN'} = "CHECKED"; } if ($PREFS{'optOut'} eq "on") { $DATA{'C_OPTOUT'} = "CHECKED"; } if ($PREFS{"enableBNR"} eq "on") { $DATA{"C_BNR"} = "CHECKED"; } if ($PREFS{"showFactors"} eq "on") { $DATA{"C_FACTORS"} = "CHECKED"; } if ($PREFS{"enableWhitelist"} eq "on") { $DATA{"C_WHITELIST"} = "CHECKED"; } if ($PREFS{"dailyQuarantineSummary"} eq "on") { $DATA{"C_SUMMARY"} = "CHECKED"; } &output(%DATA); } # # User Statistics # sub DisplayUserStatistics { my($b) = "rowEven"; my ($sl_total) = 0; my ($il_total) = 0; my ($sm_total) = 0; my ($fp_total) = 0; my ($sc_total) = 0; my ($ic_total) = 0; my ($mailbox_total) = 0; open(IN, "$CONFIG{'DSPAM_STATS'}|"); while() { chomp; if ($b eq "rowEven") { $b = "rowOdd"; } else { $b = "rowEven"; } s/:/ /g; # sl = Spam Learned = TP True Positives # il = Innocent Learned = TN True Negatives # fp = False Positive = FP False Positives # sm = Spam Missed = FN False Negatives # sc = Spam Corpusfed = SC Spam Corpusfed # ic = Innocent Corpusfed = NC Nonspam Corpusfed my($username, $sl, $il, $fp, $sm, $sc, $ic) = (split(/\s+/))[0,2,4,6,8,10,12]; if ($sl eq "") { $_ = ; s/:/ /g; ($sl, $il, $fp, $sm, $sc, $ic) = (split(/\s+/))[2,4,6,8,10,12]; } my(%PREFS) = GetPrefs($username, GetPath($username).".prefs"); $PREFS{'enableBNR'} = "OFF" if ($PREFS{'enableBNR'} ne "on"); $PREFS{'enableWhitelist'} = "OFF" if ($PREFS{'enableWhitelist'} ne "on"); $PREFS{'spamAction'} = ucfirst($PREFS{'spamAction'}); $PREFS{'enableBNR'} = uc($PREFS{'enableBNR'}); $PREFS{'enableWhitelist'} = uc($PREFS{'enableWhitelist'}); my($mailbox) = GetPath($username).".mbox"; my($mailbox_size, $mailbox_display); if ( -e $mailbox ) { $mailbox_size = -s $mailbox; $mailbox_display = sprintf("%2.1f KB", ($mailbox_size / 1024)); $mailbox_total += $mailbox_size; } else { $mailbox_display = "--"; } $sl_total += $sl; $il_total += $il; $sm_total += $sm; $fp_total += $fp; $sc_total += $sc; $ic_total += $ic; $DATA{'TABLE'} .= qq!$username!. " $mailbox_display". " $sl". " $il". " $fp". " $sm". " $sc". " $ic". " $PREFS{'trainingMode'}". " $PREFS{'spamAction'}". " $PREFS{'enableBNR'}". " $PREFS{'enableWhitelist'}". " $PREFS{'statisticalSedation'}". " $PREFS{'signatureLocation'}". "\n"; } close(IN); my($mailbox_total_display) = sprintf("%2.1f KB", ($mailbox_total / 1024)); $b = "rowHighlight"; $DATA{'TABLE'} .= "Total". " $mailbox_total_display". " $sl_total". " $il_total". " $fp_total". " $sm_total". " $sc_total". " $ic_total". " ". " ". " ". " ". " ". " ". "\n"; &output(%DATA); } # # Status Functions # sub DisplayStatus { my($LOG) = "$CONFIG{'DSPAM_HOME'}/system.log"; my(@spam_daily, @nonspam_daily, @period_daily, @fp_daily, @sm_daily, @inoc_daily, @whitelist_daily, @corpus_daily, @virus_daily, @black_daily, @block_daily); my(@spam_weekly, @nonspam_weekly, @period_weekly, @fp_weekly, @sm_weekly, @inoc_weekly, @whitelist_weekly, @corpus_weekly, @virus_weekly, @black_weekly, @block_weekly); my(%msgpersecond); my($keycount_exectime); my($last_message); my(%classes); my ($min, $hour, $mday, $mon, $year) = (localtime(time))[1,2,3,4,5]; my ($hmstart) = time - 60; my ($daystart) = timelocal(0, 0, 0, $mday, $mon, $year); my ($periodstart) = $daystart - (3600*24*24); # 2 Weeks ago my ($dailystart) = time - (3600*23); my ($c_weekly) = 0; # Cursor to most recent time slot my ($c_daily) = 0; if (! -e $LOG) { &error("$CONFIG{'LANG'}->{$LANGUAGE}->{'error_no_historic'}"); } # Initialize each individual time period for(0..23) { my($h) = To12Hour($hour-(23-$_)); $period_daily[$_] = $h; $spam_daily[$_] = 0; $nonspam_daily[$_] = 0; $sm_daily[$_] = 0; $fp_daily[$_] = 0; $inoc_daily[$_] = 0; $whitelist_daily[$_] = 0; $corpus_daily[$_] = 0; $virus_daily[$_] = 0; $black_daily[$_] = 0; $block_daily[$_] = 0; } for(0..24) { my($d) = $daystart - (3600*24*(24-$_)); my ($lday, $lmon, $lyear) = (localtime($d))[3,4,5]; $lmon++; $lyear += 1900; $period_weekly[$_] = "$lmon/$lday/$lyear"; $spam_weekly[$_] = 0; $nonspam_weekly[$_] = 0; $sm_weekly[$_] = 0; $fp_weekly[$_] = 0; $inoc_weekly[$_] = 0; $whitelist_weekly[$_] = 0; $corpus_weekly[$_] = 0; $virus_weekly[$_] = 0; $black_weekly[$_] = 0; $block_weekly[$_] = 0; } open(LOG, "<$LOG") || &error("$CONFIG{'LANG'}->{$LANGUAGE}->{'error_cannot_open_log'}: $!"); while() { my($t_log, $c_log, $signature, $e_log) = (split(/\t/))[0,1,3,5]; next if ($t_log > time); $last_message = $t_log; # Only Parse Log Data in our Time Period if ($t_log>=$periodstart) { my($tmin, $thour, $tday, $tmon, $tyear) = (localtime($t_log))[1,2,3,4,5]; $tmon++; $tyear += 1900; # Weekly Graph $c_weekly = 0; while($period_weekly[$c_weekly] ne "$tmon/$tday/$tyear" && $c_weekly<24) { $c_weekly++; } if ($c_log eq "E") { if ($classes{$signature} eq "S") { $spam_weekly[$c_weekly]--; $spam_weekly[$c_weekly] = 0 if ($spam_weekly[$c_weekly]<0); } elsif ($classes{$signature} eq "I") { $nonspam_weekly[$c_weekly]--; $nonspam_weekly[$c_weekly] = 0 if ($nonspam_weekly[$c_weekly]<0); } elsif ($classes{$signature} eq "W") { $whitelist_weekly[$c_weekly]--; $whitelist_weekly[$c_weekly] = 0 if ($whitelist_weekly[$c_weekly]<0); } elsif ($classes{$signature} eq "F") { $spam_weekly[$c_weekly]++; $fp_weekly[$c_weekly]--; $fp_weekly[$c_weekly] = 0 if ($fp_weekly[$c_weekly]<0); } elsif ($classes{$signature} eq "M") { $sm_weekly[$c_weekly]--; $nonspam_weekly[$c_weekly]++; $sm_weekly[$c_weekly] = 0 if ($sm_weekly[$c_weekly]<0); } elsif ($classes{$signature} eq "N") { $inoc_weekly[$c_weekly]--; $inoc_weekly[$c_weekly] = 0 if ($inoc_weekly[$c_weekly]<0); } elsif ($classes{$signature} eq "C") { $corpus_weekly[$c_weekly]--; $corpus_weekly[$c_weekly] = 0 if ($corpus_weekly[$c_weekly]<0); } elsif ($classes{$signature} eq "V") { $virus_weekly[$c_weekly]--; $virus_weekly[$c_weekly] = 0 if ($virus_weekly[$c_weekly]<0); } elsif ($classes{$signature} eq "A") { $black_weekly[$c_weekly]--; $black_weekly[$c_weekly] = 0 if ($black_weekly[$c_weekly]<0); } elsif ($classes{$signature} eq "O") { $block_weekly[$c_weekly]--; $block_weekly[$c_weekly] = 0 if ($block_weekly[$c_weekly]<0); } } else { $classes{$signature} = $c_log; } if ($c_log eq "S") { $spam_weekly[$c_weekly]++; } if ($c_log eq "I") { $nonspam_weekly[$c_weekly]++; } if ($c_log eq "W") { $whitelist_weekly[$c_weekly]++; } if ($c_log eq "F") { $spam_weekly[$c_weekly]--; $fp_weekly[$c_weekly]++; $spam_weekly[$c_weekly] = 0 if ($spam_weekly[$c_weekly]<0); } if ($c_log eq "M") { $sm_weekly[$c_weekly]++; $nonspam_weekly[$c_weekly]--; $nonspam_weekly[$c_weekly] = 0 if ($nonspam_weekly[$c_weekly]<0); } if ($c_log eq "N") { $inoc_weekly[$c_weekly]++; } if ($c_log eq "C") { $corpus_weekly[$c_weekly]++; } if ($c_log eq "V") { $virus_weekly[$c_weekly]++; } if ($c_log eq "A") { $black_weekly[$c_weekly]++; } if ($c_log eq "O") { $block_weekly[$c_weekly]++; } # Daily Graph if ($t_log>=$dailystart) { while($period_daily[$c_daily] ne To12Hour($thour) && $c_daily<24) { $c_daily++; } if ($c_log eq "E") { if ($classes{$signature} eq "S") { $spam_daily[$c_daily]--; $spam_daily[$c_daily] = 0 if ($spam_daily[$c_daily]<0); } elsif ($classes{$signature} eq "I") { $nonspam_daily[$c_daily]--; $nonspam_daily[$c_daily] = 0 if ($nonspam_daily[$c_daily]<0); } elsif ($classes{$signature} eq "W") { $whitelist_daily[$c_daily]--; $whitelist_daily[$c_daily] = 0 if ($whitelist_daily[$c_daily]<0); } elsif ($classes{$signature} eq "F") { $spam_daily[$c_daily]++; $fp_daily[$c_daily]--; $fp_daily[$c_daily] = 0 if ($fp_daily[$c_daily]<0); } elsif ($classes{$signature} eq "M") { $sm_daily[$c_daily]--; $nonspam_daily[$c_daily]++; $sm_daily[$c_daily] = 0 if ($sm_daily[$c_daily]<0); } elsif ($classes{$signature} eq "N") { $inoc_daily[$c_daily]--; $inoc_daily[$c_daily] = 0 if ($inoc_daily[$c_daily]<0); } elsif ($classes{$signature} eq "C") { $corpus_daily[$c_daily]--; $corpus_daily[$c_daily] = 0 if ($corpus_daily[$c_daily]<0); } elsif ($classes{$signature} eq "V") { $virus_daily[$c_daily]--; $virus_daily[$c_daily] = 0 if ($virus_daily[$c_daily]<0); } elsif ($classes{$signature} eq "A") { $black_daily[$c_daily]--; $black_daily[$c_daily] = 0 if ($black_daily[$c_daily]<0); } elsif ($classes{$signature} eq "O") { $block_daily[$c_daily]--; $block_daily[$c_daily] = 0 if ($block_daily[$c_daily]<0); } } if ($c_log eq "S") { $spam_daily[$c_daily]++; } if ($c_log eq "I") { $nonspam_daily[$c_daily]++; } if ($c_log eq "W") { $whitelist_daily[$c_daily]++; } if ($c_log eq "F") { $spam_daily[$c_daily]--; $fp_daily[$c_daily]++; $spam_daily[$c_daily] = 0 if ($spam_daily[$c_daily]<0); } if ($c_log eq "M") { $sm_daily[$c_daily]++; $nonspam_daily[$c_daily]--; $nonspam_daily[$c_daily] = 0 if ($nonspam_daily[$c_daily]<0); } if ($c_log eq "N") { $inoc_daily[$c_daily]++; } if ($c_log eq "C") { $corpus_daily[$c_daily]++; } if ($c_log eq "V") { $virus_daily[$c_daily]++; } if ($c_log eq "A") { $black_daily[$c_daily]++; } if ($c_log eq "O") { $block_daily[$c_daily]++; } } # Last Half-Minute if ($t_log>=$hmstart) { $msgpersecond{$t_log}++; $DATA{'AVG_PROCESSING_TIME'} += $e_log; $keycount_exectime++; } } } close(LOG); # Calculate Avg. Messages Per Second foreach(values(%msgpersecond)) { $DATA{'AVG_MSG_PER_SECOND'} += $_; } $DATA{'AVG_MSG_PER_SECOND'} /= 60; $DATA{'AVG_MSG_PER_SECOND'} = sprintf("%2.2f", $DATA{'AVG_MSG_PER_SECOND'}); # Calculate Avg. Processing Time if ($keycount_exectime == 0) { $DATA{'AVG_PROCESSING_TIME'} = 0; } else { $DATA{'AVG_PROCESSING_TIME'} /= $keycount_exectime; } $DATA{'AVG_PROCESSING_TIME'} = sprintf("%01.6f", $DATA{'AVG_PROCESSING_TIME'}); # Calculate Number of processes, Uptime and Mail Queue length $DATA{'DSPAM_PROCESSES'} = `$CONFIG{'DSPAM_PROCESSES'}`; $DATA{'UPTIME'} = `uptime`; $DATA{'MAIL_QUEUE'} = `$CONFIG{'MAIL_QUEUE'}`; # Calculate Graphs $DATA{'SPAM_TODAY'} = $spam_weekly[24]; $DATA{'NONSPAM_TODAY'} = $nonspam_weekly[24]; $DATA{'SM_TODAY'} = $sm_weekly[24]; $DATA{'FP_TODAY'} = $fp_weekly[24]; $DATA{'INOC_TODAY'} = $inoc_weekly[24]; $DATA{'WHITE_TODAY'} = $whitelist_weekly[24]; $DATA{'CORPUS_TODAY'} = $corpus_weekly[24]; $DATA{'VIRUS_TODAY'} = $virus_weekly[24]; $DATA{'BLACK_TODAY'} = $black_weekly[24]; $DATA{'BLOCK_TODAY'} = $block_weekly[24]; $DATA{'TOTAL_TODAY'} = $DATA{'SPAM_TODAY'} + $DATA{'NONSPAM_TODAY'} + $DATA{'SM_TODAY'} + $DATA{'FP_TODAY'} + $DATA{'INOC_TODAY'} + $DATA{'WHITE_TODAY'} + $DATA{'CORPUS_TODAY'} + $DATA{'VIRUS_TODAY'} + $DATA{'BLACK_TODAY'} + $DATA{'BLOCK_TODAY'}; $DATA{'SPAM_THIS_HOUR'} = $spam_daily[23]; $DATA{'NONSPAM_THIS_HOUR'} = $nonspam_daily[23]; $DATA{'SM_THIS_HOUR'} = $sm_daily[23]; $DATA{'FP_THIS_HOUR'} = $fp_daily[23]; $DATA{'INOC_THIS_HOUR'} = $inoc_daily[23]; $DATA{'WHITE_THIS_HOUR'} = $whitelist_daily[23]; $DATA{'CORPUS_THIS_HOUR'} = $corpus_daily[23]; $DATA{'VIRUS_THIS_HOUR'} = $virus_daily[23]; $DATA{'BLACK_THIS_HOUR'} = $black_daily[23]; $DATA{'BLOCK_THIS_HOUR'} = $block_daily[23]; $DATA{'TOTAL_THIS_HOUR'} = $DATA{'SPAM_THIS_HOUR'} + + $DATA{'NONSPAM_THIS_HOUR'} + $DATA{'SM_THIS_HOUR'} + $DATA{'FP_THIS_HOUR'} + $DATA{'INOC_THIS_HOUR'} + $DATA{'WHITE_THIS_HOUR'} + $DATA{'CORPUS_THIS_HOUR'} + $DATA{'VIRUS_THIS_HOUR'} + $DATA{'BLACK_THIS_HOUR'} + $DATA{'BLOCK_THIS_HOUR'}; $DATA{'DATA_DAILY'} = join(",", @spam_daily) . "_" . join(",", @nonspam_daily) . "_" . join(",", @sm_daily) . "_" . join(",", @fp_daily) . "_" . join(",", @inoc_daily) . "_" . join(",", @whitelist_daily) . "_" . join(",", @corpus_daily) . "_" . join(",", @virus_daily) . "_" . join(",", @black_daily) . "_" . join(",", @block_daily) . "_" . join(",", @period_daily); $DATA{'DATA_WEEKLY'} = join(",", @spam_weekly) . "_" . join(",", @nonspam_weekly) . "_" . join(",", @sm_weekly) . "_" . join(",", @fp_weekly) . "_" . join(",", @inoc_weekly) . "_" . join(",", @whitelist_weekly) . "_" . join(",", @corpus_weekly) . "_" . join(",", @virus_weekly) . "_" . join(",", @black_weekly) . "_" . join(",", @block_weekly) . "_" . join(",", @period_weekly); foreach(@spam_daily) { $DATA{'TS_DAILY'} += $_; }; foreach(@nonspam_daily) { $DATA{'TI_DAILY'} += $_; } foreach(@sm_daily) { $DATA{'SM_DAILY'} += $_; } foreach(@fp_daily) { $DATA{'FP_DAILY'} += $_; } foreach(@inoc_daily) { $DATA{'INOC_DAILY'} += $_; } foreach(@whitelist_daily) { $DATA{'TI_DAILY'} += $_; $DATA{'WHITE_DAILY'} += $_; } foreach(@corpus_daily) { $DATA{'CORPUS_DAILY'} += $_; } foreach(@virus_daily) { $DATA{'TS_DAILY'} += $_; $DATA{'VIRUS_DAILY'} += $_; } foreach(@black_daily) { $DATA{'TS_DAILY'} += $_; $DATA{'BLACK_DAILY'} += $_; } foreach(@block_daily) { $DATA{'TS_DAILY'} += $_; $DATA{'BLOCK_DAILY'} += $_; } foreach(@spam_weekly) { $DATA{'TS_WEEKLY'} += $_; } foreach(@nonspam_weekly) { $DATA{'TI_WEEKLY'} += $_; } foreach(@sm_weekly) { $DATA{'SM_WEEKLY'} += $_; } foreach(@fp_weekly) { $DATA{'FP_WEEKLY'} += $_; } foreach(@inoc_weekly) { $DATA{'INOC_WEEKLY'} += $_; } foreach(@whitelist_weekly) { $DATA{'TI_WEEKLY'} += $_; $DATA{'WHITE_WEEKLY'} += $_; } foreach(@corpus_weekly) { $DATA{'CORPUS_WEEKLY'} += $_; } foreach(@virus_weekly) { $DATA{'TS_WEEKLY'} += $_; $DATA{'VIRUS_WEEKLY'} += $_; } foreach(@black_weekly) { $DATA{'TS_WEEKLY'} += $_; $DATA{'BLACK_WEEKLY'} += $_; } foreach(@block_weekly) { $DATA{'TS_WEEKLY'} += $_; $DATA{'BLOCK_WEEKLY'} += $_; } &output(%DATA); } # # Global Functions # sub htmlheader { print "Expires: now\n"; print "Pragma: no-cache\n"; print "Cache-control: no-cache\n"; print "Content-type: text/html\n\n"; } sub output { if ($FORM{'template'} eq "" || $FORM{'template'} !~ /^([A-Z0-9]*)$/i) { $FORM{'template'} = "performance"; } &htmlheader; my(%DATA) = @_; $DATA{'WEB_ROOT'} = $CONFIG{'WEB_ROOT'}; $DATA{'LANG'} = $LANGUAGE; $DATA{'FORM_ADMIN'} = qq!!; open(FILE, "<$CONFIG{'TEMPLATES'}/nav_admin_$FORM{'template'}.html"); while() { s/\$CGI\$/$CONFIG{'ME'}/g; s/\$([A-Z0-9_]*)\$/$DATA{$1}/g; print; } close(FILE); exit; } sub SafeVars { my(%PAIRS) = @_; my($url, $key); foreach $key (keys(%PAIRS)) { my($value) = $PAIRS{$key}; $value =~ s/([^A-Z0-9])/sprintf("%%%x", ord($1))/gie; $url .= "$key=$value&"; } $url =~ s/\&$//; return $url; } sub error { my($error) = @_; $FORM{'template'} = "error"; $DATA{'MESSAGE'} = <<_end; $CONFIG{'LANG'}->{$LANGUAGE}->{'error_message_part1'}
$error

$CONFIG{'LANG'}->{$LANGUAGE}->{'error_message_part2'} _end &output(%DATA); } sub ReadParse { my(@pairs, %FORM); if ($ENV{'REQUEST_METHOD'} =~ /GET/i) { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } else { my($buffer); read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/\&/, $buffer); } foreach(@pairs) { my($name, $value) = split(/\=/, $_); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $FORM{$name} = $value; } return %FORM; } sub To12Hour { my($h) = @_; if ($h < 0) { $h += 24; } if ($h>11) { $h -= 12 if ($h>12) ; $h .= ":00pm"; } else { $h = "12" if ($h == 0); $h .= ":00am"; } return $h; } sub GetPath { my($USER, $VPOPUSERNAME, $VPOPDOMAIN); my($UN) = @_; # Domain-scale if ($CONFIG{'DOMAIN_SCALE'} == 1) { $VPOPUSERNAME = (split(/@/, $UN))[0]; $VPOPDOMAIN = (split(/@/, $UN))[1]; $VPOPDOMAIN = "local" if ($VPOPDOMAIN eq ""); ($VPOPUSERNAME = $VPOPDOMAIN, $VPOPDOMAIN = "local") if ($VPOPUSERNAME eq "" && $VPOPDOMAIN ne ""); $USER = "$CONFIG{'DSPAM_HOME'}/data/$VPOPDOMAIN/$VPOPUSERNAME/$VPOPUSERNAME"; # Normal scale } elsif ($CONFIG{'LARGE_SCALE'} == 0) { $USER = "$CONFIG{'DSPAM_HOME'}/data/$UN/$UN"; # Large-scale } else { if (length($UN)>1) { $USER = "$CONFIG{'DSPAM_HOME'}/data/" . substr($UN, 0, 1) . "/". substr($UN, 1, 1) . "/$UN/$UN"; } else { $USER = "$CONFIG{'DSPAM_HOME'}/data/$UN/$UN/$UN"; } } return $USER; } sub GetPrefs { my(%PREFS); my($USER, $FILE) = @_; if ($CONFIG{'PREFERENCES_EXTENSION'} == 1) { if ($USER eq "") { $USER = "default"; } open(PIPE, "$CONFIG{'DSPAM_BIN'}/dspam_admin agg pref ".quotemeta($USER)."|"); while() { chomp; my($directive, $value) = split(/\=/); $PREFS{$directive} = $value; } close(PIPE); } else { if (! -e $FILE) { $FILE = "./default.prefs"; } if (! -e $FILE) { &error("$CONFIG{'LANG'}->{$LANGUAGE}->{'error_load_default_prefs'}"); } open(FILE, "<$FILE"); while() { chomp; my($directive, $value) = split(/\=/); $PREFS{$directive} = $value; } close(FILE); } return %PREFS; }