From 4eee59686ea6b1027411d32b4714e896c5fc6012 Mon Sep 17 00:00:00 2001 From: philippe_mingo Date: Thu, 22 Nov 2001 22:29:16 +0000 Subject: [PATCH] Filter modified with Brent Bice instructions. git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@1788 7612ce4b-ef26-0410-bec9-ea0150e637f0 --- plugins/filters/filters.php | 915 ++++++++++++++++++++++-------------- plugins/filters/options.php | 327 +++++++------ plugins/filters/setup.php | 49 +- 3 files changed, 747 insertions(+), 544 deletions(-) diff --git a/plugins/filters/filters.php b/plugins/filters/filters.php index f52bb34f..7b517f6d 100644 --- a/plugins/filters/filters.php +++ b/plugins/filters/filters.php @@ -1,361 +1,570 @@ 0) { - // Filter spam from inbox before we sort them into folders - if ($AllowSpamFilters) - spam_filters($stream); - - // Sort into folders - user_filters($stream); - } - - if (!$previously_connected) - sqimap_logout($stream); - } - - - function user_filters($imap_stream) { - $filters = load_filters(); - if (! $filters) return; - - sqimap_mailbox_select($imap_stream, 'INBOX'); - - // For every rule - for ($i=0; $i < count($filters); $i++) { - // If it is the "combo" rule - if ($filters[$i]["where"] == "To or Cc") { - /* - * If it's "TO OR CC", we have to do two searches, one for TO - * and the other for CC. - */ - filter_search_and_delete($imap_stream, 'TO', - $filters[$i]['what'], $filters[$i]['folder']); - filter_search_and_delete($imap_stream, 'CC', - $filters[$i]['what'], $filters[$i]['folder']); - } else { - /* - * If it's a normal TO, CC, SUBJECT, or FROM, then handle it - * normally. - */ - filter_search_and_delete($imap_stream, $filters[$i]['where'], - $filters[$i]['what'], $filters[$i]['folder']); - } - } - // Clean out the mailbox whether or not auto_expunge is on - // That way it looks like it was redirected properly - sqimap_mailbox_expunge($imap_stream, 'INBOX'); - } - - function filter_search_and_delete($imap, $where, $what, $where_to) { - fputs ($imap, 'a001 SEARCH ALL ' . $where . ' "' . addslashes($what) . - "\"\r\n"); - $read = sqimap_read_data ($imap, 'a001', true, $response, $message); - - // This may have problems with EIMS due to it being goofy - - for ($r=0; $r < count($read) && - substr($read[$r], 0, 8) != '* SEARCH'; $r++) {} - if ($response == 'OK') { - $ids = explode(' ', $read[$r]); - if (sqimap_mailbox_exists($imap, $where_to)) { - for ($j=2; $j < count($ids); $j++) { - $id = trim($ids[$j]); - sqimap_messages_copy ($imap, $id, $id, $where_to); - sqimap_messages_flag ($imap, $id, $id, 'Deleted'); + + /** + ** Message and Spam Filter Plugin + ** + ** Copyright (c) 1999-2001 The Squirrelmail Development Team + ** Licensed under the GNU GPL. For full terms see the file COPYING. + ** + ** This plugin filters your inbox into different folders based upon given + ** criteria. It is most useful for people who are subscibed to mailing lists + ** to help organize their messages. The argument stands that filtering is + ** not the place of the client, which is why this has been made a plugin for + ** SquirrelMail. You may be better off using products such as Sieve or + ** Procmail to do your filtering so it happens even when SquirrelMail isn't + ** running. + ** + ** If you need help with this, or see improvements that can be made, please + ** email me directly at the address above. I definately welcome suggestions + ** and comments. This plugin, as is the case with all SquirrelMail plugins, + ** is not directly supported by the developers. Please come to me off the + ** mailing list if you have trouble with it. + ** + ** Also view plugins/README.plugins for more information. + ** + **/ + + function filters_sqimap_read_data ($imap_stream, $pre, $handle_errors, &$response, &$message) { + global $color, $squirrelmail_language, $imap_general_debug; + + $data = array(); + $size = 0; + + do { + $read = fgets($imap_stream, 9096); + if (ereg("^$pre (OK|BAD|NO)(.*)$", $read, $regs)) { + break; // found end of reply + } + + // Continue if needed for this single line + while (strpos($read, "\n") === false) { + $read .= fgets($imap_stream, 9096); + } + + $data[] = $read; + + if (ereg("^\\* [0-9]+ FETCH.*\\{([0-9]+)\\}", $read, $regs)) { + $size = $regs[1]; + if ($imap_general_debug) { + echo "Size is $size
\n"; + } + + $total_size = 0; + do { + $read = fgets($imap_stream, 9096); + if ($imap_general_debug) { + echo "$read
\n"; + flush(); + } + $data[] = $read; + $total_size += strlen($read); + } while ($total_size < $size); + + $size = 0; + } + // For debugging purposes + if ($imap_general_debug) { + echo "$read
\n"; + flush(); + } + } while (true); + + $response = $regs[1]; + $message = trim($regs[2]); + + if ($imap_general_debug) echo '--
'; + + if ($handle_errors == false) + return $data; + + if ($response == 'NO') { + // ignore this error from m$ exchange, it is not fatal (aka bug) + if (strstr($message, 'command resulted in') === false) { + set_up_language($squirrelmail_language); + echo "
\n"; + echo _("ERROR : Could not complete request."); + echo "
\n"; + echo _("Reason Given: "); + echo $message . "
\n"; + exit; + } + } else if ($response == 'BAD') { + set_up_language($squirrelmail_language); + echo "
\n"; + echo _("ERROR : Bad or malformed request."); + echo "
\n"; + echo _("Server responded: "); + echo $message . "
\n"; + exit; + } + + return $data; + } + + + function start_filters() { + global $mailbox, $username, $key, $imapServerAddress, $imapPort, $imap, + $imap_general, $filters, $imap_stream, $imapConnection, + $UseSeparateImapConnection, $AllowSpamFilters; + + if ($mailbox == 'INBOX') { + // Detect if we have already connected to IMAP or not. + // Also check if we are forced to use a separate IMAP connection + if ((!isset($imap_stream) && !isset($imapConnection)) || + $UseSeparateImapConnection) { + $stream = sqimap_login($username, $key, $imapServerAddress, + $imapPort, 10); + $previously_connected = false; + } elseif (isset($imapConnection)) { + $stream = $imapConnection; + $previously_connected = true; + } else { + $previously_connected = true; + $stream = $imap_stream; + } + + if (sqimap_get_num_messages($stream, 'INBOX') > 0) { + // Filter spam from inbox before we sort them into folders + if ($AllowSpamFilters) + spam_filters($stream); + + // Sort into folders + user_filters($stream); + } + + if (!$previously_connected) + sqimap_logout($stream); + } + } + + + function user_filters($imap_stream) { + $filters = load_filters(); + if (! $filters) return; + + sqimap_mailbox_select($imap_stream, 'INBOX'); + + // For every rule + for ($i=0; $i < count($filters); $i++) { + // If it is the "combo" rule + if ($filters[$i]['where'] == 'To or Cc') { + /* + * If it's "TO OR CC", we have to do two searches, one for TO + * and the other for CC. + */ + filter_search_and_delete($imap_stream, 'TO', + $filters[$i]['what'], $filters[$i]['folder']); + filter_search_and_delete($imap_stream, 'CC', + $filters[$i]['what'], $filters[$i]['folder']); + } else { + /* + * If it's a normal TO, CC, SUBJECT, or FROM, then handle it + * normally. + */ + filter_search_and_delete($imap_stream, $filters[$i]['where'], + $filters[$i]['what'], $filters[$i]['folder']); + } + } + // Clean out the mailbox whether or not auto_expunge is on + // That way it looks like it was redirected properly + sqimap_mailbox_expunge($imap_stream, 'INBOX'); + } + + function filter_search_and_delete($imap, $where, $what, $where_to) { + // Don't mess with the " characters on this fputs line! + fputs ($imap, 'a001 SEARCH ALL ' . $where . ' "' . addslashes($what) . + "\"\r\n"); + $read = filters_sqimap_read_data ($imap, 'a001', true, $response, $message); + + // This may have problems with EIMS due to it being goofy + + for ($r=0; $r < count($read) && + substr($read[$r], 0, 8) != '* SEARCH'; $r++) {} + if ($response == 'OK') { + $ids = explode(' ', $read[$r]); + if (sqimap_mailbox_exists($imap, $where_to)) { + for ($j=2; $j < count($ids); $j++) { + $id = trim($ids[$j]); + sqimap_messages_copy ($imap, $id, $id, $where_to); + sqimap_messages_flag ($imap, $id, $id, 'Deleted'); + } + } + } + } + + // These are the spam filters + function spam_filters($imap_stream) { + global $data_dir, $username; + global $SpamFilters_YourHop; + global $SpamFilters_DNScache; + + $filters_spam_scan = getPref($data_dir, $username, 'filters_spam_scan'); + $filters_spam_folder = getPref($data_dir, $username, 'filters_spam_folder'); + $filters = load_spam_filters(); + + $run = 0; + + foreach ($filters as $Key=> $Value) { + if ($Value['enabled']) + $run ++; + } + + // short-circuit + if ($run == 0) { + return; + } + + sqimap_mailbox_select($imap_stream, 'INBOX'); + + // Ask for a big list of all "Received" headers in the inbox with + // flags for each message. Kinda big. + fputs($imap_stream, 'A3999 FETCH 1:* (FLAGS BODY.PEEK[HEADER.FIELDS ' . + "(RECEIVED)])\r\n"); + + $read = filters_sqimap_read_data ($imap_stream, 'A3999', true, $response, $message); + + if ($response != 'OK') + return; + + $i = 0; + while ($i < count($read)) { + // EIMS will give funky results + $Chunks = explode(' ', $read[$i]); + if ($Chunks[0] != '*') { + $i ++; + continue; } - } - } - } - - // These are the spam filters - function spam_filters($imap_stream) { - global $data_dir, $username; - global $SpamFilters_YourHop; - global $SpamFilters_DNScache; - - $filters_spam_scan = getPref($data_dir, $username, "filters_spam_scan"); - $filters_spam_folder = getPref($data_dir, $username, "filters_spam_folder"); - $filters = load_spam_filters(); - - $run = 0; - - foreach ($filters as $Key=> $Value) { - if ($Value['enabled']) - $run ++; - } - - // short-circuit - if ($run == 0) { - return; - } - - sqimap_mailbox_select($imap_stream, 'INBOX'); - - // Ask for a big list of all "Received" headers in the inbox with - // flags for each message. Kinda big. - fputs($imap_stream, 'A3999 FETCH 1:* (FLAGS BODY.PEEK[HEADER.FIELDS ' . - "(RECEIVED)])\r\n"); - - $read = sqimap_read_data ($imap_stream, 'A3999', true, $response, $message); - - if ($response != 'OK') - return; - - $i = 0; - while ($i < count($read)) { - // EIMS will give funky results - $Chunks = explode(' ', $read[$i]); - if ($Chunks[0] != '*') { - $i ++; - continue; - } - $MsgNum = $Chunks[1]; - - $IPs = array(); - $i ++; - $IsSpam = 0; - $Scan = 1; - - // Check for normal IMAP servers - if ($filters_spam_scan == 'new') { - if (is_int(strpos($Chunks[4], '\Seen'))) { - $Scan = 0; - } - } - - // Look through all of the Received headers for IP addresses - // Stop when I get ")" on a line - // Stop if I get "*" on a line (don't advance) - // and above all, stop if $i is bigger than the total # of lines - while (($i < count($read)) && - ($read[$i][0] != ')' && $read[$i][0] != '*' && - $read[$i][0] != "\n") && (! $IsSpam)) - { - // Check to see if this line is the right "Received from" line - // to check - if (is_int(strpos($read[$i], $SpamFilters_YourHop))) { + $MsgNum = $Chunks[1]; + + $IPs = array(); + $i ++; + $IsSpam = 0; + $Scan = 1; + + // Check for normal IMAP servers + if ($filters_spam_scan == 'new') { + if (is_int(strpos($Chunks[4], '\Seen'))) { + $Scan = 0; + } + } + + // Look through all of the Received headers for IP addresses + // Stop when I get ")" on a line + // Stop if I get "*" on a line (don't advance) + // and above all, stop if $i is bigger than the total # of lines + while (($i < count($read)) && + ($read[$i][0] != ')' && $read[$i][0] != '*' && + $read[$i][0] != "\n") && (! $IsSpam)) + { + // Check to see if this line is the right "Received from" line + // to check + if (is_int(strpos($read[$i], $SpamFilters_YourHop))) { // short-circuit and skip work if we don't scan this one - if ($Scan) { - $read[$i] = ereg_replace('[^0-9\.]', ' ', $read[$i]); - $elements = explode(' ', $read[$i]); - foreach ($elements as $value) { - if ($value != '' && - ereg('[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}', - $value, $regs)) { - $Chunks = explode('.', $value); - if ("$SpamFilters_DNScache[$value]" == "") { - $SpamFilters_DNScache[$value] = - filters_spam_check_site($Chunks[0], $Chunks[1], - $Chunks[2], $Chunks[3], $filters); + if ($Scan) { + $read[$i] = ereg_replace('[^0-9\.]', ' ', $read[$i]); + $elements = explode(' ', $read[$i]); + foreach ($elements as $value) { + if ($value != '' && + ereg('[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}', + $value, $regs)) { + $Chunks = explode('.', $value); + if (filters_spam_check_site($Chunks[0], $Chunks[1], + $Chunks[2], $Chunks[3], $filters)) { + $IsSpam ++; + break; // no sense in checking more IPs + } } - if ($SpamFilters_DNScache[$value]) { - $IsSpam ++; - break; // no sense in checking more IPs } - } } - } - } - $i ++; - } - - // Lookie! It's spam! Yum! - if ($IsSpam) { - if (sqimap_mailbox_exists ($imap_stream, $filters_spam_folder)) { - sqimap_messages_copy ($imap_stream, $MsgNum, $MsgNum, - $filters_spam_folder); - sqimap_messages_flag ($imap_stream, $MsgNum, $MsgNum, - 'Deleted'); - } - } - } - - sqimap_mailbox_expunge($imap_stream, 'INBOX'); - } - - - // Does the loop through each enabled filter for the specified IP address. - // IP format: $a.$b.$c.$d - function filters_spam_check_site($a, $b, $c, $d, &$filters) { - foreach ($filters as $key => $value) { - if ($filters[$key]['enabled']) { - if ($filters[$key]['dns']) { - if (checkdnsrr("$d.$c.$b.$a." . $filters[$key]['dns'], - 'ANY')) { - return 1; - } - } - } - } - return 0; - } - - function load_filters() { - global $data_dir, $username; - $filters = array(); - for ($i=0; $fltr = getPref($data_dir, $username, 'filter' . $i); $i++) { - $ary = explode(',', $fltr); - $filters[$i]['where'] = $ary[0]; - $filters[$i]['what'] = $ary[1]; - $filters[$i]['folder'] = $ary[2]; - } - return $filters; - } - - function load_spam_filters() { - global $data_dir, $username; - - $filters['MAPS RBL']['prefname'] = 'filters_spam_maps_rbl'; - $filters['MAPS RBL']['name'] = 'MAPS Realtime Blackhole List'; - $filters['MAPS RBL']['link'] = 'http://www.mail-abuse.org/rbl/'; - $filters['MAPS RBL']['dns'] = 'blackholes.mail-abuse.org'; - $filters['MAPS RBL']['comment'] = -_("COMMERCIAL - This list contains servers that are verified spam senders. It is a pretty reliable list to scan spam from."); - - $filters['MAPS RSS']['prefname'] = 'filters_spam_maps_rss'; - $filters['MAPS RSS']['name'] = 'MAPS Relay Spam Stopper'; - $filters['MAPS RSS']['link'] = 'http://www.mail-abuse.org/rss/'; - $filters['MAPS RSS']['dns'] = 'relays.mail-abuse.org'; - $filters['MAPS RSS']['comment'] = -_("COMMERCIAL - Servers that are configured (or misconfigured) to allow spam to be relayed through their system will be banned with this. Another good one to use."); - - $filters['MAPS DUL']['prefname'] = 'filters_spam_maps_dul'; - $filters['MAPS DUL']['name'] = 'MAPS Dial-Up List'; - $filters['MAPS DUL']['link'] = 'http://www.mail-abuse.org/dul/'; - $filters['MAPS DUL']['dns'] = 'dialups.mail-abuse.org'; - $filters['MAPS DUL']['comment'] = -_("COMMERCIAL - Dial-up users are often filtered out since they should use their ISP's mail servers to send mail. Spammers typically get a dial-up account and send spam directly from there."); - - $filters['MAPS RBLplus']['prefname'] = 'filters_spam_maps_rblplus'; - $filters['MAPS RBLplus']['name'] = 'MAPS RBL+ List'; - $filters['MAPS RBLplus']['link'] = 'http://www.mail-abuse.org/'; - $filters['MAPS RBLplus']['dns'] = 'rbl-plus.mail-abuse.org'; - $filters['MAPS RBLplus']['comment'] = -_("COMMERCIAL - RBL+ is a combination of RSS, DUL, and RBL."); - - $filters['Osirusoft']['prefname'] = 'filters_spam_maps_osirusoft'; - $filters['Osirusoft']['name'] = 'Osirusoft List'; - $filters['Osirusoft']['link'] = 'http://relays.osirusoft.com/'; - $filters['Osirusoft']['dns'] = 'relays.osirusoft.com'; - $filters['Osirusoft']['comment'] = -_("FREE - Osirusoft - Very thorough, but also rejects replies from many ISP's abuse@domain.name email messages for some reason."); - - $filters['ORDB']['prefname'] = 'filters_spam_ordb'; - $filters['ORDB']['name'] = 'Open Relay Database List'; - $filters['ORDB']['link'] = 'http://www.ordb.org/'; - $filters['ORDB']['dns'] = 'relays.ordb.org'; - $filters['ORDB']['comment'] = -_("FREE - ORDB was born when ORBS went off the air. It seems to have fewer false positives than ORBS did though."); - - $filters['ORBZ']['prefname'] = 'filters_spam_orbz'; - $filters['ORBZ']['name'] = 'ORBZ List'; - $filters['ORBZ']['link'] = 'http://www.orbz.org/'; - $filters['ORBZ']['dns'] = 'inputs.orbz.org'; - $filters['ORBZ']['comment'] = -_("FREE - Another ORBS replacement (just the INPUTS database used here)."); - - $filters['Five-Ten']['prefname'] = 'filters_spam_fiveten'; - $filters['Five-Ten']['name'] = 'Five-Ten-sg.com Lists'; - $filters['Five-Ten']['link'] = 'http://www.five-ten-sg.com/blackhole.php'; - $filters['Five-Ten']['dns'] = 'blackholes.five-ten-sg.com'; - $filters['Five-Ten']['comment'] = -_("FREE - Five-Ten-sg.com has SPAM source, OpenRelay, and Dialup IPs."); - - $filters['Dorkslayers']['prefname'] = 'filters_spam_dorks'; - $filters['Dorkslayers']['name'] = 'Dorkslayers Lists'; - $filters['Dorkslayers']['link'] = 'http://www.dorkslayers.com'; - $filters['Dorkslayers']['dns'] = 'orbs.dorkslayers.com'; - $filters['Dorkslayers']['comment'] = -_("FREE - Dorkslayers appears to include only really bad open relays outside the US to avoid being sued. Interestingly enough, their website recommends you NOT use their service."); - - $filters['ORBL']['prefname'] = 'filters_spam_orbl'; - $filters['ORBL']['name'] = 'ORBL Lists'; - $filters['ORBL']['link'] = 'http://www.orbl.org'; - $filters['ORBL']['dns'] = 'or.orbl.org'; - $filters['ORBL']['comment'] = -_("FREE - ORBL is another ORBS spinoff formed after ORBS shut down. May be SLOOOOOOW!"); - - $filters['ORBZ-UK']['prefname'] = 'filters_spam_orbzuk'; - $filters['ORBZ-UK']['name'] = 'ORBZ-UK Lists'; - $filters['ORBZ-UK']['link'] = 'http://orbz.gst-group.co.uk'; - $filters['ORBZ-UK']['dns'] = 'orbz.gst-group.co.uk'; - $filters['ORBZ-UK']['comment'] = -_("FREE - orbz.gst-group.co.uk lists not only open relays, but also mailservers that refuse or bounce email addressed to postmaster@."); - - foreach ($filters as $Key => $Value) { - $filters[$Key]['enabled'] = getPref($data_dir, $username, - $filters[$Key]['prefname']); - } - - return $filters; - } - - function remove_filter ($id) { - global $data_dir, $username; - - while ($nextFilter = getPref($data_dir, $username, 'filter' . - ($id + 1))) { - setPref($data_dir, $username, 'filter' . $id, $nextFilter); - $id ++; - } - - removePref($data_dir, $username, 'filter' . $id); - } - - function filter_swap($id1, $id2) { - global $data_dir, $username; - - $FirstFilter = getPref($data_dir, $username, 'filter' . $id1); - $SecondFilter = getPref($data_dir, $username, 'filter' . $id2); - - if ($FirstFilter && $SecondFilter) { - setPref($data_dir, $username, 'filter' . $id2, $FirstFilter); - setPref($data_dir, $username, 'filter' . $id1, $SecondFilter); - } - } + } + $i ++; + } + + // Lookie! It's spam! Yum! + if ($IsSpam) { + if (sqimap_mailbox_exists ($imap_stream, $filters_spam_folder)) { + sqimap_messages_copy ($imap_stream, $MsgNum, $MsgNum, + $filters_spam_folder); + sqimap_messages_flag ($imap_stream, $MsgNum, $MsgNum, + 'Deleted'); + } + } else { + } + } + + sqimap_mailbox_expunge($imap_stream, 'INBOX'); + + session_register('SpamFilters_DNScache'); + } + + + // Does the loop through each enabled filter for the specified IP address. + // IP format: $a.$b.$c.$d + function filters_spam_check_site($a, $b, $c, $d, &$filters) { + global $SpamFilters_DNScache; + foreach ($filters as $key => $value) { + if ($filters[$key]['enabled']) { + if ($filters[$key]['dns']) { + $filter_revip = $d . '.' . $c . '.' . $b . '.' . $a . '.' . + $filters[$key]['dns']; + if (strlen($SpamFilters_DNScache[$filter_revip]) == 0) { + $SpamFilters_DNScache[$filter_revip]=gethostbyname($filter_revip); + } + if ($SpamFilters_DNScache[$filter_revip] == + $filters[$key]['result']) { + return 1; + } + } + } + } + return 0; + } + + function load_filters() { + global $data_dir, $username; + $filters = array(); + for ($i=0; $fltr = getPref($data_dir, $username, 'filter' . $i); $i++) { + $ary = explode(',', $fltr); + $filters[$i]['where'] = $ary[0]; + $filters[$i]['what'] = $ary[1]; + $filters[$i]['folder'] = $ary[2]; + } + return $filters; + } + + function load_spam_filters() { + global $data_dir, $username; + + $filters['MAPS RBL']['prefname'] = 'filters_spam_maps_rbl'; + $filters['MAPS RBL']['name'] = 'MAPS Realtime Blackhole List'; + $filters['MAPS RBL']['link'] = 'http://www.mail-abuse.org/rbl/'; + $filters['MAPS RBL']['dns'] = 'blackholes.mail-abuse.org'; + $filters['MAPS RBL']['result'] = '127.0.0.2'; + $filters['MAPS RBL']['comment'] = + _("COMMERCIAL - This list contains servers that are verified spam senders. It is a pretty reliable list to scan spam from."); + + $filters['MAPS RSS']['prefname'] = 'filters_spam_maps_rss'; + $filters['MAPS RSS']['name'] = 'MAPS Relay Spam Stopper'; + $filters['MAPS RSS']['link'] = 'http://www.mail-abuse.org/rss/'; + $filters['MAPS RSS']['dns'] = 'relays.mail-abuse.org'; + $filters['MAPS RSS']['result'] = '127.0.0.2'; + $filters['MAPS RSS']['comment'] = + _("COMMERCIAL - Servers that are configured (or misconfigured) to allow spam to be relayed through their system will be banned with this. Another good one to use."); + + $filters['MAPS DUL']['prefname'] = 'filters_spam_maps_dul'; + $filters['MAPS DUL']['name'] = 'MAPS Dial-Up List'; + $filters['MAPS DUL']['link'] = 'http://www.mail-abuse.org/dul/'; + $filters['MAPS DUL']['dns'] = 'dialups.mail-abuse.org'; + $filters['MAPS DUL']['result'] = '127.0.0.3'; + $filters['MAPS DUL']['comment'] = + _("COMMERCIAL - Dial-up users are often filtered out since they should use their ISP's mail servers to send mail. Spammers typically get a dial-up account and send spam directly from there."); + + $filters['MAPS RBLplus-RBL']['prefname'] = 'filters_spam_maps_rblplus_rbl'; + $filters['MAPS RBLplus-RBL']['name'] = 'MAPS RBL+ RBL List'; + $filters['MAPS RBLplus-RBL']['link'] = 'http://www.mail-abuse.org/'; + $filters['MAPS RBLplus-RBL']['dns'] = 'rbl-plus.mail-abuse.org'; + $filters['MAPS RBLplus-RBL']['result'] = '127.0.0.2'; + $filters['MAPS RBLplus-RBL']['comment'] = + _("COMMERCIAL - RBL+ Blackhole entries."); + + $filters['MAPS RBLplus-RSS']['prefname'] = 'filters_spam_maps_rblplus_rss'; + $filters['MAPS RBLplus-RSS']['name'] = 'MAPS RBL+ List RSS entries'; + $filters['MAPS RBLplus-RSS']['link'] = 'http://www.mail-abuse.org/'; + $filters['MAPS RBLplus-RSS']['dns'] = 'rbl-plus.mail-abuse.org'; + $filters['MAPS RBLplus-RSS']['result'] = '127.0.0.2'; + $filters['MAPS RBLplus-RSS']['comment'] = + _("COMMERCIAL - RBL+ OpenRelay entries."); + + $filters['MAPS RBLplus-DUL']['prefname'] = 'filters_spam_maps_rblplus_dul'; + $filters['MAPS RBLplus-DUL']['name'] = 'MAPS RBL+ List DUL entries'; + $filters['MAPS RBLplus-DUL']['link'] = 'http://www.mail-abuse.org/'; + $filters['MAPS RBLplus-DUL']['dns'] = 'rbl-plus.mail-abuse.org'; + $filters['MAPS RBLplus-DUL']['result'] = '127.0.0.3'; + $filters['MAPS RBLplus-DUL']['comment'] = + _("COMMERCIAL - RBL+ Dial-up entries."); + + $filters['Osirusoft Relays']['prefname'] = 'filters_spam_maps_osirusoft_relay'; + $filters['Osirusoft Relays']['name'] = 'Osirusoft Relay List'; + $filters['Osirusoft Relays']['link'] = 'http://relays.osirusoft.com/'; + $filters['Osirusoft Relays']['dns'] = 'relays.osirusoft.com'; + $filters['Osirusoft Relays']['result'] = '127.0.0.2'; + $filters['Osirusoft Relays']['comment'] = + _("FREE - Osirusoft Relays - Osirusofts list of verified open relays. Seems to include servers used by abuse@uunet.net auto-replies too."); + + $filters['Osirusoft DUL']['prefname'] = 'filters_spam_maps_osirusoft_dul'; + $filters['Osirusoft DUL']['name'] = 'Osirusoft Dialup List'; + $filters['Osirusoft DUL']['link'] = 'http://relays.osirusoft.com/'; + $filters['Osirusoft DUL']['dns'] = 'relays.osirusoft.com'; + $filters['Osirusoft DUL']['result'] = '127.0.0.3'; + $filters['Osirusoft DUL']['comment'] = + _("FREE - Osirusoft Dialups - Osirusofts Dialup Spam Source list."); + + $filters['Osirusoft Spam Source']['prefname'] = 'filters_spam_maps_osirusoft_rc'; + $filters['Osirusoft Spam Source']['name'] = 'Osirusoft Confirmed Spam Source List'; + $filters['Osirusoft Spam Source']['link'] = 'http://relays.osirusoft.com/'; + $filters['Osirusoft Spam Source']['dns'] = 'relays.osirusoft.com'; + $filters['Osirusoft Spam Source']['result'] = '127.0.0.4'; + $filters['Osirusoft Spam Source']['comment'] = + _("FREE - Osirusoft Confirmed Spam Source - Sites that continually spam and have been manually added after multiple nominations. Use with caution. Seems to catch abuse auto-replies from some ISPs."); + + $filters['Osirusoft Smart Host']['prefname'] = 'filters_spam_maps_osirusoft_sh'; + $filters['Osirusoft Smart Host']['name'] = 'Osirusoft Smart Host List'; + $filters['Osirusoft Smart Host']['link'] = 'http://relays.osirusoft.com/'; + $filters['Osirusoft Smart Host']['dns'] = 'relays.osirusoft.com'; + $filters['Osirusoft Smart Host']['result'] = '127.0.0.5'; + $filters['Osirusoft Smart Host']['comment'] = + _("FREE - Osirusoft Smart Hosts - List of hosts that are secure but relay for other mail servers that are not secure."); + + $filters['Osirusoft SPAMware']['prefname'] = 'filters_spam_maps_osirusoft_ss'; + $filters['Osirusoft SPAMware']['name'] = 'Osirusoft Spamware Developers List'; + $filters['Osirusoft SPAMware']['link'] = 'http://relays.osirusoft.com/'; + $filters['Osirusoft SPAMware']['dns'] = 'relays.osirusoft.com'; + $filters['Osirusoft SPAMware']['result'] = '127.0.0.6'; + $filters['Osirusoft SPAMware']['comment'] = + _("FREE - Osirusoft Spamware Developers - It is believed that these are IP ranges of companies that are known to produce spam software. Seems to catch abuse auto-replies from some ISPs."); + + $filters['Osirusoft Unc. OptIn']['prefname'] = 'filters_spam_maps_osirusoft_sl'; + $filters['Osirusoft Unc. OptIn']['name'] = 'Osirusoft Unconfirmed OptIn Server List'; + $filters['Osirusoft Unc. OptIn']['link'] = 'http://relays.osirusoft.com/'; + $filters['Osirusoft Unc. OptIn']['dns'] = 'relays.osirusoft.com'; + $filters['Osirusoft Unc. OptIn']['result'] = '127.0.0.7'; + $filters['Osirusoft Unc. OptIn']['comment'] = + _("FREE - Osirusoft Unconfirmed OptIn Servers - List of listservers that opt users in without confirmation."); + + $filters['ORDB']['prefname'] = 'filters_spam_ordb'; + $filters['ORDB']['name'] = 'Open Relay Database List'; + $filters['ORDB']['link'] = 'http://www.ordb.org/'; + $filters['ORDB']['dns'] = 'relays.ordb.org'; + $filters['ORDB']['result'] = '127.0.0.2'; + $filters['ORDB']['comment'] = + _("FREE - ORDB was born when ORBS went off the air. It seems to have fewer false positives than ORBS did though."); + + $filters['ORBZ Inputs']['prefname'] = 'filters_spam_orbz'; + $filters['ORBZ Inputs']['name'] = 'ORBZ Inputs List'; + $filters['ORBZ Inputs']['link'] = 'http://www.orbz.org/'; + $filters['ORBZ Inputs']['dns'] = 'inputs.orbz.org'; + $filters['ORBZ Inputs']['result'] = '127.0.0.2'; + $filters['ORBZ Inputs']['comment'] = + _("FREE - Another ORBS replacement (just the INPUTS database used here)."); + + $filters['ORBZ Outputs']['prefname'] = 'filters_spam_orbz_outputs'; + $filters['ORBZ Outputs']['name'] = 'ORBZ Outputs List'; + $filters['ORBZ Outputs']['link'] = 'http://www.orbz.org/'; + $filters['ORBZ Outputs']['dns'] = 'outputs.orbz.org'; + $filters['ORBZ Outputs']['result'] = '127.0.0.2'; + $filters['ORBZ Outputs']['comment'] = + _("FREE - Another ORBS replacement (just the OUTPUTS database used here)."); + + $filters['FiveTen Direct']['prefname'] = 'filters_spam_fiveten_src'; + $filters['FiveTen Direct']['name'] = 'Five-Ten-sg.com Direct SPAM Sources'; + $filters['FiveTen Direct']['link'] = 'http://www.five-ten-sg.com/blackhole.php'; + $filters['FiveTen Direct']['dns'] = 'blackholes.five-ten-sg.com'; + $filters['FiveTen Direct']['result'] = '127.0.0.2'; + $filters['FiveTen Direct']['comment'] = + _("FREE - Five-Ten-sg.com - Direct SPAM sources."); + + $filters['FiveTen DUL']['prefname'] = 'filters_spam_fiveten_dul'; + $filters['FiveTen DUL']['name'] = 'Five-Ten-sg.com DUL Lists'; + $filters['FiveTen DUL']['link'] = 'http://www.five-ten-sg.com/blackhole.php'; + $filters['FiveTen DUL']['dns'] = 'blackholes.five-ten-sg.com'; + $filters['FiveTen DUL']['result'] = '127.0.0.3'; + $filters['FiveTen DUL']['comment'] = + _("FREE - Five-Ten-sg.com - Dial-up lists - includes some DSL IPs."); + + $filters['FiveTen Unc. OptIn']['prefname'] = 'filters_spam_fiveten_oi'; + $filters['FiveTen Unc. OptIn']['name'] = 'Five-Ten-sg.com Unconfirmed OptIn Lists'; + $filters['FiveTen Unc. OptIn']['link'] = 'http://www.five-ten-sg.com/blackhole.php'; + $filters['FiveTen Unc. OptIn']['dns'] = 'blackholes.five-ten-sg.com'; + $filters['FiveTen Unc. OptIn']['result'] = '127.0.0.4'; + $filters['FiveTen Unc. OptIn']['comment'] = + _("FREE - Five-Ten-sg.com - Bulk mailers that do not use confirmed opt-in."); + + $filters['FiveTen Others']['prefname'] = 'filters_spam_fiveten_oth'; + $filters['FiveTen Others']['name'] = 'Five-Ten-sg.com Other Misc. Servers'; + $filters['FiveTen Others']['link'] = 'http://www.five-ten-sg.com/blackhole.php'; + $filters['FiveTen Others']['dns'] = 'blackholes.five-ten-sg.com'; + $filters['FiveTen Others']['result'] = '127.0.0.5'; + $filters['FiveTen Others']['comment'] = + 'FREE - Five-Ten-sg.com - Other misc. servers.'; + + $filters['Dorkslayers']['prefname'] = 'filters_spam_dorks'; + $filters['Dorkslayers']['name'] = 'Dorkslayers Lists'; + $filters['Dorkslayers']['link'] = 'http://www.dorkslayers.com'; + $filters['Dorkslayers']['dns'] = 'orbs.dorkslayers.com'; + $filters['Dorkslayers']['result'] = '127.0.0.2'; + $filters['Dorkslayers']['comment'] = + _("FREE - Dorkslayers appears to include only really bad open relays outside the US to avoid being sued. Interestingly enough, their website recommends you NOT use their service."); + + $filters['ORBL']['prefname'] = 'filters_spam_orbl'; + $filters['ORBL']['name'] = 'ORBL Lists'; + $filters['ORBL']['link'] = 'http://www.orbl.org'; + $filters['ORBL']['dns'] = 'or.orbl.org'; + $filters['ORBL']['result'] = '127.0.0.2'; + $filters['ORBL']['comment'] = + _("FREE - ORBL is another ORBS spinoff formed after ORBS shut down. May be SLOOOOOOW!"); + + $filters['ORBZ-UK Inputs']['prefname'] = 'filters_spam_orbzuk_in'; + $filters['ORBZ-UK Inputs']['name'] = 'ORBZ-UK Inputs Lists'; + $filters['ORBZ-UK Inputs']['link'] = 'http://orbz.gst-group.co.uk'; + $filters['ORBZ-UK Inputs']['dns'] = 'orbz.gst-group.co.uk'; + $filters['ORBZ-UK Inputs']['result'] = '127.0.0.3'; + $filters['ORBZ-UK Inputs']['comment'] = + _("FREE - orbz.gst-group.co.uk - Inputs only."); + + $filters['ORBZ-UK Outputs']['prefname'] = 'filters_spam_orbzuk_out'; + $filters['ORBZ-UK Outputs']['name'] = 'ORBZ-UK Outputs Lists'; + $filters['ORBZ-UK Outputs']['link'] = 'http://orbz.gst-group.co.uk'; + $filters['ORBZ-UK Outputs']['dns'] = 'orbz.gst-group.co.uk'; + $filters['ORBZ-UK Outputs']['result'] = '127.0.0.2'; + $filters['ORBZ-UK Outputs']['comment'] = + _("FREE - orbz.gst-group.co.uk - Outputs only."); + + $filters['ORBZ-UK Postmaster']['prefname'] = 'filters_spam_orbzuk_pst'; + $filters['ORBZ-UK Postmaster']['name'] = 'ORBZ-UK Postmaster Bouncer Lists'; + $filters['ORBZ-UK Postmaster']['link'] = 'http://orbz.gst-group.co.uk'; + $filters['ORBZ-UK Postmaster']['dns'] = 'orbz.gst-group.co.uk'; + $filters['ORBZ-UK Postmaster']['result'] = '127.0.0.9'; + $filters['ORBZ-UK Postmaster']['comment'] = + _("FREE - orbz.gst-group.co.uk - mailservers that refuse or bounce email addressed to postmaster@."); + + $filters['SPAMcop']['prefname'] = 'filters_spam_spamcop'; + $filters['SPAMcop']['name'] = 'SPAM Cop Lists'; + $filters['SPAMcop']['link'] = 'http://spamcop.net/bl.shtml'; + $filters['SPAMcop']['dns'] = 'bl.spamcop.net'; + $filters['SPAMcop']['result'] = '127.0.0.2'; + $filters['SPAMcop']['comment'] = + _("FREE, for now - SPAMCOP - An interesting solution that lists servers that have a very high spam to legit email ratio (85% or more)."); + + foreach ($filters as $Key => $Value) { + $filters[$Key]['enabled'] = getPref($data_dir, $username, + $filters[$Key]['prefname']); + } + + return $filters; + } + + function remove_filter ($id) { + global $data_dir, $username; + + while ($nextFilter = getPref($data_dir, $username, 'filter' . + ($id + 1))) { + setPref($data_dir, $username, 'filter' . $id, $nextFilter); + $id ++; + } + + removePref($data_dir, $username, 'filter' . $id); + } + + function filter_swap($id1, $id2) { + global $data_dir, $username; + + $FirstFilter = getPref($data_dir, $username, 'filter' . $id1); + $SecondFilter = getPref($data_dir, $username, 'filter' . $id2); + + if ($FirstFilter && $SecondFilter) { + setPref($data_dir, $username, 'filter' . $id2, $FirstFilter); + setPref($data_dir, $username, 'filter' . $id1, $SecondFilter); + } + } ?> diff --git a/plugins/filters/options.php b/plugins/filters/options.php index 21582d9a..9d658a5c 100644 --- a/plugins/filters/options.php +++ b/plugins/filters/options.php @@ -1,30 +1,29 @@ $Value) - { + foreach ($spam_filters as $Key => $Value) { $input = $spam_filters[$Key]['prefname'] . '_set'; setPref($data_dir, $username, $spam_filters[$Key]['prefname'], $$input); @@ -78,82 +76,77 @@ '] - [' . _("Done") . ']
' . ''; - for ($i=0; $i < count($filters); $i++) { - if ($i % 2 == 0) { - $clr = $color[0]; - } else { - $clr = $color[9]; + for ($i=0; $i < count($filters); $i++) { + + $clr = (($i % 2)?$color[0]:$color[9]); + $fdr = ($folder_prefix)?str_replace($folder_prefix, "", $filters[$i]["folder"]):$filters[$i]["folder"]; + echo "'; + + } + echo '
". + "[" . _("Edit") . ']'. + ''. + "[" . _("Delete") . ']'. + '['; + + if (isset($filters[$i + 1])) { + echo "" . _("Down") . ''; + if ($i > 0) { + echo ' | '; } + } + if ($i > 0) { + echo "" . _("Up") . ''; + } + echo '] - '; + printf( _("If %s contains %s then move to %s"), _($filters[$i]['where']), $filters[$i]['what'], $fdr ); + echo '
'. + ''. + ''. + '
 
'; + + + if ($AllowSpamFilters) { - $fdr = ($folder_prefix)?str_replace($folder_prefix, "", $filters[$i]["folder"]):$filters[$i]["folder"]; + echo "". + ''. + '
' . _("Spam Filtering") . '
'; + if (! isset($action) || $action != 'spam') { - echo "". - "[" . _("Edit") . ']'. - ''. - "[" . _("Delete") . ']'. - '['; + echo '

[' . _("Edit") . ']
'; + printf( _("Spam is sent to %s"), ($filters_spam_folder?$filters_spam_folder:_("[not set yet]") ) ); + echo '
'; + printf( _("Spam scan is limited to %s"), (($filters_spam_scan == 'new')?_("New Messages Only"):_("All Messages") ) ); + echo '

'. + ""; - if (isset($filters[$i + 1])) { - echo "" . _("Down") . ''; - if ($i > 0) { - echo ' | '; + $spam_filters = load_spam_filters(); + + foreach ($spam_filters as $Key => $Value) { + echo ''; - } + echo '
'; + + if ($spam_filters[$Key]['enabled']) { + echo _("ON"); + } else { + echo _("OFF"); } - } - if ($i > 0) { - echo "" . _("Up") . ''; - } - echo '] - '; - printf( _("If %s contains %s then move to %s"), _($filters[$i]['where']), $filters[$i]['what'], $fdr ); - echo '
 - '; - echo '
'. - ''. - ''. - '
 
'; - - if ($AllowSpamFilters) { - - echo "". - ''. - '
' . _("Spam Filtering") . '
'; - if (! isset($action) || $action != 'spam') { - - echo '

[' . _("Edit") . ']
'; - printf( _("Spam is sent to %s"), ($filters_spam_folder?$filters_spam_folder:_("[not set yet]") ) ); - echo '
'; - printf( _("Spam scan is limited to %s"), (($filters_spam_scan == 'new')?_("New Messages Only"):_("All Messages") ) ); - echo '

'. - ""; - - $spam_filters = load_spam_filters(); - - foreach ($spam_filters as $Key => $Value) { - echo '\n"; + if ($spam_filters[$Key]['link']) { + echo ''; } - echo '
'; - - if ($spam_filters[$Key]['enabled']) { - echo _("ON"); - } else { - echo _("OFF"); - } - - echo ' - '; - - if ($spam_filters[$Key]['link']) { - echo ''; - } - - echo $spam_filters[$Key]['name']; - if ($spam_filters[$Key]['link']) { - echo ''; - } - echo "
'; + + echo $spam_filters[$Key]['name']; + if ($spam_filters[$Key]['link']) { + echo ''; + } + echo "\n"; } + echo ''; + } } if (isset($action) && ($action == 'add' || $action == 'edit')) { @@ -164,18 +157,18 @@ $theid = count($filters); } echo '
'. - '
'. - '
'. - ''. - ''. - '
 '. - ''. + ''. + ''. + ''. - ''. - ''. - ''. - ''. - ''. - ''. - ''. - ''. + ''. + ''. + ''. + ''. - ''. + ''. + ''. + ''. '
 '. + ''. - '
'. - _("Contains:"). - ''. - ''. + ''. + ''. - '
'. - _("Move to:"). - ''. - ''. - '
'. + _("Move to:"). + ''. + ''. + ''. - '
'. ''. "". @@ -237,83 +230,83 @@ $boxes = sqimap_mailbox_list($imapConnection); sqimap_logout($imapConnection); for ($i = 0; $i < count($boxes) && $filters_spam_folder == ''; $i++) { - if ($boxes[$i]['flags'][0] != 'noselect' && - $boxes[$i]['flags'][1] != 'noselect' && + if ($boxes[$i]['flags'][0] != 'noselect' && + $boxes[$i]['flags'][1] != 'noselect' && $boxes[$i]['flags'][2] != 'noselect') { $filters_spam_folder = $boxes[$i]['unformatted']; } } echo ''. - '
'. - ''. + '
'. + '
'. ''. - ''. - ''. + ''. - ''. - ''. - ''. + ''. + ''. + ''. + ''. ''. ''. - ''. - ''. - ''; + ''. + ''. + ''. + ''; $spam_filters = load_spam_filters(); foreach ($spam_filters as $Key => $Value) { echo "\n" . - '\n"; + $spam_filters[$Key]['comment'] . + "\n"; } echo ''. - '
' . _("Move spam to:") . '' . _("Move spam to:") . ''. - '
' . - _("Moving spam directly to the trash may not be a good idea at first, since messages from friends and mailing lists might accidentally be marked as spam. Whatever folder you set this to, make sure that it gets cleaned out periodically, so that you don't have an excessively large mailbox hanging around.") . - '
' . + _("Moving spam directly to the trash may not be a good idea at first, since messages from friends and mailing lists might accidentally be marked as spam. Whatever folder you set this to, make sure that it gets cleaned out periodically, so that you don't have an excessively large mailbox hanging around.") . + '
' . _("What to Scan:") . ''. - '
'. - _("The more messages you scan, the longer it takes. I would suggest that you scan only new messages. If you make a change to your filters, I would set it to scan all messages, then go view my INBOX, then come back and set it to scan only new messages. That way, your new spam filters will be applied and you'll scan even the spam you read with the new filters."). - '
'. + _("The more messages you scan, the longer it takes. I would suggest that you scan only new messages. If you make a change to your filters, I would set it to scan all messages, then go view my INBOX, then come back and set it to scan only new messages. That way, your new spam filters will be applied and you'll scan even the spam you read with the new filters."). + '
$Key - '; if ($spam_filters[$Key]['link']) { - echo ''; } echo $spam_filters[$Key]['name']; if ($spam_filters[$Key]['link']) { - echo ''; + echo ''; } echo '
' . - $spam_filters[$Key]['comment'] . - "
'. - '
'. - ''; + '
'. + '
'. + ''; sqimap_logout($imapConnection); } -?> \ No newline at end of file +?> diff --git a/plugins/filters/setup.php b/plugins/filters/setup.php index 2fd817cd..5169dba9 100644 --- a/plugins/filters/setup.php +++ b/plugins/filters/setup.php @@ -1,28 +1,29 @@