steffen: server/kolab-resource-handlers/kolab-resource-handlers/fbview/fbview/framework/Net_IMAP/docs test_IMAP.php, NONE, 1.1 test_IMAPProtocol.php, NONE, 1.1
cvs at intevation.de
cvs at intevation.de
Tue Sep 21 16:33:25 CEST 2004
Author: steffen
Update of /kolabrepository/server/kolab-resource-handlers/kolab-resource-handlers/fbview/fbview/framework/Net_IMAP/docs
In directory doto:/tmp/cvs-serv20540/Net_IMAP/docs
Added Files:
test_IMAP.php test_IMAPProtocol.php
Log Message:
imported Net_IMAP
--- NEW FILE: test_IMAP.php ---
<?
//
// +----------------------------------------------------------------------+
// | PHP Version 4 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2003 The PHP Group |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.02 of the PHP license, |
// | that is bundled with this package in the file LICENSE, and is |
// | available at through the world-wide-web at |
// | http://www.php.net/license/2_02.txt. |
// | If you did not receive a copy of the PHP license and are unable to |
// | obtain it through the world-wide-web, please send a note to |
// | license at php.net so we can mail you a copy immediately. |
// +----------------------------------------------------------------------+
// | Author: Damian Alejandro Fernandez Sosa <damlists at cnba.uba.ar> |
// +----------------------------------------------------------------------+
/*
This sample shows the use of the IMAP methods
this is only useful for testing and to high level IMAP access example use
*/
include_once('Net/IMAP.php');
error_reporting(E_ALL);
$user="user";
$passwd="password";
$host="localhost";
$port="143";
//you can create a file called passwords.php and store your $user,$pass,$host and $port values in it
// or you can modify this script
@require_once("../passwords.php");
$imap= new Net_IMAP($host,$port);
//The the Protocol debug feature
//$imap->setDebug();
//$imap->setUnparsedResponse(true);
//print_r($imap->cmdCapability());
// Login to the IMAP Server Using plain passwords ($authMethod=false)
// $authMethod can be true (dafault) , false or a string
/*$authMethod=false;
if ( PEAR::isError( $ret = $imap->login( $user , $passwd , $authMethod ) ) ) {
echo "Unable to login! reason:" . $ret->getMessage() . "\n";
exit();
}
*/
if ( PEAR::isError( $ret = $imap->login( $user , $passwd ) ) ) {
echo "Unable to login! reason:" . $ret->getMessage() . "\n";
exit();
}
/*********************
***
Let's show the Mailbox related methods
***
*********************/
$imap->selectMailbox('inbox');
//$mailboxes=$imap->getMailboxes('');
$mailboxes=$imap->getMailboxes('inbox.INBOX2',2);
$mailboxes=$imap->getMailboxes('inbox');
//$mailboxes=$imap->listsubscribedMailboxes('inbox');
echo "Here is the list of all mailboxes:\n\n";
prettyMailboxList($imap,$mailboxes);
$mailboxes=$imap->listsubscribedMailboxes('inbox');
echo "Here is the list of all mailboxes you are subscribed:\n\n";
prettyMailboxList($imap,$mailboxes);
//$mailboxes=0;
//echo "PITERROR|" . print_r( $imap->_socket->eof()) . "|\n";
//echo $imap->getDebugDialog();
//exit();
$folder_delim=$imap->getHierarchyDelimiter();
echo "Folder Delim:|$folder_delim|\n";
$mailbox='INBOX'.$folder_delim .'INBOX2';
echo "Getting the summary of message 1\n";
$aa=$imap->getSummary(1);
//print_r($aa);
$aaa=$imap->examineMailbox("inbox");
//print_r($aaa);
echo "creating mailbox $mailbox ....";
if( ! $ret = $imap->createMailbox($mailbox) ){
echo "\nCan't create the mailbox '$mailbox' because " . $ret->getMessage() . "\n";
} else{
echo "OK!\n";
}
echo "\n\n\n+-----------------------------------------------------------------------------+\n";
//$mailbox='INBOX.INBOX2';
//print_r($imap->cmdList("","*"));
//$mailbox='INBOX'.$folder_delim .'INBOX2';
if( $imap->mailboxExist($mailbox) ){
echo "The mailbox $mailbox exists\n";
}else{
echo "The mailbox $mailbox don't exists!\n";
}
$email="From: <damian at cnba.uba.ar>\r\n";
$email.="To: <damian at localhost>\r\n";
$email.="Subject: Test\r\n";
$email.="\r\n";
$email.="\r\n";
$email.="test\r\n";
echo "APPEND\n";
//$imap->cmdAppend("inbox",$email);
$mailbox='inbox';
echo "Now lets check the flags of messages in $mailbox\n";
if ( !PEAR::isError( $num_messages = $imap->getNumberOfMessages( $mailbox ) ) ){
for($i=1; $i<=$num_messages;$i++) {
print_r($imap->getFlags($i));
//echo "AAAA\n";
/*
if ($imap->isSeen($i)) {
echo "message $i has been read before...<br>\n";
//$msg = $imap->getMsg($i);
#echo $msg;
}
if ($imap->isFlagged($i)) {
echo "message $i has been Flagged...<br>\n";
//$msg = $imap->getMsg($i);
#echo $msg;
}
if ($imap->isDeleted($i)) {
echo "message $i is marked as Deleted...<br>\n";
//$msg = $imap->getMsg($i);
#echo $msg;
}
*/
}
}else{
echo "Or $mailbox has no messages or there was an error!\n";
}
$imap->selectMailbox('inbox');
$nummsg = $imap->getNumberOfMessages();
for($i=1; $i<=$nummsg;$i++) {
if ($imap->isSeen($i)) {
echo "message $i has been read before...<br>\n";
//$msg = $imap->getMsg($i);
#echo $msg;
}
if ($imap->isFlagged($i)) {
echo "message $i has been Flagged...<br>\n";
//$msg = $imap->getMsg($i);
#echo $msg;
}
if ($imap->isDeleted($i)) {
echo "message $i is marked as Deleted...<br>\n";
//$msg = $imap->getMsg($i);
#echo $msg;
}
}
/*
echo "renaming mailbox INBOX2 to INBOX3 : <br>\n";
$imap->renameMailbox('INBOX2', 'INBOX3');
echo "deleting mailbox INBOX3 : <br>\n";
$imap->deleteMailbox('INBOX3');
//echo 'deleting msg 1 : <br>\n';
//$imap->delete(1);
echo "creating mailbox TESTING : <br>\n";
$imap->createMailbox('TESTING');
echo "copying msg 1 INBOX to TESTING :<br>\n";
$imap->copyMessages(1, 'TESTING');
*/
// Get the raw headers of message 1
echo "<h2>getRawHeaders()</h2>\n";
echo "<pre>" . htmlspecialchars($imap->getRawHeaders(1)) . "</pre>\n";
//* Get structured headers of message 1
echo "<h2>getParsedHeaders()</h2> <pre>\n";
print_r($imap->getParsedHeaders(1));
echo "</pre>\n";
//* Get body of message 1
echo "<h2>getBody()</h2>\n";
echo "<pre>" . htmlspecialchars($imap->getBody(1)) . "</pre>\n";
//* Get number of messages in maildrop
echo "<h2>getNumMsg</h2>\n";
echo "<pre>" . $imap->numMsg('') . "</pre>\n";
//* Get entire message
echo "<h2>getMsg()</h2>\n";
if(!PEAR::isError($msg=$imap->getMsg(1))){
print_r($msg);
echo '<pre>' . htmlspecialchars($msg) . '</pre>\n';
}
//* Get listing details of the maildrop
echo "<h2>getListing()</h2>\n";
echo "<pre>\n";
print_r($imap->getListing());
echo "</pre>\n";
//* Get size of maildrop
echo "<h2>getSize()</h2>\n";
echo "<pre>" . $imap->getSize() . "</pre>\n";
//* Delete a msg
//echo '<h2>delete()</h2>\n';
// Use with CARE!!!
//echo '<pre>' . $imap->deleteMsg(1) . '</pre>\n';
$mailbox="inbox";
$imap->selectMailbox($mailbox);
$nummsg=$imap->numMsg();
echo "You have $nummsg in $mailbox folder\n";
//echo "See header in message number 1: " . $imap->top(1) . '<br>';
echo "See header in message number 1: " . htmlspecialchars($imap->getRawHeaders(1)) . '<br>\n';
if(!PEAR::isError($msg=$imap->getMsg(1))){
print_r($msg);
echo "Read message number 1: " . htmlspecialchars($msg) . '<br>\n';
}
for($i=1; $i<=$nummsg;$i++) {
if ($imap->isSeen($i)) {
echo "message $i has been read before...<br>\n";
//$msg = $imap->getMsg($i);
#echo $msg;
}
if ($imap->isFlagged($i)) {
echo "message $i has been Flagged...<br>\n";
//$msg = $imap->getMsg($i);
#echo $msg;
}
if ($imap->isDeleted($i)) {
echo "message $i is marked as Deleted...<br>\n";
//$msg = $imap->getMsg($i);
#echo $msg;
}
}
//print_r($imap->getMailboxes(''));
echo "creating mailbox INBOX2 : <br>\n";
$imap->createMailbox('INBOX2');
echo "renaming mailbox INBOX2 to INBOX3 : <br>\n";
$imap->renameMailbox('INBOX2', 'INBOX3');
echo "deleting mailbox INBOX3 : <br>\n";
$imap->deleteMailbox('INBOX3');
//echo 'deleting msg 1 : <br>\n';
//$imap->delete(1);
echo "creating mailbox TESTING : <br>\n";
$imap->createMailbox('TESTING');
echo "copying msg 1 INBOX to TESTING :<br>\n";
$imap->copyMessages('TESTING', 1);
//* Disconnect
$imap->disconnect();
function prettyMailboxList($imap,$mailboxes){
if( count($mailboxes) > 0 ){
echo "You have " . count($mailboxes) . " Mailboxes\n\n";
echo "+-----------------------------------------------------------------------------+\n";
echo "|Mailbox | Mbox Size | Cant Mesages|\n";
echo "+-----------------------------------------------------------------------------+\n";
foreach($mailboxes as $mailbox){
if ( PEAR::isError( $mbox_size =$imap->getMailboxSize( $mailbox ) ) ){
//echo "Unable to retr msg size" . $mbox_size->getMessage() . "|\n";
$mbox_size="[ERROR]";
}
//print_r($mbox_size);
if ( PEAR::isError( $num_messages = $imap->getNumberOfMessages( $mailbox ) ) ){
//echo "Unable to rert msg" . $num_messages->getMessage() . "|\n";
$num_messages="[ERROR]";
}
echo "|";
echo $mailbox;
// Align the output
for($i=strlen($mailbox) ; $i< 50 ; $i++) echo ' ';
echo "|";
// Align the output
for($i=strlen($mbox_size) ; $i< 12 ; $i++) echo ' ';
echo $mbox_size;
echo "|";
// Align the output
//print_r($num_messages);
for($i=strlen($num_messages) ; $i< 13 ; $i++) echo ' ';
echo $num_messages;
echo "|";
echo "\n";
}
echo "+-----------------------------------------------------------------------------+\n";
}else{
echo "Warning!:\n You have any mailboxes!!\n";
}
}
?>
--- NEW FILE: test_IMAPProtocol.php ---
<?
//
// +----------------------------------------------------------------------+
// | PHP Version 4 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2003 The PHP Group |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.02 of the PHP license, |
// | that is bundled with this package in the file LICENSE, and is |
// | available at through the world-wide-web at |
// | http://www.php.net/license/2_02.txt. |
// | If you did not receive a copy of the PHP license and are unable to |
// | obtain it through the world-wide-web, please send a note to |
// | license at php.net so we can mail you a copy immediately. |
// +----------------------------------------------------------------------+
// | Author: Damian Alejandro Fernandez Sosa <damlists at cnba.uba.ar> |
// +----------------------------------------------------------------------+
/*
This sample shows the parsed returning of the IMAPProtocol methods
this is only useful for testing and to low level IMAP access example
*/
require_once('Net/IMAPProtocol.php');
error_reporting(E_ALL);
$user="user";
$passwd="password";
$host="localhost";
$port="143";
//you can create a file called passwords.php and store your $user,$pass,$host and $port values in it
// or you can modify this script
@require_once("../passwords.php");
$a= new Net_IMAPProtocol();
$a->setDebug(true);
//$a->setUnparsedResponse(true);
//$a->setUnparsedResponse(false);
$aaa=$a->cmdConnect($host,$port);
//Choose your auth method...
//$aaa=$a->cmdAuthenticate($user,$passwd);
//$aaa=$a->cmdAuthenticate($user,$passwd, "CRAM-MD5");
$aaa=$a->cmdLogin($user,$passwd);
//$aaa=$a->login($user,$passwd);
//$aaa=$a->cmdSelect("user.damian");
$aaa=$a->cmdSelect("inbox");
$str="inbox.peteáá";
//$str="inbox.inbox3aaa &4eE-";
//$str="inbox.&AOEA4QDh-";
echo "Method cmdCreate()\n";
print_r($aaa=$a->cmdCreate($str));
echo "Method cmdList()\n";
print_r($aaa=$a->cmdList("","*"));
//Returns the Auth Methods the IMAP server Has
//print_r($aaa=$a->getServerAuthMethods());
//print_r($aaa=$a->cmdFetch("4","(BODY[1.1])"));
//print_r($aaa=$a->cmdFetch("4","(BODY[1])"));
print_r($aaa=$a->cmdFetch("4","(RFC822.TEXT)"));
print_r($aaa=$a->cmdFetch("1","(BODY[HEADER] BODY[TEXT])"));
print_r($aaa=$a->cmdFetch("1","BODY[HEADER]"));
print_r($aaa=$a->cmdFetch("15","FULL"));
print_r($aaa=$a->cmdFetch("1:3","(FLAGS RFC822.SIZE UID ENVELOPE INTERNALDATE)"));
//print_r($aaa=$a->cmdFetch("1:3","(FLAGS RFC822.SIZE UID INTERNALDATE)"));
//$aaa=$a->cmdFetch("1","(FLAGS RFC822.SIZE UID ENVELOPE INTERNALDATE)");
//print_r($aaa=$a->cmdFetch("1","(FLAGS RFC822.SIZE UID INTERNALDATE)"));
//$aaa=$a->cmdFetch("1:3","BODY[HEADER.FIELDS (References)]");
//$aaa=$a->cmdFetch("1","(UID RFC822.SIZE)");
//$aaa=$a->cmdFetch("1:10","RFC822.SIZE");
//$aaa=$a->cmdFetch("1:10","INTERNALDATE");
//$aaa=$a->cmdFetch("2:6","BODY[TEXT]");
//$aaa=$a->cmdFetch("1:3","(FLAGS)");
//$aaa=$a->cmdFetch("26:32","BODY");
//$aaa=$a->cmdFetch("26:29","BODY");
//$aaa=$a->cmdFetch("1","RFC822");
$aaa=$a->cmdFetch("28","BODY");
//$aaa=$a->cmdFetch("1","BODYSTRUCTURE");
//$aaa=$a->cmdFetch("27","BODYSTRUCTURE");
//$aaa=$a->cmdFetch("1:100","BODYSTRUCTURE");
$aaa=$a->cmdFetch("2:10","(RFC822.SIZE FLAGS INTERNALDATE)");
//$aaa=$a->cmdFetch("1:10","INTERNALDATE");
$aaa=$a->cmdFetch("1","ENVELOPE");
$aaa=$a->cmdFetch("10,9:16","FLAGS");
//$aaa=$a->cmdFetch("10","BODY[TEXT]");
//$aaa=$a->cmdFetch("10","RFC822.HEADER");
//$aaa=$a->cmdFetch("10","RFC822.TEXT");
//$aaa=$a->cmdFetch("10","BODYSTRUCTURE");
//$aaa=$a->cmdFetch("10","RFC822.HEADER");
$aaa=$a->cmdFetch("1:4","(BODY[HEADER] FLAGS RFC822.SIZE INTERNALDATE)");
//$aaa=$a->cmdFetch("1:4","(FLAGS RFC822.SIZE INTERNALDATE)");
//$aaa=$a->cmdFetch("10","BODY[1]");
//$aaa=$a->cmdFetch("1","RFC822.SIZE");
//$aaa=$a->cmdFetch("10","ENVELOPE");
//$aaa=$a->cmdFetch("10","RFC822");
//$aaa=$a->cmdFetch("10","ENVELOPE");
//$aaa=$a->cmdFetch("1:30","(RFC822.SIZE FLAGS)");
//$aaa=$a->cmdFetch("1:30","FLAGS");
//print_r($aaa=$a->cmdFetch(32,"FLAGS"));
//print_r($aaa=$a->cmdFetch("1:3","(FLAGS RFC822.SIZE UID ENVELOPE INTERNALDATE)"));
//print_r($aaa=$a->cmdFetch("1","(FLAGS RFC822.SIZE UID ENVELOPE INTERNALDATE)"));
//print_r($aaa=$a->cmdFetch("10","ENVELOPE"));
//print_r($aaa=$a->cmdFetch("10","FLAGS"));
//$aaa=$a->cmdUidFetch("1","FLAGS");
//print_r($aaa=$a->cmdCapability());
//print_r($aaa=$a->cmdStore("1:2","+FLAGS","\Deleted"));
echo "Method cmdCheck()\n";
print_r($aaa=$a->cmdCheck());
//print_r($aaa=$a->cmdClose());
echo "Method cmdNoop()\n";
print_r($aaa=$a->cmdNoop());
echo "Method cmdRename()\n";
print_r($aaa=$a->cmdRename("inbox.test2","inbox.test3"));
echo "Method cmdSubscribe()\n";
print_r($aaa=$a->cmdSubscribe("inbox.test1"));
echo "Method cmdStatus()\n";
print_r($aaa=$a->cmdStatus("inbox","MESSAGES UNSEEN"));
echo "Method cmdUnsubscribe()\n";
print_r($aaa=$a->cmdUnsubscribe("inbox.test1"));
echo "Method cmdList()\n";
print_r($aaa=$a->cmdList("","*"));
echo "Method cmdLsub()\n";
print_r($aaa=$a->cmdLsub("*","*"));
echo "Method cmdSearch()\n";
print_r($aaa=$a->cmdSearch("ALL"));
echo "Method cmdUidSearch()\n";
print_r($aaa=$a->cmdUidSearch("ALL"));
echo "Method cmdCopy()\n";
print_r($aaa=$a->cmdCopy("1","inbox.test1"));
echo "Method cmdGetQuota()\n";
print_r($aaa=$a->cmdGetQuota("user.montoto"));
echo "Method cmdMyRights()\n";
print_r($aaa=$a->cmdMyRights("inbox"));
echo "Method cmdListRights()\n";
print_r($aaa=$a->cmdListRights("inbox","montoto"));
echo "Method cmdGetACL()\n";
print_r($aaa=$a->cmdGetACL("user.montoto"));
echo "Method cmdSetQuota()\n";
print_r($aaa=$a->cmdSetQuota("user.montoto","500000"));
echo "Method cmdCheck()\n";
print_r($aaa=$a->cmdCheck());
echo "Method cmdCreate()\n";
print_r($aaa=$a->cmdCreate("inbox.inbox3"));
echo "Method cmdStatus()\n";
print_r($a->cmdStatus("inbox","MESSAGES UNSEEN"));
print_r($a->_serverSupportedCapabilities);
echo "Method cmdExamine()\n";
print_r($aaa=$a->cmdExamine("inbox"));
echo "Method cmdStore()\n";
print_r($aaa=$a->cmdStore("1:2","+FLAGS","\Deleted"));
echo "Method cmdExpunge()\n";
print_r($a->cmdExpunge());
echo "Check if the server has ANNOTATEMORE Support\n";
if( $a->hasAnnotateMoreSupport() ){
echo "Yes the server has ANNOTATEMORE Support\n";
//print_r( $a->cmdGetAnnotation("inbox" , array("test"), "algo") );
print_r( $a->cmdSetAnnotation("INBOX" , "/comment",array("value.priv"=>"My comment" ) ) );
print_r( $a->cmdGetAnnotation("INBOX" , "/comment","value.priv" ) );
}
else{
echo "The server has NOT ANNOTATEMORE Support\n";
}
//print_r($aaa);
$aaa=$a->cmdLogout();
//print_r($aaa);
?>
More information about the commits
mailing list