Source for file filters.php

Documentation is available at filters.php

  1. <?php
  2. /**
  3.  * Message and Spam Filter Plugin - Filtering Functions
  4.  *
  5.  * This plugin filters your inbox into different folders based upon given
  6.  * criteria.  It is most useful for people who are subscibed to mailing lists
  7.  * to help organize their messages.  The argument stands that filtering is
  8.  * not the place of the client, which is why this has been made a plugin for
  9.  * SquirrelMail.  You may be better off using products such as Sieve or
  10.  * Procmail to do your filtering so it happens even when SquirrelMail isn't
  11.  * running.
  12.  *
  13.  * If you need help with this, or see improvements that can be made, please
  14.  * email me directly at the address above.  I definately welcome suggestions
  15.  * and comments.  This plugin, as is the case with all SquirrelMail plugins,
  16.  * is not directly supported by the developers.  Please come to me off the
  17.  * mailing list if you have trouble with it.
  18.  *
  19.  * Also view plugins/README.plugins for more information.
  20.  *
  21.  * @version $Id: filters.php,v 1.45.2.18 2006/07/29 08:46:57 tokul Exp $
  22.  * @copyright (c) 1999-2006 The SquirrelMail Project Team
  23.  * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  24.  * @package plugins
  25.  * @subpackage filters
  26.  */
  27.  
  28. /**
  29.  * FIXME: Undocumented function
  30.  * @access private
  31.  */
  32. function filters_SaveCache () {
  33.     global $data_dir, $SpamFilters_DNScache;
  34.  
  35.     if (file_exists($data_dir . '/dnscache')) {
  36.         $fp = fopen($data_dir . '/dnscache', 'r');
  37.     } else {
  38.         $fp = false;
  39.     }
  40.     if ($fp) {
  41.         flock($fp,LOCK_EX);
  42.     } else {
  43.        $fp = fopen($data_dir . '/dnscache', 'w+');
  44.        fclose($fp);
  45.        $fp = fopen($data_dir . '/dnscache', 'r');
  46.        flock($fp,LOCK_EX);
  47.     }
  48.     $fp1=fopen($data_dir . '/dnscache', 'w+');
  49.  
  50.     foreach ($SpamFilters_DNScache as $Key=> $Value) {
  51.        $tstr = $Key . ',' . $Value['L'] . ',' . $Value['T'] . "\n";
  52.        fputs ($fp1, $tstr);
  53.     }
  54.     fclose($fp1);
  55.     flock($fp,LOCK_UN);
  56.     fclose($fp);
  57. }
  58.  
  59. /**
  60.  * FIXME: Undocumented function
  61.  * @access private
  62.  */
  63. function filters_LoadCache () {
  64.     global $data_dir, $SpamFilters_DNScache;
  65.  
  66.     if (file_exists($data_dir . '/dnscache')) {
  67.         $SpamFilters_DNScache = array();
  68.         if ($fp = fopen ($data_dir . '/dnscache', 'r')) {
  69.             flock($fp,LOCK_SH);
  70.             while ($data=fgetcsv($fp,1024)) {
  71.                if ($data[2] > time()) {
  72.                   $SpamFilters_DNScache[$data[0]]['L'] = $data[1];
  73.                   $SpamFilters_DNScache[$data[0]]['T'] = $data[2];
  74.                }
  75.             }
  76.  
  77.             flock($fp,LOCK_UN);
  78.         }
  79.     }
  80. }
  81.  
  82. /**
  83.  * FIXME: Undocumented function
  84.  * @access private
  85.  */
  86. function filters_bulkquery($filters_spam_scan, $filters, $read) {
  87.     global $SpamFilters_YourHop, $attachment_dir, $username,
  88.            $SpamFilters_DNScache, $SpamFilters_BulkQuery,
  89.            $SpamFilters_CacheTTL;
  90.  
  91.     $IPs = array();
  92.     $i = 0;
  93.     while ($i < count($read)) {
  94.         // EIMS will give funky results
  95.         $Chunks = explode(' ', $read[$i]);
  96.         if ($Chunks[0] != '*') {
  97.             $i ++;
  98.             continue;
  99.         }
  100.         $MsgNum = $Chunks[1];
  101.  
  102.         $i ++;
  103.  
  104.         // Look through all of the Received headers for IP addresses
  105.         // Stop when I get ")" on a line
  106.         // Stop if I get "*" on a line (don't advance)
  107.         // and above all, stop if $i is bigger than the total # of lines
  108.         while (($i < count($read)) &&
  109.                 ($read[$i][0] != ')' && $read[$i][0] != '*' &&
  110.                 $read[$i][0] != "\n")) {
  111.             // Check to see if this line is the right "Received from" line
  112.             // to check
  113.             if (is_int(strpos($read[$i], $SpamFilters_YourHop))) {
  114.                 $read[$i] = ereg_replace('[^0-9\.]', ' ', $read[$i]);
  115.                 $elements = explode(' ', $read[$i]);
  116.                 foreach ($elements as $value) {
  117.                     if ($value != '' &&
  118.                         ereg('[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}',
  119.                             $value, $regs)) {
  120.                         $Chunks = explode('.', $value);
  121.                         $IP = $Chunks[3] . '.' . $Chunks[2] . '.' .
  122.                               $Chunks[1] . '.' . $Chunks[0];
  123.                         foreach ($filters as $key => $value) {
  124.                             if ($filters[$key]['enabled'] &&
  125.                                       $filters[$key]['dns']) {
  126.                                 if (strlen($SpamFilters_DNScache[$IP.'.'.$filters[$key]['dns']]) == 0) {
  127.                                    $IPs[$IP] = true;
  128.                                    break;
  129.                                 }
  130.                             }
  131.                         }
  132.                         // If we've checked one IP and YourHop is
  133.                         // just a space
  134.                         if ($SpamFilters_YourHop == ' ') {
  135.                             break;  // don't check any more
  136.                         }
  137.                     }
  138.                 }
  139.             }
  140.             $i ++;
  141.         }
  142.     }
  143.  
  144.     if (count($IPs) > 0) {
  145.         $rbls = array();
  146.         foreach ($filters as $key => $value) {
  147.             if ($filters[$key]['enabled']) {
  148.                 if ($filters[$key]['dns']) {
  149.                     $rbls[$filters[$key]['dns']] = true;
  150.                 }
  151.             }
  152.         }
  153.  
  154.         $bqfil = $attachment_dir . $username . '-bq.in';
  155.         $fp = fopen($bqfil, 'w');
  156.         fputs ($fp, $SpamFilters_CacheTTL . "\n");
  157.         foreach ($rbls as $key => $value) {
  158.             fputs ($fp, '.' . $key . "\n");
  159.         }
  160.         fputs ($fp, "----------\n");
  161.         foreach ($IPs as $key => $value) {
  162.             fputs ($fp, $key . "\n");
  163.         }
  164.         fclose ($fp);
  165.         $bqout = array();
  166.         exec ($SpamFilters_BulkQuery . ' < ' . $bqfil, $bqout);
  167.         foreach ($bqout as $value) {
  168.             $Chunks = explode(',', $value);
  169.             $SpamFilters_DNScache[$Chunks[0]]['L'] = $Chunks[1];
  170.             $SpamFilters_DNScache[$Chunks[0]]['T'] = $Chunks[2] + time();
  171.         }
  172.         unlink($bqfil);
  173.     }
  174. }
  175.  
  176. /**
  177.  * FIXME: Undocumented function
  178.  * @access private
  179.  */
  180. function start_filters() {
  181.     global $mailbox, $imapServerAddress, $imapPort, $imap,
  182.            $imap_general, $filters, $imap_stream, $imapConnection,
  183.            $UseSeparateImapConnection, $AllowSpamFilters;
  184.  
  185.     sqgetGlobalVar('username', $username, SQ_SESSION);
  186.     sqgetGlobalVar('key',      $key,      SQ_COOKIE);
  187.  
  188.  
  189.     $filters = load_filters();
  190.  
  191.     // No point running spam filters if there aren't any to run //
  192.     if ($AllowSpamFilters) {
  193.         $spamfilters = load_spam_filters();
  194.  
  195.         $AllowSpamFilters = false;
  196.         foreach($spamfilters as $filterkey=>$value) {
  197.             if ($value['enabled'] == 'yes') {
  198.                 $AllowSpamFilters = true;
  199.                 break;
  200.             }
  201.         }
  202.     }
  203.  
  204.     // No user filters, and no spam filters, no need to continue //
  205.     if (!$AllowSpamFilters && empty($filters)) {
  206.         return;
  207.     }
  208.  
  209.  
  210.     // Detect if we have already connected to IMAP or not.
  211.     // Also check if we are forced to use a separate IMAP connection
  212.     if ((!isset($imap_stream) && !isset($imapConnection)) ||
  213.         $UseSeparateImapConnection ) {
  214.             $stream = sqimap_login($username, $key, $imapServerAddress,
  215.                                 $imapPort, 10);
  216.             $previously_connected = false;
  217.     } else if (isset($imapConnection)) {
  218.         $stream = $imapConnection;
  219.         $previously_connected = true;
  220.     } else {
  221.         $previously_connected = true;
  222.         $stream = $imap_stream;
  223.     }
  224.     $aStatus = sqimap_status_messages ($stream, 'INBOX', array('MESSAGES'));
  225.  
  226.     if ($aStatus['MESSAGES']) {
  227.         sqimap_mailbox_select($stream, 'INBOX');
  228.         // Filter spam from inbox before we sort them into folders
  229.         if ($AllowSpamFilters) {
  230.             spam_filters($stream);
  231.         }
  232.  
  233.         // Sort into folders
  234.         user_filters($stream);
  235.     }
  236.  
  237.     if (!$previously_connected) {
  238.         sqimap_logout($stream);
  239.     }
  240. }
  241.  
  242. /**
  243.  * FIXME: Undocumented function
  244.  * @access private
  245.  */
  246. function user_filters($imap_stream) {
  247.     global $data_dir, $username;
  248.     $filters = load_filters();
  249.     if (! $filters) return;
  250.     $filters_user_scan = getPref($data_dir, $username, 'filters_user_scan');
  251.  
  252.     sqimap_mailbox_select($imap_stream, 'INBOX');
  253.     $id = array();
  254.     // For every rule
  255.     for ($i=0, $num = count($filters); $i < $num; $i++) {
  256.         // If it is the "combo" rule
  257.         if ($filters[$i]['where'] == 'To or Cc') {
  258.             /*
  259.             *  If it's "TO OR CC", we have to do two searches, one for TO
  260.             *  and the other for CC.
  261.             */
  262.             $id = filter_search_and_delete($imap_stream, 'TO',
  263.                   $filters[$i]['what'], $filters[$i]['folder'], $filters_user_scan, $id);
  264.             $id = filter_search_and_delete($imap_stream, 'CC',
  265.                   $filters[$i]['what'], $filters[$i]['folder'], $filters_user_scan, $id);
  266.         } else {
  267.             /*
  268.             *  If it's a normal TO, CC, SUBJECT, or FROM, then handle it
  269.             *  normally.
  270.             */
  271.             $id = filter_search_and_delete($imap_stream, $filters[$i]['where'],
  272.                  $filters[$i]['what'], $filters[$i]['folder'], $filters_user_scan, $id);
  273.         }
  274.     }
  275.     // Clean out the mailbox whether or not auto_expunge is on
  276.     // That way it looks like it was redirected properly
  277.     if (count($id)) {
  278.         sqimap_mailbox_expunge($imap_stream, 'INBOX');
  279.     }
  280. }
  281.  
  282. /**
  283.  * FIXME: Undocumented function
  284.  * @access private
  285.  */
  286. function filter_search_and_delete($imap, $where, $what, $where_to, $user_scan, 
  287.                                   $del_id) {
  288.     global $languages, $squirrelmail_language, $allow_charset_search, 
  289.            $uid_support, $imap_server_type;
  290.  
  291.     if (strtolower($where_to) == 'inbox') {
  292.         return array();
  293.     }
  294.  
  295.     if ($user_scan == 'new') {
  296.         $category = 'UNSEEN';
  297.     } else {
  298.         $category = 'ALL';
  299.     }
  300.  
  301.     $category .= ' UNDELETED';
  302.  
  303.     if ($allow_charset_search &&
  304.         isset($languages[$squirrelmail_language]['CHARSET']) &&
  305.         $languages[$squirrelmail_language]['CHARSET']) {
  306.         $search_str = 'SEARCH CHARSET '
  307.                     . strtoupper($languages[$squirrelmail_language]['CHARSET'])
  308.                     . ' ' . $category;
  309.     } else {
  310.         $search_str = 'SEARCH CHARSET US-ASCII ' . $category;
  311.     }
  312.     if ($where == 'Header') {
  313.         $what  = explode(':', $what);
  314.         $where = trim($where . ' ' . $what[0]);
  315.         $what  = addslashes(trim($what[1]));
  316.     }
  317.  
  318.     // see comments in squirrelmail sqimap_search function
  319.     if ($imap_server_type == 'macosx' || $imap_server_type == 'hmailserver') {
  320.         $search_str .= ' ' . $where . ' ' . $what;
  321.     } else {
  322.         $search_str .= ' ' . $where . ' {' . strlen($what) . "}\r\n"
  323.                     . $what;
  324.     }
  325.  
  326.     /* read data back from IMAP */
  327.     $read = sqimap_run_command($imap, $search_str, true, $response, $message, $uid_support);
  328.  
  329.     // This may have problems with EIMS due to it being goofy
  330.  
  331.     for ($r=0, $num = count($read); $r < $num &&
  332.                 substr($read[$r], 0, 8) != '* SEARCH'; $r++) {}
  333.     if ($response == 'OK') {
  334.         $ids = explode(' ', $read[$r]);
  335.         if (sqimap_mailbox_exists($imap, $where_to)) {
  336.             /*
  337.              * why we do n calls instead of just one. It is safer to copy 
  338.              * messages one by one, but code does not call expunge after 
  339.              * message is copied and quota limits are not resolved.
  340.              */
  341.             for ($j=2, $num = count($ids); $j < $num; $j++) {
  342.                 $id = trim($ids[$j]);
  343.                 if (sqimap_messages_copy ($imap, $id, $id, $where_to, false)) {
  344.                     $del_id[] = $id;
  345.                     sqimap_messages_flag ($imap, $id, $id, 'Deleted', false);
  346.                 }
  347.             }
  348.         }
  349.     }
  350.     return $del_id;
  351. }
  352.  
  353. /**
  354.  * FIXME: Undocumented function
  355.  * @access private
  356.  */
  357. function spam_filters($imap_stream) {
  358.     global $data_dir, $username, $uid_support;
  359.     global $SpamFilters_YourHop;
  360.     global $SpamFilters_DNScache;
  361.     global $SpamFilters_SharedCache;
  362.     global $SpamFilters_BulkQuery;
  363.  
  364.     $filters_spam_scan = getPref($data_dir, $username, 'filters_spam_scan');
  365.     $filters_spam_folder = getPref($data_dir, $username, 'filters_spam_folder');
  366.     $filters = load_spam_filters();
  367.  
  368.     if ($SpamFilters_SharedCache) {
  369.        filters_LoadCache();
  370.     }
  371.  
  372.     $run = 0;
  373.  
  374.     foreach ($filters as $Key=> $Value) {
  375.         if ($Value['enabled']) {
  376.             $run ++;
  377.         }
  378.     }
  379.  
  380.     // short-circuit
  381.     if ($run == 0) {
  382.         return;
  383.     }
  384.  
  385.     sqimap_mailbox_select($imap_stream, 'INBOX');
  386.  
  387.     // Ask for a big list of all "Received" headers in the inbox with
  388.     // flags for each message.  Kinda big.
  389.     if ($filters_spam_scan != 'new') {
  390.         $read = sqimap_run_command($imap_stream, 'FETCH 1:* (FLAGS BODY.PEEK[HEADER.FIELDS ' .
  391.             '(RECEIVED)])', true, $response, $message, $uid_support);
  392.     } else {
  393.         $read = sqimap_run_command($imap_stream, 'SEARCH UNSEEN', true, $response, $message, $uid_support);
  394.         if ($response != 'OK' || trim($read[0]) == '* SEARCH') {
  395.             $read = sqimap_run_command($imap_stream, 'FETCH 1:* (FLAGS BODY.PEEK[HEADER.FIELDS ' .
  396.             '(RECEIVED)])', true, $response, $message, $uid_support);
  397.         } else {
  398.             if (isset($read[0])) {
  399.                 if (preg_match("/^\* SEARCH (.+)$/", $read[0], $regs)) {
  400.                     $search_array = preg_split("/ /", trim($regs[1]));
  401.                 }
  402.             }
  403.             $msgs_str = sqimap_message_list_squisher($search_array);
  404.             $imap_query = 'FETCH '.$msgs_str;
  405.             $imap_query .= ' (FLAGS BODY.PEEK[HEADER.FIELDS ';
  406.             $imap_query .= '(RECEIVED)])';
  407.             $read = sqimap_run_command($imap_stream,$imap_query, true, $response, $message, $uid_support);
  408.         }
  409.     }
  410.     
  411.     if (isset($response) && $response != 'OK') {
  412.         return;
  413.     }
  414.  
  415.     if (strlen($SpamFilters_BulkQuery) > 0) {
  416.        filters_bulkquery($filters_spam_scan, $filters, $read);
  417.     }
  418.  
  419.     $i = 0;
  420.     while ($i < count($read)) {
  421.         // EIMS will give funky results
  422.         $Chunks = explode(' ', $read[$i]);
  423.         if ($Chunks[0] != '*') {
  424.             $i ++;
  425.             continue;
  426.         }
  427.         $MsgNum = $Chunks[1];
  428.  
  429.         $IPs = array();
  430.         $i ++;
  431.         $IsSpam = 0;
  432.  
  433.         // Look through all of the Received headers for IP addresses
  434.         // Stop when I get ")" on a line
  435.         // Stop if I get "*" on a line (don't advance)
  436.         // and above all, stop if $i is bigger than the total # of lines
  437.         while (($i < count($read)) &&
  438.                 ($read[$i][0] != ')' && $read[$i][0] != '*' &&
  439.                 $read[$i][0] != "\n") && (! $IsSpam)) {
  440.             // Check to see if this line is the right "Received from" line
  441.             // to check
  442.             if (is_int(strpos($read[$i], $SpamFilters_YourHop))) {
  443.  
  444.                 // short-circuit and skip work if we don't scan this one
  445.                 $read[$i] = ereg_replace('[^0-9\.]', ' ', $read[$i]);
  446.                 $elements = explode(' ', $read[$i]);
  447.                 foreach ($elements as $value) {
  448.                     if ($value != '' &&
  449.                         ereg('[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}',
  450.                             $value, $regs)) {
  451.                         $Chunks = explode('.', $value);
  452.                         if (filters_spam_check_site($Chunks[0],
  453.                                 $Chunks[1], $Chunks[2], $Chunks[3],
  454.                                 $filters)) {
  455.                             $IsSpam ++;
  456.                             break;  // no sense in checking more IPs
  457.                         }
  458.                         // If we've checked one IP and YourHop is
  459.                         // just a space
  460.                         if ($SpamFilters_YourHop == ' ') {
  461.                             break;  // don't check any more
  462.                         }
  463.                     }
  464.                 }
  465.             }
  466.             $i ++;
  467.         }
  468.  
  469.         // Lookie!  It's spam!  Yum!
  470.         if ($IsSpam) {
  471.             if (sqimap_mailbox_exists($imap_stream, $filters_spam_folder)) {
  472.                 // check if message copy was successful
  473.                 if (sqimap_messages_copy ($imap_stream, $MsgNum, $MsgNum,
  474.                                           $filters_spam_folder, false)) {
  475.                     sqimap_messages_flag ($imap_stream, $MsgNum, $MsgNum,
  476.                                           'Deleted', false);
  477.                 }
  478.             }
  479.         } else {
  480.         }
  481.     }
  482.  
  483.     sqimap_mailbox_expunge($imap_stream, 'INBOX');
  484.  
  485.     if ($SpamFilters_SharedCache) {
  486.        filters_SaveCache();
  487.     } else {
  488.        sqsession_register($SpamFilters_DNScache, 'SpamFilters_DNScache');
  489.     }
  490.  
  491. }
  492.  
  493. /**
  494.  * FIXME: Undocumented function
  495.  * Does the loop through each enabled filter for the specified IP address.
  496.  * IP format:  $a.$b.$c.$d
  497.  * @access private
  498.  */
  499. function filters_spam_check_site($a, $b, $c, $d, &$filters) {
  500.     global $SpamFilters_DNScache, $SpamFilters_CacheTTL;
  501.     foreach ($filters as $key => $value) {
  502.         if ($filters[$key]['enabled']) {
  503.             if ($filters[$key]['dns']) {
  504.                 $filter_revip = $d . '.' . $c . '.' . $b . '.' . $a . '.' .
  505.                                 $filters[$key]['dns'];
  506.  
  507.                 if(!isset($SpamFilters_DNScache[$filter_revip]['L']))
  508.                         $SpamFilters_DNScache[$filter_revip]['L'] = '';
  509.  
  510.                 if(!isset($SpamFilters_DNScache[$filter_revip]['T']))
  511.                         $SpamFilters_DNScache[$filter_revip]['T'] = '';
  512.  
  513.                 if (strlen($SpamFilters_DNScache[$filter_revip]['L']) == 0) {
  514.                     $SpamFilters_DNScache[$filter_revip]['L'] =
  515.                                     gethostbyname($filter_revip);
  516.                     $SpamFilters_DNScache[$filter_revip]['T'] =
  517.                                        time() + $SpamFilters_CacheTTL;
  518.                 }
  519.                 if ($SpamFilters_DNScache[$filter_revip]['L'] ==
  520.                     $filters[$key]['result']) {
  521.                     return 1;
  522.                 }
  523.             }
  524.         }
  525.     }
  526.     return 0;
  527. }
  528.  
  529. /**
  530.  * FIXME: Undocumented function
  531.  * @access private
  532.  */
  533. function load_filters() {
  534.     global $data_dir, $username;
  535.  
  536.     $filters = array();
  537.     for ($i=0; $fltr = getPref($data_dir, $username, 'filter' . $i); $i++) {
  538.         $ary = explode(',', $fltr);
  539.         $filters[$i]['where'] = $ary[0];
  540.         $filters[$i]['what'] = $ary[1];
  541.         $filters[$i]['folder'] = $ary[2];
  542.     }
  543.     return $filters;
  544. }
  545.  
  546. /**
  547.  * FIXME: Undocumented function
  548.  * @access private
  549.  */
  550. function load_spam_filters() {
  551.     global $data_dir, $username, $SpamFilters_ShowCommercial;
  552.  
  553.     if ($SpamFilters_ShowCommercial) {
  554.         $filters['MAPS RBL']['prefname'] = 'filters_spam_maps_rbl';
  555.         $filters['MAPS RBL']['name'] = 'MAPS Realtime Blackhole List';
  556.         $filters['MAPS RBL']['link'] = 'http://www.mail-abuse.org/rbl/';
  557.         $filters['MAPS RBL']['dns'] = 'blackholes.mail-abuse.org';
  558.         $filters['MAPS RBL']['result'] = '127.0.0.2';
  559.         $filters['MAPS RBL']['comment'] =
  560.             _("COMMERCIAL - This list contains servers that are verified spam senders. It is a pretty reliable list to scan spam from.");
  561.  
  562.         $filters['MAPS RSS']['prefname'] = 'filters_spam_maps_rss';
  563.         $filters['MAPS RSS']['name'] = 'MAPS Relay Spam Stopper';
  564.         $filters['MAPS RSS']['link'] = 'http://www.mail-abuse.org/rss/';
  565.         $filters['MAPS RSS']['dns'] = 'relays.mail-abuse.org';
  566.         $filters['MAPS RSS']['result'] = '127.0.0.2';
  567.         $filters['MAPS RSS']['comment'] =
  568.             _("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.");
  569.  
  570.         $filters['MAPS DUL']['prefname'] = 'filters_spam_maps_dul';
  571.         $filters['MAPS DUL']['name'] = 'MAPS Dial-Up List';
  572.         $filters['MAPS DUL']['link'] = 'http://www.mail-abuse.org/dul/';
  573.         $filters['MAPS DUL']['dns'] = 'dialups.mail-abuse.org';
  574.         $filters['MAPS DUL']['result'] = '127.0.0.3';
  575.         $filters['MAPS DUL']['comment'] =
  576.             _("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.");
  577.  
  578.         $filters['MAPS RBLplus-RBL']['prefname'] = 'filters_spam_maps_rblplus_rbl';
  579.         $filters['MAPS RBLplus-RBL']['name'] = 'MAPS RBL+ RBL List';
  580.         $filters['MAPS RBLplus-RBL']['link'] = 'http://www.mail-abuse.org/';
  581.         $filters['MAPS RBLplus-RBL']['dns'] = 'rbl-plus.mail-abuse.org';
  582.         $filters['MAPS RBLplus-RBL']['result'] = '127.0.0.2';
  583.         $filters['MAPS RBLplus-RBL']['comment'] =
  584.             _("COMMERCIAL - RBL+ Blackhole entries.");
  585.  
  586.         $filters['MAPS RBLplus-RSS']['prefname'] = 'filters_spam_maps_rblplus_rss';
  587.         $filters['MAPS RBLplus-RSS']['name'] = 'MAPS RBL+ List RSS entries';
  588.         $filters['MAPS RBLplus-RSS']['link'] = 'http://www.mail-abuse.org/';
  589.         $filters['MAPS RBLplus-RSS']['dns'] = 'rbl-plus.mail-abuse.org';
  590.         $filters['MAPS RBLplus-RSS']['result'] = '127.0.0.2';
  591.         $filters['MAPS RBLplus-RSS']['comment'] =
  592.             _("COMMERCIAL - RBL+ OpenRelay entries.");
  593.  
  594.         $filters['MAPS RBLplus-DUL']['prefname'] = 'filters_spam_maps_rblplus_dul';
  595.         $filters['MAPS RBLplus-DUL']['name'] = 'MAPS RBL+ List DUL entries';
  596.         $filters['MAPS RBLplus-DUL']['link'] = 'http://www.mail-abuse.org/';
  597.         $filters['MAPS RBLplus-DUL']['dns'] = 'rbl-plus.mail-abuse.org';
  598.         $filters['MAPS RBLplus-DUL']['result'] = '127.0.0.3';
  599.         $filters['MAPS RBLplus-DUL']['comment'] =
  600.             _("COMMERCIAL - RBL+ Dial-up entries.");
  601.     }
  602.  
  603.     $filters['ORDB']['prefname'] = 'filters_spam_ordb';
  604.     $filters['ORDB']['name'] = 'Open Relay Database List';
  605.     $filters['ORDB']['link'] = 'http://www.ordb.org/';
  606.     $filters['ORDB']['dns'] = 'relays.ordb.org';
  607.     $filters['ORDB']['result'] = '127.0.0.2';
  608.     $filters['ORDB']['comment'] =
  609.         _("FREE - ORDB was born when ORBS went off the air. It seems to have fewer false positives than ORBS did though.");
  610.  
  611.     $filters['FiveTen Direct']['prefname'] = 'filters_spam_fiveten_src';
  612.     $filters['FiveTen Direct']['name'] = 'Five-Ten-sg.com Direct SPAM Sources';
  613.     $filters['FiveTen Direct']['link'] = 'http://www.five-ten-sg.com/blackhole.php';
  614.     $filters['FiveTen Direct']['dns'] = 'blackholes.five-ten-sg.com';
  615.     $filters['FiveTen Direct']['result'] = '127.0.0.2';
  616.     $filters['FiveTen Direct']['comment'] =
  617.         _("FREE - Five-Ten-sg.com - Direct SPAM sources.");
  618.  
  619.     $filters['FiveTen DUL']['prefname'] = 'filters_spam_fiveten_dul';
  620.     $filters['FiveTen DUL']['name'] = 'Five-Ten-sg.com DUL Lists';
  621.     $filters['FiveTen DUL']['link'] = 'http://www.five-ten-sg.com/blackhole.php';
  622.     $filters['FiveTen DUL']['dns'] = 'blackholes.five-ten-sg.com';
  623.     $filters['FiveTen DUL']['result'] = '127.0.0.3';
  624.     $filters['FiveTen DUL']['comment'] =
  625.         _("FREE - Five-Ten-sg.com - Dial-up lists - includes some DSL IPs.");
  626.  
  627.     $filters['FiveTen Unc. OptIn']['prefname'] = 'filters_spam_fiveten_oi';
  628.     $filters['FiveTen Unc. OptIn']['name'] = 'Five-Ten-sg.com Unconfirmed OptIn Lists';
  629.     $filters['FiveTen Unc. OptIn']['link'] = 'http://www.five-ten-sg.com/blackhole.php';
  630.     $filters['FiveTen Unc. OptIn']['dns'] = 'blackholes.five-ten-sg.com';
  631.     $filters['FiveTen Unc. OptIn']['result'] = '127.0.0.4';
  632.     $filters['FiveTen Unc. OptIn']['comment'] =
  633.         _("FREE - Five-Ten-sg.com - Bulk mailers that do not use confirmed opt-in.");
  634.  
  635.     $filters['FiveTen Others']['prefname'] = 'filters_spam_fiveten_oth';
  636.     $filters['FiveTen Others']['name'] = 'Five-Ten-sg.com Other Misc. Servers';
  637.     $filters['FiveTen Others']['link'] = 'http://www.five-ten-sg.com/blackhole.php';
  638.     $filters['FiveTen Others']['dns'] = 'blackholes.five-ten-sg.com';
  639.     $filters['FiveTen Others']['result'] = '127.0.0.5';
  640.     $filters['FiveTen Others']['comment'] =
  641.         _("FREE - Five-Ten-sg.com - Other misc. servers.");
  642.  
  643.     $filters['FiveTen Single Stage']['prefname'] = 'filters_spam_fiveten_ss';
  644.     $filters['FiveTen Single Stage']['name'] = 'Five-Ten-sg.com Single Stage Servers';
  645.     $filters['FiveTen Single Stage']['link'] = 'http://www.five-ten-sg.com/blackhole.php';
  646.     $filters['FiveTen Single Stage']['dns'] = 'blackholes.five-ten-sg.com';
  647.     $filters['FiveTen Single Stage']['result'] = '127.0.0.6';
  648.     $filters['FiveTen Single Stage']['comment'] =
  649.         _("FREE - Five-Ten-sg.com - Single Stage servers.");
  650.  
  651.     $filters['FiveTen SPAM Support']['prefname'] = 'filters_spam_fiveten_supp';
  652.     $filters['FiveTen SPAM Support']['name'] = 'Five-Ten-sg.com SPAM Support Servers';
  653.     $filters['FiveTen SPAM Support']['link'] = 'http://www.five-ten-sg.com/blackhole.php';
  654.     $filters['FiveTen SPAM Support']['dns'] = 'blackholes.five-ten-sg.com';
  655.     $filters['FiveTen SPAM Support']['result'] = '127.0.0.7';
  656.     $filters['FiveTen SPAM Support']['comment'] =
  657.         _("FREE - Five-Ten-sg.com - SPAM Support servers.");
  658.  
  659.     $filters['FiveTen Web forms']['prefname'] = 'filters_spam_fiveten_wf';
  660.     $filters['FiveTen Web forms']['name'] = 'Five-Ten-sg.com Web Form IPs';
  661.     $filters['FiveTen Web forms']['link'] = 'http://www.five-ten-sg.com/blackhole.php';
  662.     $filters['FiveTen Web forms']['dns'] = 'blackholes.five-ten-sg.com';
  663.     $filters['FiveTen Web forms']['result'] = '127.0.0.8';
  664.     $filters['FiveTen Web forms']['comment'] =
  665.         _("FREE - Five-Ten-sg.com - Web Form IPs.");
  666.  
  667.     $filters['Dorkslayers']['prefname'] = 'filters_spam_dorks';
  668.     $filters['Dorkslayers']['name'] = 'Dorkslayers Lists';
  669.     $filters['Dorkslayers']['link'] = 'http://www.dorkslayers.com';
  670.     $filters['Dorkslayers']['dns'] = 'orbs.dorkslayers.com';
  671.     $filters['Dorkslayers']['result'] = '127.0.0.2';
  672.     $filters['Dorkslayers']['comment'] =
  673.         _("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.");
  674.  
  675.     $filters['SPAMhaus']['prefname'] = 'filters_spam_spamhaus';
  676.     $filters['SPAMhaus']['name'] = 'SPAMhaus Lists';
  677.     $filters['SPAMhaus']['link'] = 'http://www.spamhaus.org';
  678.     $filters['SPAMhaus']['dns'] = 'sbl.spamhaus.org';
  679.     $filters['SPAMhaus']['result'] = '127.0.0.6';
  680.     $filters['SPAMhaus']['comment'] =
  681.         _("FREE - SPAMhaus - A list of well-known SPAM sources.");
  682.  
  683.     $filters['SPAMcop']['prefname'] = 'filters_spam_spamcop';
  684.     $filters['SPAMcop']['name'] = 'SPAM Cop Lists';
  685.     $filters['SPAMcop']['link'] = 'http://spamcop.net/bl.shtml';
  686.     $filters['SPAMcop']['dns'] = 'bl.spamcop.net';
  687.     $filters['SPAMcop']['result'] = '127.0.0.2';
  688.     $filters['SPAMcop']['comment'] =
  689.         _("FREE, for now - SpamCop - An interesting solution that lists servers that have a very high spam to legit email ratio (85 percent or more).");
  690.  
  691.     $filters['dev.null.dk']['prefname'] = 'filters_spam_devnull';
  692.     $filters['dev.null.dk']['name'] = 'dev.null.dk Lists';
  693.     $filters['dev.null.dk']['link'] = 'http://dev.null.dk/';
  694.     $filters['dev.null.dk']['dns'] = 'dev.null.dk';
  695.     $filters['dev.null.dk']['result'] = '127.0.0.2';
  696.     $filters['dev.null.dk']['comment'] =
  697.         _("FREE - dev.null.dk - I don't have any detailed info on this list.");
  698.  
  699.     $filters['visi.com']['prefname'] = 'filters_spam_visi';
  700.     $filters['visi.com']['name'] = 'visi.com Relay Stop List';
  701.     $filters['visi.com']['link'] = 'http://relays.visi.com';
  702.     $filters['visi.com']['dns'] = 'relays.visi.com';
  703.     $filters['visi.com']['result'] = '127.0.0.2';
  704.     $filters['visi.com']['comment'] =
  705.         _("FREE - visi.com - Relay Stop List. Very conservative OpenRelay List.");
  706.  
  707.     $filters['ahbl.org Open Relays']['prefname'] = 'filters_spam_2mb_or';
  708.     $filters['ahbl.org Open Relays']['name'] = 'ahbl.org Open Relays List';
  709.     $filters['ahbl.org Open Relays']['link'] = 'http://www.ahbl.org/';
  710.     $filters['ahbl.org Open Relays']['dns'] = 'dnsbl.ahbl.org';
  711.     $filters['ahbl.org Open Relays']['result'] = '127.0.0.2';
  712.     $filters['ahbl.org Open Relays']['comment'] =
  713.         _("FREE - ahbl.org Open Relays - Another list of Open Relays.");
  714.  
  715.     $filters['ahbl.org SPAM Source']['prefname'] = 'filters_spam_2mb_ss';
  716.     $filters['ahbl.org SPAM Source']['name'] = 'ahbl.org SPAM Source List';
  717.     $filters['ahbl.org SPAM Source']['link'] = 'http://www.ahbl.org/';
  718.     $filters['ahbl.org SPAM Source']['dns'] = 'dnsbl.ahbl.org';
  719.     $filters['ahbl.org SPAM Source']['result'] = '127.0.0.4';
  720.     $filters['ahbl.org SPAM Source']['comment'] =
  721.         _("FREE - ahbl.org SPAM Source - List of Direct SPAM Sources.");
  722.  
  723.     $filters['ahbl.org SPAM ISPs']['prefname'] = 'filters_spam_2mb_isp';
  724.     $filters['ahbl.org SPAM ISPs']['name'] = 'ahbl.org SPAM-friendly ISP List';
  725.     $filters['ahbl.org SPAM ISPs']['link'] = 'http://www.ahbl.org/';
  726.     $filters['ahbl.org SPAM ISPs']['dns'] = 'dnsbl.ahbl.org';
  727.     $filters['ahbl.org SPAM ISPs']['result'] = '127.0.0.7';
  728.     $filters['ahbl.org SPAM ISPs']['comment'] =
  729.         _("FREE - ahbl.org SPAM ISPs - List of SPAM-friendly ISPs.");
  730.  
  731.     $filters['Leadmon DUL']['prefname'] = 'filters_spam_lm_dul';
  732.     $filters['Leadmon DUL']['name'] = 'Leadmon.net DUL List';
  733.     $filters['Leadmon DUL']['link'] = 'http://www.leadmon.net/spamguard/';
  734.     $filters['Leadmon DUL']['dns'] = 'spamguard.leadmon.net';
  735.     $filters['Leadmon DUL']['result'] = '127.0.0.2';
  736.     $filters['Leadmon DUL']['comment'] =
  737.         _("FREE - Leadmon DUL - Another list of Dial-up or otherwise dynamically assigned IPs.");
  738.  
  739.     $filters['Leadmon SPAM Source']['prefname'] = 'filters_spam_lm_ss';
  740.     $filters['Leadmon SPAM Source']['name'] = 'Leadmon.net SPAM Source List';
  741.     $filters['Leadmon SPAM Source']['link'] = 'http://www.leadmon.net/spamguard/';
  742.     $filters['Leadmon SPAM Source']['dns'] = 'spamguard.leadmon.net';
  743.     $filters['Leadmon SPAM Source']['result'] = '127.0.0.3';
  744.     $filters['Leadmon SPAM Source']['comment'] =
  745.         _("FREE - Leadmon SPAM Source - List of IPs Leadmon.net has received SPAM directly from.");
  746.  
  747.     $filters['Leadmon Bulk Mailers']['prefname'] = 'filters_spam_lm_bm';
  748.     $filters['Leadmon Bulk Mailers']['name'] = 'Leadmon.net Bulk Mailers List';
  749.     $filters['Leadmon Bulk Mailers']['link'] = 'http://www.leadmon.net/spamguard/';
  750.     $filters['Leadmon Bulk Mailers']['dns'] = 'spamguard.leadmon.net';
  751.     $filters['Leadmon Bulk Mailers']['result'] = '127.0.0.4';
  752.     $filters['Leadmon Bulk Mailers']['comment'] =
  753.         _("FREE - Leadmon Bulk Mailers - Bulk mailers that do not require confirmed opt-in or that have allowed known spammers to become clients and abuse their services.");
  754.  
  755.     $filters['Leadmon Open Relays']['prefname'] = 'filters_spam_lm_or';
  756.     $filters['Leadmon Open Relays']['name'] = 'Leadmon.net Open Relays List';
  757.     $filters['Leadmon Open Relays']['link'] = 'http://www.leadmon.net/spamguard/';
  758.     $filters['Leadmon Open Relays']['dns'] = 'spamguard.leadmon.net';
  759.     $filters['Leadmon Open Relays']['result'] = '127.0.0.5';
  760.     $filters['Leadmon Open Relays']['comment'] =
  761.         _("FREE - Leadmon Open Relays - Single Stage Open Relays that are not listed on other active RBLs.");
  762.  
  763.     $filters['Leadmon Multi-stage']['prefname'] = 'filters_spam_lm_ms';
  764.     $filters['Leadmon Multi-stage']['name'] = 'Leadmon.net Multi-Stage Relay List';
  765.     $filters['Leadmon Multi-stage']['link'] = 'http://www.leadmon.net/spamguard/';
  766.     $filters['Leadmon Multi-stage']['dns'] = 'spamguard.leadmon.net';
  767.     $filters['Leadmon Multi-stage']['result'] = '127.0.0.6';
  768.     $filters['Leadmon Multi-stage']['comment'] =
  769.         _("FREE - Leadmon Multi-stage - Multi-Stage Open Relays that are not listed on other active RBLs and that have sent SPAM to Leadmon.net.");
  770.  
  771.     $filters['Leadmon SpamBlock']['prefname'] = 'filters_spam_lm_sb';
  772.     $filters['Leadmon SpamBlock']['name'] = 'Leadmon.net SpamBlock Sites List';
  773.     $filters['Leadmon SpamBlock']['link'] = 'http://www.leadmon.net/spamguard/';
  774.     $filters['Leadmon SpamBlock']['dns'] = 'spamguard.leadmon.net';
  775.     $filters['Leadmon SpamBlock']['result'] = '127.0.0.7';
  776.     $filters['Leadmon SpamBlock']['comment'] =
  777.         _("FREE - Leadmon SpamBlock - Sites on this listing have sent Leadmon.net direct SPAM from IPs in netblocks where the entire block has no DNS mappings. It's a list of BLOCKS of IPs being used by people who have SPAMmed Leadmon.net.");
  778.  
  779.     $filters['NJABL Open Relays']['prefname'] = 'filters_spam_njabl_or';
  780.     $filters['NJABL Open Relays']['name'] = 'NJABL Open Relay/Direct Spam Source List';
  781.     $filters['NJABL Open Relays']['link'] = 'http://www.njabl.org/';
  782.     $filters['NJABL Open Relays']['dns'] = 'dnsbl.njabl.org';
  783.     $filters['NJABL Open Relays']['result'] = '127.0.0.2';
  784.     $filters['NJABL Open Relays']['comment'] =
  785.         _("FREE, for now - Not Just Another Blacklist - Both Open Relays and Direct SPAM Sources.");
  786.  
  787.     $filters['NJABL DUL']['prefname'] = 'filters_spam_njabl_dul';
  788.     $filters['NJABL DUL']['name'] = 'NJABL Dial-ups List';
  789.     $filters['NJABL DUL']['link'] = 'http://www.njabl.org/';
  790.     $filters['NJABL DUL']['dns'] = 'dnsbl.njabl.org';
  791.     $filters['NJABL DUL']['result'] = '127.0.0.3';
  792.     $filters['NJABL DUL']['comment'] =
  793.         _("FREE, for now - Not Just Another Blacklist - Dial-up IPs.");
  794.  
  795.     $filters['Conf DSBL.ORG Relay']['prefname'] = 'filters_spam_dsbl_conf_ss';
  796.     $filters['Conf DSBL.ORG Relay']['name'] = 'DSBL.org Confirmed Relay List';
  797.     $filters['Conf DSBL.ORG Relay']['link'] = 'http://www.dsbl.org/';
  798.     $filters['Conf DSBL.ORG Relay']['dns'] = 'list.dsbl.org';
  799.     $filters['Conf DSBL.ORG Relay']['result'] = '127.0.0.2';
  800.     $filters['Conf DSBL.ORG Relay']['comment'] =
  801.         _("FREE - Distributed Sender Boycott List - Confirmed Relays");
  802.  
  803.     $filters['Conf DSBL.ORG Multi-Stage']['prefname'] = 'filters_spam_dsbl_conf_ms';
  804.     $filters['Conf DSBL.ORG Multi-Stage']['name'] = 'DSBL.org Confirmed Multi-Stage Relay List';
  805.     $filters['Conf DSBL.ORG Multi-Stage']['link'] = 'http://www.dsbl.org/';
  806.     $filters['Conf DSBL.ORG Multi-Stage']['dns'] = 'multihop.dsbl.org';
  807.     $filters['Conf DSBL.ORG Multi-Stage']['result'] = '127.0.0.2';
  808.     $filters['Conf DSBL.ORG Multi-Stage']['comment'] =
  809.         _("FREE - Distributed Sender Boycott List - Confirmed Multi-stage Relays");
  810.  
  811.     $filters['UN-Conf DSBL.ORG']['prefname'] = 'filters_spam_dsbl_unc';
  812.     $filters['UN-Conf DSBL.ORG']['name'] = 'DSBL.org UN-Confirmed Relay List';
  813.     $filters['UN-Conf DSBL.ORG']['link'] = 'http://www.dsbl.org/';
  814.     $filters['UN-Conf DSBL.ORG']['dns'] = 'unconfirmed.dsbl.org';
  815.     $filters['UN-Conf DSBL.ORG']['result'] = '127.0.0.2';
  816.     $filters['UN-Conf DSBL.ORG']['comment'] =
  817.         _("FREE - Distributed Sender Boycott List - UN-Confirmed Relays");
  818.  
  819.     foreach ($filters as $Key => $Value) {
  820.         $filters[$Key]['enabled'] = getPref($data_dir, $username,
  821.             $filters[$Key]['prefname']);
  822.     }
  823.  
  824.     return $filters;
  825. }
  826.  
  827. /**
  828.  * FIXME: Undocumented function
  829.  * @access private
  830.  */
  831. function remove_filter ($id) {
  832.     global $data_dir, $username;
  833.  
  834.     while ($nextFilter = getPref($data_dir, $username, 'filter' .
  835.         ($id + 1))) {
  836.         setPref($data_dir, $username, 'filter' . $id, $nextFilter);
  837.         $id ++;
  838.     }
  839.  
  840.     removePref($data_dir, $username, 'filter' . $id);
  841. }
  842.  
  843. /**
  844.  * FIXME: Undocumented function
  845.  * @access private
  846.  */
  847. function filter_swap($id1, $id2) {
  848.     global $data_dir, $username;
  849.  
  850.     $FirstFilter = getPref($data_dir, $username, 'filter' . $id1);
  851.     $SecondFilter = getPref($data_dir, $username, 'filter' . $id2);
  852.  
  853.     if ($FirstFilter && $SecondFilter) {
  854.         setPref($data_dir, $username, 'filter' . $id2, $FirstFilter);
  855.         setPref($data_dir, $username, 'filter' . $id1, $SecondFilter);
  856.     }
  857. }
  858.  
  859. /**
  860.  * This update the filter rules when renaming or deleting folders
  861.  * @param array $args 
  862.  * @access private
  863.  */
  864. function update_for_folder ($args) {
  865.     $old_folder = $args[0];
  866.         $new_folder = $args[2];
  867.         $action = $args[1];
  868.     global $plugins, $data_dir, $username;
  869.     $filters = array();
  870.     $filters = load_filters();
  871.     $filter_count = count($filters);
  872.     $p = 0;
  873.     for ($i=0;$i<$filter_count;$i++) {
  874.         if (!empty($filters)) {
  875.             if ($old_folder == $filters[$i]['folder']) {
  876.                 if ($action == 'rename') {
  877.                     $filters[$i]['folder'] = $new_folder;
  878.                     setPref($data_dir, $username, 'filter'.$i,
  879.                     $filters[$i]['where'].','.$filters[$i]['what'].','.$new_folder);
  880.                 }
  881.                 elseif ($action == 'delete') {
  882.                     remove_filter($p);
  883.                     $p = $p-1;
  884.                 }
  885.             }
  886.         $p++;
  887.         }
  888.     }
  889. }
  890.  
  891. /**
  892.  * Display formated error message
  893.  * @param string $string text message
  894.  * @return string html formated text message
  895.  * @access private
  896.  */
  897. function do_error($string) {
  898.     global $color;
  899.     echo "<p align=\"center\"><font color=\"$color[2]\">";
  900.     echo $string;
  901.     echo "</font></p>\n";
  902. }
  903. ?>

Documentation generated on Sat, 07 Oct 2006 16:31:13 +0300 by phpDocumentor 1.3.0RC6