Source for file setup.php

Documentation is available at setup.php

  1. <?php
  2.  
  3. /**
  4.  **  mail_fetch/setup.php
  5.  *
  6.  **  Copyright (c) 1999-2006 The SquirrelMail Project Team
  7.  **  Licensed under the GNU GPL. For full terms see the file COPYING.
  8.  *
  9.  **  Setup of the mailfetch plugin.
  10.  *
  11.  **  $Id: setup.php,v 1.15.2.9 2006/02/03 22:27:52 jervfors Exp $
  12.  **/
  13.  
  14.  
  15. /** @ignore*/
  16.  
  17. if (! defined('SM_PATH')) define('SM_PATH','../../');
  18.  
  19. // FIXME: do we have to include them here.
  20. require_once(SM_PATH . 'plugins/mail_fetch/functions.php' );
  21.  
  22. function squirrelmail_plugin_init_mail_fetch() {
  23.     global $squirrelmail_plugin_hooks;
  24.  
  25.     $squirrelmail_plugin_hooks['menuline']['mail_fetch'] = 'mail_fetch_link';
  26.     $squirrelmail_plugin_hooks['loading_prefs']['mail_fetch'] = 'mail_fetch_load_pref';
  27.     $squirrelmail_plugin_hooks['login_verified']['mail_fetch'] = 'mail_fetch_setnew';
  28.     $squirrelmail_plugin_hooks['left_main_before']['mail_fetch'] = 'mail_fetch_login';
  29.     $squirrelmail_plugin_hooks['optpage_register_block']['mail_fetch'] = 'mailfetch_optpage_register_block';
  30.     $squirrelmail_plugin_hooks['rename_or_delete_folder']['mail_fetch'] = 'mail_fetch_folderact';
  31. }
  32.  
  33. function mail_fetch_link() {
  34.     displayInternalLink('plugins/mail_fetch/fetch.php', _("Fetch"), '');
  35.     echo '&nbsp;&nbsp;';
  36. }
  37.  
  38. function mail_fetch_load_pref() {
  39.     global $data_dir;
  40.     global $mailfetch_server_number;
  41.     global $mailfetch_cypher, $mailfetch_port_;
  42.     global $mailfetch_server_,$mailfetch_alias_,$mailfetch_user_,$mailfetch_pass_;
  43.     global $mailfetch_lmos_, $mailfetch_uidl_, $mailfetch_login_, $mailfetch_fref_;
  44.     global $PHP_SELF;
  45.  
  46.     sqgetGlobalVar('username', $username, SQ_SESSION);
  47.  
  48.     if( stristr( $PHP_SELF, 'mail_fetch' ) ) {
  49.         $mailfetch_server_number = getPref($data_dir, $username, 'mailfetch_server_number', 0);
  50.         $mailfetch_cypher = getPref($data_dir, $username, 'mailfetch_cypher', 'on' );
  51.         if ($mailfetch_server_number<1) $mailfetch_server_number=0;
  52.         for ($i=0;$i<$mailfetch_server_number;$i++) {
  53.             $mailfetch_server_[$i] = getPref($data_dir, $username, "mailfetch_server_$i");
  54.             $mailfetch_port_[$i] = getPref($data_dir, $username, "mailfetch_port_$i");
  55.             $mailfetch_alias_[$i]  = getPref($data_dir, $username, "mailfetch_alias_$i");
  56.             $mailfetch_user_[$i]   = getPref($data_dir, $username, "mailfetch_user_$i");
  57.             $mailfetch_pass_[$i]   = getPref($data_dir, $username, "mailfetch_pass_$i");
  58.             $mailfetch_lmos_[$i]   = getPref($data_dir, $username, "mailfetch_lmos_$i");
  59.             $mailfetch_login_[$i]  = getPref($data_dir, $username, "mailfetch_login_$i");
  60.             $mailfetch_fref_[$i]   = getPref($data_dir, $username, "mailfetch_fref_$i");
  61.             $mailfetch_uidl_[$i]   = getPref($data_dir, $username, "mailfetch_uidl_$i");
  62.             if( $mailfetch_cypher   == 'on' ) $mailfetch_pass_[$i] =    decrypt( $mailfetch_pass_[$i] );
  63.         }
  64.     }
  65. }
  66.  
  67. function mail_fetch_login() {
  68.     require_once (SM_PATH . 'include/validate.php');
  69.     include_once (SM_PATH . 'functions/imap.php');
  70.     require_once (SM_PATH . 'plugins/mail_fetch/class.POP3.php');
  71.     require_once (SM_PATH . 'plugins/mail_fetch/functions.php');
  72.  
  73.     global $data_dir, $imapServerAddress, $imapPort;
  74.         
  75.     sqgetGlobalVar('username', $username, SQ_SESSION);
  76.     sqgetGlobalVar('key',      $key,      SQ_COOKIE);
  77.  
  78.     $mailfetch_newlog = getPref($data_dir, $username, 'mailfetch_newlog');
  79.  
  80.     $outMsg = '';
  81.  
  82.     $mailfetch_server_number = getPref($data_dir, $username, 'mailfetch_server_number');
  83.     if (!isset($mailfetch_server_number)) $mailfetch_server_number=0;
  84.     $mailfetch_cypher = getPref($data_dir, $username, 'mailfetch_cypher');
  85.     if ($mailfetch_server_number<1) $mailfetch_server_number=0;
  86.  
  87.     for ($i_loop=0;$i_loop<$mailfetch_server_number;$i_loop++) {
  88.  
  89.         $mailfetch_login_[$i_loop] = getPref($data_dir, $username, "mailfetch_login_$i_loop");
  90.         $mailfetch_fref_[$i_loop] = getPref($data_dir, $username, "mailfetch_fref_$i_loop");
  91.         $mailfetch_pass_[$i_loop] = getPref($data_dir, $username, "mailfetch_pass_$i_loop");
  92.         if( $mailfetch_cypher == 'on' )
  93.             $mailfetch_pass_[$i_loop] = decrypt( $mailfetch_pass_[$i_loop] );
  94.  
  95.         if( $mailfetch_pass_[$i_loop] <> '' &&          // Empty passwords no allowed
  96.             ( ( $mailfetch_login_[$i_loop] == 'on' &&  $mailfetch_newlog == 'on' ) || $mailfetch_fref_[$i_loop] == 'on' ) ) {
  97.  
  98.             $mailfetch_server_[$i_loop] = getPref($data_dir, $username, "mailfetch_server_$i_loop");
  99.             $mailfetch_port_[$i_loop] = getPref($data_dir, $username , "mailfetch_port_$i_loop");
  100.             $mailfetch_alias_[$i_loop] = getPref($data_dir, $username, "mailfetch_alias_$i_loop");
  101.             $mailfetch_user_[$i_loop] = getPref($data_dir, $username, "mailfetch_user_$i_loop");
  102.             $mailfetch_lmos_[$i_loop] = getPref($data_dir, $username, "mailfetch_lmos_$i_loop");
  103.             $mailfetch_uidl_[$i_loop] = getPref($data_dir, $username, "mailfetch_uidl_$i_loop");
  104.             $mailfetch_subfolder_[$i_loop] = getPref($data_dir, $username, "mailfetch_subfolder_$i_loop");
  105.  
  106.             $mailfetch_server=$mailfetch_server_[$i_loop];
  107.             $mailfetch_port=$mailfetch_port_[$i_loop];
  108.             $mailfetch_user=$mailfetch_user_[$i_loop];
  109.             $mailfetch_alias=$mailfetch_alias_[$i_loop];
  110.             $mailfetch_pass=$mailfetch_pass_[$i_loop];
  111.             $mailfetch_lmos=$mailfetch_lmos_[$i_loop];
  112.             $mailfetch_login=$mailfetch_login_[$i_loop];
  113.             $mailfetch_uidl=$mailfetch_uidl_[$i_loop];
  114.             $mailfetch_subfolder=$mailfetch_subfolder_[$i_loop];
  115.  
  116.             // $outMsg .= "$mailfetch_alias checked<br>";
  117.  
  118.             // $outMsg .= "$mailfetch_alias_[$i_loop]<br>";
  119.  
  120.             $pop3 = new POP3($mailfetch_server, 60);
  121.  
  122.             if (!$pop3->connect($mailfetch_server,$mailfetch_port)) {
  123.                 $outMsg .= _("Warning, ") . $pop3->ERROR;
  124.                 continue;
  125.             }
  126.  
  127.             $imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 10);
  128.  
  129.             $Count = $pop3->login($mailfetch_user, $mailfetch_pass);
  130.             if (($Count == false || $Count == -1) && $pop3->ERROR != '') {
  131.                 $outMsg .= _("Login Failed:") . $pop3->ERROR;
  132.                 continue;
  133.             }
  134.  
  135.             //   register_shutdown_function($pop3->quit());
  136.  
  137.             $msglist = $pop3->uidl();
  138.  
  139.             $i = 1;
  140.             for ($j = 1; $j < sizeof($msglist); $j++) {
  141.                 if ($msglist["$j"] == $mailfetch_uidl) {
  142.                     $i = $j+1;
  143.                     break;
  144.                 }
  145.             }
  146.  
  147.             if ($Count < $i) {
  148.                 $pop3->quit();
  149.                 continue;
  150.             }
  151.             if ($Count == 0) {
  152.                 $pop3->quit();
  153.                 continue;
  154.             } else {
  155.                 $newmsgcount = $Count - $i + 1;
  156.             }
  157.  
  158.             // Faster to get them all at once
  159.             $mailfetch_uidl = $pop3->uidl();
  160.  
  161.             if (! is_array($mailfetch_uidl) && $mailfetch_lmos == 'on')
  162.                 $outMsg .= _("Server does not support UIDL.");
  163.  
  164.             for (; $i <= $Count; $i++) {
  165.                 if (!ini_get('safe_mode'))
  166.                     set_time_limit(20); // 20 seconds per message max
  167.                 $Message = "";
  168.                 $MessArray = $pop3->get($i);
  169.  
  170.                 if ( (!$MessArray) or (gettype($MessArray) != "array")) {
  171.                     $outMsg .= _("Warning, ") . $pop3->ERROR;
  172.                     continue 2;
  173.                 }
  174.  
  175.                 while (list($lineNum, $line) = each ($MessArray)) {
  176.                     $Message .= $line;
  177.                 }
  178.  
  179.                 /**
  180.                  * check if mail folder is not null and subscribed
  181.                  * Function can check if mail folder is only unsubscribed 
  182.                  * and use unsubscribed mail folder.
  183.                  */
  184.                 if ($mailfetch_subfolder=='' || 
  185.                     ! mail_fetch_check_folder($imap_stream,$mailfetch_subfolder)) {
  186.                     fputs($imap_stream, "A3$i APPEND INBOX {" . strlen($Message) . "}\r\n");
  187.                 } else {
  188.                     fputs($imap_stream, "A3$i APPEND $mailfetch_subfolder {" . strlen($Message) . "}\r\n");
  189.                 }
  190.                 $Line = fgets($imap_stream, 1024);
  191.                 if (substr($Line, 0, 1) == '+') {
  192.                     fputs($imap_stream, $Message);
  193.                     fputs($imap_stream, "\r\n");
  194.                     sqimap_read_data($imap_stream, "A3$i", false, $response, $message);
  195.  
  196.                     if ($mailfetch_lmos != 'on') {
  197.                         $pop3->delete($i);
  198.                     }
  199.                 } else {
  200.                     echo "$Line";
  201.                     $outMsg .= _("Error Appending Message!");
  202.                 }
  203.             }
  204.  
  205.             $pop3->quit();
  206.             sqimap_logout($imap_stream);
  207.             if (is_array($mailfetch_uidl)) {
  208.                 setPref($data_dir,$username,"mailfetch_uidl_$i_loop", array_pop($mailfetch_uidl));
  209.             }
  210.         }
  211.     }
  212.  
  213.     if( trim( $outMsg ) <> '' ) {
  214.         echo '<br><font size="1">' . _("Mail Fetch Result:") . "<br>$outMsg</font>";
  215.     }
  216.     if( $mailfetch_newlog == 'on' ) {
  217.         setPref($data_dir, $username, 'mailfetch_newlog', 'off');
  218.     }
  219. }
  220.  
  221. function mail_fetch_setnew()    {
  222.  
  223.     global $data_dir;
  224.     require_once(SM_PATH . 'functions/prefs.php');
  225.  
  226.     sqgetGlobalVar('username', $username, SQ_SESSION);
  227.  
  228.     setPref( $data_dir, $username, 'mailfetch_newlog', 'on' );
  229. }
  230.  
  231. function mailfetch_optpage_register_block() {
  232.     global $optpage_blocks;
  233.  
  234.     $optpage_blocks[] = array(
  235.         'name' => _("POP3 Fetch Mail"),
  236.         'url'  => '../plugins/mail_fetch/options.php',
  237.         'desc' => _("This configures settings for downloading email from a POP3 mailbox to your account on this server."),
  238.         'js'   => false
  239.         );
  240. }
  241.  
  242. function mail_fetch_folderact($args) {
  243.     global $username, $data_dir;
  244.  
  245.     if (empty($args) || !is_array($args)) {
  246.         return;
  247.     }
  248.  
  249.     /* Should be 3 ars, 1: old folder, 2: action, 3: new folder */
  250.     if (count($args) != 3) {
  251.         return;
  252.     }
  253.  
  254.     list($old_folder, $action, $new_folder) = $args;
  255.  
  256.     $mailfetch_server_number = getPref($data_dir, $username, 'mailfetch_server_number');
  257.  
  258.     for ($i = 0; $i < $mailfetch_server_number; $i++) {
  259.         $mailfetch_subfolder = getPref($data_dir, $username, 'mailfetch_subfolder_' . $i);
  260.  
  261.         if ($mailfetch_subfolder != $old_folder) {
  262.             continue;
  263.         }
  264.  
  265.         if ($action == 'delete') {
  266.             setPref($data_dir, $username, 'mailfetch_subfolder_' . $i, 'INBOX');
  267.         } elseif ($action == 'rename') {
  268.             setPref($data_dir, $username, 'mailfetch_subfolder_' . $i, $new_folder);
  269.         }
  270.     }
  271. }
  272. ?>

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