X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=src%2Fleft_main.php;h=9354d26583f2f89d99839f55a44060e0d7eef761;hb=0bcd11eb0e4f9df4de129efe9046955c479d832b;hp=6a0825ebc22aed1c2f3f79e9f166f4ab73550cde;hpb=10455998ff36ac23c25799914656fd4f13c14b6f;p=squirrelmail.git diff --git a/src/left_main.php b/src/left_main.php index 6a0825eb..74e1b68f 100644 --- a/src/left_main.php +++ b/src/left_main.php @@ -1,161 +1,777 @@ ', - $color[8], $color[4], $color[7], $color[7], $color[7]); - echo ""; - exit; - } +/** + * left_main.php + * + * Copyright (c) 1999-2005 The SquirrelMail Project Team + * Licensed under the GNU GPL. For full terms see the file COPYING. + * + * This is the code for the left bar. The left bar shows the folders + * available, and has cookie information. + * + * @version $Id$ + * @package squirrelmail + */ - if (!isset($config_php)) - include("../config/config.php"); - if (!isset($array_php)) - include("../functions/array.php"); - if (!isset($strings_php)) - include("../functions/strings.php"); - if (!isset($imap_php)) - include("../functions/imap.php"); - if (!isset($page_header_php)) - include("../functions/page_header.php"); - if (!isset($i18n_php)) - include("../functions/i18n.php"); - if (!isset($plugin_php)) - include("../functions/plugin.php"); - - // open a connection on the imap port (143) - $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 10); // the 10 is to hide the output - - /** If it was a successful login, lets load their preferences **/ - include("../src/load_prefs.php"); - - displayHtmlHeader(); - - function formatMailboxName($imapConnection, $mailbox, $real_box, $delimeter, $unseen) { - global $folder_prefix, $trash_folder, $sent_folder; - global $color, $move_to_sent, $move_to_trash; - global $unseen_notify, $unseen_type; - - $mailboxURL = urlencode($real_box); - - if ($unseen_notify == 2 && $real_box == "INBOX") { - $unseen = sqimap_unseen_messages($imapConnection, $numUnseen, $real_box); - if ($unseen_type == 1 && $unseen > 0) { - $unseen_string = "($unseen)"; - $unseen_found = true; - } else if ($unseen_type == 2) { - $numMessages = sqimap_get_num_messages($imapConnection, $real_box); - $unseen_string = "($unseen/$numMessages)"; - $unseen_found = true; - } - } else if ($unseen_notify == 3) { - $unseen = sqimap_unseen_messages($imapConnection, $numUnseen, $real_box); - if ($unseen_type == 1 && $unseen > 0) { - $unseen_string = "($unseen)"; - $unseen_found = true; - } else if ($unseen_type == 2) { - $numMessages = sqimap_get_num_messages($imapConnection, $real_box); - $unseen_string = "($unseen/$numMessages)"; - $unseen_found = true; - } - } - - $line .= ""; - if ($unseen > 0) - $line .= ""; - - $special_color = false; - if ((strtolower($real_box) == "inbox") || - (($real_box == $trash_folder) && ($move_to_trash)) || - (($real_box == $sent_folder) && ($move_to_sent))) - $special_color = true; - - if ($special_color == true) { - $line .= ""; - $line .= replace_spaces($mailbox); - $line .= ""; - } else { - $line .= ""; - $line .= replace_spaces($mailbox); - $line .= ""; - } +/** + * Path for SquirrelMail required files. + * @ignore + */ +define('SM_PATH','../'); - if ($unseen > 0) - $line .= ""; - - if ($unseen_found) { - $line .= " $unseen_string"; - } +/* SquirrelMail required files. */ +require_once(SM_PATH . 'include/validate.php'); +require_once(SM_PATH . 'functions/imap.php'); +require_once(SM_PATH . 'functions/plugin.php'); +require_once(SM_PATH . 'functions/page_header.php'); +require_once(SM_PATH . 'functions/html.php'); +require_once(SM_PATH . 'functions/date.php'); + +/* These constants are used for folder stuff. */ +define('SM_BOX_UNCOLLAPSED', 0); +define('SM_BOX_COLLAPSED', 1); + +/* --------------------- FUNCTIONS ------------------------- */ + + +/** + * Recursive function to output a tree of folders. + * It is called on a list of boxes and iterates over that tree. + * + * @since 1.3.0 + */ +function ListBoxes ($boxes, $j=0 ) { + global $data_dir, $username, $color, $unseen_notify, $unseen_type, + $move_to_trash, $trash_folder, $collapse_folders, $imapConnection, + $use_icons, $icon_theme, $use_special_folder_color; + + // stop condition + if (empty($boxes)) { + return; + } + + $pre = ''; + $end = ''; + $collapse = false; + $unseen_found = false; + $unseen = 0; + + $mailbox = $boxes->mailboxname_full; + $leader = str_repeat(' ',$j); + $mailboxURL = urlencode($mailbox); + + /* get unseen/total messages information */ + /* Only need to display info when option is set */ + if (isset($unseen_notify) && ($unseen_notify > 1) && + (($boxes->unseen !== false) || ($boxes->total !== false))) { + + if ($boxes->unseen !== false) + $unseen = $boxes->unseen; + + /* + Should only display unseen info if the folder is inbox + or you set the option for all folders + */ + + if ((strtolower($mailbox) == 'inbox') || ($unseen_notify == 3)) { + $unseen_string = $unseen; + + /* If users requests, display message count too */ + if (isset($unseen_type) && ($unseen_type == 2) && ($boxes->total !== false)) { + $unseen_string .= '/' . $boxes->total; + } + + $unseen_string = "($unseen_string)"; + + /* + Finally allow the script to display the values by setting a boolean. + This can only occur if the unseen count is great than 0 (if you have + unseen count only), or you have the message count too. + */ + if (($unseen > 0) || (isset($unseen_type) && ($unseen_type ==2))) { + $unseen_found = true; + } + } + } + + if (isset($boxes->mbxs[0]) && $collapse_folders) { + $collapse = getPref($data_dir, $username, 'collapse_folder_' . $mailbox); + $collapse = ($collapse == '' ? SM_BOX_UNCOLLAPSED : $collapse); + + $link = '$leader

'; + } else { + $link .= "unfold=$mailboxURL\">$leader+ "; + } + } else { + if ($use_icons && $icon_theme != 'none') { + $link .= "fold=$mailboxURL\">$leader

'; + } else { + $link .= "fold=$mailboxURL\">$leader- "; + } + } + $link .= ''; + $pre .= $link; + } else { + $pre.= $leader . ' '; + } + + /* If there are unseen message, bold the line. */ + if (($move_to_trash) && ($mailbox == $trash_folder)) { + if (! isset($boxes->total)) { + $boxes->total = sqimap_status_messages($imapConnection, $mailbox); + } + $pre .= ""; + if ($unseen > 0) { + $pre .= ''; + $end .= ''; + } + $end .= ''; + if ($boxes->total > 0) { + /* Print unseen information. */ + if ($unseen_found) { + $end .= " $unseen_string"; + } + $end .= "\n\t" . + ' ['._("Purge").']'. + ''; + } + } else { + if (!$boxes->is_noselect) { + $pre .= ""; + if ($unseen > 0) { + $pre .= ''; + $end .= ''; + } + $end .= ''; + } + /* Print unseen information. */ + if ($unseen_found) { + $end .= " $unseen_string"; + } + + } + + $font = ''; + $fontend = ''; + if ($use_special_folder_color && $boxes->is_special) { + $font = ""; + $fontend = ""; + } elseif ( $boxes->is_noselect ) { + $font = ""; + $fontend = ''; + } + + // let plugins fiddle with end of line + $end .= concat_hook_function('left_main_after_each_folder', + array(isset($numMessages) ? $numMessages : '', + $boxes->mailboxname_full, $imapConnection)); + + $end .= ''; + + if (!$boxes->is_root) { + echo "" . $pre .$font. + str_replace( + array(' ','<','>'), + array(' ','<','>'), + $boxes->mailboxname_sub) . + $fontend . $end. '
' . "\n"; + $j++; + } + + if (!$collapse || $boxes->is_root) { + for ($i = 0; $i mbxs); $i++) { + ListBoxes($boxes->mbxs[$i],$j); + } + } +} + +function ListAdvancedBoxes ($boxes, $mbx, $j='ID.0000' ) { + global $data_dir, $username, $color, $unseen_notify, $unseen_type, + $move_to_trash, $trash_folder, $collapse_folders, $use_special_folder_color; + + if (empty($boxes)) { + return; + } + + /* use_folder_images only works if the images exist in ../images */ + $use_folder_images = true; + + $pre = ''; + $end = ''; + $collapse = false; + $unseen_found = false; + $unseen = 0; + + $mailbox = $boxes->mailboxname_full; + $mailboxURL = urlencode($mailbox); + + /* get unseen/total messages information */ + /* Only need to display info when option is set */ + if (isset($unseen_notify) && ($unseen_notify > 1) && + (($boxes->unseen !== false) || ($boxes->total !== false))) { + + if ($boxes->unseen !== false) + $unseen = $boxes->unseen; + + /* + Should only display unseen info if the folder is inbox + or you set the option for all folders + */ + + if ((strtolower($mailbox) == 'inbox') || ($unseen_notify == 3)) { + $unseen_string = $unseen; + + /* If users requests, display message count too */ + if (isset($unseen_type) && ($unseen_type == 2) && ($boxes->total !== false)) { + $unseen_string .= '/' . $boxes->total; + } + + $unseen_string = "($unseen_string)"; + + /* + Finally allow the script to display the values by setting a boolean. + This can only occur if the unseen count is great than 0 (if you have + unseen count only), or you have the message count too. + */ + if (($unseen > 0) || (isset($unseen_type) && ($unseen_type ==2))) { + $unseen_found = true; + } + } + } + + /* If there are unseen message, bold the line. */ + if ($unseen > 0) { $pre .= ''; } + + /* color special boxes */ + if ($use_special_folder_color && $boxes->is_special) { + $pre .= ""; + $end .= ''; + } + + /* If there are unseen message, close bolding. */ + if ($unseen > 0) { $end .= ''; } + + /* Print unseen information. */ + if ($unseen_found) { + $end .= " $unseen_string"; + } + + if (($move_to_trash) && ($mailbox == $trash_folder)) { + $pre = "" . $pre; + $end .= ''; + $end .= "\n\n" . + ' ['._("Purge").']'. + ''; + } else { + if (!$boxes->is_noselect) { /* \Noselect boxes can't be selected */ + $pre = "" . $pre; + $end .= ''; + } + } - if (($move_to_trash == true) && ($real_box == $trash_folder)) { - $urlMailbox = urlencode($real_box); - $line .= "\n\n"; - $line .= " ("._("purge").")"; - $line .= "\n\n"; + // let plugins fiddle with end of line + global $imapConnection; + $end .= concat_hook_function('left_main_after_each_folder', + array(isset($numMessages) ? $numMessages : '', + $boxes->mailboxname_full, $imapConnection)); + + if (!$boxes->is_root) { + if ($use_folder_images) { + if ($boxes->is_inbox) { + $folder_img = '../images/inbox.png'; + } else if ($boxes->is_sent) { + $folder_img = '../images/senti.png'; + } else if ($boxes->is_trash) { + $folder_img = '../images/delitem.png'; + } else if ($boxes->is_draft) { + $folder_img = '../images/draft.png'; + } else if ($boxes->is_noinferiors) { + $folder_img = '../images/folder_noinf.png'; + } else { + $folder_img = '../images/folder.png'; + } + $folder_img = '

'; + } else { + $folder_img = ''; + } + if (!isset($boxes->mbxs[0])) { + echo ' ' . html_tag( 'div', + $pre . $folder_img . + str_replace( array(' ','<','>'), + array(' ','<','>'), + $boxes->mailboxname_sub) . + $end, + 'left', '', 'class="mbx_sub" id="' .$j. '"' ) . "\n"; + } else { + /* get collapse information */ + if ($collapse_folders) { + $form_entry = $j.'F'; + if (isset($mbx) && isset($mbx[$form_entry])) { + $collapse = $mbx[$form_entry]; + setPref($data_dir, $username, 'collapse_folder_'.$boxes->mailboxname_full , + $collapse ? SM_BOX_COLLAPSED : SM_BOX_UNCOLLAPSED); + } else { + $collapse = getPref($data_dir, $username, 'collapse_folder_' . $mailbox); + $collapse = ($collapse == '' ? SM_BOX_UNCOLLAPSED : $collapse); + } + $img_src = ($collapse ? '../images/plus.png' : '../images/minus.png'); + $collapse_link = '' . + "

"; + } else { + $collapse_link=''; + } + echo ' ' . html_tag( 'div', + $collapse_link . $pre . $folder_img . ' '. $boxes->mailboxname_sub . $end , + 'left', '', 'class="mbx_par" id="' .$j. 'P"' ) . "\n"; + echo ' '."\n"; + } + } + + $visible = ($collapse ? ' style="display:none"' : ' style="display:block"'); + if (isset($boxes->mbxs[0]) && !$boxes->is_root) /* mailbox contains childs */ + echo html_tag( 'div', '', 'left', '', 'class="par_area" id='.$j.'.0000 '. $visible ) . "\n"; + + if ($j !='ID.0000') { + $j = $j .'.0000'; + } + for ($i = 0; $i mbxs); $i++) { + $j++; + ListAdvancedBoxes($boxes->mbxs[$i],$mbx,$j); + } + if (isset($boxes->mbxs[0]) && !$boxes->is_root) { + echo ''."\n\n"; + } +} + + + + +/* -------------------- MAIN ------------------------ */ + +/* get globals */ +sqgetGlobalVar('username', $username, SQ_SESSION); +sqgetGlobalVar('key', $key, SQ_COOKIE); +sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION); +sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION); + +sqgetGlobalVar('fold', $fold, SQ_GET); +sqgetGlobalVar('unfold', $unfold, SQ_GET); + +/* end globals */ + +// open a connection on the imap port (143) +// why hide the output? +$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, true); + +/** + * Using stristr since very old preferences may contain "None" and "none". + */ +if (!empty($left_refresh) && + !stristr($left_refresh, 'none')){ + $xtra = "\n\n" . + "\n". + "\n"; +} else { + $xtra = ''; +} + +/** + * $advanced_tree and is a boolean var which is default set to default + * SM behaviour. + * Setting $advanced tree to true causes SM to display a experimental + * mailbox-tree with dhtml behaviour. + * It only works on browsers which supports css and javascript. The used + * javascript is experimental and doesn't support all browsers. + * It has been tested on IE6 an Konquerer 3.0.0-2. + * It is now tested and working on: (please test and update this list) + * Windows: IE 5.5 SP2, IE 6 SP1, Gecko based (Mozilla, Firebird) and Opera7 + * XWindow: ? + * Mac: ? + * In the function ListAdvancedBoxes there is another var $use_folder_images. + * setting this to true is only usefull if the images exists in ../images. + * + * Feel free to experiment with the code and report bugs and enhancements + **/ + +/* set this to true if you want to see a nicer mailboxtree */ +if (empty($advanced_tree)) { + $advanced_tree=false; +} + +if ($advanced_tree) { +$xtra .= << + + + +HEREDOC; + +/* style definitions */ + +$xtra .= << + + + +HEREDOC; +} + +displayHtmlHeader( 'SquirrelMail', $xtra ); +sqgetGlobalVar('auto_create_done',$auto_create_done,SQ_SESSION); +/* If requested and not yet complete, attempt to autocreate folders. */ +if ($auto_create_special && !isset($auto_create_done)) { + $autocreate = array($sent_folder, $trash_folder, $draft_folder); + foreach( $autocreate as $folder ) { + if (($folder != '') && ($folder != 'none')) { + if ( !sqimap_mailbox_exists($imapConnection, $folder)) { + sqimap_mailbox_create($imapConnection, $folder, ''); + } else { + // check for subscription is useless and expensive, just + // surpress the NO response. Unless we're on Mecury, which + // will just subscribe a folder again if it's already + // subscribed. + if ( strtolower($imap_server_type) != 'mercury32' || + !sqimap_mailbox_is_subscribed($imapConnection, $folder) ) { + sqimap_subscribe($imapConnection, $folder, false); + } + } + } + } + + /* Let the world know that autocreation is complete! Hurrah! */ + $auto_create_done = TRUE; + sqsession_register($auto_create_done, 'auto_create_done'); +} + +if ($advanced_tree) { + echo "\n\n"; +} else { + echo "\n\n"; +} + +do_hook('left_main_before'); +if ($advanced_tree) { + /* nice future feature, needs layout !! volunteers? */ + $right_pos = $left_size - 20; +/* echo '

'; + echo ''; + echo '

'; + echo '

'; + echo '

';*/ +} + +echo "\n\n" . + ''. _("Folders") . "
\n\n"; + +if ($date_format != 6) { + /* First, display the clock. */ + if ($hour_format == 1) { + $hr = 'H:i'; + if ($date_format == 4) { + $hr .= ':s'; + } + } else { + if ($date_format == 4) { + $hr = 'g:i:s a'; + } else { + $hr = 'g:i a'; + } + } + + switch( $date_format ) { + case 0: + $clk = date('Y-m-d '.$hr. ' T', time()); + break; + case 1: + $clk = date('m/d/y '.$hr, time()); + break; + case 2: + $clk = date('d/m/y '.$hr, time()); + break; + case 4: + case 5: + $clk = date($hr, time()); + break; + default: + $clk = getDayAbrv( date( 'w', time() ) ) . date( ', ' . $hr, time() ); + } + $clk = str_replace(' ',' ',$clk); + + echo '' + . str_replace(' ', ' ', _("Last Refresh")) + . ":
$clk
\n"; +} + +/* Next, display the refresh button. */ +echo '

['. + _("Check mail") . "]

\n\n"; + +/* Lastly, display the folder list. */ +if ( $collapse_folders ) { + /* If directed, collapse or uncollapse a folder. */ + if (isset($fold)) { + setPref($data_dir, $username, 'collapse_folder_' . $fold, SM_BOX_COLLAPSED); + } else if (isset($unfold)) { + setPref($data_dir, $username, 'collapse_folder_' . $unfold, SM_BOX_UNCOLLAPSED); + } +} + +/* Get unseen/total display prefs */ +$unseen_type = getPref( $data_dir , $username , 'unseen_type' ); +$unseen_notify = getPref( $data_dir , $username , 'unseen_notify' ); + +if (empty($unseen_type)) { + if (!empty($default_unseen_type)) { + $unseen_type = $default_unseen_type; + } else { + $unseen_type = 1; + } +} + +if (empty($unseen_notify)) { + if (!empty($default_unseen_notify)) { + $unseen_notify = $default_unseen_notify; + } else { + $unseen_notify = 0; + } +} + +$boxes = sqimap_mailbox_tree($imapConnection); +if (isset($advanced_tree) && $advanced_tree) { + echo ''."\n"; +} else { + ListBoxes($boxes); +} + +do_hook('left_main_after'); +sqimap_logout($imapConnection); + ?> - +