Source for file options.php

Documentation is available at options.php

  1. <?php
  2.  
  3. /**
  4.  * mail_fetch/options.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: options.php,v 1.21.2.11 2006/02/03 22:27:52 jervfors Exp $
  12.  */
  13.  
  14. define('SM_PATH','../../');
  15.  
  16. require_once(SM_PATH . 'include/validate.php');
  17. require_once(SM_PATH . 'functions/imap.php');
  18. require_once(SM_PATH . 'include/load_prefs.php');
  19.  
  20. /* globals */
  21. sqgetGlobalVar('username',   $username,   SQ_SESSION);
  22. sqgetGlobalVar('key',        $key,        SQ_COOKIE);
  23. sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
  24. sqgetGlobalVar('delimiter',  $delimiter,  SQ_SESSION);
  25.     
  26. if(!sqgetGlobalVar('mf_cypher', $mf_cypher, SQ_POST)) {
  27.     $mf_cypher = '';
  28. }
  29. if(! sqgetGlobalVar('mf_action', $mf_action, SQ_POST) ) {
  30.     if (sqgetGlobalVar('mf_action_mod', $mf_action_mod, SQ_POST)) {
  31.         $mf_action = 'Modify';
  32.     }
  33.     elseif (sqgetGlobalVar('mf_action_del', $mf_action_del, SQ_POST)) {
  34.         $mf_action = 'Delete';
  35.     }
  36.     else {
  37.         $mf_action = 'config';
  38.     }
  39. }
  40.  
  41. sqgetGlobalVar('mf_sn',            $mf_sn,            SQ_POST);
  42. sqgetGlobalVar('mf_server',        $mf_server,        SQ_POST);
  43. sqgetGlobalVar('mf_port',          $mf_port,          SQ_POST);
  44. sqgetGlobalVar('mf_alias',         $mf_alias,         SQ_POST);
  45. sqgetGlobalVar('mf_user',          $mf_user,          SQ_POST);
  46. sqgetGlobalVar('mf_pass',          $mf_pass,          SQ_POST);
  47. sqgetGlobalVar('mf_subfolder',     $mf_subfolder,     SQ_POST);
  48. sqgetGlobalVar('mf_login',         $mf_login,         SQ_POST);
  49. sqgetGlobalVar('mf_fref',          $mf_fref,          SQ_POST);
  50. sqgetGlobalVar('mf_lmos',          $mf_lmos,          SQ_POST);
  51. sqgetGlobalVar('submit_mailfetch', $submit_mailfetch, SQ_POST);
  52.  
  53.  
  54. /* end globals */
  55.  
  56.     displayPageHeader( $color, 'None' );
  57.  
  58.     switch( $mf_action ) {
  59.     case 'add':
  60.         if ($mf_sn<1) $mf_sn=0;
  61.         if (!isset($mf_server)) return;
  62.         setPref($data_dir,$username,"mailfetch_server_$mf_sn", (isset($mf_server)?$mf_server:""));
  63.         setPref($data_dir,$username,"mailfetch_port_$mf_sn", (isset($mf_port)?$mf_port:110));
  64.         setPref($data_dir,$username,"mailfetch_alias_$mf_sn", (isset($mf_alias)?$mf_alias:""));
  65.         setPref($data_dir,$username,"mailfetch_user_$mf_sn",(isset($mf_user)?$mf_user:""));
  66.         setPref($data_dir,$username,"mailfetch_pass_$mf_sn",(isset($mf_pass)?encrypt( $mf_pass )    :""));
  67.         if( isset($mf_cypher) && $mf_cypher <> 'on' ) SetPref($data_dir,$username,'mailfetch_cypher',    'on');
  68.         setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
  69.         setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
  70.         setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
  71.         setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
  72.         $mf_sn++;
  73.         setPref($data_dir,$username,'mailfetch_server_number', $mf_sn);
  74.         $mf_action = 'config';
  75.         break;
  76.     case 'confirm_modify':
  77.         //modify    a server
  78.                 if (!isset($mf_server)) return;
  79.         setPref($data_dir,$username,"mailfetch_server_$mf_sn", (isset($mf_server)?$mf_server:""));
  80.         setPref($data_dir,$username,"mailfetch_port_$mf_sn", (isset($mf_port)?$mf_port:110));
  81.         setPref($data_dir,$username,"mailfetch_alias_$mf_sn", (isset($mf_alias)?$mf_alias:""));
  82.         setPref($data_dir,$username,"mailfetch_user_$mf_sn",(isset($mf_user)?$mf_user:""));
  83.         setPref($data_dir,$username,"mailfetch_pass_$mf_sn",(isset($mf_pass)?encrypt( $mf_pass )    :""));
  84.         if( $mf_cypher <> 'on' ) setPref($data_dir,$username,"mailfetch_cypher", 'on');
  85.         setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
  86.         setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
  87.         setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
  88.         setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
  89.         $mf_action = 'config';
  90.         break;
  91.     case 'confirm_delete':
  92.         //delete    a server
  93.                 $mailfetch_server_number    = getPref($data_dir, $username, "mailfetch_server_number");
  94.         if ($mf_sn+1==$mailfetch_server_number) {
  95.             //is the last server, whe can only decrase $mailfetch_server_number
  96.                         $mailfetch_server_number--;
  97.             setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
  98.         } else {
  99.             //if not the last, all the sequel server come up one step
  100.             //then whe decrase $mailfetch_server_number
  101.                         $mailfetch_server_number--;
  102.             for ($i=$mf_sn;$i<$mailfetch_server_number;$i++) {
  103.                 $tmp=$i+1;
  104.                 setPref($data_dir,$username,'mailfetch_server_'.$i,
  105.                     getPref($data_dir,$username, 'mailfetch_server_'.$tmp));
  106.                 setPref($data_dir,$username,'mailfetch_port_'.$i,
  107.                     getPref($data_dir,$username, 'mailfetch_port_'.$tmp));
  108.                 setPref($data_dir,$username,'mailfetch_alias_'.$i,
  109.                     getPref($data_dir,$username, 'mailfetch_alias_'.$tmp));
  110.                 setPref($data_dir,$username,'mailfetch_user_'.$i,
  111.                     getPref($data_dir,$username, 'mailfetch_user_'.$tmp));
  112.                 setPref($data_dir,$username,'mailfetch_pass_'.$i,
  113.                     getPref($data_dir,$username, 'mailfetch_pass_'.$tmp));
  114.                 setPref($data_dir,$username,'mailfetch_lmos_'.$i,
  115.                     getPref($data_dir,$username, 'mailfetch_lmos_'.$tmp));
  116.                 setPref($data_dir,$username,'mailfetch_login_'.$i,
  117.                     getPref($data_dir,$username, 'mailfetch_login_'.$tmp));
  118.                 setPref($data_dir,$username,'mailfetch_fref_'.$i,
  119.                     getPref($data_dir,$username, 'mailfetch_fref_'.$tmp));
  120.                 setPref($data_dir,$username,'mailfetch_subfolder_'.$i,
  121.                     getPref($data_dir,$username, 'mailfetch_subfolder_'.$tmp));
  122.         setPref($data_dir,$username,'mailfetch_uidl_'.$i,
  123.                     getPref($data_dir,$username, 'mailfetch_uidl_'.$tmp));
  124.             }
  125.             setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
  126.         }
  127.         $mf_action = 'config';
  128.         break;
  129.     }
  130.  
  131.     $mailfetch_server_number = getPref($data_dir, $username, 'mailfetch_server_number', 0);
  132.     $mailfetch_cypher = getPref( $data_dir, $username, 'mailfetch_cypher' );
  133.     if ($mailfetch_server_number<1) {
  134.         $mailfetch_server_number=0;
  135.     }
  136.     for ($i=0;$i<$mailfetch_server_number;$i++) {
  137.         $mailfetch_server_[$i] = getPref($data_dir, $username, "mailfetch_server_$i");
  138.         $mailfetch_port_[$i] = getPref($data_dir, $username, "mailfetch_port_$i");
  139.         $mailfetch_alias_[$i] = getPref($data_dir, $username, "mailfetch_alias_$i");
  140.         $mailfetch_user_[$i] = getPref($data_dir, $username, "mailfetch_user_$i");
  141.         $mailfetch_pass_[$i] = getPref($data_dir, $username, "mailfetch_pass_$i");
  142.         $mailfetch_lmos_[$i] = getPref($data_dir, $username, "mailfetch_lmos_$i");
  143.         $mailfetch_login_[$i] = getPref($data_dir, $username, "mailfetch_login_$i");
  144.         $mailfetch_fref_[$i] = getPref($data_dir, $username, "mailfetch_fref_$i");
  145.         $mailfetch_uidl_[$i] = getPref($data_dir, $username, "mailfetch_uidl_$i");
  146.         $mailfetch_subfolder_[$i] = getPref($data_dir, $username, "mailfetch_subfolder_$i");
  147.         if( $mailfetch_cypher == 'on' ) $mailfetch_pass_[$i] = decrypt( $mailfetch_pass_[$i] );
  148.     }
  149.  
  150.  
  151.     echo '<br><form method="post" action="'.$PHP_SELF.'">' .
  152.             html_tag( 'table',
  153.                 html_tag( 'tr',
  154.                     html_tag( 'td',
  155.                         '<b>' . _("Remote POP server settings") . '</b>',
  156.                     'center', $color[0] )
  157.                 ),
  158.             'center', '', 'width="95%"' ) .
  159.             html_tag( 'table',
  160.                 html_tag( 'tr',
  161.                     html_tag( 'td',
  162.                         _("You should be aware that the encryption used to store your password is not perfectly secure. However, if you are using pop, there is inherently no encryption anyway. Additionally, the encryption that we do to save it on the server can be undone by a hacker reading the source to this file." ) ,
  163.                     'left' )
  164.                 ) .
  165.                 html_tag( 'tr',
  166.                     html_tag( 'td',
  167.                         _("If you leave password empty, it will be asked when you fetch mail.") ,
  168.                     'left' )
  169.                 ) .
  170.                 html_tag( 'tr',
  171.                     html_tag( 'td',
  172.                         '<input type=checkbox name=mf_cypher ' .
  173.                         (($mailfetch_cypher=='on')?'checked>':'>') .
  174.                         _("Encrypt passwords (informative only)") ,
  175.                     'right' )
  176.                 ) ,
  177.             'center', '', 'width="95%"' );
  178.  
  179.     switch( $mf_action ) {
  180.     case 'config':
  181.         echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
  182.                     html_tag( 'tr',
  183.                         html_tag( 'td', '<b>' . _("Add Server") . '</b>', 'center', $color[9] )
  184.                     ) .
  185.                     html_tag( 'tr' ) .
  186.                         html_tag( 'td', '', 'center', $color[0] ) .
  187.  
  188.             "<INPUT TYPE=\"hidden\" NAME=\"mf_sn\" VALUE=\"$mailfetch_server_number\">" .
  189.             '<INPUT TYPE="hidden" NAME="mf_action" VALUE="add">' .
  190.             html_tag( 'table' ) .
  191.                 html_tag( 'tr',
  192.                     html_tag( 'th', _("Server:"), 'right' ) .
  193.                     html_tag( 'td', '<input type=text name=mf_server value="" size=40>', 'left' )
  194.                 ) .
  195.                 html_tag( 'tr',
  196.                     html_tag( 'th', _("Port:"), 'right') .
  197.                     html_tag( 'td', '<input type=text name=mf_port value="110" size=20>', 'left')
  198.                 ) .
  199.                 html_tag( 'tr',
  200.                     html_tag( 'th', _("Alias:"), 'right' ) .
  201.                     html_tag( 'td', '<input type=text name=mf_alias value="" size=20>', 'left' )
  202.                 ) .
  203.                 html_tag( 'tr',
  204.                     html_tag( 'th', _("Username:"), 'right' ) .
  205.                     html_tag( 'td', '<input type=text name=mf_user value="" size=20>', 'left' )
  206.                 ) .
  207.                 html_tag( 'tr',
  208.                     html_tag( 'th', _("Password:"), 'right' ) .
  209.                     html_tag( 'td', '<input type=password name=mf_pass value="" size=20>', 'left' )
  210.                 ) .
  211.                 html_tag( 'tr' ) .
  212.                     html_tag( 'th', _("Store in Folder:"), 'right' ) .
  213.                     html_tag( 'td', '', 'left' );
  214.         $imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
  215.         $boxes = sqimap_mailbox_list($imapConnection);
  216.         echo '<select name="mf_subfolder">';
  217.  
  218.         $selected = 0;
  219.         if ( isset($mf_subfolder) )
  220.           $selected = array(strtolower($mf_subfolder));
  221.         echo sqimap_mailbox_option_list($imapConnection, $selected);
  222.         echo '</select></td></tr>' .
  223.                 html_tag( 'tr',
  224.                     html_tag( 'th', '&nbsp;', 'right' ) .
  225.                     html_tag( 'td', '<input type="checkbox" name="mf_lmos" checked>' . _("Leave mail on server"), 'left' )
  226.                 ) .
  227.                 html_tag( 'tr',
  228.                     html_tag( 'th', '&nbsp;', 'right' ) .
  229.                     html_tag( 'td', '<input type="checkbox" name="mf_login">' . _("Check mail at login"), 'left' )
  230.                 ) .
  231.                 html_tag( 'tr',
  232.                     html_tag( 'th', '&nbsp;', 'right' ) .
  233.                     html_tag( 'td', '<input type="checkbox" name="mf_fref">' . _("Check mail at folder refresh"), 'left' )
  234.                 ) .
  235.                 html_tag( 'tr',
  236.                     html_tag( 'td',
  237.                         '<input type=submit name="submit_mailfetch" value="' . _("Add Server") . '">',
  238.                     'center', '', 'colspan="2"' )
  239.                 ) .
  240.             '</table></td></tr></table></form>';
  241.  
  242.         // Modify Server
  243.                 echo '<font size=-5><BR></font>' .
  244.             html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
  245.                 html_tag( 'tr',
  246.                     html_tag( 'td', '<b>' . _("Modify Server") . '</b>', 'center', $color[9] )
  247.                 ) .
  248.                 html_tag( 'tr' ) .
  249.                     html_tag( 'td', '', 'center', $color[0] );
  250.         if ($mailfetch_server_number>0) {
  251.             echo "<form action=\"$PHP_SELF\" method=\"post\" target=\"_self\">";
  252.             echo '<b>' . _("Server Name:") . '</b> <select name="mf_sn">';
  253.             for ($i=0;$i<$mailfetch_server_number;$i++) {
  254.                 echo "<option value=\"$i\">" .
  255.                     htmlspecialchars( (($mailfetch_alias_[$i]=='')?$mailfetch_server_[$i]:$mailfetch_alias_[$i])) . "</option>";
  256.             }
  257.             echo '</select>'.
  258.                  '&nbsp;&nbsp;<INPUT TYPE=submit name=mf_action_mod value="' . _("Modify") . '">'.
  259.                  '&nbsp;&nbsp;<INPUT TYPE=submit name=mf_action_del value="' . _("Delete") . '">'.
  260.                  '</form>';
  261.         } else {
  262.             echo _("No servers known.");
  263.         }
  264.         echo '</td></tr></table>';
  265.         break;
  266.     case 'Delete':                                     //erase confirmation about a server
  267.                 echo html_tag( 'table',
  268.                     html_tag( 'tr',
  269.                         html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
  270.                     ) ,
  271.                 'center', '', 'width="95%" cellpadding="5" cellspacing="1"' ) .
  272.             '<br>' .
  273.             html_tag( 'table',
  274.                 html_tag( 'tr',
  275.                     html_tag( 'td', '<b>' . _("Confirm Deletion of a Server") . '</b>', 'center', $color[9] )
  276.                 ) .
  277.                 html_tag( 'tr',
  278.                     html_tag( 'td',
  279.                         "<INPUT TYPE=\"hidden\" NAME=\"mf_sn\" VALUE=\"$mf_sn\">" .
  280.                         '<INPUT TYPE="hidden" NAME="mf_action" VALUE="confirm_delete">' .
  281.                         '<br>' . _("Selected Server:") . " <b>" . htmlspecialchars($mailfetch_server_[$mf_sn]) . "</b><br>" .
  282.                         _("Confirm delete of selected server?") . '<br><br>' .
  283.                         '<input type=submit name=submit_mailfetch value="' . _("Confirm Delete") . '">' .
  284.                         '<br></form>' ,
  285.                     'center', $color[9] )
  286.                 ) ,
  287.             'center', '', 'width="70%" cellpadding="5" cellspacing="1"' );
  288.         break;                                  //modify a server
  289.         case 'Modify':
  290.         echo html_tag( 'table',
  291.                     html_tag( 'tr',
  292.                         html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
  293.                     ) ,
  294.                 'center', '', 'width="95%" cellpadding="5" cellspacing="1"' ) .
  295.             '<br>' .
  296.             html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
  297.                 html_tag( 'tr',
  298.                     html_tag( 'td', '<b>' . _("Modify Server") . '</b>', 'center', $color[9] )
  299.                 ) .
  300.                 html_tag( 'tr' ) .
  301.                     html_tag( 'td', '', 'center', $color[0] ) .
  302.  
  303.             "<INPUT TYPE=\"hidden\" NAME=\"mf_sn\" VALUE=\"$mf_sn\">" .
  304.             '<INPUT TYPE="hidden" NAME="mf_action" VALUE="confirm_modify">' .
  305.             html_tag( 'table' ) .
  306.                 html_tag( 'tr',
  307.                     html_tag( 'th', _("Server:"), 'right' ) .
  308.                     html_tag( 'td', '<input type="text" name="mf_server" value="' . htmlspecialchars($mailfetch_server_[$mf_sn]) . '" size="40">', 'left' )
  309.                 ) .
  310.                 html_tag( 'tr',
  311.                     html_tag( 'th', _("Port:"), 'right' ) .
  312.                     html_tag( 'td', '<input type="text" name="mf_port" value="' . htmlspecialchars($mailfetch_port_[$mf_sn]) . '" size="40">', 'left' )
  313.                 ) .
  314.                 html_tag( 'tr',
  315.                     html_tag( 'th', _("Alias:"), 'right' ) .
  316.                     html_tag( 'td', '<input type="text" name="mf_alias" value="' . htmlspecialchars($mailfetch_alias_[$mf_sn]) . '" size="40">', 'left' )
  317.                 ) .
  318.                 html_tag( 'tr',
  319.                     html_tag( 'th', _("Username:"), 'right' ) .
  320.                     html_tag( 'td', '<input type="text" name="mf_user" value="' . htmlspecialchars($mailfetch_user_[$mf_sn]) . '" size="20">', 'left' )
  321.                 ) .
  322.                 html_tag( 'tr',
  323.                     html_tag( 'th', _("Password:"), 'right' ) .
  324.                     html_tag( 'td', '<input type="password" name="mf_pass" value="' . htmlspecialchars($mailfetch_pass_[$mf_sn]) . '" size="20">', 'left' )
  325.                 ) .
  326.                 html_tag( 'tr' ) .
  327.                     html_tag( 'th', _("Store in Folder:"), 'right' ) .
  328.                     html_tag( 'td', '', 'left' );
  329.  
  330.         $imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
  331.         $boxes = sqimap_mailbox_list($imapConnection);
  332.         echo '<select name="mf_subfolder">';
  333.         $selected = 0;
  334.         if ( isset($mailfetch_subfolder_[$mf_sn]) ) {
  335.             $selected = array(strtolower($mailfetch_subfolder_[$mf_sn]));
  336.     } 
  337.         echo sqimap_mailbox_option_list($imapConnection, $selected) .
  338.              '</select></td></tr>' .
  339.  
  340.                 html_tag( 'tr',
  341.                     html_tag( 'th', '&nbsp;', 'right' ) .
  342.                     html_tag( 'td',
  343.                         '<input type=checkbox name=mf_lmos ' . (($mailfetch_lmos_[$mf_sn] == 'on')?'checked':'') .
  344.                         '>' . _("Leave Mail on Server") ,
  345.                     'left' )
  346.                 ) .
  347.                 html_tag( 'tr',
  348.                     html_tag( 'th', '&nbsp;', 'right' ) .
  349.                     html_tag( 'td',
  350.                         '<input type=checkbox name=mf_login ' . ( ($mailfetch_login_[$mf_sn] == 'on')?'checked':'') .
  351.                         '>' . _("Check mail at login"),
  352.                     'left' )
  353.                 ) .
  354.                 html_tag( 'tr',
  355.                     html_tag( 'th', '&nbsp;', 'right' ) .
  356.                     html_tag( 'td',
  357.                         '<input type=checkbox name=mf_fref ' . ( ($mailfetch_fref_[$mf_sn] == 'on')?'checked':'') .
  358.                         '>' . _("Check mail at folder refresh") ,
  359.                     'left' )
  360.                 ) .
  361.                 html_tag( 'tr',
  362.                     html_tag( 'td',
  363.                         '<input type=submit name="submit_mailfetch" value="' . _("Modify Server") . '">',
  364.                     'center', '', 'colspan="2"' )
  365.                 ) .
  366.  
  367.             '</table></form></td></tr></table>';
  368.         break;
  369.     default:                                    //unsupported action
  370.                 echo '</form>' .
  371.         html_tag( 'table',
  372.             html_tag( 'tr',
  373.                 html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
  374.             ) ,
  375.         'center', '', 'width="95%"' ) .
  376.         '<br>' .
  377.         html_tag( 'table',
  378.             html_tag( 'tr',
  379.                 html_tag( 'td', '<b>' . _("Undefined Function") . '</b>', 'center', $color[9] ) .
  380.                 html_tag( 'td', '<b>' .  _("The function you requested is unknown.") . '</b>', 'center', $color[0] )
  381.             ) ,
  382.         'center', '', 'width="70%"' );
  383.     }
  384.  
  385.     ?>
  386. </body></html>

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