X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=src%2Fleft_main.php;h=c8bc624aa7411bed2e8ed2e7e22318c46236c61b;hb=e1c11171cd580d0d27e1a596ab53afac90075bf3;hp=7a2d670c4d905948f49b3c1c7be3c3a2c06a3ab5;hpb=20db5033a7f36d40c7fe11d561069de9c9a2a970;p=squirrelmail.git
diff --git a/src/left_main.php b/src/left_main.php
index 7a2d670c..c8bc624a 100644
--- a/src/left_main.php
+++ b/src/left_main.php
@@ -1,97 +1,130 @@
-
-
-
-
-
-
-
-";
+ $line .= " ("._("purge").")";
+ $line .= "\n";
}
- return strrev($temp);
+ return $line;
+ echo "";
}
// open a connection on the imap port (143)
- $imapConnection = fsockopen($imapServerAddress, 143, &$errorNumber, &$errorString);
- if (!$imapConnection) {
- echo "Error connecting to IMAP Server.
";
- echo "$errorNumber : $errorString
";
- exit;
+ $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");
+
+ if (isset($left_refresh) && ($left_refresh != "None") && ($left_refresh != "")) {
+ echo "";
+ echo "";
+ echo "";
}
- $serverInfo = fgets($imapConnection, 256);
-
- fputs($imapConnection, "1 login $username $key\n");
- $read = fgets($imapConnection, 1024);
-
- fputs($imapConnection, "1 list \"\" *\n");
- $str = imapReadData($imapConnection);
-
- echo "";
- echo "$org_name
";
- echo "Folders";
- echo "
";
- echo "\n";
- for ($i = 0;$i < count($str); $i++) {
- $mailbox = Chop($str[$i]);
- // find the quote at the begining of the mailbox name.
- // i subtract 1 from the strlen so it doesn't find the quote at the end of the mailbox name.
- $mailbox = findMailboxName($mailbox);
- $periodCount = countCharInString($mailbox, ".");
-
- // indent the correct number of spaces.
- for ($j = 0;$j < $periodCount;$j++)
- echo " ";
-
- $mailboxURL = urlencode($mailbox);
- echo "";
- echo readShortMailboxName($mailbox, ".");
- echo "
\n";
+
+ echo "";
+
+ $boxes = sqimap_mailbox_list($imapConnection);
+
+ echo "";
+ echo _("Folders") . "
";
+
+ echo "(";
+ echo _("refresh folder list");
+ echo ")
";
+ $delimeter = sqimap_get_delimiter($imapConnection);
+
+ for ($i = 0;$i < count($boxes); $i++) {
+ $line = "";
+ $mailbox = $boxes[$i]["formatted"];
+
+ if ($boxes[$i]["flags"]) {
+ $noselect = false;
+ for ($h = 0; $h < count($boxes[$i]["flags"]); $h++) {
+ if (strtolower($boxes[$i]["flags"][$h]) == "noselect")
+ $noselect = true;
+ }
+ if ($noselect == true) {
+ $line .= "";
+ $line .= replace_spaces(readShortMailboxName($mailbox, $delimeter));
+ $line .= "";
+ } else {
+ $line .= formatMailboxName($imapConnection, $mailbox, $boxes[$i]["unformatted"], $delimeter, $boxes[$i]["unseen"]);
+ }
+ } else {
+ $line .= formatMailboxName($imapConnection, $mailbox, $boxes[$i]["unformatted"], $delimeter, $boxes[$i]["unseen"]);
+ }
+ echo "$line
";
}
- echo "";
+
fclose($imapConnection);
?>
-
+