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 = ($use_special_folder_color && isSpecialMailbox( $real_box ) ); /* 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) { $line .= ""; } if ( $mailbox == 'INBOX' ) { $line .= _("INBOX"); } else { $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) && ($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").")" . ""; } } /* 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. */ $boxes[$nextbox]['visible'] = ($boxes[$parbox]['visible'] && ($boxes[$parbox]['collapse'] != SM_BOX_COLLAPSED)); /* 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\">-"; } $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, $folder, ''); } else if (!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 '