' . html_tag( 'table', '', 'center', $color[0], 'width="95%" cellpadding="1" cellspacing="0" border="0"' ) . html_tag( 'tr' ) . html_tag( 'td', '', 'center' ) . '' . _("Folders") . '' . html_tag( 'table', '', 'center', '', 'width="100%" cellpadding="5" cellspacing="0" border="0"' ) . html_tag( 'tr' ) . html_tag( 'td', '', 'center', $color[4] ); if ( isset($success) && $success ) { $td_str = ''; switch ($success) { case 'subscribe': $td_str .= _("Subscribed successfully!"); break; case 'unsubscribe': $td_str .= _("Unsubscribed successfully!"); break; case 'delete': $td_str .= _("Deleted folder successfully!"); break; case 'create': $td_str .= _("Created folder successfully!"); break; case 'rename': $td_str .= _("Renamed successfully!"); break; case 'subscribe-doesnotexist': $td_str .= _("Subscription Unsuccessful - Folder does not exist."); break; } $td_str .= '
'; echo html_tag( 'table', html_tag( 'tr', html_tag( 'td', $td_str . '' . _("refresh folder list") . '' , 'center' ) ) , 'center', '', 'width="100%" cellpadding="4" cellspacing="0" border="0"' ); } echo "\n
"; $imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0); $boxes = sqimap_mailbox_list($imapConnection,true); /** CREATING FOLDERS **/ echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="4" cellspacing="0" border="0"' ) . html_tag( 'tr', html_tag( 'td', '' . _("Create Folder") . '', 'center', $color[9] ) ) . html_tag( 'tr' ) . html_tag( 'td', '', 'center', $color[0] ) . addForm('folders_create.php', 'POST', 'cf'). addInput('folder_name', '', 25). "
\n". _("as a subfolder of"). '
'. "\n"; $show_selected = array(); $skip_folders = array(); $server_type = strtolower($imap_server_type); if ( $server_type == 'courier' ) { array_push($skip_folders, 'inbox.trash'); if ( $default_folder_prefix == 'INBOX.' ) { array_push($skip_folders, 'inbox'); } } if ( $default_sub_of_inbox == false ) { echo '[ '._("None")." ]\n"; } else { echo '[ '._("None")." ]\n"; $show_selected = array('inbox'); } // Call sqimap_mailbox_option_list, using existing connection to IMAP server, // the arrays of folders to include or skip (assembled above), // use 'noinferiors' as a mailbox filter to leave out folders that can not contain other folders. // use the long format to show subfolders in an intelligible way if parent is missing (special folder) echo sqimap_mailbox_option_list($imapConnection, $show_selected, $skip_folders, $boxes, 'noinferiors', true); echo "\n"; if ($show_contain_subfolders_option) { echo '
'. addCheckBox('contain_subs', FALSE, '1') .'  ' . _("Let this folder contain subfolders") . '
'; } echo "\n"; echo "\n"; echo html_tag( 'tr', html_tag( 'td', ' ', 'left', $color[4] ) ) ."\n"; /** count special folders **/ // FIX ME, why not check if the folders are defined IMHO move_to_sent, move_to_trash has nothing todo with it $count_special_folders = 0; $num_max = 1; if (strtolower($imap_server_type) == "courier" || $move_to_trash) { $num_max++; } if ($move_to_sent) { $num_max++; } if ($save_as_draft) { $num_max++; } // What if move_to_sent = false and $sent_folder is set? Should it still be skipped? for ($p = 0, $cnt = count($boxes); $p < $cnt && $count_special_folders < $num_max; $p++) { switch ($boxes[$p]['unformatted']) { case (strtoupper($boxes[$p]['unformatted']) == 'INBOX'): ++$count_special_folders; $skip_folders[] = $boxes[$p]['unformatted']; break; // FIX ME inbox.trash should be set in conf.pl case 'inbox.trash': if (strtolower($imap_server_type) == 'courier') { ++$count_special_folders; } break; case $trash_folder: ++$count_special_folders; $skip_folders[] = $trash_folder; break; case $sent_folder: ++$count_special_folders; $skip_folders[] = $sent_folder; break; case $draft_folder: ++$count_special_folders; $skip_folders[] = $draft_folder; break; default: break; } } /** RENAMING FOLDERS **/ echo html_tag( 'tr', html_tag( 'td', '' . _("Rename a Folder") . '', 'center', $color[9] ) ) . html_tag( 'tr' ) . html_tag( 'td', '', 'center', $color[0] ); if ($count_special_folders < count($boxes)) { echo addForm('folders_rename_getname.php') . "\n" . ' [ ' . _("Select a folder") . " ]\n"; // use existing IMAP connection, we have no special values to show, // but we do include values to skip. Use the pre-created $boxes to save an IMAP query. // send NULL for the flag - ALL folders are eligible for rename! // use long format to make sure folder names make sense when parents may be missing. echo sqimap_mailbox_option_list($imapConnection, 0, $skip_folders, $boxes, NULL, true); echo "\n". '\n". "\n"; } else { echo _("No folders found") . '

'; } $boxes_sub = $boxes; echo html_tag( 'tr', html_tag( 'td', ' ', 'left', $color[4] ) ) ."\n"; /** DELETING FOLDERS **/ echo html_tag( 'tr', html_tag( 'td', '' . _("Delete Folder") . '', 'center', $color[9] ) ) . html_tag( 'tr' ) . html_tag( 'td', '', 'center', $color[0] ); if ($count_special_folders < count($boxes)) { echo addForm('folders_delete.php') . "\n" . ' [ ' . _("Select a folder") . " ]\n"; // send NULL for the flag - ALL folders are eligible for delete (except what we've got in skiplist) // use long format to make sure folder names make sense when parents may be missing. echo sqimap_mailbox_option_list($imapConnection, 0, $skip_folders, $boxes, NULL, true); echo "\n" . '\n" . "\n"; } else { echo _("No folders found") . "

"; } echo html_tag( 'tr', html_tag( 'td', ' ', 'left', $color[4] ) ) ."\n"; /** UNSUBSCRIBE FOLDERS **/ echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="4" cellspacing="0" border="0"' ) . html_tag( 'tr', html_tag( 'td', '' . _("Unsubscribe") . '/' . _("Subscribe") . '', 'center', $color[9], 'colspan="2"' ) ) . html_tag( 'tr' ) . html_tag( 'td', '', 'center', $color[0], 'width="50%"' ); if ($count_special_folders < count($boxes)) { echo addForm('folders_subscribe.php?method=unsub') . "\n"; for ($i = 0; $i < count($boxes); $i++) { $use_folder = true; if ((strtolower($boxes[$i]["unformatted"]) != "inbox") && ($boxes[$i]["unformatted"] != $trash_folder) && ($boxes[$i]["unformatted"] != $sent_folder) && ($boxes[$i]["unformatted"] != $draft_folder)) { $box = htmlspecialchars($boxes[$i]["unformatted-dm"]); $box2 = str_replace(' ', ' ', htmlspecialchars(imap_utf7_decode_local($boxes[$i]["unformatted-disp"]))); echo " $box2\n"; } } echo "

\n" . '\n" . "\n"; } else { echo _("No folders were found to unsubscribe from!") . ''; } $boxes_sub = $boxes; /** SUBSCRIBE TO FOLDERS **/ echo html_tag( 'td', '', 'center', $color[0], 'width="50%"' ); if(!$no_list_for_subscribe) { $boxes_all = sqimap_mailbox_list_all ($imapConnection); $box = ''; $box2 = ''; for ($i = 0, $q = 0; $i < count($boxes_all); $i++) { $use_folder = true; for ($p = 0; $p < count ($boxes); $p++) { if ($boxes_all[$i]['unformatted'] == $boxes[$p]['unformatted']) { $use_folder = false; continue; } else if ($boxes_all[$i]['unformatted-dm'] == $folder_prefix) { $use_folder = false; } } if ($use_folder == true) { $box[$q] = htmlspecialchars($boxes_all[$i]['unformatted-dm']); $box2[$q] = htmlspecialchars(imap_utf7_decode_local($boxes_all[$i]['unformatted-disp'])); $q++; } } if ($box && $box2) { echo addForm('folders_subscribe.php?method=sub') . ''; for ($q = 0; $q < count($box); $q++) { echo ' '.$box2[$q]."\n"; } echo '

' . '\n" . "
\n"; } else { echo _("No folders were found to subscribe to!") . ''; } } else { /* don't perform the list action -- this is much faster */ echo addForm('folders_subscribe.php?method=sub') . _("Subscribe to:") . '
' . '' . '\n" . "
\n"; } do_hook('folders_bottom'); ?>