\n";
}
print "",&mailbox::text('view_desc', $in{'idx'}+1,
$folder->{'name'}),"\n";
if ($in{'idx'} < @mail-1) {
print "",
"
\n";
}
}
else {
print "$text{'view_sub'}\n";
}
print "",&text('setup_desc_usermin', "$pmrc"),"
\n"; } else { print "
",&text('setup_desc_webmin', "$pmrc"),"
\n"; } print "
\n"; print "",&text('import_ok1', scalar(@newaddrs), scalar(@addrs)),"
\n"; push(@from, @newaddrs); if ($in{'sort'}) { @from = sort { ($ua, $da) = split(/\@/, $a); ($ub, $db) = split(/\@/, $b); lc($da) cmp lc($db) || lc($ua) cmp lc($ub) } @from; } &save_directives($conf, 'whitelist_from', \@from, 1); &flush_file_lines(); } else { print "
",&text('import_ok2', scalar(@addrs)),"
\n"; } &webmin_log("import", scalar(@newaddrs)); &unlock_spam_files(); print "
\n";
}
print "",&mailbox::text('view_desc', $in{'idx'}+1,
$folder->{'name'}),"\n";
if ($in{'idx'} < @mail-1) {
print "",
"\n";
}
}
else {
print "$text{'view_sub'}\n";
}
print "
| ||||||||||||||||
|
\n"; # Show body attachment, with properly linked URLs if ($body && $body->{'data'} =~ /\S/) { if ($body eq $textbody) { # Show plain text print "
\n";
foreach $l (&mailbox::wrap_lines($body->{'data'},
$mailbox::userconfig{'wrap_width'})) {
print &mailbox::link_urls_and_escape($l),"\n";
}
print " |
\n"; } elsif ($body eq $htmlbody) { # Attempt to show HTML print "
| \n"; print &mailbox::safe_html($body->{'data'}); print " |
\n"; } } # Display other attachments if (@attach) { print "
| $mailbox::text{'view_attach'} |
| \n";
foreach $a (@attach) {
local $fn;
$size = (int(length($a->{'data'})/1000)+1)." Kb";
local $cb;
if ($a->{'type'} eq 'message/rfc822') {
push(@titles, "$mailbox::text{'view_sub'} $size"); } elsif ($a->{'filename'}) { push(@titles, &mailbox::decode_mimewords($a->{'filename'}). " $size"); $fn = &mailbox::decode_mimewords($a->{'filename'}); push(@detach, [ $a->{'idx'}, $fn ]); } else { push(@titles, "$a->{'type'} $size"); $a->{'type'} =~ /\/(\S+)$/; $fn = "file.$1"; push(@detach, [ $a->{'idx'}, $fn ]); } $fn =~ s/ /_/g; $fn =~ s/\#/_/g; $fn = &html_escape($fn); if ($a->{'type'} eq 'message/rfc822') { push(@links, "view_mail.cgi?idx=$in{'idx'}$subs&sub=$a->{'idx'}"); } else { push(@links, "detach.cgi/$fn?idx=$in{'idx'}&attach=$a->{'idx'}$subs"); } push(@icons, "/mailbox/images/boxes.gif"); } &icons_table(\@links, \@titles, \@icons, 8); print " |
\n"; } # Display GnuPG results if (defined($sigcode)) { print "
| $text{'view_gnupg'} |
| ";
$sigmessage = &html_escape($sigmessage);
$sigmessage = $sigmessage if ($sigcode == 4);
print &mailbox::text('view_gnupg_'.$sigcode, $sigmessage),"\n";
if ($sigcode == 3) {
local $url = "/$module_name/view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}$subs";
print " ",&mailbox::text('view_recv', $sigmessage, "/gnupg/recv.cgi?id=$sigmessage&return=".&urlize($url)."&returnmsg=".&urlize($text{'view_return'})),"\n"; } print " |
\n"; } if ($deccode) { print "
| $text{'view_crypt'} |
";
print &mailbox::text('view_crypt_'.$deccode, "$decmessage"); print " |
\n"; } print "\n"; dbmclose(%read); print "
| $h | \n"; } print "
| ",&$cfunc($j, "$_[0]_${i}_${j}", $_[3]->[$j], $v->[$j], $v)," | "; } print "
CCB34X_R ; spam/images/spam.gif 0100644 0005671 0000012 00000100172 07675210530 014401 0 ustar jcameron wheel GIF89a @@@@@@ ? ?̿̀̀ ? ? ?˿˿˿????? ֪ @@@@@ ? ? wff@ff f? f f ?f eeee?e@e?e??UkkT DUUD 3333 3@3@@22?2?2> 2 2 >2 "++" @ ?? j U ? +,
H*\ȰÇ#JHŋ3jȱǏ C Iɓ(S\ɲ˗0cʜI͛8sɳϟ@
JѣH*]ʴӧPJJիXjʵׯ`Ê KٳhӪ]˶۷pʝKݻx˷߿F(48!Ƹ.Ƈ n(9Ə'?X2gf,phC5 LXCϤM Uf}pmK-8㾓Wn9ЛG.:γOw^wlDg OHtAo_o]qH~~O 6@ 0 8 @O ,`pP~P@$"h
VH<(g[hxf8 A?z h@|Lbh( hÁWfږi kӀ*HHd @&馒$ TI!#xMzH"iJ",vZm *H'FY h(e&>OJ牢F*gc^q) ) 8 *#?r`q NjFyz-R
ˁ|~k,
b 디= ?r8gnH.< @v0ٺ 2k9|:/[чjH
/cHe6nkN!2! rKʹofMn ej8|s\֨p&˃*ga'iv:2 LfPf؉6;Gk7P6>Jo+|zrKe-ʝ읗(
9bY hlb!"hmC }j3֫ gm#bl)
z,]҆2߾ce {/c *?Z:܅84 rY"8{bRUUw=baQK)Hӧ=Mw! npQdə`͓XN.)-gPtqg b \n";
&start_form("save_user.cgi", $text{'user_header'});
$dns = lc(&find_value("dns_available", $conf));
$dns = "test" if (!$dns && $config{'defaults'});
print " \n";
&start_form("save_score.cgi", $text{'score_header'});
print " \n";
&start_form("save_header.cgi", $text{'header_header'});
if (!$module_info{'usermin'}) {
print " \n";
&start_form("save_white.cgi", $text{'white_header'});
print " \n";
print " ",&text('index_ecmd', "$config{'spamassassin'}",
"$gconfig{'webprefix'}/config.cgi?$module_name")," \n";
}
else {
$vtext = $module_info{'usermin'} ? undef :
&text('index_version', $vers);
&header($text{'index_title'}, "", undef, 1, 1, undef, $hsl,
undef, undef, $vtext);
print " ",&text('index_econfig',
"$config{'local_cf'}",
"$gconfig{'webprefix'}/config.cgi?$module_name"),
" \n";
}
else {
# Work out of SpamAssassin is enabled in procmail
if ($config{'warn_procmail'} && &foreign_check("procmail")) {
&foreign_require("procmail", "procmail-lib.pl");
$enabled = 0;
@pmrcs = &get_procmailrc();
foreach $pmrc (@pmrcs) {
local @recipes =
&procmail::parse_procmail_file($pmrc);
foreach $r (@recipes) {
if ($r->{'action'} =~ /spamassassin/i ||
$r->{'action'} =~ /spamc/i) {
# Looks like it is!
$enabled = 1;
last;
}
foreach $c (@{$r->{'conds'}}) {
if ($c->[1] =~ /X-Spam/i) {
# A condition exists
$enabled = 1;
last;
}
}
}
last if ($enabled);
}
}
else {
$enabled = -1; # don't know, or checking disabled
}
if ($enabled == 0) {
if ($module_info{'usermin'}) {
print &text('index_warn_usermin',
"$pmrcs[0]",
"$pmrcs[1]")," \n";
}
else {
print &text('index_warn_webmin',
"$pmrcs[0]")," \n";
}
}
# Show icons
@pages = ( 'white', 'score', 'report', 'user' );
push(@pages, 'header') if (!$module_info{'usermin'} ||
&find_default("allow_user_rules", 0));
push(@pages, 'priv') if (!$module_info{'usermin'});
push(@pages, 'mail') if ($module_info{'usermin'} &&
$userconfig{'spam_file'});
push(@pages, 'setup') if ($enabled == 0);
@pages = grep { &can_use_page($_) } @pages;
@links = map { $_ eq "mail" ? "mail.cgi" : "edit_${_}.cgi" }
@pages;
@icons = map { "images/${_}.gif" } @pages;
@titles = map { $text{"${_}_title"} } @pages;
&icons_table(\@links, \@titles, \@icons);
# Show buttons for HUPing spamd processes (if any)
if (!$module_info{'usermin'} &&
(@pids = &get_process_pids())) {
print "
\n";
$conf = &get_config();
print "$text{'user_desc'} \n",
$dns =~ /^test:\s*(.*)/ ? $1 : "";
print "$text{'user_dns'} \n";
printf " %s\n",
$dns eq 'yes' ? "checked" : "", $text{'yes'};
printf " %s\n",
$dns eq 'no' ? "checked" : "", $text{'no'};
if (!$config{'defaults'}) {
printf " %s (%s)\n",
!$dns ? "checked" : "", $text{'default'}, $text{'user_dnstest'};
}
printf " %s\n",
$dns =~ /^test/ ? "checked" : "", $text{'user_dnslist'};
printf " \n";
print " \n";
print "$text{'user_razor'} \n";
$razor = &find("razor_timeout", $conf);
&opt_field("razor_timeout", $razor, 5, 10);
print " \n";
print " \n";
print "$text{'user_dcc'} \n";
$dcc = &find("dcc_path", $conf);
&opt_field("dcc_path", $dcc, 40, $text{'user_inpath'}, 1);
print &file_chooser_button("dcc_path", 0);
print " \n";
print "$text{'user_bodymax'} \n";
$bodymax = &find("dcc_body_max", $conf);
&opt_field("dcc_body_max", $bodymax, 6, 999999);
print " \n";
print "$text{'user_timeout'} \n";
$timeout = &find("dcc_timeout", $conf);
&opt_field("dcc_timeout", $timeout, 5, 10);
print " \n";
print "$text{'user_fuz1max'} \n";
$fuz1max = &find("dcc_fuz1_max", $conf);
&opt_field("dcc_fuz1_max", $fuz1max, 6, 999999);
print " \n";
print "$text{'user_fuz2max'} \n";
$fuz2max = &find("dcc_fuz2_max", $conf);
&opt_field("dcc_fuz2_max", $fuz2max, 6, 999999);
print " \n";
print "$text{'user_dheader'} \n";
$dheader = &find("dcc_header", $conf);
&yes_no_field("dcc_header", $dheader, 0);
print " \n";
print " \n";
print "$text{'user_pyzor'} \n";
$pyzor = &find("pyzor_path", $conf);
&opt_field("pyzor_path", $pyzor, 40, $text{'user_inpath'}, 1);
print &file_chooser_button("pyzor_path", 0);
print " \n";
print "$text{'user_pbodymax'} \n";
$pbodymax = &find("pyzor_body_max", $conf);
&opt_field("pyzor_body_max", $pbodymax, 6, 999999);
print " \n";
print "$text{'user_ptimeout'} \n";
$ptimeout = &find("pyzor_timeout", $conf);
&opt_field("pyzor_timeout", $ptimeout, 5, 10);
print " \n";
&end_form(undef, $text{'save'});
print "$text{'user_pheader'} \n";
$pheader = &find("pyzor_header", $conf);
&yes_no_field("pyzor_header", $pheader, 0);
print "
\n";
&footer("", $text{'index_return'});
spam/lang/ 0040775 0005671 0000012 00000000000 07752544432 012441 5 ustar jcameron wheel spam/lang/en 0100664 0005671 0000012 00000027444 07752544415 012777 0 ustar jcameron wheel index_title=SpamAssassin Mail Filter
index_ecmd=The SpamAssassin command $1 was not found on your system. Maybe it is not installed, or your module configuration is incorrect.
index_econfig=The SpamAssassin local configuration file or directory $1 was not found on your system. Maybe SpamAssassin is not installed, or your module configuration is incorrect.
index_version=SpamAssassin version $1
index_warn_usermin=SpamAssassin does not appear to be set up in your Procmail configuration file $2 or the global file $1, so any configuration done using this module will have no effect unless SpamAssassin has been setup globally.
index_warn_webmin=SpamAssassin does not appear to be set up in the system's Procmail configuration file $1, so any configuration done using this module will have no effect unless users have it set up individually.
index_return=module index
index_apply=Apply Changes
index_applydesc=Click this button to apply the current SpamAssassin configuration by sending a HUP signal to all running $1 processes.
white_title=Allowed and Denied Addresses
white_desc=The tables on this page allow you to specify From: and To: addresses for email that is always or never categorized as spam. Any other email will be processed as normal by SpamAssassin's rules. All email addresses can contain wildcards, like *@foo.com or *.foo.com to match entire domains.
white_header=Email addresses to categorize as spam
white_from=From: addresses to never classify as spam
white_gfrom=System-wide addresses to never classify as spam
white_addr=Address
white_rcvd=From: addresses to never classify as spam, depending on Received: domain
white_rcvdhost=Source domain
white_unfrom=Exceptions for From: addresses to never classify as spam
white_gunfrom=System-wide exceptions for addresses to never classify as spam
white_black=From: addresses to always classify as spam
white_gblack=System-wide addresses to always classify as spam
white_unblack=Exceptions for From: addresses to always classify as spam
white_gunblack=System-wide exceptions for addresses to always classify as spam
white_to=To: or Cc: addresses to allow some or all spam to
white_level=Allow
white_level0=Some spam
white_level1=More spam
white_level2=All spam
white_err=Failed to save white and black lists
white_efrom='$1' is not a valid From: address
white_ercvd='$1' is not a valid domain name
white_importdesc=This form can be used to add email addresses from a file (such as an exported Outlook or Eudora address book) to the allowed list.
white_import=Import addresses from file
white_sort=Sort allowed addresses after import?
white_importok=Import Now
white_return=allowed and denied addresses
score_title=Spam Classification
score_desc=SpamAssassin assigns a score to each message based on its content and headers. The options on this page determine the score above which a message is considered spam, and some of the methods via which that score is calculated.
score_header=Spam message classification options
score_score=SpamAssassin test scores
score_name=Test name
score_points=Points
score_hits=Hits above which a message is considered spam
score_rbl=Skip RBL open-relay check?
score_mx=Number of times to check From: address MX
score_mxdelay=Seconds to wait between MX checks
score_langs=Languages in email that are not considered potential spam
score_langsall=All languages
score_langssel=Selected languages ..
score_locales=Character sets in email that are not considered potential spam
score_localesall=All character sets
score_localessel=Selected character sets ..
score_auto=Whitelist score factor
score_timeout=Seconds to wait for RBL queries
score_received=Number of Received: headers to check with RBL
score_describe=Test descriptions for report
score_descr=Description
score_err=Failed to save message scoring
score_ename='$1' is not a valid test name
score_epoints='$1' is not a valid number of points
score_edesc=Missing description for score '$1'
score_ehits=Missing or invalid number of hits above which a message is considered spam
score_eauto=Missing or invalid whitelist score factor (must be between 0 and 1)
score_emx=Missing or invalid number of times to check From: address MX
score_emxdelay=Missing or invalid seconds to wait between MX checks
score_etimeout=Missing or invalid seconds to wait for RBL queries
score_ereceived=Missing or invalid number of Received: headers to check with RBL
report_title=Message Modification
report_desc=The options on this page control the modifications that SpamAssassin makes to the headers and body of all messages that it analyzes, and modifications that it makes to those classified as spam.
report_header=Analysed and spam message modification options
report_report=Report attached to messages exceeding the spam threshold
report_clear=Use just text below ..
report_noclear=Add text below to default message ..
report_terse=Report attached to spam messages when in terse mode
report_rewrite=Modify Subject: header of spam?
report_subject=Text to prepend to spam Subject: header
report_rheader=Put report in X-Spam-Status: header instead of body?
report_useterse=Only generate terse report?
report_fold=Split X-Spam-Status: header over multiple lines?
report_detail=Include details of spam phrases?
report_stars=Include X-Spam-Level: header?
report_char=X-Spam-Level: header character
report_defang=Change MIME type of spam to text/plain?
report_err=Failed to save spam report options
report_echar=A single character must be entered for the X-Spam-Level: header
user_title=Miscellaneous User Options
user_desc=The options on this page are mostly related to the paths and settings that SpamAssassin uses for the external spam identification packages Razor, DCC and Pyzor. You can also tell SpamAssassin if it will be able to perform DNS lookups or not.
user_header=Miscellaneous user-level options
user_dns=Can SpamAssassin do DNS lookups?
user_dnslist=Test by checking servers
user_dnstest=Test
user_razor=Razor request timeout in seconds
user_dcc=Location of DCC client program
user_inpath=In PATH
user_bodymax=DCC body checksum count before match
user_fuz1max=DCC fuz1 checksum count before match
user_fuz2max=DCC fuz2 checksum count before match
user_timeout=DCC request timeout in seconds
user_dheader=Add DCC header to messages?
user_pyzor=Location of Pyzor client program
user_pbodymax=Pyzor body checksum count before match
user_ptimeout=Pyzor request timeout in seconds
user_pheader=Add Pyzor header to messages?
user_err=Failed to save user options
user_etimeout='$1' is not a valid timeout
user_epath='$1' is not a valid client program path
user_emax='$1' is not a valid checksum count
header_title=Header and Body Tests
header_desc=This page allows you to define additional tests that SpamAssassin will apply to email, based on message headers, the body content, URLs found in the body, or combinations of other tests. The name assigned to each test is up to you, but is usually something like CONTAINS_FOO. The actual score that SpamAssassin adds to messages matching a test can be set by entering your own or built-in test names in the tables at the bottom of the page.
header_header=Additional header and body tests
header_allow=Allow users to define tests?
header_test=Header tests
header_tname=Test name
header_name=For header
header_op=Check if
header_op0=Matches..
header_op1=Doesn't match..
header_op2=Exists
header_op3=Evaluate..
header_pat=Regular expession
header_default=Default value
header_uri=Email URL tests
header_body=Body tests
header_mode=Body part
header_mode0=Plain text
header_mode1=All text
header_mode2=Raw text
header_mode3=Entire mail
header_meta=Tests based on others
header_bool=Boolean test expression
header_err=Failed to save tests
header_ename='$1' is not a valid test name
header_eeval='$1' is not a valid evaluation function
header_eheader='$1' is not a valid email header
header_eregexp='$1' is not a valid regular expression (must be like /expression/)
header_emeta=Missing test expression for test '$1'
priv_title=Miscellaneous Privileged Options
priv_desc=The options on this can only be set globally, rather than in individual users' configuration files. They control with paths to various configuration and logging file.
priv_header=Miscellaneous privilege-level settings
priv_white=Automatic whitelist file path
priv_mode=Whitelist octal file mode
priv_dcc=DCC command arguments
priv_log=Timing log files path
priv_razor=Razor configuration file path
priv_phrases=Spam indicator phrases
priv_phrase=Two-word phrase
priv_score=Score
priv_highest=Highest phrase score
priv_err=Failed to save privileged options
priv_epath='$1' is not a valid path
priv_emode='$1' is not a 4-digit octal file mode
priv_eargs='$1' is not a valid list of arguments
priv_emscore='$1' is not a valid highest phrase score
priv_ephrase='$1' is not a valid two-word spam phrase
priv_escore=Missing or invalid score for spam phrase '$1'
usually=Usually $1
ecannot=You are not allowed to use this page
setup_title=Setup Procmail For SpamAssassin
setup_desc_webmin=This form can be used to setup Procmail in $1 to run SpamAssassin on all email messages received by your system. However, this will only have any effect if your mail server has been configured to use Procmail for local delivery, or for users whose .forward files are set up to run Procmail.
setup_desc_usermin=This form can be used to setup Procmail in $1 to run SpamAssassin on all email messages sent to your account. However, this will only have any effect if the mail server has been configured to use Procmail for local delivery, or if your .forward files is set up to feed all email to Procmail.
setup_head=All messages processed by SpamAssassin will have the X-Spam headers set, so that they can be further filtered by mail clients.
setup_rel=Any non-absolute mail file or directory paths entered above will be relative to the home directory of the user receiving email.
setup_to=Action for messages classified as spam
setup_null=Throw away
setup_default=Deliver normally
setup_file=Append to mbox-format mail file ..
setup_maildir=Append to Qmail-style mail directory ..
setup_mhdir=Append to MH-style mail directory ..
setup_ok=Setup Procmail for SpamAssassin
setup_err=Failed to setup SpamAssassin
setup_efile=Missing or invalid mbox-format file
setup_emaildir=Missing or invalid Qmail mail directory
setup_emhdir=Missing or invalid MH mail directory
log_white=Modified allowed and denied addresses
log_score=Modified spam classification
log_report=Modified message modification
log_user=Modified miscellaneous user options
log_header=Modified header and body tests
log_priv=Modified miscellaneous privileged options
log_setup=Setup Procmail for SpamAssassin
log_import=Imported $1 allowed addresses
import_title=Import Addresses
import_err=Failed to import addresses
import_efile=No file to import from selected
import_enone=No email addresses found in file
import_ok1=$2 email addresses were found in the file, of which $1 were new and have been added to the alllowed addresses list.
import_ok2=$1 email addresses were found in the file, but they were all already in the allowed addresses list.
mail_title=Spam Mail
mail_desc=This page lists messages that have been classified as spam, and are awaiting some action. Messages that have been incorrectly indentified can be moved to your Inbox, while those that are really spam can be deleted.
mail_level=Level
mail_level2=Spam level
mail_inbox=Move to Inbox
mail_whitelist=Move to Inbox and Allow Sender
mail_blacklist=Delete and Report to SpamAssassin
mail_return=spam mail list
mail_pos=Spam messages $1 to $2 of $3
mail_none=There are no messages in your spam folder
mail_refresh=Refresh
mail_will=Automatic refresh in $1 minutes
mail_wills=Automatic refresh in $1 seconds
process_eclean=An error occurred removing the SpamAssassin headers from this email
process_ereport=Failed to report email to SpamAssassin : $1
apply_err=Failed to apply changes
apply_none=No SpamAssassin daemon processes found!
spam/save_score.cgi 0100775 0005671 0000012 00000003233 07747562376 014351 0 ustar jcameron wheel #!/usr/local/bin/perl
# save_score.cgi
# Save message scoring options
require './spam-lib.pl';
&error_setup($text{'score_err'});
&can_use_check("score");
&ReadParse();
&lock_spam_files();
$conf = &get_config();
&parse_opt($conf, "required_hits", \&hits_check);
&parse_opt($conf, "auto_whitelist_factor", \&auto_check);
&parse_opt($conf, "check_mx_attempts", \&mx_check);
&parse_opt($conf, "check_mx_delay", \&mxdelay_check);
&parse_yes_no($conf, "skip_rbl_checks");
&parse_opt($conf, "rbl_timeout", \&timeout_check);
&parse_opt($conf, "num_check_received", \&received_check);
if ($in{'langs_def'} == 2) {
&save_directives($conf, "ok_languages", [ ], 1);
}
elsif ($in{'langs_def'} == 1) {
&save_directives($conf, "ok_languages", [ "all" ], 1);
}
else {
&save_directives($conf, "ok_languages",
[ join(" ", split(/\0/, $in{'langs'})) ], 1);
}
if ($in{'locales_def'} == 2) {
&save_directives($conf, "ok_locales", [ ], 1);
}
elsif ($in{'locales_def'} == 1) {
&save_directives($conf, "ok_locales", [ "all" ], 1);
}
else {
&save_directives($conf, "ok_locales",
[ join(" ", split(/\0/, $in{'locales'})) ], 1);
}
&flush_file_lines();
&unlock_spam_files();
&webmin_log("score");
&redirect("");
sub hits_check
{
$_[0] =~ /^\d+(\.\d+)?$/ || &error($text{'score_ehits'});
}
sub auto_check
{
$_[0] =~ /^\d+(\.\d+)?$/ && $_[0] >= 0 && $_[0] <= 1 ||
&error($text{'score_eauto'});
}
sub mx_check
{
$_[0] =~ /^\d+$/ || &error($text{'score_emx'});
}
sub mxdelay_check
{
$_[0] =~ /^\d+$/ || &error($text{'score_emxdelay'});
}
sub timeout_check
{
$_[0] =~ /^\d+$/ || &error($text{'score_etimeout'});
}
sub received_check
{
$_[0] =~ /^\d+$/ || &error($text{'score_ereceived'});
}
spam/locales 0100664 0005671 0000012 00000000071 07674516170 013061 0 ustar jcameron wheel ja Japanese
ko Korea
ru Cyrillic
th Thai
zh Chinese
spam/edit_score.cgi 0100775 0005671 0000012 00000006727 07705401046 014327 0 ustar jcameron wheel #!/usr/local/bin/perl
# edit_score.cgi
# Display a form for editing spam scoring options
require './spam-lib.pl';
&can_use_check("score");
&header($text{'score_title'}, "");
print "
\n";
$conf = &get_config();
print "$text{'score_desc'} \n";
print "$text{'score_hits'} ";
$hits = &find("required_hits", $conf);
&opt_field("required_hits", $hits, 5, "5");
print " \n";
print "$text{'score_auto'} ";
$auto = &find("auto_whitelist_factor", $conf);
&opt_field("auto_whitelist_factor", $auto, 5, "0.5");
print " \n";
print "$text{'score_mx'} ";
$mx = &find("check_mx_attempts", $conf);
&opt_field("check_mx_attempts", $mx, 4, "2");
print " \n";
print "$text{'score_mxdelay'} ";
$mxdelay = &find("check_mx_delay", $conf);
&opt_field("check_mx_delay", $mxdelay, 4, "2");
print " \n";
print "$text{'score_rbl'} ";
$rbl = &find("skip_rbl_checks", $conf);
&yes_no_field("skip_rbl_checks", $rbl, 0);
print " \n";
print "$text{'score_timeout'} ";
$timeout = &find("rbl_timeout", $conf);
&opt_field("rbl_timeout", $timeout, 5, "30");
print " \n";
print "$text{'score_received'} ";
$received = &find("num_check_received", $conf);
&opt_field("num_check_received", $received, 5, 2);
print " \n";
@langs = &find_value("ok_languages", $conf);
%langs = map { $_, 1 } split(/\s+/, join(" ", @langs));
$lmode = !@langs ? 2 : $langs{'all'} ? 1 : 0;
print " \n";
@locales = &find_value("ok_locales", $conf);
%locales = map { $_, 1 } split(/\s+/, join(" ", @locales));
$lmode = !@locales ? 2 : $locales{'all'} ? 1 : 0;
print "$text{'score_langs'} \n";
printf " %s (%s)
\n",
$lmode == 2 ? 'checked' : '', $text{'default'}, $text{'score_langsall'};
printf " %s
\n",
$lmode == 1 ? 'checked' : '', $text{'score_langsall'};
printf " %s
\n",
$lmode == 0 ? 'checked' : '', $text{'score_langssel'};
print " \n";
&end_form(undef, $text{'save'});
print "$text{'score_locales'} \n";
printf " %s (%s)
\n",
$lmode == 2 ? 'checked' : '', $text{'default'},$text{'score_localesall'};
printf " %s
\n",
$lmode == 1 ? 'checked' : '', $text{'score_localesall'};
printf " %s
\n",
$lmode == 0 ? 'checked' : '', $text{'score_localessel'};
print "
\n";
&footer("", $text{'index_return'});
spam/process.cgi 0100755 0005671 0000012 00000004562 07741173707 013670 0 ustar jcameron wheel #!/usr/local/bin/perl
# process.cgi
# Delete, move or whitelist messages
require './spam-lib.pl';
&foreign_require("mailbox", "mailbox-lib.pl");
$folder = &spam_file_folder();
&disable_indexing($folder);
&ReadParse();
@delete = sort { $a <=> $b } split(/\0/, $in{'d'});
if ($in{'inbox'} || $in{'whitelist'}) {
# Move mails to inbox
@delete || &error($mailbox::text{'delete_emnone'});
@folders = &mailbox::list_folders();
($mfolder) = grep { $_->{'inbox'} } @folders;
@mail = &mailbox::mailbox_list_mails($delete[0], $delete[@delete-1],
$folder);
foreach $d (@delete) {
push(@movemail, $mail[$d]);
push(@addrs, map { $_->[0] } &mailbox::split_addresses($mail[$d]->{'header'}->{'from'}));
}
# Pass through spamassassin to remove headers, then add to Inbox
&mailbox::lock_folder($mfolder);
foreach $d (@movemail) {
local $temp = &tempname();
&mailbox::send_mail($d, $temp);
local $newmail = &mailbox::read_mail_file("$config{'spamassassin'} --remove-markup <$temp |");
$newmail || &error($text{'process_eclean'});
&mailbox::write_mail_folder($newmail, $mfolder);
unlink($temp);
}
&mailbox::unlock_folder($mfolder);
# Delete from spam folder
&mailbox::lock_folder($folder);
&mailbox::mailbox_delete_mail($folder, $mfolder, @movemail);
&mailbox::unlock_folder($folder);
if ($in{'whitelist'}) {
# Add senders to whitelist
&lock_file($local_cf);
$conf = &get_config();
@from = map { @{$_->{'words'}} } &find("whitelist_from", $conf);
%already = map { $_, 1 } @from;
@newaddrs = grep { !$already{$_} } &unique(@addrs);
push(@from, @newaddrs);
&save_directives($conf, 'whitelist_from', \@from, 1);
&flush_file_lines();
&unlock_file($local_cf);
}
}
else {
# Delete messages
@delete || &error($mailbox::text{'delete_enone'});
@mail = &mailbox::mailbox_list_mails($delete[0], $delete[@delete-1],
$folder);
foreach $d (@delete) {
push(@delmail, $mail[$d]);
}
&mailbox::lock_folder($folder);
&mailbox::mailbox_delete_mail($folder, @delmail);
&mailbox::unlock_folder($folder);
if ($in{'razor'}) {
# Report to razor
local $temp = &tempname();
foreach $d (@delmail) {
&mailbox::send_mail($d, $temp);
local $out = `$config{'spamassassin'} --report <$temp 2>&1`;
unlink($temp);
if ($? || $out =~ /failed/i) {
&error(&text('process_ereport',
"$out
"));
}
}
}
}
&redirect("mail.cgi");
spam/edit_header.cgi 0100775 0005671 0000012 00000011777 07752663451 014461 0 ustar jcameron wheel #!/usr/local/bin/perl
# edit_header.cgi
# Display extra header and body test
require './spam-lib.pl';
&can_use_check("header");
&header($text{'header_title'}, "");
print "
\n";
$conf = &get_config();
print "$text{'header_desc'} \n";
}
@header = &find("header", $conf);
print "$text{'header_allow'} ";
$allow = &find("allow_user_rules", $conf);
&yes_no_field("allow_user_rules", $allow, 0);
print " \n";
print "$text{'header_test'} \n";
&edit_table("header",
[ $text{'header_tname'}, $text{'header_name'}, $text{'header_op'},
$text{'header_pat'}, $text{'header_default'} ],
[ map { [ &split_header($_->{'value'}) ] } @header ], [ ], \&header_conv, 2);
print " \n";
push(@body, map { [ &split_body($_->{'value'}), 0 ] } &find("body", $conf));
push(@body, map { [ &split_body($_->{'value'}), 1 ] } &find("rawbody", $conf));
push(@body, map { [ &split_body($_->{'value'}), 2 ] } &find("fullbody", $conf));
push(@body, map { [ &split_body($_->{'value'}), 3 ] } &find("full", $conf));
print " $text{'header_body'} \n";
&edit_table("body",
[ $text{'header_tname'}, $text{'header_mode'}, $text{'header_op'},
$text{'header_pat'} ], \@body, [ ], \&body_conv, 2);
print " \n";
@uri = &find("uri", $conf);
print " \n";
print "$text{'header_uri'} \n";
&edit_table("uri",
[ $text{'header_tname'}, $text{'header_pat'} ],
[ map { $_->{'words'} } @uri ], [ 20, 40 ], undef, 2);
print " \n";
@meta = &find("meta", $conf);
print " $text{'header_meta'} \n";
&edit_table("meta",
[ $text{'header_tname'}, $text{'header_bool'} ],
[ map { $_->{'value'} =~ /^(\S+)\s*(.*)$/ ? [ $1, $2 ] : [ ] } @meta ],
[ 20, 40 ], undef, 2);
print " \n";
@score = &find("score", $conf);
print " \n";
@describe = &find("describe", $conf);
print "$text{'score_score'} \n";
&edit_table("score",
[ $text{'score_name'}, $text{'score_points'} ],
[ map { $_->{'words'} } @score ], [ 30, 6 ]);
print " \n";
&end_form(undef, $text{'save'});
print "$text{'score_describe'} \n";
&edit_table("describe",
[ $text{'score_name'}, $text{'score_descr'} ],
[ map { $_->{'value'} =~ /^(\S+)\s*(.*)/ ? [ $1, $2 ] : [ ] }
@describe ], [ 30, 40 ]);
print "
\n";
&footer("", $text{'index_return'});
# header_conv(col, name, size, value, &values)
sub header_conv
{
if ($_[0] == 0) {
return sprintf "",
&html_escape($_[3]);
}
elsif ($_[0] == 1) {
local $h = $_[3] =~ /^exists:(\S+)$/ ? $1 : $_[3] =~ /^eval:/ ? "" : $_[3];
return sprintf "",
&html_escape($h);
}
elsif ($_[0] == 2) {
local $rv = "\n";
return $rv;
}
elsif ($_[0] == 3) {
return sprintf "",
&html_escape($_[4]->[1] =~ /^eval:(\S+)/ ? $1 : $_[3]);
}
elsif ($_[0] == 4) {
return sprintf "",
&html_escape($_[3]);
}
}
# body_conv(col, name, size, value, &values)
sub body_conv
{
if ($_[0] == 0) {
return sprintf "",
&html_escape($_[4]->[0]);
}
elsif ($_[0] == 1) {
local $rv = "\n";
return $rv;
}
elsif ($_[0] == 2) {
local $rv = "\n";
return $rv;
}
elsif ($_[0] == 3) {
return sprintf "",
&html_escape($_[4]->[1] =~ /^eval:(\S+)$/ ? $1 : $_[4]->[1]);
}
}
sub split_header
{
if ($_[0] =~ /^(\S+)\s+(\S+)\s+(\S+)\s+(\/.*\/\S*)\s*(if-unset:\s*(.*))?/) {
return ($1, $2, $3, $4, $6);
}
else {
return ( );
}
}
sub split_body
{
if ($_[0] =~ /^(\S+)\s+((\/.*\/\S*)|(eval:\S+))/) {
return ($1, $2);
}
else {
return ( );
}
}
spam/config 0100664 0005671 0000012 00000000354 07747704037 012712 0 ustar jcameron wheel local_cf=.spamassassin/user_prefs
spamassassin=spamassassin
global_procmailrc=/etc/procmailrc
global_cf=/etc/mail/spamassassin
show_global=0
avail_icons=white,score,report,user,header,setup,mail
warn_procmail=1
index_spam=0
call_spam=1
spam/edit_white.cgi 0100775 0005671 0000012 00000010545 07731252510 014324 0 ustar jcameron wheel #!/usr/local/bin/perl
# edit_white.cgi
# Display white and black lists of to and from addresses
require './spam-lib.pl';
&can_use_check("white");
&header($text{'white_title'}, "");
print "
\n";
$conf = &get_config();
print "$text{'white_desc'} \n";
print "$text{'white_from'} ",
"$text{'white_unfrom'} \n";
if ($config{'show_global'}) {
print "\n";
@from = &find("whitelist_from", $conf);
&edit_textbox("whitelist_from", [ map { @{$_->{'words'}} } @from ], 40, 5);
print " \n";
@un = &find("unwhitelist_from", $conf);
&edit_textbox("unwhitelist_from", [ map { @{$_->{'words'}} } @un ], 40, 5);
print " \n";
$gconf = &get_config($config{'global_cf'});
print "$text{'white_gfrom'} ",
"$text{'white_gunfrom'} \n";
print "\n";
}
else {
print "\n";
@gfrom = &find("whitelist_from", $gconf);
&edit_textbox("gwhitelist_from", [ map { @{$_->{'words'}} } @gfrom ], 40, 5);
print " \n";
@gun = &find("unwhitelist_from", $gconf);
&edit_textbox("gunwhitelist_from", [ map { @{$_->{'words'}} } @gun ], 40, 5);
print " \n";
print "$text{'white_rcvd'} \n";
}
print "\n";
@rcvd = &find("whitelist_from_rcvd", $conf);
&edit_table("whitelist_from_rcvd",
[ $text{'white_addr'}, $text{'white_rcvdhost'} ],
[ map { $_->{'words'} } @rcvd ], [ 40, 30 ], undef, 3);
print " \n";
print " \n";
print "$text{'white_black'} ",
"$text{'white_unblack'} \n";
if ($config{'show_global'}) {
print "\n";
@from = &find("blacklist_from", $conf);
&edit_textbox("blacklist_from", [ map { @{$_->{'words'}} } @from ], 40, 5);
print " \n";
@un = &find("unblacklist_from", $conf);
&edit_textbox("unblacklist_from", [ map { @{$_->{'words'}} } @un ], 40, 5);
print " \n";
print "$text{'white_gblack'} ",
"$text{'white_gunblack'} \n";
print "\n";
}
else {
print "\n";
@gfrom = &find("blacklist_from", $gconf);
&edit_textbox("gblacklist_from", [ map { @{$_->{'words'}} } @gfrom ], 40, 5);
print " \n";
@gun = &find("gunblacklist_from", $gconf);
&edit_textbox("gunblacklist_from", [ map { @{$_->{'words'}} } @gun ], 40, 5);
print " \n";
push(@to, map { [ $_, 0 ] } map { @{$_->{'words'}} } &find("whitelist_to", $conf));
push(@to, map { [ $_, 1 ] } map { @{$_->{'words'}} } &find("more_spam_to", $conf));
push(@to, map { [ $_, 2 ] } map { @{$_->{'words'}} } &find("all_spam_to", $conf));
print " \n";
print "$text{'white_to'} \n";
}
&end_form(undef, $text{'save'});
# Show whitelist import form
print "\n";
&edit_table("whitelist_to", [ $text{'white_addr'}, $text{'white_level'} ],
\@to, [ 40, 0 ], \&whitelist_to_conv, 3);
print "
\n";
print "$text{'white_importdesc'}
\n";
&footer("", $text{'index_return'});
# whitelist_to_conv(col, name, size, value)
sub whitelist_to_conv
{
if ($_[0] == 0) {
return &default_convfunc(@_);
}
else {
local $rv = "\n";
return $rv;
}
}
spam/index.cgi 0100775 0005671 0000012 00000006077 07747556551 013336 0 ustar jcameron wheel #!/usr/local/bin/perl
# index.cgi
# Display a menu of spamassassin config category icons
require './spam-lib.pl';
$hsl = $module_info{'usermin'} ? undef :
&help_search_link("spamassassin", "perl", "google");
if (!&has_command($config{'spamassassin'}) ||
(!$module_info{'usermin'} && !($vers = &get_spamassassin_version(\$out)))) {
# Program not found
&header($text{'index_title'}, "", undef, 1, 1, undef, $hsl);
print "
\n";
print "
\n";
if (!-r $local_cf && -d $local_cf && !$module_info{'usermin'}) {
# Config not found
print "
\n";
print "\n";
print "\n";
print "
\n";
&footer("", $text{'index_return'});
# show_buttons(number)
sub show_buttons
{
print "
\n";
}
spam/uconfig.info 0100664 0005671 0000012 00000000251 07731250757 014023 0 ustar jcameron wheel spam_file=Mail file for spam,3,None
full_from=Show full From: addresses in spam list?,1,1-Yes,0-No
refresh=Seconds between automatic spam list refreshes,3,Don't refresh
spam/defaultuconfig 0100664 0005671 0000012 00000000014 07725214376 014433 0 ustar jcameron wheel full_from=1
spam/config-freebsd 0100664 0005671 0000012 00000000400 07747704057 014314 0 ustar jcameron wheel local_cf=.spamassassin/user_prefs
spamassassin=spamassassin
global_procmailrc=/usr/local/etc/procmailrc
global_cf=/usr/local/etc/mail/spamassassin
show_global=0
avail_icons=white,score,report,user,header,setup,mail
warn_procmail=1
index_spam=0
call_spam=1
\n";
if (@mail) {
local $onclick = "onClick='return check_clicks(form)'"
if (defined(&check_clicks_function));
print " \n";
print " \n";
print " \n";
print " \n";
}
print "