X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=src%2Fleft_main.php;h=3c1dd21ea5d6cf90bd4f8ae3873e9be3eb5dcd6e;hb=fba9992167e8f8ebe8fba0006b193090e1c07937;hp=3416c3142c2ce049dd5f4659ac10cd72070fc171;hpb=895905c0f766ea03e85deab260b4bb1522dd0e3c;p=squirrelmail.git diff --git a/src/left_main.php b/src/left_main.php index 3416c314..3c1dd21e 100644 --- a/src/left_main.php +++ b/src/left_main.php @@ -1,346 +1,207 @@ 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; - } - } - - $special_color = false; - if ($use_special_folder_color) { - if ((strtolower($real_box) == 'inbox') - || (($real_box == $trash_folder) && ($move_to_trash)) - || (($real_box == $sent_folder) && ($move_to_sent)) - || (($real_box == $draft_folder) && ($save_as_draft))) { - $special_color = true; - } - } - - /* Start off with a blank line. */ - $line = ''; - - /* If there are unseen message, bold the line. */ - if ($unseen > 0) { $line .= ''; } - - /* Crate the link for this folder. */ - $line .= ""; - if ($special_color == true) - $line .= ""; - $line .= str_replace(' ',' ',$mailbox); - if ($special_color == true) - $line .= ""; - $line .= ''; - - /* If there are unseen message, close bolding. */ - if ($unseen > 0) { $line .= ""; } - - /* Print unseen information. */ - if (isset($unseen_found) && $unseen_found) { - $line .= " $unseen_string"; - } - - if (($move_to_trash == true) && ($real_box == $trash_folder)) { - if (! isset($numMessages)) { - $numMessages = sqimap_get_num_messages($imapConnection, $real_box); - } - - if ($numMessages > 0) { - $urlMailbox = urlencode($real_box); - $line .= "\n\n" . - " ("._("empty").")" . - "\n\n"; +/** + * left_main.php + * + * This is the code for the left bar. The left bar shows the folders + * available, and has cookie information. + * + * @copyright © 1999-2006 The SquirrelMail Project Team + * @license http://opensource.org/licenses/gpl-license.php GNU Public License + * @version $Id$ + * @package squirrelmail + */ + +/** + * Include the SquirrelMail initialization file. + */ +require('../include/init.php'); + +/* SquirrelMail required files. */ +require_once(SM_PATH . 'functions/imap_general.php'); +require_once(SM_PATH . 'functions/date.php'); +require_once(SM_PATH . 'templates/util_left_main.php'); + +/* These constants are used for folder stuff. */ +define('SM_BOX_UNCOLLAPSED', 0); +define('SM_BOX_COLLAPSED', 1); + +/* get globals */ +sqgetGlobalVar('delimiter', $delimiter, 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, false, $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 = ''; +} + +/** + * Include extra javascript files needed by template + */ +$js_includes = $oTemplate->get_javascript_includes(TRUE); +foreach ($js_includes as $js_file) { + $xtra .= '' ."\n"; +} + +// get mailbox list and cache it +$mailboxes=sqimap_get_mailboxes($imapConnection,false,$show_only_subscribed_folders); + +displayHtmlHeader( 'SquirrelMail', $xtra ); +$oErrorHandler->setDelayedErrors(true); + +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); + $folders_created = false; + foreach( $autocreate as $folder ) { + if (($folder != '') && ($folder != 'none')) { + /** + * If $show_only_subscribed_folders is true, don't use + * $mailboxes array for checking if mailbox exists. + * Mailbox list contains only subscribed folders. + * sqimap_mailbox_create() will fail, if folder exists. + */ + if ($show_only_subscribed_folders) { + $mailbox_cache = false; + } else { + $mailbox_cache = $mailboxes; } - } - - /* Return the final product. */ - return ($line); - } - - /** - * Recursive function that computes the collapsed status and parent - * (or not parent) status of this box, and the visiblity and collapsed - * status and parent (or not parent) status for all children boxes. - */ - function compute_folder_children(&$parbox, $boxcount) { - global $boxes, $data_dir, $username, $collapse_folders; - $nextbox = $parbox + 1; - - /* Retreive the name for the parent box. */ - $parbox_name = $boxes[$parbox]['unformatted']; - - /* 'Initialize' this parent box to childless. */ - $boxes[$parbox]['parent'] = false; - - /* Compute the collapse status for this box. */ - if( isset($collapse_folders) && $collapse_folders ) { - $collapse = getPref($data_dir, $username, 'collapse_folder_' . $parbox_name); - $collapse = ($collapse == '' ? SM_BOX_UNCOLLAPSED : $collapse); - } else { - $collapse = SM_BOX_UNCOLLAPSED; - } - $boxes[$parbox]['collapse'] = $collapse; - - /* Otherwise, get the name of the next box. */ - if (isset($boxes[$nextbox]['unformatted'])) - $nextbox_name = $boxes[$nextbox]['unformatted']; - else - $nextbox_name = ''; - - /* Compute any children boxes for this box. */ - while (($nextbox < $boxcount) && - (is_parent_box($boxes[$nextbox]['unformatted'], $parbox_name))) { - - /* Note that this 'parent' box has at least one child. */ - $boxes[$parbox]['parent'] = true; - - /* Compute the visiblity of this box. */ - if ($boxes[$parbox]['visible'] && - ($boxes[$parbox]['collapse'] != SM_BOX_COLLAPSED)) { - $boxes[$nextbox]['visible'] = true; + if ( !sqimap_mailbox_exists($imapConnection, $folder, $mailbox_cache)) { + sqimap_mailbox_create($imapConnection, $folder, ''); + $folders_created = true; } else { - $boxes[$nextbox]['visible'] = false; + // 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); + $folders_created = true; + } } - - /* Compute the visibility of any child boxes. */ - compute_folder_children($nextbox, $boxcount); } - - /* Set the parent box to the current next box. */ - $parbox = $nextbox; } - /** - * Create the link for a parent folder that will allow that - * parent folder to either be collapsed or expaned, as is - * currently appropriate. - */ - function create_collapse_link($boxnum) { - global $boxes; - $mailbox = urlencode($boxes[$boxnum]['unformatted']); - - /* Create the link for this collapse link. */ - $link = '+"; - } else { - $link .= "fold=$mailbox\">-"; + /* Let the world know that autocreation is complete! Hurrah! */ + $auto_create_done = TRUE; + sqsession_register($auto_create_done, 'auto_create_done'); + // reload mailbox list + if ($folders_created) + $mailboxes=sqimap_get_mailboxes($imapConnection,true,$show_only_subscribed_folders); +} + +$clock = ''; +if ($date_format != 6) { + /* First, display the clock. */ + if ($hour_format == 1) { + $hr = 'H:i'; + if ($date_format == 4) { + $hr .= ':s'; } - $link .= ''; - - /* Return the finished product. */ - return ($link); - } - - /** - * This simple function checks if a box is another box's parent. - */ - function is_parent_box($curbox_name, $parbox_name) { - global $delimiter; - - /* Extract the name of the parent of the current box. */ - $curparts = explode($delimiter, $curbox_name); - $curname = array_pop($curparts); - $actual_parname = implode($delimiter, $curparts); - $actual_parname = substr($actual_parname,0,strlen($parbox_name)); - - /* Compare the actual with the given parent name. */ - return ($parbox_name == $actual_parname); - } - - - /* -------------------- MAIN ------------------------ */ - - global $delimiter, $default_folder_prefix; - - // open a connection on the imap port (143) - $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 10); // the 10 is to hide the output - - - if (isset($left_refresh) && ($left_refresh != 'none') && ($left_refresh != '')) { - $xtra = "\n\n" . - "\n". - "\n"; } else { - $xtra = ''; - } - - displayHtmlHeader( 'SquirrelMail', $xtra ); - - /* 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, $default_folder_prefix.$folder, ''); - } elseif ( !sqimap_mailbox_is_subscribed($imapConnection, $folder)) { - sqimap_subscribe($imapConnection, $folder); - } - } - } - - /* Let the world know that autocreation is complete! Hurrah! */ - $auto_create_done = true; - session_register('auto_create_done'); - } - - echo "\n
\n"; - - do_hook('left_main_before'); - - $boxes = sqimap_mailbox_list($imapConnection); - - echo '