View file mail/mail/index.php

<?
#####################################################################
#  Copyright (c) 2002 Pau Oliva Fora <[email protected]>               #
#  Licensed under the GNU GPL. For full terms see the file COPYING. #
##################################################################### 
require("config.php");
wmlheader();
wmlmeta();
if ( isset ($P) && isset($F) ) {

		  $mbox = imap_open ("\{$IMAPSERVER:143}$F", "$U", "$P") or die ("can't connect: " .  imap_last_error());

		  echo "<card id=\"intro\">\n";

		  $check = imap_mailboxmsginfo($mbox);
		  if($check) $showlist = $check->Nmsgs; 
		  else echo "imap_check() failed: ".imap_last_error(). "<br/>\n";
		  
		  echo "<p align=\"center\">\n";

		  if ($showlist != 0) echo "<anchor title=\"$S_SUBMIT\">$S_VIEWMAIL
<go href=\"maillist.php?page=1\" method=\"post\">
<postfield name=\"F\" value=\"$F\"/>
<postfield name=\"U\" value=\"$U\"/>
<postfield name=\"P\" value=\"$P\"/>
</go></anchor><br/>";

		  $check = imap_mailboxmsginfo ($mbox);
		  if ($check) {
		 		echo "<anchor title=\"$S_SUBMIT\">$S_COMPOSE
<go href=\"compose.php\" method=\"post\">
<postfield name=\"F\" value=\"$F\"/>
<postfield name=\"U\" value=\"$U\"/>
<postfield name=\"P\" value=\"$P\"/>
</go></anchor><br/>";
		 		echo "<anchor title=\"$S_SUBMIT\">$S_INFO
<go href=\"mailinfo.php\" method=\"post\">
<postfield name=\"F\" value=\"$F\"/>
<postfield name=\"U\" value=\"$U\"/>
<postfield name=\"P\" value=\"$P\"/>
</go></anchor><br/>";
				echo "$S_FOLDER $F <br/>\n";
				echo "$S_MESSAGES". $check->Nmsgs   ."<br/>\n" ;
				echo "$S_UNREAD". $check->Unread  ."<br/>\n" ;
		  } else echo "imap_check() failed: ".imap_last_error(). "<br/>\n";
		  
		  imap_close($mbox);
		  echo "</p>\n";


} elseif ( isset ($P) ) {

		  echo "<card id=\"mailbox\" title=\"$S_FOLDER\">\n";
		  echo "<p align=\"center\">\n";
		  
		  $mbox = imap_open ("\{$IMAPSERVER:143}", "$U", "$P",OP_HALFOPEN) or die ("can't connect: " .  imap_last_error());

		  $list = imap_getmailboxes($mbox,"\{$IMAPSERVER:143}","$BASEFOLDER/*");
		  //$list = imap_getsubscribed($mbox,"\{$IMAPSERVER:143}","$BASEFOLDER/*");
		  if(is_array($list)) {
			  reset($list);
			  echo "<select name=\"F\">\n";
			  while (list($key, $val) = each($list))if (!ereg("\.",$val->name)) print "<option value=\"".ereg_replace("/$","",ereg_replace("\{.*.\}","",imap_utf7_decode($val->name)))."\">".ereg_replace("$BASEFOLDER","",ereg_replace("\{.*.\}","",imap_utf7_decode($val->name)))."</option>\n";
			  echo "</select>\n";
		  } else die ("imap_getmailboxes failed: ".imap_last_error());
   
		  imap_close($mbox);

		  echo "<do type=\"accept\" label=\"$S_SUBMIT\">";
		  ?>
<go href="index.php" method="post">
<postfield name="F" value="$F"/>
<postfield name="U" value="$U"/>
<postfield name="P" value="$P"/>
</go></do></p>

<?

} else {

		  echo "<card id=\"input\" title=\"pofHQ wapMAIL $VERSION\">\n";
		  echo "<p>\n";
		  echo "$S_LOGIN<input type=\"text\" name=\"U\"/>\n";
		  echo "$S_P<input type=\"password\" name=\"P\"/>\n";
		  #echo "$S_FOLDER<input type=\"text\" name=\"F\" value=\"INBOX\"/>\n";
		  echo "<do type=\"accept\" label=\"$S_SUBMIT\">";
		  ?>
<go href="index.php" method="post">
<postfield name="U" value="$U"/>
<postfield name="P" value="$P"/>
</go></do></p>

<?
}
wmlfooter();
?>