Filter modified with Brent Bice instructions.
authorphilippe_mingo <philippe_mingo@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Thu, 22 Nov 2001 22:29:16 +0000 (22:29 +0000)
committerphilippe_mingo <philippe_mingo@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Thu, 22 Nov 2001 22:29:16 +0000 (22:29 +0000)
git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@1788 7612ce4b-ef26-0410-bec9-ea0150e637f0

plugins/filters/filters.php
plugins/filters/options.php
plugins/filters/setup.php

index f52bb34..7b517f6 100644 (file)
 <?php
-   /*
-    * 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.
-    *
-    * $Id$    
-    *
-    */
-    
-   function start_filters() {
-      global $username, $key, $imapServerAddress, $imapPort, $imap,
-         $imap_general, $filters, $imap_stream, $imapConnection, 
-        $UseSeparateImapConnection, $AllowSpamFilters;
-
-      // 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) {
-      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 "<small><tt><font color=\"#CC0000\">Size is $size</font></tt></small><br>\n";
+                }
+
+                $total_size = 0;
+                do {
+                $read = fgets($imap_stream, 9096);
+                if ($imap_general_debug) {
+                    echo "<small><tt><font color=\"#CC0000\">$read</font></tt></small><br>\n";
+                    flush();
+                }
+                $data[] = $read;
+                $total_size += strlen($read);
+                } while ($total_size < $size);
+
+                $size = 0;
+            }
+            // For debugging purposes
+            if ($imap_general_debug) {
+                echo "<small><tt><font color=\"#CC0000\">$read</font></tt></small><br>\n";
+                flush();
+            }
+        } while (true);
+
+        $response = $regs[1];
+        $message = trim($regs[2]);
+
+        if ($imap_general_debug) echo '--<br>';
+
+        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 "<br><b><font color=$color[2]>\n";
+                echo _("ERROR : Could not complete request.");
+                echo "</b><br>\n";
+                echo _("Reason Given: ");
+                echo $message . "</font><br>\n";
+                exit;
+            }
+        } else if ($response == 'BAD') {
+            set_up_language($squirrelmail_language);
+            echo "<br><b><font color=$color[2]>\n";
+            echo _("ERROR : Bad or malformed request.");
+            echo "</b><br>\n";
+            echo _("Server responded: ");
+            echo $message . "</font><br>\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@<theirdomain>.");
-      
-      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@<theirdomain>.");
+
+        $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);
+        }
+    }
 ?>
index 21582d9..9d658a5 100644 (file)
@@ -1,30 +1,29 @@
 <?php
-   /*
-    *  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.
-    *
-    *  $Id$
-    *
-    */
-    
-   chdir('..');
+   /**
+    **  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.
+    **
+    **/
+
+   chdir ('..');
    require_once('../src/validate.php');
    require_once('../functions/page_header.php');
    require_once('../functions/imap.php');
 
    if (isset($filter_submit)) {
       if (!isset($theid)) $theid = 0;
-      $filter_what = str_replace(',', ' ', $filter_what);
+      $filter_what = ereg_replace(",", " ", $filter_what);
       $filter_what = str_replace("\\\\", "\\", $filter_what);
       $filter_what = str_replace("\\\"", "\"", $filter_what);
       $filter_what = str_replace("\"", "&quot;", $filter_what);
 
-      setPref($data_dir, $username, 'filter'.$theid, $filter_where.','.$filter_what.','.$filter_folder);
-      $filters[$theid]['where'] = $filter_where;
-      $filters[$theid]['what'] = $filter_what;
-      $filters[$theid]['folder'] = $filter_folder;
+      setPref($data_dir, $username, "filter".$theid, $filter_where.",".$filter_what.",".$filter_folder);
+      $filters[$theid]["where"] = $filter_where;
+      $filters[$theid]["what"] = $filter_what;
+      $filters[$theid]["folder"] = $filter_folder;
    } elseif (isset($spam_submit) && $AllowSpamFilters) {
       $spam_filters = load_spam_filters();
       setPref($data_dir, $username, 'filters_spam_folder', $filters_spam_folder_set);
       setPref($data_dir, $username, 'filters_spam_scan', $filters_spam_scan_set);
-      foreach ($spam_filters as $Key => $Value)
-      {
+      foreach ($spam_filters as $Key => $Value) {
           $input = $spam_filters[$Key]['prefname'] . '_set';
           setPref($data_dir, $username, $spam_filters[$Key]['prefname'],
               $$input);
         '</a>] - [<a href="../../src/options.php">' . _("Done") . '</a>]</center><br>' .
         '<table border=0 cellpadding=3 cellspacing=0 align=center>';
 
-        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 "<tr bgcolor=\"$clr\"><td><small>".
+            "[<a href=\"options.php?theid=$i&action=edit\">" . _("Edit") . '</a>]'.
+            '</small></td><td><small>'.
+            "[<a href=\"options.php?theid=$i&action=delete\">" . _("Delete") . '</a>]'.
+            '</small></td><td align=center><small>[';
+
+        if (isset($filters[$i + 1])) {
+            echo "<a href=\"options.php?theid=$i&action=move_down\">" . _("Down") . '</a>';
+            if ($i > 0) {
+                echo ' | ';
             }
+        }
+        if ($i > 0) {
+            echo "<a href=\"options.php?theid=$i&action=move_up\">" . _("Up") . '</a>';
+        }
+        echo ']</small></td><td> - ';
+        printf( _("If <b>%s</b> contains <b>%s</b> then move to <b>%s</b>"), _($filters[$i]['where']), $filters[$i]['what'], $fdr );
+        echo '</td></tr>';
+
+    }
+    echo '</table>'.
+        '<table width=80% align=center border=0 cellpadding=2 cellspacing=0">'.
+            '<tr><td>&nbsp</td></tr>'.
+        '</table>';
+
+
+    if ($AllowSpamFilters) {
 
-            $fdr = ($folder_prefix)?str_replace($folder_prefix, "", $filters[$i]["folder"]):$filters[$i]["folder"];
+        echo "<table width=95% align=center border=0 cellpadding=2 cellspacing=0 bgcolor=\"$color[0]\">".
+                '<tr><th align=center>' . _("Spam Filtering") . '</th></tr>'.
+            '</table>';
+        if (! isset($action) || $action != 'spam') {
 
-            echo "<tr bgcolor=\"$clr\"><td><small>".
-                 "[<a href=\"options.php?theid=$i&action=edit\">" . _("Edit") . '</a>]'.
-                 '</small></td><td><small>'.
-                 "[<a href=\"options.php?theid=$i&action=delete\">" . _("Delete") . '</a>]'.
-                 '</small></td><td align=center><small>[';
+            echo '<p align=center>[<a href="options.php?action=spam">' . _("Edit") . '</a>]<br>';
+            printf( _("Spam is sent to <b>%s</b>"), ($filters_spam_folder?$filters_spam_folder:_("[<i>not set yet</i>]") ) );
+            echo '<br>';
+            printf( _("Spam scan is limited to <b>%s</b>"), (($filters_spam_scan == 'new')?_("New Messages Only"):_("All Messages") ) );
+            echo '</p>'.
+                "<table border=0 cellpadding=3 cellspacing=0 align=center bgcolor=\"$color[0]\">";
 
-            if (isset($filters[$i + 1])) {
-                echo "<a href=\"options.php?theid=$i&action=move_down\">" . _("Down") . '</a>';
-                if ($i > 0) {
-                    echo ' | ';
+            $spam_filters = load_spam_filters();
+
+            foreach ($spam_filters as $Key => $Value) {
+                echo '<tr><th align=center>';
+
+                if ($spam_filters[$Key]['enabled']) {
+                    echo _("ON");
+                } else {
+                    echo _("OFF");
                 }
-            }
-            if ($i > 0) {
-                echo "<a href=\"options.php?theid=$i&action=move_up\">" . _("Up") . '</a>';
-            }
-            echo ']</small></td><td> - ';
-            printf( _("If <b>%s</b> contains <b>%s</b> then move to <b>%s</b>"), _($filters[$i]['where']), $filters[$i]['what'], $fdr );
-            echo '</td></tr>';
 
-        }
+                echo '</th><td>&nbsp;-&nbsp;</td><td>';
 
-        echo '</table>'.
-             '<table width=80% align=center border=0 cellpadding=2 cellspacing=0">'.
-                '<tr><td>&nbsp</td></tr>'.
-             '</table>';
-
-        if ($AllowSpamFilters) {
-
-            echo "<table width=95% align=center border=0 cellpadding=2 cellspacing=0 bgcolor=\"$color[0]\">".
-                    '<tr><th align=center>' . _("Spam Filtering") . '</th></tr>'.
-                 '</table>';
-            if (! isset($action) || $action != 'spam') {
-
-                echo '<p align=center>[<a href="options.php?action=spam">' . _("Edit") . '</a>]<br>';
-                printf( _("Spam is sent to <b>%s</b>"), ($filters_spam_folder?$filters_spam_folder:_("[<i>not set yet</i>]") ) );
-                echo '<br>';
-                printf( _("Spam scan is limited to <b>%s</b>"), (($filters_spam_scan == 'new')?_("New Messages Only"):_("All Messages") ) );
-                echo '</p>'.
-                     "<table border=0 cellpadding=3 cellspacing=0 align=center bgcolor=\"$color[0]\">";
-
-                $spam_filters = load_spam_filters();
-
-                foreach ($spam_filters as $Key => $Value) {
-                    echo '<tr><th align=center>';
-
-                    if ($spam_filters[$Key]['enabled']) {
-                        echo _("ON");
-                    } else {
-                        echo _("OFF");
-                    }
-
-                    echo '</th><td>&nbsp;-&nbsp;</td><td>';
-
-                    if ($spam_filters[$Key]['link']) {
-                      echo '<a href="' .
-                           $spam_filters[$Key]['link'] .
-                           '" target="_blank">';
-                    }
-
-                    echo $spam_filters[$Key]['name'];
-                    if ($spam_filters[$Key]['link']) {
-                      echo '</a>';
-                    }
-                    echo "</td></tr>\n";
+                if ($spam_filters[$Key]['link']) {
+                echo '<a href="' .
+                    $spam_filters[$Key]['link'] .
+                    '" target="_blank">';
                 }
-                echo '</table>';
+
+                echo $spam_filters[$Key]['name'];
+                if ($spam_filters[$Key]['link']) {
+                echo '</a>';
+                }
+                echo "</td></tr>\n";
             }
+            echo '</table>';
+        }
     }
 
     if (isset($action) && ($action == 'add' || $action == 'edit')) {
             $theid = count($filters);
         }
         echo '<center>'.
-             '<form action="options.php" method=post>'.
-             '<br><table cellpadding=2 cellspacing=0 border=0>'.
-               '<tr>'.
-                  '<td>&nbsp;</td>'.
-                  '<td>'.
-                     '<select name=filter_where>';
+            '<form action="options.php" method=post>'.
+            '<br><table cellpadding=2 cellspacing=0 border=0>'.
+            '<tr>'.
+                '<td>&nbsp;</td>'.
+                '<td>'.
+                    '<select name=filter_where>';
 
         $L = isset($filters[$theid]['where']);
 
         $sel = (($L && $filters[$theid]['where'] == 'From')?'selected':'');
         echo "<option value=\"From\" $sel>" . _ ("From") . '</option>';
-        
+
         $sel = (($L && $filters[$theid]['where'] == 'To')?'selected':'');
         echo "<option value=\"To\" $sel>" . _ ("To") . '</option>';
 
         echo "<option value=\"Subject\" $sel>" . _ ("Subject") . '</option>';
 
         echo         '</select>'.
-                  '</td>'.
-               '</tr>'.
-               '<tr>'.
-                  '<td align=right>'.
-                     _("Contains:").
-                  '</td>'.
-                  '<td>'.
-                     '<input type=text size=32 name=filter_what value="';
+                '</td>'.
+            '</tr>'.
+            '<tr>'.
+                '<td align=right>'.
+                    _("Contains:").
+                '</td>'.
+                '<td>'.
+                    '<input type=text size=32 name=filter_what value="';
         if (isset($filters[$theid]['what'])) {
-            echo $filters[$theid]["what"]; 
+            echo $filters[$theid]["what"];
         }
         echo '">'.
-                  '</td>'.
-               '</tr>'.
-               '<tr>'.
-                  '<td>'.
-                     _("Move to:").
-                  '</td>'.
-                  '<td>'.
-                     '<tt>'.
-                     '<select name=filter_folder>';
+                '</td>'.
+            '</tr>'.
+            '<tr>'.
+                '<td>'.
+                    _("Move to:").
+                '</td>'.
+                '<td>'.
+                    '<tt>'.
+                    '<select name=filter_folder>';
 
         for ($i = 0; $i < count($boxes); $i++) {
             if (! in_array('noselect', $boxes[$i]['flags'])) {
                 $box2 = str_replace(' ', '&nbsp;', $boxes[$i]['formatted']);
                 if (isset($filters[$theid]['folder']) &&
                     $filters[$theid]['folder'] == $box)
-                   echo "<OPTION VALUE=\"$box\" SELECTED>$box2</option>";
+                echo "<OPTION VALUE=\"$box\" SELECTED>$box2</option>";
                 else
-                   echo "<OPTION VALUE=\"$box\">$box2</option>";
+                echo "<OPTION VALUE=\"$box\">$box2</option>";
             }
         }
         echo         '</tt>'.
-                     '</select>'.
-                  '</td>'.
-               '</tr>'.
+                    '</select>'.
+                '</td>'.
+            '</tr>'.
             '</table>'.
             '<input type=submit name=filter_submit value=' . _("Submit") . '>'.
             "<input type=hidden name=theid value=$theid>".
         $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 '<form method=post action="options.php">'.
-             '<center>'.
-             '<table width=85% cellpadding=2 cellspacing=0 border=0>'.
+            '<center>'.
+            '<table width=85% cellpadding=2 cellspacing=0 border=0>'.
                 '<tr>'.
-                   '<th align=right nowrap>' . _("Move spam to:") . '</th>'.
-                   '<td><select name="filters_spam_folder_set">';
-                   
+                '<th align=right nowrap>' . _("Move spam to:") . '</th>'.
+                '<td><select name="filters_spam_folder_set">';
+
         for ($i = 0; $i < count($boxes); $i++) {
             if (! in_array('noselect', $boxes[$i]['flags'])) {
                 $box = $boxes[$i]['unformatted'];
                 $box2 = str_replace(' ', '&nbsp;', $boxes[$i]['formatted']);
                 if ($filters_spam_folder == $box)
-                 echo "<OPTION VALUE=\"$box\" SELECTED>$box2</OPTION>\n";
+                echo "<OPTION VALUE=\"$box\" SELECTED>$box2</OPTION>\n";
                 else
-                 echo "<OPTION VALUE=\"$box\">$box2</OPTION>\n";
+                echo "<OPTION VALUE=\"$box\">$box2</OPTION>\n";
             }
         }
         echo    '</select>'.
-               '</td>'.
-             '</tr>'.
-             '<tr><td></td><td>' .
-             _("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.") .
-             '</td></tr>'.
-             '<tr>'.
+            '</td>'.
+            '</tr>'.
+            '<tr><td></td><td>' .
+            _("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.") .
+            '</td></tr>'.
+            '<tr>'.
                 '<th align=right nowrap>' . _("What to Scan:") . '</th>'.
                 '<td><select name="filters_spam_scan_set">'.
-                   '<option value=""';
-        if ($filters_spam_scan == '') 
+                '<option value=""';
+        if ($filters_spam_scan == '')
             echo ' SELECTED';
         echo '>' . _("All messages") . '</option>'.
-                   '<option value="new"';
-        if ($filters_spam_scan == 'new') 
+                '<option value="new"';
+        if ($filters_spam_scan == 'new')
             echo ' SELECTED';
         echo '>' . _("Only unread messages") . '</option>' .
                 '</select>'.
-             '</td>'.
-           '</tr>'.
-           '<tr>'.
-             '<td></td><td>'.
-             _("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.").
-             '</td></tr>';
+            '</td>'.
+        '</tr>'.
+        '<tr>'.
+            '<td></td><td>'.
+            _("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.").
+            '</td></tr>';
 
         $spam_filters = load_spam_filters();
 
         foreach ($spam_filters as $Key => $Value) {
             echo "<tr><th align=right nowrap>$Key</th>\n" .
-                 '<td><input type=checkbox name="' .
-                 $spam_filters[$Key]['prefname'] .
-                 '_set"';
+                '<td><input type=checkbox name="' .
+                $spam_filters[$Key]['prefname'] .
+                '_set"';
             if ($spam_filters[$Key]['enabled'])
-               echo ' CHECKED';
+            echo ' CHECKED';
             echo '> - ';
             if ($spam_filters[$Key]['link']) {
-               echo '<a href="' .
+            echo '<a href="' .
                     $spam_filters[$Key]['link'] .
                     '" target="_blank">';
             }
             echo $spam_filters[$Key]['name'];
             if ($spam_filters[$Key]['link']) {
-               echo '</a>';
+            echo '</a>';
             }
             echo '</td></tr><tr><td></td><td>' .
-                 $spam_filters[$Key]['comment'] .
-                 "</td></tr>\n";
+                $spam_filters[$Key]['comment'] .
+                "</td></tr>\n";
         }
         echo '<tr><td colspan=2 align=center><input type=submit name="spam_submit" value="' . _("Save") . '"></td></tr>'.
-             '</table>'.
-             '</center>'.
-             '</form>';
+            '</table>'.
+            '</center>'.
+            '</form>';
 
         sqimap_logout($imapConnection);
     }
-?>
\ No newline at end of file
+?>
index 2fd817c..5169dba 100644 (file)
@@ -1,28 +1,29 @@
 <?php
-   /*
-    *  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.
-    *
-    *  $Id$
-    *
-    */
+   /**
+    **  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.
+    **
+    **  $Id$
+    **
+    **/
 
    // Set this to true if you have problems -- check the README file
    // Note:  This doesn't work all of the time (No idea why)