forked from extern/egroupware
2114 lines
83 KiB
PHP
2114 lines
83 KiB
PHP
|
<?php
|
||
|
|
/**************************************************************************\
|
||
|
|
* phpGroupWare API - POP3 *
|
||
|
|
* This file written by Mark Peters <skeeter@phpgroupware.org> *
|
||
|
|
* Handles specific operations in dealing with POP3 *
|
||
|
|
* Copyright (C) 2001 Mark Peters and Angelo "Angles" Puglisi *
|
||
|
|
* -------------------------------------------------------------------------*
|
||
|
|
* This library is part of the phpGroupWare API *
|
||
|
|
* http://www.phpgroupware.org/api *
|
||
|
|
* ------------------------------------------------------------------------ *
|
||
|
|
* This library is free software; you can redistribute it and/or modify it *
|
||
|
|
* under the terms of the GNU Lesser General Public License as published by *
|
||
|
|
* the Free Software Foundation; either version 2.1 of the License, *
|
||
|
|
* or any later version. *
|
||
|
|
* This library is distributed in the hope that it will be useful, but *
|
||
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||
|
|
* See the GNU Lesser General Public License for more details. *
|
||
|
|
* You should have received a copy of the GNU Lesser General Public License *
|
||
|
|
* along with this library; if not, write to the Free Software Foundation, *
|
||
|
|
* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
|
||
|
|
\**************************************************************************/
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@class msg (sockets)
|
||
|
|
@abstract part of mail Data Communications class
|
||
|
|
@discussion mail Extends msg_base which Extends phpgw api class network
|
||
|
|
This is a top level class msg is designed specifically POP3
|
||
|
|
@syntax CreateObject('email.mail');
|
||
|
|
@author Angles, Skeeter, Itzchak Rehberg, Joseph Engo
|
||
|
|
@copyright LGPL
|
||
|
|
@package email (to be moved to phpgwapi when mature)
|
||
|
|
@access public
|
||
|
|
*/
|
||
|
|
class msg extends msg_base
|
||
|
|
{
|
||
|
|
/**************************************************************************\
|
||
|
|
* Functions that DO NOTHING in POP3
|
||
|
|
\**************************************************************************/
|
||
|
|
function createmailbox($stream,$mailbox)
|
||
|
|
{
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
function deletemailbox($stream,$mailbox)
|
||
|
|
{
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
function expunge($stream)
|
||
|
|
{
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
function listmailbox($stream,$ref,$pattern)
|
||
|
|
{
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
function mailcopy($stream,$msg_list,$mailbox,$flags)
|
||
|
|
{
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
function move($stream,$msg_list,$mailbox)
|
||
|
|
{
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
function reopen($stream,$mailbox,$flags = "")
|
||
|
|
{
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
function append($stream, $folder = "Sent", $header, $body, $flags = "")
|
||
|
|
{
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
/**************************************************************************\
|
||
|
|
* Functions Not Yet Implemented in POP3
|
||
|
|
\**************************************************************************/
|
||
|
|
function fetch_overview($stream,$sequence,$flags)
|
||
|
|
{
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
function noop_ping_test($stream)
|
||
|
|
{
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
function server_last_error()
|
||
|
|
{
|
||
|
|
return '';
|
||
|
|
}
|
||
|
|
|
||
|
|
/**************************************************************************\
|
||
|
|
* OPEN and CLOSE Server Connection
|
||
|
|
\**************************************************************************/
|
||
|
|
/*!
|
||
|
|
@function open
|
||
|
|
@abstract implements php function IMAP_OPEN
|
||
|
|
@param $fq_folder : string : {SERVER_NAME:PORT/OPTIONS}FOLDERNAME
|
||
|
|
@param $user : string : account name to log into on the server
|
||
|
|
@param $pass : string : password for this account on the mail server
|
||
|
|
@param $flags : NOT YET IMPLEMENTED
|
||
|
|
@discussion implements the functionality of php function IMAP_OPEN
|
||
|
|
note that php's IMAP_OPEN applies to IMAP, POP3 and NNTP servers
|
||
|
|
@syntax ?
|
||
|
|
@author Angles, skeeter
|
||
|
|
@access public
|
||
|
|
*/
|
||
|
|
function open ($fq_folder, $user, $pass, $flags='')
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering open<br>'; }
|
||
|
|
|
||
|
|
// fq_folder is a "fully qualified folder", seperate the parts:
|
||
|
|
$svr_data = array();
|
||
|
|
$svr_data = $this->distill_fq_folder($fq_folder);
|
||
|
|
$folder = $svr_data['folder'];
|
||
|
|
$server = $svr_data['server'];
|
||
|
|
$port = $svr_data['port'];
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: open: svr_data:<br>'.serialize($svr_data).'<br>'; }
|
||
|
|
|
||
|
|
//$port = 110;
|
||
|
|
if (!$this->open_port($server,$port,15))
|
||
|
|
{
|
||
|
|
echo '<p><center><b>' . lang('There was an error trying to connect to your POP3 server.<br>Please contact your admin to check the servername, username or password.').'</b></center>';
|
||
|
|
$GLOBALS['phpgw']->common->phpgw_exit();
|
||
|
|
}
|
||
|
|
$this->read_port();
|
||
|
|
if(!$this->msg2socket('USER '.$user,"^\+ok",&$response) || !$this->msg2socket('PASS '.$pass,"^\+ok",&$response))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving open with Error<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
//echo "Successful POP3 Login.<br>\n";
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: open: Successful POP3 Login<br>'; }
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving open<br>'; }
|
||
|
|
return $this->socket;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function close($flags='')
|
||
|
|
{
|
||
|
|
if (!$this->msg2socket('QUIT',"^\+ok",&$response))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: close: Error<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: close: Successful POP3 Logout<br>'; }
|
||
|
|
return True;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**************************************************************************\
|
||
|
|
* Mailbox Status and Information
|
||
|
|
\**************************************************************************/
|
||
|
|
|
||
|
|
function mailboxmsginfo($stream_notused='')
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering mailboxmsginfo<br>'; }
|
||
|
|
// caching this with POP3 is OK but will cause HAVOC with IMAP or NNTP
|
||
|
|
// do we have a cached header_array ?
|
||
|
|
//if ($this->mailbox_msg_info != '')
|
||
|
|
//{
|
||
|
|
// if ($this->debug >= 1) { echo 'pop3: Leaving mailboxmsginfo returning cached data<br>'; }
|
||
|
|
// return $this->mailbox_msg_info;
|
||
|
|
//}
|
||
|
|
// NO cached data, so go get it
|
||
|
|
// initialize the structure
|
||
|
|
$info = new mailbox_msg_info;
|
||
|
|
$info->Date = '';
|
||
|
|
$info->Driver ='';
|
||
|
|
$info->Mailbox = '';
|
||
|
|
$info->Nmsgs = '';
|
||
|
|
$info->Recent = '';
|
||
|
|
$info->Unread = '';
|
||
|
|
$info->Size = '';
|
||
|
|
// POP3 will only give 2 items:
|
||
|
|
// 1) number of messages
|
||
|
|
// 2) total size of mailbox
|
||
|
|
// imap_mailboxmsginfo is the only function to return both of these
|
||
|
|
if (!$this->msg2socket('STAT',"^\+ok",&$response))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
$num_msg = explode(' ',$response);
|
||
|
|
// fill the only 2 data items we have
|
||
|
|
$info->Nmsgs = trim($num_msg[1]);
|
||
|
|
$info->Size = trim($num_msg[2]);
|
||
|
|
if ($info->Nmsgs)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
echo 'pop3: mailboxmsginfo: info->Nmsgs: '.$info->Nmsgs.'<br>';
|
||
|
|
echo 'pop3: mailboxmsginfo: info->Size: '.$info->Size.'<br>';
|
||
|
|
}
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving mailboxmsginfo<br>'; }
|
||
|
|
// save this data for future use
|
||
|
|
//$this->mailbox_msg_info = $info;
|
||
|
|
return $info;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: mailboxmsginfo: returining False<br>'; }
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving mailboxmsginfo<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function status($stream_notused='', $fq_folder='',$options=SA_ALL)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering status<br>'; }
|
||
|
|
// POP3 has only INBOX so ignore $fq_folder
|
||
|
|
// assume option is SA_ALL for POP3 because POP3 returns so little info anyway
|
||
|
|
// initialize structure
|
||
|
|
$info = new mailbox_status;
|
||
|
|
$info->messages = '';
|
||
|
|
$info->recent = '';
|
||
|
|
$info->unseen = '';
|
||
|
|
$info->uidnext = '';
|
||
|
|
$info->uidvalidity = '';
|
||
|
|
// POP3 only knows:
|
||
|
|
// 1) many messages are in the box, which is:
|
||
|
|
// a) returned by imap_ mailboxmsginfo as ->Nmsgs (in IMAP this is thefolder opened)
|
||
|
|
// b) returned by imap_status (THIS) as ->messages (in IMAP used for folders other than the opened one)
|
||
|
|
// 2) total size of the box, which is:
|
||
|
|
// returned by imap_ mailboxmsginfo as ->Size
|
||
|
|
// Most Efficient Method:
|
||
|
|
// call mailboxmsginfo and fill THIS structurte from that
|
||
|
|
$mailbox_msg_info = $this->mailboxmsginfo($stream_notused);
|
||
|
|
// all POP3 can return from imap_status is messages
|
||
|
|
$info->messages = $mailbox_msg_info->Nmsgs;
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: status: info->messages: '.$info->messages.'<br>'; }
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving status<br>'; }
|
||
|
|
return $info;
|
||
|
|
}
|
||
|
|
|
||
|
|
// returns number of messages in the mailbox
|
||
|
|
function num_msg($stream_notused='')
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering num_msg<br>'; }
|
||
|
|
// Most Efficient Method:
|
||
|
|
// call mailboxmsginfo and fill THIS size data from that
|
||
|
|
$mailbox_msg_info = $this->mailboxmsginfo($stream_notused);
|
||
|
|
$return_num_msg = $mailbox_msg_info->Nmsgs;
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: num_msg: '.$return_num_msg.'<br>'; }
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving num_msg<br>'; }
|
||
|
|
return $return_num_msg;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**************************************************************************\
|
||
|
|
* Message Sorting
|
||
|
|
\**************************************************************************/
|
||
|
|
/*!
|
||
|
|
@function sort
|
||
|
|
@abstract implements IMAP_SORT
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $criteria : integer : HOW to sort the messages, we prefer SORTARRIVAL, or "1" as default
|
||
|
|
SORTDATE: 0: This is the Date that the senders email client stamps the message with
|
||
|
|
SORTARRIVAL: 1: This is the date the email arrives at your email server (MTA)
|
||
|
|
SORTFROM: 2
|
||
|
|
SORTSUBJECT: 3
|
||
|
|
SORTSIZE: 6
|
||
|
|
@param $reverse : boolean : the ordering if the messages , low to high, or high to low
|
||
|
|
FALSE: 0: lowest to highest (default for php's builtin imap)
|
||
|
|
TRUE: 1: highest to lowest, a.k.a. "Reverse Sorting"
|
||
|
|
@param $options : not implemented
|
||
|
|
@result returns an array of integers which are messages numbers for the
|
||
|
|
messages sorted as requested.
|
||
|
|
@discussion: using SORTDATE can cause some messages to be displayed in the wrong
|
||
|
|
cronologicall order, because the sender's MUA can be innaccurate in date stamping
|
||
|
|
@author Angles, Skeeter, Itzchak Rehberg, Joseph Engo
|
||
|
|
@access public
|
||
|
|
*/
|
||
|
|
function sort($stream_notused='',$criteria=SORTARRIVAL,$reverse=False,$options='')
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering sort<br>'; }
|
||
|
|
|
||
|
|
// nr_of_msgs on pop server
|
||
|
|
$msg_num = $this->num_msg($stream_notused);
|
||
|
|
|
||
|
|
// no msgs - no sort.
|
||
|
|
if (!$msg_num)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving sort with Error<br>'; }
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: sort: Number of Msgs:'.$msg_num.'<br>'; }
|
||
|
|
switch($criteria)
|
||
|
|
{
|
||
|
|
case SORTDATE:
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: sort: case SORTDATE<br>'; }
|
||
|
|
$old_list = $this->fetch_header_element(1,$msg_num,'Date');
|
||
|
|
$field_list = $this->convert_date_array($old_list);
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: sort: field_list: '.serialize($field_list).'<br><br>'; }
|
||
|
|
break;
|
||
|
|
case SORTARRIVAL:
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: sort: case SORTARRIVAL<br>'; }
|
||
|
|
// TEST
|
||
|
|
if (!$this->msg2socket('LIST',"^\+ok",&$response))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
}
|
||
|
|
$response = $this->read_port_glob('.');
|
||
|
|
// expected array should NOT start at element 0, instead start it at element 1
|
||
|
|
$field_list = $this->glob_to_array($response, False, ' ',True,1);
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: sort: field_list: '.serialize($field_list).'<br><br><br>'; }
|
||
|
|
break;
|
||
|
|
case SORTFROM:
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: sort: case SORTFROM<br>'; }
|
||
|
|
$field_list = $this->fetch_header_element(1,$msg_num,'From');
|
||
|
|
break;
|
||
|
|
case SORTSUBJECT:
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: sort: case SORTSUBJECT<br>'; }
|
||
|
|
$field_list = $this->fetch_header_element(1,$msg_num,'Subject');
|
||
|
|
break;
|
||
|
|
case SORTTO:
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: sort: case SORTTO<br>'; }
|
||
|
|
$field_list = $this->fetch_header_element(1,$msg_num,'To');
|
||
|
|
break;
|
||
|
|
case SORTCC:
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: sort: case SORTCC<br>'; }
|
||
|
|
$field_list = $this->fetch_header_element(1,$msg_num,'cc');
|
||
|
|
break;
|
||
|
|
case SORTSIZE:
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: sort: case SORTSIZE<br>'; }
|
||
|
|
$field_list = $this->fetch_header_element(1,$msg_num,'Size');
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
@reset($field_list);
|
||
|
|
if($criteria == SORTSUBJECT)
|
||
|
|
{
|
||
|
|
if(!$reverse)
|
||
|
|
{
|
||
|
|
uasort($field_list,array($this,"ssort_ascending"));
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
uasort($field_list,array($this,"ssort_decending"));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
elseif(!$reverse)
|
||
|
|
{
|
||
|
|
asort($field_list);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
arsort($field_list);
|
||
|
|
}
|
||
|
|
$return_array = Array();
|
||
|
|
@reset($field_list);
|
||
|
|
$i = 1;
|
||
|
|
while(list($key,$value) = each($field_list))
|
||
|
|
{
|
||
|
|
$return_array[] = $key;
|
||
|
|
//echo '('.$i.') Field: <b>'.$value."</b>\t\tMsg Num: <b>".$key."</b><br>\n";
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
@reset($return_array);
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: sort: return_array: '.serialize($return_array).'<br><br>'; }
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving sort<br>'; }
|
||
|
|
return $return_array;
|
||
|
|
}
|
||
|
|
|
||
|
|
function fetch_header_element($start,$stop,$element)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering fetch_header_element<br>'; }
|
||
|
|
for($i=$start;$i<=$stop;$i++)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetch_header_element: issue "TOP '.$i.' 0"<br>'; }
|
||
|
|
if(!$this->write_port('TOP '.$i.' 0'))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
}
|
||
|
|
$this->read_and_load('.');
|
||
|
|
if($this->header[$element])
|
||
|
|
{
|
||
|
|
$field_element[$i] = $this->phpGW_quoted_printable_decode2($this->header[$element]);
|
||
|
|
//echo $field_element[$i].' = '.$this->phpGW_quoted_printable_decode2($this->header[$element])."<br>\n";
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetch_header_element: field_element['.$i.']: '.$field_element[$i].'<br>'; }
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$field_element[$i] = $this->phpGW_quoted_printable_decode2($this->header[strtoupper($element)]);
|
||
|
|
//echo $field_element[$i].' = '.$this->phpGW_quoted_printable_decode2($this->header[strtoupper($element)])."<br>\n";
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetch_header_element: field_element['.$i.']: '.$field_element[$i].'<br>'; }
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetch_header_element: field_element: '.serialize($field_element).'<br><br><br>'; }
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving fetch_header_element<br>'; }
|
||
|
|
return $field_element;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**************************************************************************\
|
||
|
|
*
|
||
|
|
* Message Structural Information
|
||
|
|
*
|
||
|
|
\**************************************************************************/
|
||
|
|
/*!
|
||
|
|
@function fetchstructure
|
||
|
|
@abstract implements IMAP_FETCHSTRUCTURE
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $msg_num : integer
|
||
|
|
@param $flags : integer - FT_UID (not implimented)
|
||
|
|
@result returns an instance of Class "msg_structure" is sucessful, False if error
|
||
|
|
@discussion basiclly a replacement for PHP's c-client logic which is missing if IMAP is not builtin
|
||
|
|
@author Angles, (some sub-parts by Skeeter, Itzchak Rehberg, Joseph Engo)
|
||
|
|
@access public
|
||
|
|
*/
|
||
|
|
function fetchstructure($stream_notused,$msg_num,$flags="")
|
||
|
|
{
|
||
|
|
// outer control structure for the multi-pass functions
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering fetchstructure<br>'; }
|
||
|
|
|
||
|
|
// do we have a cached fetchstructure ?
|
||
|
|
if (($this->msg_structure != '')
|
||
|
|
&& ((int)$this->msg_structure_msgnum == (int)($msg_num)))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchstructure: using cached msg_structure data<br>'; }
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving fetchstructure<br>'; }
|
||
|
|
return $this->msg_structure;
|
||
|
|
}
|
||
|
|
// NO cached fetchstructure data - so make it
|
||
|
|
// this will fill $this->msg_structure *TopLevel* only
|
||
|
|
if ($this->fill_toplevel_fetchstructure($stream_notused,$msg_num,$flags) == False)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving fetchstructure with Error from Toplevel<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
// by now we have these created and stored (cached)
|
||
|
|
// $this->header_array
|
||
|
|
// $this->header_array_msgnum
|
||
|
|
// $this->body_array
|
||
|
|
// $this->body_array_msgnum
|
||
|
|
// $this->msg_structure (PARTIAL - INCOMPLETE, completed below)
|
||
|
|
// $this->msg_structure_msgnum
|
||
|
|
|
||
|
|
/*
|
||
|
|
// --- Create Sub-Parts FetchStructure Data (if necessary) ---
|
||
|
|
// NOTE: param to create_embeded_fetchstructure is a REFERENCE
|
||
|
|
$this->create_embeded_fetchstructure(&$this->msg_structure);
|
||
|
|
// TEST: attempt 3rd level MIME discovery
|
||
|
|
$level_3_loops = count($this->msg_structure->parts);
|
||
|
|
for ($i=0; $i < $level_3_loops ;$i++)
|
||
|
|
{
|
||
|
|
if (count($this->msg_structure->parts[$i]) > 0)
|
||
|
|
{
|
||
|
|
// grap 3rd level embedded data (if any)
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: fetchstructure: attempting ['.$i.'] 3rd level parts embedded discovery<br>'; }
|
||
|
|
// --- Create 3rd Level Sub-Parts FetchStructure Data (if necessary) ---
|
||
|
|
// NOTE: param to create_embeded_fetchstructure is a REFERENCE
|
||
|
|
$this->create_embeded_fetchstructure(&$this->msg_structure->parts[$i]);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: fetchstructure: this ['.$i.'] 3rd level part is empty<br>'; }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
*/
|
||
|
|
|
||
|
|
// --- Create Sub-Parts FetchStructure Data (if necessary) ---
|
||
|
|
// first call to $this->create_embeded_fetchstructure fills $this->msg_structure->parts IF there are any subparts
|
||
|
|
// that is the 1st level of subparts if they exist, then we know we need to discover those subparts
|
||
|
|
// if we have an "old school" very simple email, there will be NO 1st level of subparts
|
||
|
|
// in that case the only body that exists is considered part #1
|
||
|
|
// NOTE: param to create_embeded_fetchstructure is a REFERENCE
|
||
|
|
$this->create_embeded_fetchstructure(&$this->msg_structure);
|
||
|
|
|
||
|
|
// if there are subparts, we need to discover the details of those parts now
|
||
|
|
// FOUR PASS ANALYSIS
|
||
|
|
if (isset($this->msg_structure->parts))
|
||
|
|
{
|
||
|
|
for ($lev_1=0; $lev_1 < count($this->msg_structure->parts) ;$lev_1++)
|
||
|
|
{
|
||
|
|
// grap 1st level embedded data (if any)
|
||
|
|
if ($this->debug >= 2) { echo '<br>***<br>* * * * * * * * *<br>pop3: fetchstructure: attempting this->msg_structure->parts['.$lev_1.'] of ['.(string)(count($this->msg_structure->parts)-1).'] embedded parts discovery * * * * *<br>'; }
|
||
|
|
// Create Sub-Parts FetchStructure Data (if necessary) ---
|
||
|
|
// NOTE: param to create_embeded_fetchstructure is a REFERENCE
|
||
|
|
$this->create_embeded_fetchstructure(&$this->msg_structure->parts[$lev_1]);
|
||
|
|
|
||
|
|
// go deeper
|
||
|
|
if (isset($this->msg_structure->parts[$lev_1]->parts))
|
||
|
|
{
|
||
|
|
for ($lev_2=0; $lev_2 < count($this->msg_structure->parts[$lev_1]->parts) ;$lev_2++)
|
||
|
|
{
|
||
|
|
// grap 2nd level embedded data (if any)
|
||
|
|
if ($this->debug >= 2) { echo '<br>***<br>* * * * * * * * *<br>pop3: fetchstructure: attempting this->msg_structure->parts['.$lev_1.']->parts['.$lev_2.'] of ['.(string)(count($this->msg_structure->parts[$lev_1]->parts)-1).'] embedded parts discovery * * * * *<br>'; }
|
||
|
|
// Create Sub-Parts FetchStructure Data (if necessary) ---
|
||
|
|
// NOTE: param to create_embeded_fetchstructure is a REFERENCE
|
||
|
|
$this->create_embeded_fetchstructure(&$this->msg_structure->parts[$lev_1]->parts[$lev_2]);
|
||
|
|
|
||
|
|
// go deeper
|
||
|
|
if (isset($this->msg_structure->parts[$lev_1]->parts[$lev_2]->parts))
|
||
|
|
{
|
||
|
|
for ($lev_3=0; $lev_3 < count($this->msg_structure->parts[$lev_1]->parts[$lev_2]->parts) ;$lev_3++)
|
||
|
|
{
|
||
|
|
// grap 3rd level embedded data (if any)
|
||
|
|
if ($this->debug >= 2) { echo '<br>***<br>* * * * * * * * *<br>pop3: fetchstructure: attempting this->msg_structure->parts['.$lev_1.']->parts['.$lev_2.']->parts['.$lev_3.'] of ['.(string)(count($this->msg_structure->parts[$lev_1]->parts[$lev_2]->parts)-1).'] embedded parts discovery * * * * *<br>'; }
|
||
|
|
// Create 3rd Level Sub-Parts FetchStructure Data (if necessary) ---
|
||
|
|
// NOTE: param to create_embeded_fetchstructure is a REFERENCE
|
||
|
|
$this->create_embeded_fetchstructure(&$this->msg_structure->parts[$lev_1]->parts[$lev_2]->parts[$lev_3]);
|
||
|
|
|
||
|
|
// go deeper
|
||
|
|
if (isset($this->msg_structure->parts[$lev_1]->parts[$lev_2]->parts[$lev_3]->parts))
|
||
|
|
{
|
||
|
|
for ($lev_4=0; $lev_4 < count($this->msg_structure->parts[$lev_1]->parts[$lev_2]->parts[$lev_3]->parts) ;$lev_4++)
|
||
|
|
{
|
||
|
|
// grap 3rd level embedded data (if any)
|
||
|
|
if ($this->debug >= 2) { echo '<br>***<br>* * * * * * * * *<br>pop3: fetchstructure: attempting this->msg_structure->parts['.$lev_1.']->parts['.$lev_2.']->parts['.$lev_3.']->parts['.$lev_4.'] of ['.(string)(count($this->msg_structure->parts[$lev_1]->parts[$lev_2]->parts[$lev_3]->parts)-1).'] embedded parts discovery * * * * *<br>'; }
|
||
|
|
// Create Sub-Parts FetchStructure Data (if necessary) ---
|
||
|
|
// NOTE: param to create_embeded_fetchstructure is a REFERENCE
|
||
|
|
$this->create_embeded_fetchstructure(&$this->msg_structure->parts[$lev_1]->parts[$lev_2]->parts[$lev_3]->parts[$lev_4]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2) { echo '<br>***<br>pop3: fetchstructure: Traversal SKIP FOUTRH PASS level parts NOT SET<br>'; }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2) { echo '<br>***<br>pop3: fetchstructure: Traversal SKIP THIRD PASS level parts NOT SET<br>'; }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2) { echo '<br>***<br>pop3: fetchstructure: Traversal SKIP SECOND PASS level parts NOT SET<br>'; }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: fetchstructure: Traversal SKIP FIRST PARTS level parts NOT SET<br>'; }
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($this->debug >= 2) { echo '<br>***<br>pop3: fetchstructure: * * * * * * Traversal OVER * * * * * * * * * * <br>'; }
|
||
|
|
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
echo '<br>dumping fetchstructure FINAL data: <br>';
|
||
|
|
var_dump($this->msg_structure);
|
||
|
|
echo '<br><br><br>';
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving fetchstructure<br>'; }
|
||
|
|
return $this->msg_structure;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function fill_toplevel_fetchstructure
|
||
|
|
@abstract HELPER function for fetchstructure / IMAP_FETCHSTRUCTURE
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $msg_num : integer
|
||
|
|
@param $flags : integer - FT_UID (not implimented)
|
||
|
|
@result returns an instance of Class "msg_structure" is sucessful, False if error
|
||
|
|
@discussion basiclly a replacement for PHP's c-client logic which is missing if IMAP is not builtin
|
||
|
|
@author Angles, (some sub-parts by Skeeter, Itzchak Rehberg, Joseph Engo)
|
||
|
|
@access private
|
||
|
|
*/
|
||
|
|
function fill_toplevel_fetchstructure($stream_notused,$msg_num,$flags="")
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering fill_toplevel_fetchstructure<br>'; }
|
||
|
|
|
||
|
|
// --- Header Array ---
|
||
|
|
$header_array = $this->get_header_array($stream_notused,$msg_num,$flags);
|
||
|
|
// --- Body Array ---
|
||
|
|
// do we have a cached body_array ?
|
||
|
|
if ((count($this->body_array) > 0)
|
||
|
|
&& ((int)$this->body_array_msgnum == (int)($msg_num)))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fill_toplevel_fetchstructure: using cached body_array data<br>'; }
|
||
|
|
$body_array = $this->body_array;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// NO cached data, get it
|
||
|
|
// calling get_body automatically fills $this->body_array
|
||
|
|
$this->get_body($stream_notused,$msg_num,$flags='',False);
|
||
|
|
$body_array = $this->body_array;
|
||
|
|
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
echo 'pop3: fill_toplevel_fetchstructure: this->body_array DUMP<pre>';
|
||
|
|
for ($i=0; $i < count($this->body_array) ;$i++)
|
||
|
|
{
|
||
|
|
echo '+['.$i.'] '.htmlspecialchars($this->body_array[$i])."\r\n";
|
||
|
|
}
|
||
|
|
echo '</pre><br><br>';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
echo 'pop3: fill_toplevel_fetchstructure header_array iteration:<br>';
|
||
|
|
for($i=0;$i < count($header_array);$i++)
|
||
|
|
{
|
||
|
|
echo '+'.htmlspecialchars($header_array[$i]).'<br>';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (!$header_array)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving fill_toplevel_fetchstructure with error<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
|
||
|
|
// --- Create Class Base Fetchstructure Object ---
|
||
|
|
$this->msg_structure_msgnum = (int)$msg_num;
|
||
|
|
$this->msg_structure = nil;
|
||
|
|
$this->msg_structure = new msg_structure;
|
||
|
|
$this->msg_structure->custom['top_level'] = True;
|
||
|
|
$this->msg_structure->custom['parent_cookie'] = ''; // no parent at top level
|
||
|
|
$this->msg_structure->custom['detect_state'] = 'out'; // not doing multi part detection on this yet
|
||
|
|
// --- Fill Top Level Fetchstructure ---
|
||
|
|
// NOTE: first param to sub_get_structure is a REFERENCE
|
||
|
|
$this->sub_get_structure(&$this->msg_structure,$header_array);
|
||
|
|
|
||
|
|
// --- Fill Any Missing Necessary Data ---
|
||
|
|
// --Bytes-- top level msg Size (bytes) is obtainable from the server
|
||
|
|
if (!$this->msg2socket('LIST '.$msg_num,"^\+ok",&$response))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving fill_toplevel_fetchstructure with error<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
$list_response = explode(' ',$response);
|
||
|
|
$this->msg_structure->bytes = (int)trim($list_response[2]);
|
||
|
|
// --Lines-- php's fetchstructure seems to always include number of lines in it's msg_structure data
|
||
|
|
// whether or not that data is present in the headers
|
||
|
|
// top level # of lines is the # of lines in the entire body, we do not care about subparts here
|
||
|
|
if ((!isset($this->msg_structure->lines))
|
||
|
|
|| ((string)$this->msg_structure->lines == ''))
|
||
|
|
{
|
||
|
|
// earlier in this function we filled $this->body_array
|
||
|
|
// the count of that array is the number of lines in the messages full body
|
||
|
|
$this->msg_structure->lines = count($this->body_array);
|
||
|
|
}
|
||
|
|
// make sure some necessary information is present, use RFC defaults if necessary
|
||
|
|
//if ((!isset($this->msg_structure->type))
|
||
|
|
//|| ((string)$this->msg_structure->type == ''))
|
||
|
|
//{
|
||
|
|
// // default type - RFC says is Text (unless you are dealing with an attachment)
|
||
|
|
// $this->msg_structure->type = $this->default_type(True);
|
||
|
|
//}
|
||
|
|
//if ((!isset($this->msg_structure->ifsubtype))
|
||
|
|
//|| ($this->msg_structure->ifsubtype != True))
|
||
|
|
//{
|
||
|
|
// // if no type we should NOT have a subtype, or else something is wrong
|
||
|
|
// $this->msg_structure->subtype = $this->default_subtype($this->msg_structure->type);
|
||
|
|
// $this->msg_structure->ifsubtype = True;
|
||
|
|
//}
|
||
|
|
if ((!isset($this->msg_structure->encoding))
|
||
|
|
|| ((string)$this->msg_structure->encoding == ''))
|
||
|
|
{
|
||
|
|
$this->msg_structure->encoding = $this->default_encoding();
|
||
|
|
}
|
||
|
|
// unset any elements that have not been filled
|
||
|
|
// NOTE: param to unset_unfilled_fetchstructure is a REFERENCE
|
||
|
|
$this->unset_unfilled_fetchstructure(&$this->msg_structure);
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
echo '<br>dumping fill_toplevel_fetchstructure TOP-LEVEL data: <br>';
|
||
|
|
var_dump($this->msg_structure);
|
||
|
|
echo '<br><br><br>';
|
||
|
|
}
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving fill_toplevel_fetchstructure<br>'; }
|
||
|
|
return True;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function create_embeded_fetchstructure
|
||
|
|
@abstract HELPER function for fetchstructure / IMAP_FETCHSTRUCTURE
|
||
|
|
@param $info : **REFERENCE** to a class "msg_structure" object
|
||
|
|
@result NONE : this function DIRECTLY manipulates the referenced object
|
||
|
|
@discussion as implemented, reference is to some part of class var $this->msg_structure
|
||
|
|
@author Angles
|
||
|
|
@access private
|
||
|
|
*/
|
||
|
|
function create_embeded_fetchstructure($info)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering create_embeded_fetchstructure<br>'; }
|
||
|
|
// --- Do We Have SubParts To Discover ---
|
||
|
|
|
||
|
|
// Test 1: Detect Boundary Paramaters
|
||
|
|
// initialize boundary holder
|
||
|
|
$info->custom['my_cookie'] = '';
|
||
|
|
if ($info->ifparameters)
|
||
|
|
{
|
||
|
|
// if we have a boundary paramater, then we have a multi-part message
|
||
|
|
for ($x=0; $x < count($info->parameters) ;$x++)
|
||
|
|
{
|
||
|
|
$these_params = $info->parameters[$x];
|
||
|
|
if (strtolower($these_params->attribute) == 'boundary')
|
||
|
|
{
|
||
|
|
// store it in custom["my_cookie"] for easy access
|
||
|
|
$info->custom['my_cookie'] = $these_params->value;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// --- Handle Multi-Part MIME ---
|
||
|
|
if (($info->custom['my_cookie'] != '')
|
||
|
|
&& (count($info->parts) == 0))
|
||
|
|
{
|
||
|
|
// Boundry Based Multi-Part MIME In Need Of Discovered
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: create_embeded_fetchstructure: Discovery Needed for boundary param: '.$info->custom['my_cookie'].'<br>'; }
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: begin "mime loop", iterate thru body_array<br>'; }
|
||
|
|
// look for any parts using this boundary/cookie
|
||
|
|
for ($x=0; $x < count($this->body_array) ;$x++)
|
||
|
|
{
|
||
|
|
// search line by line thru the body
|
||
|
|
$body_line = $this->body_array[$x];
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: mime loop ['.$x.']: '.htmlspecialchars($body_line).'<br>'; }
|
||
|
|
if ((strstr($body_line,'--'.$info->custom['my_cookie']))
|
||
|
|
&& (strpos($body_line,'--'.$info->custom['my_cookie']) == 0)
|
||
|
|
// but NOT the final boundary
|
||
|
|
&& (!strstr($body_line,'--'.$info->custom['my_cookie'].'--')))
|
||
|
|
{
|
||
|
|
// we found a body part
|
||
|
|
|
||
|
|
// BEGINNING of a new part is ALSO the ENDING of a prevoius part
|
||
|
|
// if we were in the state of "IN" on that prevoius part (if any previous part exists)
|
||
|
|
$cur_part_idx = count($info->parts) - 1;
|
||
|
|
if ((isset($info->parts[$cur_part_idx]))
|
||
|
|
&& ($info->parts[$cur_part_idx]->custom['detect_state'] == 'in'))
|
||
|
|
{
|
||
|
|
// we were already "in" so we found ENDING data
|
||
|
|
// for the previous part, (as well as BEGINING data for the next part)
|
||
|
|
// --Bytes-- we have a running total of byte size, but in testing against UWash, I was over by 2 bytes, so fix that
|
||
|
|
$info->parts[$cur_part_idx]->bytes = $info->parts[$cur_part_idx]->bytes - 2;
|
||
|
|
$info->parts[$cur_part_idx]->custom['part_end'] = $x-1;
|
||
|
|
// --Lines-- we know beginning line and ending line, so calculate # lines for this part
|
||
|
|
$info->parts[$cur_part_idx]->lines = (int)$info->parts[$cur_part_idx]->custom['part_end'] - (int)$info->parts[$cur_part_idx]->custom['part_start'];
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: mime loop: current part end at ['.(string)($x-1).'] byte cumula: ['.$info->parts[$cur_part_idx]->bytes.'] lines: ['.$info->parts[$cur_part_idx]->lines.']<br>'; }
|
||
|
|
// this individual part has completed discovery, it os now "OUT"
|
||
|
|
$info->parts[$cur_part_idx]->custom['detect_state'] = 'out';
|
||
|
|
// we are DONE with this part for now
|
||
|
|
// unset any unfilled elements
|
||
|
|
// NOTE: param to unset_unfilled_fetchstructure is a REFERENCE
|
||
|
|
$this->unset_unfilled_fetchstructure(&$info->parts[$cur_part_idx]);
|
||
|
|
}
|
||
|
|
// so now deal with this NEW part we just discovered
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: mime loop: begin part discovery<br>'; }
|
||
|
|
// Create New Sub Part Object
|
||
|
|
$new_part_idx = count($info->parts);
|
||
|
|
$info->parts[$new_part_idx] = new msg_structure;
|
||
|
|
$info->parts[$new_part_idx]->bytes = 0;
|
||
|
|
$info->parts[$new_part_idx]->custom['top_level'] = False;
|
||
|
|
$info->parts[$new_part_idx]->custom['parent_cookie'] = $info->custom['my_cookie'];
|
||
|
|
// state info: we are now "IN" doing multi part detection on this part
|
||
|
|
$info->parts[$new_part_idx]->custom['detect_state'] = 'in';
|
||
|
|
// get this part's headers
|
||
|
|
// start 1 line after the cookie, and end with the first blank line
|
||
|
|
// part header starts next line after the boundary/cookie
|
||
|
|
$info->parts[$new_part_idx]->custom['header_start'] = $x+1;
|
||
|
|
$part_header_blob = '';
|
||
|
|
for ($y=$x+1; $y < count($this->body_array) ;$y++)
|
||
|
|
{
|
||
|
|
if ($this->body_array[$y] != '')
|
||
|
|
{
|
||
|
|
// grap this part header line
|
||
|
|
$part_header_blob .= $this->body_array[$y]."\r\n";
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: mime loop: part part_header_blob line['.$y.']: '.$this->body_array[$y].'<br>'; }
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// reached end of this part's headers
|
||
|
|
// headers actually ended 1 line above this blank line
|
||
|
|
$info->parts[$new_part_idx]->custom['header_end'] = (int)($y-1);
|
||
|
|
// break out of this sub loop
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// get rid of that last CRLF
|
||
|
|
$part_header_blob = trim($part_header_blob);
|
||
|
|
// RFC2822 "unfold" the grabbed header
|
||
|
|
// unfold any unfolded headers - using CR_LF_TAB as rfc822 "whitespace"
|
||
|
|
$part_header_blob = str_replace("\r\n\t"," ",$part_header_blob);
|
||
|
|
// unfold any unfolded headers - using CR_LF_SPACE as rfc822 "whitespace"
|
||
|
|
$part_header_blob = str_replace("\r\n "," ",$part_header_blob);
|
||
|
|
// make the header blob into an array of strings, one array element per header line, throw away blank lines
|
||
|
|
$part_header_array = Array();
|
||
|
|
$part_header_array = $this->glob_to_array($part_header_blob, False, '', True);
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: mime loop: part_header_array:'.serialize($part_header_array).'<br>'; }
|
||
|
|
// since we just passed the headers, and this is NOT a final boundary
|
||
|
|
// this MUST be a start point for the next part
|
||
|
|
$info->parts[$new_part_idx]->custom['part_start'] = (int)($y+1);
|
||
|
|
// fill the conventional info on this fetchstructure sub-part
|
||
|
|
// NOTE: first param to sub_get_structure is a REFERENCE
|
||
|
|
$this->sub_get_structure(&$info->parts[$new_part_idx],$part_header_array);
|
||
|
|
// ADVANCE INDEX $x TO AFTER WHAT WE'VE ALREADY LOOKED AT
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: mime loop: advance x from ['.$x.'] to ['.$y.']<br>'; }
|
||
|
|
$x = $y;
|
||
|
|
}
|
||
|
|
elseif ((strstr($body_line,'--'.$info->custom['my_cookie'].'--'))
|
||
|
|
&& (strpos($body_line,'--'.$info->custom['my_cookie'].'--') == 0))
|
||
|
|
{
|
||
|
|
// we found the CLOSING BOUNDARY
|
||
|
|
$cur_part_idx = count($info->parts) - 1;
|
||
|
|
$info->parts[$cur_part_idx]->custom['part_end'] = $x-1;
|
||
|
|
// --Bytes-- we have a running total of byte size, but in testing against UWash, I was over by 2 bytes, so fix that
|
||
|
|
$info->parts[$cur_part_idx]->bytes = $info->parts[$cur_part_idx]->bytes - 2;
|
||
|
|
// --Lines-- we know beginning line and ending line, so calculate # lines for this part
|
||
|
|
$info->parts[$cur_part_idx]->lines = $info->parts[$cur_part_idx]->custom['part_end'] - $info->parts[$cur_part_idx]->custom['part_start'];
|
||
|
|
$info->parts[$cur_part_idx]->custom['detect_state'] = 'out';
|
||
|
|
// we are DONE with this part for now
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: mime loop: final boundary at ['.(string)($x-1).'] byte cumula: ['.$info->parts[$cur_part_idx]->bytes.'] lines: ['.$info->parts[$cur_part_idx]->lines.']<br>'; }
|
||
|
|
// unset any unfilled elements
|
||
|
|
// NOTE: param to unset_unfilled_fetchstructure is a REFERENCE
|
||
|
|
$this->unset_unfilled_fetchstructure(&$info->parts[$cur_part_idx]);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// running byte size of this part (if any)
|
||
|
|
$cur_part_idx = count($info->parts) - 1;
|
||
|
|
if ((isset($info->parts[$cur_part_idx]))
|
||
|
|
&& ($info->parts[$cur_part_idx]->custom['detect_state'] == 'in'))
|
||
|
|
{
|
||
|
|
// previous count
|
||
|
|
$prev_bytes = $info->parts[$cur_part_idx]->bytes;
|
||
|
|
// add new count, +2 for the \r\n that will end the line when we feed it to the client
|
||
|
|
$add_bytes = strlen($body_line) + 2;
|
||
|
|
$info->parts[$cur_part_idx]->bytes = $prev_bytes + $add_bytes;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// do we have an encapsulated (non-boundry based) Embedded Part
|
||
|
|
elseif ( (isset($info->type))
|
||
|
|
&& ($info->type == TYPEMESSAGE)
|
||
|
|
&& (isset($info->subtype))
|
||
|
|
&& (strtolower($info->subtype) == 'rfc822')
|
||
|
|
&& (count($info->parts) == 0))
|
||
|
|
{
|
||
|
|
// Encapsulated "message/rfc822" MIME Part In Need Of Discovered
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: create_embeded_fetchstructure: Discovery Needed for Encapsulated "message/rfc822" MIME Part<br>'; }
|
||
|
|
$range_start = $info->custom['part_start'];
|
||
|
|
$range_end = $info->custom['part_end'];
|
||
|
|
// is this range data valid
|
||
|
|
if ( (!isset($info->custom['part_start']))
|
||
|
|
|| (!isset($info->custom['part_end']))
|
||
|
|
|| ($info->custom['part_end'] <= $info->custom['part_start']))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving create_embeded_fetchstructure with Error in "message/rfc2822" range<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
|
||
|
|
// note that below we will iterate thru this range
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: "mime loop", will iterate thru parents body_array range ['.$range_start.'] to ['.$range_end.']<br>'; }
|
||
|
|
|
||
|
|
// encapsulated is not that tricky, we must so this
|
||
|
|
// 1) Create New Sub Part Object
|
||
|
|
$enc_part_idx = count($info->parts);
|
||
|
|
$info->parts[$enc_part_idx] = new msg_structure;
|
||
|
|
$info->parts[$enc_part_idx]->bytes = 0;
|
||
|
|
$info->parts[$enc_part_idx]->custom['top_level'] = False;
|
||
|
|
// ??? encapsulated part's parent does not have a boundary ???
|
||
|
|
$info->parts[$enc_part_idx]->custom['parent_cookie'] = '';
|
||
|
|
|
||
|
|
// 2) Get This Part's Headers
|
||
|
|
// encapsulated headers begin immediately in the encapsulated part
|
||
|
|
$info->parts[$enc_part_idx]->custom['header_start'] = $range_start;
|
||
|
|
// encapsulated headers end with the 1st blank line
|
||
|
|
$part_header_blob = '';
|
||
|
|
for ($y=$range_start; $y < $range_end+1 ;$y++)
|
||
|
|
{
|
||
|
|
if ($this->body_array[$y] != '')
|
||
|
|
{
|
||
|
|
// grap this part header line
|
||
|
|
$part_header_blob .= $this->body_array[$y]."\r\n";
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: enc mime loop: part part_header_blob line['.$y.']: '.htmlspecialchars($this->body_array[$y]).'<br>'; }
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// reached end of this part's headers
|
||
|
|
// headers actually ended 1 line above this blank line
|
||
|
|
$info->parts[$enc_part_idx]->custom['header_end'] = (int)($y-1);
|
||
|
|
// break out of this sub loop
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// get rid of that last CRLF
|
||
|
|
$part_header_blob = trim($part_header_blob);
|
||
|
|
// RFC2822 "unfold" the grabbed header
|
||
|
|
// unfold any unfolded headers - using CR_LF_TAB as rfc822 "whitespace"
|
||
|
|
$part_header_blob = str_replace("\r\n\t"," ",$part_header_blob);
|
||
|
|
// unfold any unfolded headers - using CR_LF_SPACE as rfc822 "whitespace"
|
||
|
|
$part_header_blob = str_replace("\r\n "," ",$part_header_blob);
|
||
|
|
// make the header blob into an array of strings, one array element per header line, throw away blank lines
|
||
|
|
$part_header_array = Array();
|
||
|
|
$part_header_array = $this->glob_to_array($part_header_blob, False, '', True);
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: enc mime loop: part_header_array:'.serialize($part_header_array).'<br>'; }
|
||
|
|
|
||
|
|
// 2) Feed these Headers thru "sub_get_structure"
|
||
|
|
// fill the conventional info on this fetchstructure sub-part
|
||
|
|
// NOTE: first param to sub_get_structure is a REFERENCE
|
||
|
|
$this->sub_get_structure(&$info->parts[$enc_part_idx],$part_header_array);
|
||
|
|
|
||
|
|
// == CONTROVESTIAL DEFAULT UWASH VALUE ASSIGNMENTS ==
|
||
|
|
// close study of UWash IMAP indicates the an immediate child message part of a RFC822 package will:
|
||
|
|
// (A) SUBTYPE
|
||
|
|
// will get a default value of "plain" from UWash imap WHEN NO TYPE was specified for this part
|
||
|
|
// I assume if a type was specified then UWash would not do this
|
||
|
|
// in fact UWash *may* fill a default subtype if a type IS specified (it's in the UWash code)
|
||
|
|
// so I will imitate UWash IMAP and assign a subtype of "plain" when NO type is specified
|
||
|
|
if ((!isset($info->parts[$enc_part_idx]->subtype))
|
||
|
|
|| ((string)$info->parts[$enc_part_idx]->subtype == ''))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: enc mime loop: CONTROVERSIAL uwash imitation: adding subtype "plain" to immediate RFC822 child part, none was specified<br>'; }
|
||
|
|
$info->parts[$enc_part_idx]->ifsubtype = True;
|
||
|
|
$info->parts[$enc_part_idx]->subtype = 'plain';
|
||
|
|
}
|
||
|
|
// (B) PARAM "charset=US-ASCII"
|
||
|
|
// gets added if no charset is specified for this immediate RFC822 child
|
||
|
|
// I know it hurts, but I'm just copying UWash !!!
|
||
|
|
$found_charset = False;
|
||
|
|
for ($ux=0; $ux < count($info->parts[$enc_part_idx]->parameters) ;$ux++)
|
||
|
|
{
|
||
|
|
if (stristr($info->parts[$enc_part_idx]->parameters[$new_idx]->attribute,'charset'))
|
||
|
|
{
|
||
|
|
$found_charset = True;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// do that crappy adding of charset param if necessary
|
||
|
|
if ($found_charset == False)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: enc mime loop: CONTROVERSIAL uwash imitation: adding param "charset=US-ASCII" to immediate RFC822 child part, none was specified<br>'; }
|
||
|
|
$new_idx = count($info->parts[$enc_part_idx]->parameters);
|
||
|
|
$info->parts[$enc_part_idx]->parameters[$new_idx] = new msg_params('charset','US-ASCII');
|
||
|
|
$info->parts[$enc_part_idx]->ifparameters = true;
|
||
|
|
}
|
||
|
|
// ends CONTROVESTIAL uwash inmitation code
|
||
|
|
|
||
|
|
// 3) fill Part Start and Part End
|
||
|
|
// encapsulated body STARTS at the first line after the blank line header sep above
|
||
|
|
$info->parts[$enc_part_idx]->custom['part_start'] = (int)($y+1);
|
||
|
|
// encapsulated body ENDS at the end of the partnts range
|
||
|
|
$info->parts[$enc_part_idx]->custom['part_end'] = $range_end;
|
||
|
|
|
||
|
|
// 4) calculate byte size and # of lines of the content within this parts start and end
|
||
|
|
$my_start = $info->parts[$enc_part_idx]->custom['part_start'];
|
||
|
|
$my_end = $info->parts[$enc_part_idx]->custom['part_end'];
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: enc mime loop: this body range ['.$my_start.'] to ['.$my_end.']<br>'; }
|
||
|
|
for ($x=$my_start; $x < $my_end+1 ;$x++)
|
||
|
|
{
|
||
|
|
// running byte size of this part
|
||
|
|
$body_line = $this->body_array[$x];
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: encap mime size loop ['.$x.']: '.htmlspecialchars($body_line).'<br>'; }
|
||
|
|
// prevoius count
|
||
|
|
$prev_bytes = $info->parts[$enc_part_idx]->bytes;
|
||
|
|
// add new count, +2 for the \r\n that will end the line when we feed it to the client
|
||
|
|
$add_bytes = strlen($body_line) + 2;
|
||
|
|
$info->parts[$enc_part_idx]->bytes = $prev_bytes + $add_bytes;
|
||
|
|
}
|
||
|
|
// --Bytes-- we made a running total of byte size, but in testing against UWash, I was over by 2 bytes, so fix that
|
||
|
|
$info->parts[$enc_part_idx]->bytes = $info->parts[$enc_part_idx]->bytes - 2;
|
||
|
|
// --Lines-- we know beginning line and ending line, so calculate # lines for this part
|
||
|
|
$info->parts[$enc_part_idx]->lines = $my_end - $my_start;
|
||
|
|
// we're done with the loop so the bytes have been calculated in that loop
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: this part range byte size ['.$info->parts[$enc_part_idx]->bytes.'] lines: ['.$info->parts[$enc_part_idx]->lines.']<br>'; }
|
||
|
|
}
|
||
|
|
// no embedded parts, why not?
|
||
|
|
elseif ( (isset($info->type))
|
||
|
|
&& ($info->type == TYPEMESSAGE)
|
||
|
|
&& (isset($info->subtype))
|
||
|
|
&& (strtolower($info->subtype) == 'rfc822')
|
||
|
|
&& (count($info->parts) == 0))
|
||
|
|
{
|
||
|
|
// do NOTHING - this level has ALREADY been filled
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: feed info encapsulated "message/rfc822" ALREADY filled<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
elseif ($info->custom['my_cookie'] == '')
|
||
|
|
{
|
||
|
|
// do NOTHING - this is NOT multipart
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: feed info not multipart<br>'; }
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
echo 'pop3: create_embeded_fetchstructure: feed info not multipart DUMP EXAMINE:<br>';
|
||
|
|
var_dump($info);
|
||
|
|
echo '<br><br>';
|
||
|
|
}
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
elseif (($info->custom['my_cookie'] != '')
|
||
|
|
&& (count($info->parts) > 0))
|
||
|
|
{
|
||
|
|
// do NOTHING - this level has ALREADY been filled
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: create_embeded_fetchstructure: feed info multipart ALREADY filled<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: create_embeded_fetchstructure: * * no mans land * *<br>'; }
|
||
|
|
}
|
||
|
|
//if ($this->debug >= 2)
|
||
|
|
//{
|
||
|
|
// echo '<br>dumping create_embeded_fetchstructure return info: <br>';
|
||
|
|
// var_dump($info);
|
||
|
|
// echo '<br><br>';
|
||
|
|
//}
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving create_embeded_fetchstructure<br>'; }
|
||
|
|
return True;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function sub_get_structure
|
||
|
|
@abstract HELPER function for fetchstructure / IMAP_FETCHSTRUCTURE
|
||
|
|
@param $info : **REFERENCE** to a class "msg_structure" object
|
||
|
|
@param $header_array : array of headers to process
|
||
|
|
@result NONE : this function DIRECTLY manipulates the referenced object
|
||
|
|
@discussion as implemented, reference is to some part of class var $this->msg_structure
|
||
|
|
@author Angles, Itzchak Rehberg, Joseph Engo
|
||
|
|
@access private
|
||
|
|
*/
|
||
|
|
function sub_get_structure($info,$header_array)
|
||
|
|
{
|
||
|
|
// set debug flag
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
$debug_mime = True;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$debug_mime = False;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering sub_get_structure<br>'; }
|
||
|
|
/*
|
||
|
|
// initialize the structure
|
||
|
|
$info->custom['top_level'] = $extra_args['top_level'];
|
||
|
|
$info->custom['detect_state'] = 'in'; // = 'out';
|
||
|
|
$info->custom['parent_cookie'] = '';
|
||
|
|
$info->custom['my_cookie'] = ''; // for recursive sub-parts
|
||
|
|
$info->custom['my_header_array'] = '';
|
||
|
|
$info->custom['header_start'] = ''; // this parts MIME headers start index in body array
|
||
|
|
$info->custom['header_end'] = ''; // this parts MIME headers ending index in body array
|
||
|
|
$info->custom['part_start'] = $extra_args['part_start'];
|
||
|
|
$info->custom['part_end'] = ''; // unknown ending point at this stage, we just got past it's headers
|
||
|
|
*/
|
||
|
|
// FILL THE DATA
|
||
|
|
for ($i=0; $i < count($header_array) ;$i++)
|
||
|
|
{
|
||
|
|
$pos = strpos($header_array[$i],' ');
|
||
|
|
//if ($debug_mime) { echo 'header_array['.$i.']: '.$header_array[$i].'<br>'; }
|
||
|
|
if (is_int($pos) && ($pos==0))
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$keyword = strtolower(substr($header_array[$i],0,$pos));
|
||
|
|
$content = trim(substr($header_array[$i],$pos+1));
|
||
|
|
if ($debug_mime)
|
||
|
|
{
|
||
|
|
//echo 'pos: '.$pos.'<br>';
|
||
|
|
echo 'pop3: sub_get_structure: keyword: ['.htmlspecialchars($keyword).']'
|
||
|
|
.' content: ['.htmlspecialchars($content).']<br>';
|
||
|
|
}
|
||
|
|
switch ($keyword)
|
||
|
|
{
|
||
|
|
case 'content-type:' :
|
||
|
|
// this will fill type and (hopefully) subtype
|
||
|
|
// NOTE: first param to parse_type_subtype is a REFERENCE
|
||
|
|
$this->parse_type_subtype(&$info,$content);
|
||
|
|
// ALSO, typically Paramaters are on this line as well
|
||
|
|
$pos_param = strpos($content,';');
|
||
|
|
if ($pos_param > 0)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: sub_get_structure: apparent params exist in content ['.$content.']<br>'; }
|
||
|
|
// feed the whole param line into this function
|
||
|
|
$content = substr($content,$pos_param+1);
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: sub_get_structure: calling parse_msg_params, feeding content ['.$content.']<br>'; }
|
||
|
|
// False = this is NOT a disposition param, this is the more common regular param
|
||
|
|
// NOTE: first param to parse_msg_params is a REFERENCE
|
||
|
|
$this->parse_msg_params(&$info,$content,False);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 'content-transfer-encoding:' :
|
||
|
|
$info->encoding = $this->encoding_str_to_int($content);
|
||
|
|
break;
|
||
|
|
case 'content-description:' :
|
||
|
|
$info->description = $content;
|
||
|
|
//$i = $this->more_info($msg_part,$i,&$info,"description");
|
||
|
|
$info->ifdescription = true;
|
||
|
|
break;
|
||
|
|
case 'content-disposition:' :
|
||
|
|
// disposition MAY have Paramaters on this line as well
|
||
|
|
$pos_param = strpos($content,';');
|
||
|
|
if ($pos_param > 0)
|
||
|
|
{
|
||
|
|
$content = substr($content,0,$pos_param);
|
||
|
|
}
|
||
|
|
$info->disposition = $content;
|
||
|
|
$info->ifdisposition = True;
|
||
|
|
// parse paramaters if any
|
||
|
|
if ($pos_param > 0)
|
||
|
|
{
|
||
|
|
// feed the whole param line into this function
|
||
|
|
$content = substr($content,$pos_param+1);
|
||
|
|
// NOTE: first param to parse_msg_params is a REFERENCE
|
||
|
|
$this->parse_msg_params(&$info,$content,False);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 'content-identifier:' :
|
||
|
|
case 'content-id:' :
|
||
|
|
case 'message-id:' :
|
||
|
|
if ((strstr($content, '<'))
|
||
|
|
&& (strstr($content, '>')))
|
||
|
|
{
|
||
|
|
$content = str_replace('<','',$content);
|
||
|
|
$content = str_replace('>','',$content);
|
||
|
|
}
|
||
|
|
//$i = $this->more_info($msg_part,$i,&$info,"id");
|
||
|
|
$info->id = $content;
|
||
|
|
$info->ifid = true;
|
||
|
|
break;
|
||
|
|
case 'content-length:' :
|
||
|
|
$info->bytes = (int)$content;
|
||
|
|
break;
|
||
|
|
case 'content-disposition:' :
|
||
|
|
$info->disposition = $content;
|
||
|
|
//$i = $this->more_info($msg_part,$i,&$info,"disposition");
|
||
|
|
$info->ifdisposition = true;
|
||
|
|
break;
|
||
|
|
case 'lines:' :
|
||
|
|
$info->lines = (int)$content;
|
||
|
|
break;
|
||
|
|
/*
|
||
|
|
case 'mime-version:' :
|
||
|
|
$new_idx = count($info->parameters);
|
||
|
|
$info->parameters[$new_idx] = new msg_params("Mime-Version",$content);
|
||
|
|
$info->ifparameters = true;
|
||
|
|
break;
|
||
|
|
*/
|
||
|
|
default : break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
echo 'pop3: sub_get_structure: info->encoding ['.(string)$info->encoding.'] (if empty here it will get a default value later)<br>';
|
||
|
|
}
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving sub_get_structure<br>'; }
|
||
|
|
return $info;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function unset_unfilled_fetchstructure
|
||
|
|
@abstract HELPER function for fetchstructure / IMAP_FETCHSTRUCTURE
|
||
|
|
@param $info : **REFERENCE** to a class "msg_structure" object
|
||
|
|
@result NONE : this function DIRECTLY manipulates the referenced object
|
||
|
|
@discussion as implemented, reference is to some part of class var $this->msg_structure
|
||
|
|
unsets any unfilled elements of the referenced part in the fetchstructure object
|
||
|
|
to mimic PHP's return structure
|
||
|
|
@author Angles
|
||
|
|
@access private
|
||
|
|
*/
|
||
|
|
function unset_unfilled_fetchstructure($info)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering unset_unfilled_fetchstructure<br>'; }
|
||
|
|
// unset any unfilled elements, ALWAYS leave parts and custom
|
||
|
|
if ((string)$info->type == '')
|
||
|
|
{
|
||
|
|
$info->type = NIL;
|
||
|
|
unset($info->type);
|
||
|
|
}
|
||
|
|
if ((string)$info->encoding == '')
|
||
|
|
{
|
||
|
|
$info->encoding = NIL;
|
||
|
|
unset($info->encoding);
|
||
|
|
}
|
||
|
|
//$info->ifsubtype = False;
|
||
|
|
if ((string)$info->subtype == '')
|
||
|
|
{
|
||
|
|
$info->subtype = NIL;
|
||
|
|
unset($info->subtype);
|
||
|
|
}
|
||
|
|
//$info->ifdescription = False;
|
||
|
|
if ((string)$info->description == '')
|
||
|
|
{
|
||
|
|
$info->description = NIL;
|
||
|
|
unset($info->description);
|
||
|
|
}
|
||
|
|
//$info->ifid = False;
|
||
|
|
if ((string)$info->id == '')
|
||
|
|
{
|
||
|
|
$info->id = NIL;
|
||
|
|
unset($info->id);
|
||
|
|
}
|
||
|
|
if ((string)$info->lines == '')
|
||
|
|
{
|
||
|
|
$info->lines = NIL;
|
||
|
|
unset($info->lines);
|
||
|
|
}
|
||
|
|
if ((string)$info->bytes == '')
|
||
|
|
{
|
||
|
|
$info->bytes = NIL;
|
||
|
|
unset($info->bytes);
|
||
|
|
}
|
||
|
|
//$info->ifdisposition = False;
|
||
|
|
if ((string)$info->disposition == '')
|
||
|
|
{
|
||
|
|
$info->disposition = NIL;
|
||
|
|
unset($info->disposition);
|
||
|
|
}
|
||
|
|
//$info->ifdparameters = False;
|
||
|
|
if (count($info->dparameters) == 0)
|
||
|
|
{
|
||
|
|
$info->dparameters = NIL;
|
||
|
|
unset($info->dparameters);
|
||
|
|
}
|
||
|
|
//$info->ifparameters = False;
|
||
|
|
if (count($info->parameters) == 0)
|
||
|
|
{
|
||
|
|
$info->parameters = NIL;
|
||
|
|
unset($info->parameters);
|
||
|
|
}
|
||
|
|
//$info->custom = array();
|
||
|
|
//$info->parts = array();
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving unset_unfilled_fetchstructure<br>'; }
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function parse_type_subtype
|
||
|
|
@abstract HELPER function for sub_get_structure / IMAP_FETCHSTRUCTURE
|
||
|
|
@param $info : **REFERENCE** to a class "msg_structure" object
|
||
|
|
@param $content : the text associated with the "content-type:" header
|
||
|
|
@result NONE : this function DIRECTLY manipulates the referenced object
|
||
|
|
@discussion as implemented, reference is to some part of class var $this->msg_structure
|
||
|
|
parses "content-type:" header into fetchstructure data ->type and ->subtype
|
||
|
|
@author Angles, Itzchak Rehberg, Joseph Engo
|
||
|
|
@access private
|
||
|
|
*/
|
||
|
|
function parse_type_subtype($info,$content)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering parse_type_subtype<br>'; }
|
||
|
|
// used by pop_fetchstructure only
|
||
|
|
// get rid of any other params that might be here
|
||
|
|
$pos = strpos($content,';');
|
||
|
|
if ($pos > 0)
|
||
|
|
{
|
||
|
|
$content = substr($content,0,$pos);
|
||
|
|
}
|
||
|
|
// split type from subtype
|
||
|
|
$pos = strpos($content,'/');
|
||
|
|
if ($pos > 0)
|
||
|
|
{
|
||
|
|
$prim_type = strtolower(substr($content,0,$pos));
|
||
|
|
$info->subtype = strtolower(substr($content,$pos+1));
|
||
|
|
$info->ifsubtype = True;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$prim_type = strtolower($content);
|
||
|
|
}
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: parse_type_subtype: prim_type: '.$prim_type.'<br>'; }
|
||
|
|
$info->type = $this->type_str_to_int($prim_type);
|
||
|
|
if ($info->ifsubtype == False)
|
||
|
|
{
|
||
|
|
// use RFC default for subtype
|
||
|
|
$info->subtype = $this->default_subtype($info->type);
|
||
|
|
$info->ifsubtype = True;
|
||
|
|
}
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
echo 'pop3: parse_type_subtype: info->type ['.$info->type.'] aka "'.$this->type_int_to_str($info->type).'"<br>';
|
||
|
|
echo 'pop3: parse_type_subtype: info->ifsubtype ['.$info->ifsubtype.']<br>';
|
||
|
|
echo 'pop3: parse_type_subtype: info->subtype "'.$info->subtype.'"<br>';
|
||
|
|
}
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving parse_type_subtype<br>'; }
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function parse_msg_params
|
||
|
|
@abstract HELPER function for sub_get_structure / IMAP_FETCHSTRUCTURE
|
||
|
|
@param $info : **REFERENCE** to a class "msg_structure" object
|
||
|
|
@param $content : string from the "content-type:" or "content-disposition:" header
|
||
|
|
@param $is_disposition_param : boolean : true if parsing "content-disposition:" header string
|
||
|
|
tells this function to fill info->dparameters instead of the more common info->parameters
|
||
|
|
@result NONE : this function DIRECTLY manipulates the referenced object
|
||
|
|
@discussion as implemented, reference is to some part of class var $this->msg_structure
|
||
|
|
parses "content-type:" header string into fetchstructure data info->parameters
|
||
|
|
or "content-disposition:" header string into fetchstructure data info->dparameters
|
||
|
|
@author Angles, Itzchak Rehberg, Joseph Engo
|
||
|
|
@access private
|
||
|
|
*/
|
||
|
|
function parse_msg_params($info,$content,$is_disposition_param=False)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 2) {
|
||
|
|
//echo 'pop3: *in parse_msg_params<br>';
|
||
|
|
echo 'pop3: *in parse_msg_params: content ['.$content.']<br>';
|
||
|
|
echo 'pop3: *in parse_msg_params: is_disposition_param ['.(string)$is_disposition_param.']<br>';
|
||
|
|
}
|
||
|
|
// bogus data detection
|
||
|
|
if (trim($content) == '')
|
||
|
|
{
|
||
|
|
// we need to exit this function, we were fed bogus (empty) $content
|
||
|
|
// this function does not actually return anything
|
||
|
|
// instead it directly manipulates the referenced $info param
|
||
|
|
// thus we can call "return" to exit the function with no effect on data flow
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
// seperate param strings into an string list array
|
||
|
|
$param_list = Array();
|
||
|
|
if (strstr($content, ';'))
|
||
|
|
{
|
||
|
|
$param_list = explode(';',$content);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$param_list[0] = $content;
|
||
|
|
}
|
||
|
|
// process each param string
|
||
|
|
for ($x=0; $x < count($param_list) ;$x++)
|
||
|
|
{
|
||
|
|
$pos_token = strpos($param_list[$x],"=");
|
||
|
|
if ($pos_token == 0)
|
||
|
|
{
|
||
|
|
// error - not a regular param=value pair
|
||
|
|
$param_attrib = trim($param_list[$x]);
|
||
|
|
$param_value = 'UNKNOWN_PARAM_VALUE';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$param_attrib = trim(substr($param_list[$x],0,$pos_token));
|
||
|
|
$param_value = trim(substr($param_list[$x],$pos_token+1));
|
||
|
|
$param_value = str_replace("\"","",$param_value);
|
||
|
|
}
|
||
|
|
// are these typical message paramaters or the more rare "disposition" params
|
||
|
|
if ($is_disposition_param == False)
|
||
|
|
{
|
||
|
|
// typical msg params
|
||
|
|
$new_idx = count($info->parameters);
|
||
|
|
$info->parameters[$new_idx] = new msg_params($param_attrib,$param_value);
|
||
|
|
$info->ifparameters = true;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// content-disposition paramaters are pretty rare
|
||
|
|
$new_idx = count($info->dparameters);
|
||
|
|
$info->dparameters[$new_idx] = new msg_params($param_attrib,$param_value);
|
||
|
|
$info->ifparameters = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function type_str_to_int($type_str)
|
||
|
|
{
|
||
|
|
// fallback value
|
||
|
|
$type_int = TYPEOTHER;
|
||
|
|
switch ($type_str)
|
||
|
|
{
|
||
|
|
case 'text' : $type_int = TYPETEXT; break;
|
||
|
|
case 'multipart' : $type_int = TYPEMULTIPART; break;
|
||
|
|
case 'message' : $type_int = TYPEMESSAGE; break;
|
||
|
|
case 'application' : $type_int = TYPEAPPLICATION; break;
|
||
|
|
case 'audio' : $type_int = TYPEAUDIO; break;
|
||
|
|
case 'image' : $type_int = TYPEIMAGE; break;
|
||
|
|
case 'video' : $type_int = TYPEVIDEO; break;
|
||
|
|
// this causes errors under php 4.0.6, but used to work before that, I think
|
||
|
|
//defaut : $type_int = TYPEOTHER; break;
|
||
|
|
}
|
||
|
|
return $type_int;
|
||
|
|
}
|
||
|
|
|
||
|
|
function default_type($probably_text=True)
|
||
|
|
{
|
||
|
|
if ($probably_text)
|
||
|
|
{
|
||
|
|
return TYPETEXT;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
return TYPEAPPLICATION;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function default_subtype($type_int=TYPEAPPLICATION)
|
||
|
|
{
|
||
|
|
// APPLICATION/OCTET-STREAM is the default when NO info is available
|
||
|
|
switch ($type_int)
|
||
|
|
{
|
||
|
|
case TYPETEXT : return 'plain'; break;
|
||
|
|
case TYPEMULTIPART : return 'mixed'; break;
|
||
|
|
case TYPEMESSAGE : return 'rfc822'; break;
|
||
|
|
case TYPEAPPLICATION : return 'octet-stream'; break;
|
||
|
|
case TYPEAUDIO : return 'basic'; break;
|
||
|
|
default : return 'unknown'; break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function default_encoding()
|
||
|
|
{
|
||
|
|
return ENC7BIT;
|
||
|
|
}
|
||
|
|
|
||
|
|
// MAY BE OBSOLETED
|
||
|
|
function more_info($header,$i,$info,$infokey)
|
||
|
|
{
|
||
|
|
// used by pop_fetchstructure only
|
||
|
|
do
|
||
|
|
{
|
||
|
|
$pos = strpos($header[$i+1],' ');
|
||
|
|
if (is_int($pos) && !$pos)
|
||
|
|
{
|
||
|
|
$i++;
|
||
|
|
$info->$infokey .= ltrim($header[$i]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
while (is_int($pos) && !$pos);
|
||
|
|
return $i;
|
||
|
|
}
|
||
|
|
|
||
|
|
function encoding_str_to_int($encoding_str)
|
||
|
|
{
|
||
|
|
switch (strtolower($encoding_str))
|
||
|
|
{
|
||
|
|
case '7bit' : $encoding_int = ENC7BIT; break;
|
||
|
|
case '8bit' : $encoding_int = ENC8BIT; break;
|
||
|
|
case 'binary' : $encoding_int = ENCBINARY; break;
|
||
|
|
case 'base64' : $encoding_int = ENCBASE64; break;
|
||
|
|
case 'quoted-printable' : $encoding_int = ENCQUOTEDPRINTABLE; break;
|
||
|
|
case 'other' : $encoding_int = ENCOTHER; break;
|
||
|
|
case 'uu' : $encoding_int = ENCUU; break;
|
||
|
|
default : $encoding_int = ENCOTHER; break;
|
||
|
|
}
|
||
|
|
return $encoding_int;
|
||
|
|
}
|
||
|
|
|
||
|
|
function size_msg($stream_notused,$msg_num)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering size_msg<br>'; }
|
||
|
|
if (!$this->msg2socket('LIST '.$msg_num,"^\+ok",&$response))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
$list_response = explode(' ',$response);
|
||
|
|
$return_size = trim($list_response[2]);
|
||
|
|
$return_size = (int)$return_size * 1;
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: size_msg: '.$return_size.'<br>'; }
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving size_msg<br>'; }
|
||
|
|
return $return_size;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**************************************************************************\
|
||
|
|
* Message Envelope (Header Info) Data
|
||
|
|
\**************************************************************************/
|
||
|
|
/*!
|
||
|
|
@function header
|
||
|
|
@abstract implements IMAP_HEADER (alias to IMAP_HEADERINFO)
|
||
|
|
@abstract implements IMAP_HEADERINFO
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $msg_num : intefer
|
||
|
|
@param $fromlength ?
|
||
|
|
@param $tolength ?
|
||
|
|
@param $defaulthost ?
|
||
|
|
@result returns an instance of Class "hdr_info_envelope", or returns False on error
|
||
|
|
@discussion ?
|
||
|
|
@author Angles, Skeeter, Itzchak Rehberg, Joseph Engo
|
||
|
|
@access public
|
||
|
|
*/
|
||
|
|
function header($stream_notused,$msg_num,$fromlength='',$tolength='',$defaulthost='')
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering header<br>'; }
|
||
|
|
$info = new hdr_info_envelope;
|
||
|
|
$info->Size = $this->size_msg($stream_notused,$msg_num);
|
||
|
|
$info->size = $info->Size;
|
||
|
|
$header_array = $this->get_header_array($stream_notused,$msg_num);
|
||
|
|
if (!$header_array)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving header with error<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
for ($i=0; $i < count($header_array); $i++)
|
||
|
|
{
|
||
|
|
// POP3 ONLY !!! - POP3 considers ALL messages as "unseen" and/or "recent"
|
||
|
|
// because POP3 does not retain such info as seen or unseen
|
||
|
|
// I *may* comment that out because I find this annoying
|
||
|
|
//$info->Unseen = 'U';
|
||
|
|
$pos = strpos($header_array[$i],' ');
|
||
|
|
if (is_int($pos) && !$pos)
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$keyword = strtolower(substr($header_array[$i],0,$pos));
|
||
|
|
$content = trim(substr($header_array[$i],$pos+1));
|
||
|
|
switch ($keyword)
|
||
|
|
{
|
||
|
|
case 'date:' :
|
||
|
|
$info->date = $content;
|
||
|
|
$info->udate = $this->make_udate($content);
|
||
|
|
break;
|
||
|
|
case 'subject' :
|
||
|
|
case 'subject:' :
|
||
|
|
$pos = strpos($header_array[$i+1],' ');
|
||
|
|
if (is_int($pos) && !$pos)
|
||
|
|
{
|
||
|
|
$i++; $content .= chop($header_array[$i]);
|
||
|
|
}
|
||
|
|
$info->subject = htmlspecialchars($content);
|
||
|
|
$info->Subject = htmlspecialchars($content);
|
||
|
|
break;
|
||
|
|
case 'in-reply-to:' :
|
||
|
|
$info->in_reply_to = htmlspecialchars($content);
|
||
|
|
break;
|
||
|
|
case 'message-id' :
|
||
|
|
case 'message-id:' :
|
||
|
|
$info->message_id = htmlspecialchars($content);
|
||
|
|
break;
|
||
|
|
case 'newsgroups:' :
|
||
|
|
$info->newsgroups = htmlspecialchars($content);
|
||
|
|
break;
|
||
|
|
case 'followup-to:' :
|
||
|
|
$info->follow_up_to = htmlspecialchars($content);
|
||
|
|
break;
|
||
|
|
case 'references:' :
|
||
|
|
$info->references = htmlspecialchars($content);
|
||
|
|
break;
|
||
|
|
case 'to' :
|
||
|
|
case 'to:' :
|
||
|
|
// following two lines need to be put into a loop!
|
||
|
|
// NOTE: 3rd and 4th params to get_addr_details are REFERENCES
|
||
|
|
$info->to = $this->get_addr_details('to',$content,&$header_array,&$i);
|
||
|
|
break;
|
||
|
|
case 'from' :
|
||
|
|
case 'from:' :
|
||
|
|
// NOTE: 3rd and 4th params to get_addr_details are REFERENCES
|
||
|
|
$info->from = $this->get_addr_details('from',$content,&$header_array,&$i);
|
||
|
|
break;
|
||
|
|
case 'cc' :
|
||
|
|
case 'cc:' :
|
||
|
|
// NOTE: 3rd and 4th params to get_addr_details are REFERENCES
|
||
|
|
$info->cc = $this->get_addr_details('cc',$content,&$header_array,&$i);
|
||
|
|
break;
|
||
|
|
case 'bcc' :
|
||
|
|
case 'bcc:' :
|
||
|
|
// NOTE: 3rd and 4th params to get_addr_details are REFERENCES
|
||
|
|
$info->bcc = $this->get_addr_details('bcc',$content,&$header_array,&$i);
|
||
|
|
break;
|
||
|
|
case 'reply-to' :
|
||
|
|
case 'reply-to:' :
|
||
|
|
// NOTE: 3rd and 4th params to get_addr_details are REFERENCES
|
||
|
|
$info->reply_to = $this->get_addr_details('reply_to',$content,&$header_array,&$i);
|
||
|
|
break;
|
||
|
|
case 'sender' :
|
||
|
|
case 'sender:' :
|
||
|
|
// NOTE: 3rd and 4th params to get_addr_details are REFERENCES
|
||
|
|
$info->sender = $this->get_addr_details('sender',$content,&$header_array,&$i);
|
||
|
|
break;
|
||
|
|
case 'return-path' :
|
||
|
|
case 'return-path:' :
|
||
|
|
// NOTE: 3rd and 4th params to get_addr_details are REFERENCES
|
||
|
|
$info->return_path = $this->get_addr_details('return_path',$content,&$header_array,&$i);
|
||
|
|
break;
|
||
|
|
default :
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($this->debug >= 1)
|
||
|
|
{
|
||
|
|
echo 'pop3: Leaving header<br>';
|
||
|
|
}
|
||
|
|
return $info;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function get_addr_details
|
||
|
|
@abstract HELPER function to header / IMAP_HEADER
|
||
|
|
@param ?
|
||
|
|
@param ?
|
||
|
|
@param ?
|
||
|
|
@param ?
|
||
|
|
@result ?
|
||
|
|
@discussion ?
|
||
|
|
@author Itzchak Rehberg, Joseph Engo
|
||
|
|
@access private
|
||
|
|
*/
|
||
|
|
function get_addr_details($people,$address,$header,$count)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering get_addr_details<br>'; }
|
||
|
|
if (!trim($address))
|
||
|
|
{
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
// check wether this header info is split to multiple lines
|
||
|
|
$done = false;
|
||
|
|
do
|
||
|
|
{
|
||
|
|
$pos = strpos($header[$count+1],' ');
|
||
|
|
if (is_int($pos) && !$pos)
|
||
|
|
{
|
||
|
|
$count++;
|
||
|
|
$address .= chop($header[$count]);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$done = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
while (!$done);
|
||
|
|
$temp = $people . 'address';
|
||
|
|
|
||
|
|
if ($people == 'return_path')
|
||
|
|
{
|
||
|
|
$this->$people = htmlspecialchars($address);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->$temp = htmlspecialchars($address);
|
||
|
|
}
|
||
|
|
|
||
|
|
for ($i=0,$pos=1;$pos;$i++)
|
||
|
|
{
|
||
|
|
//$addr_details = new msg_aka;
|
||
|
|
$addr_details = new address;
|
||
|
|
$pos = strpos($address,'<');
|
||
|
|
$pos3 = strpos($address,'(');
|
||
|
|
if (is_int($pos))
|
||
|
|
{
|
||
|
|
$pos2 = strpos($address,'>');
|
||
|
|
if ($pos2 == $pos+1)
|
||
|
|
{
|
||
|
|
$addr_details->adl = 'nobody@nowhere';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$addr_details->adl = substr($address,$pos+1,$pos2 - $pos -1);
|
||
|
|
}
|
||
|
|
if ($pos)
|
||
|
|
{
|
||
|
|
$addr_details->personal = substr($address,0,$pos - 1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
elseif (is_int($pos3))
|
||
|
|
{
|
||
|
|
$pos2 = strpos($address,')');
|
||
|
|
if ($pos2 == $pos3+1)
|
||
|
|
{
|
||
|
|
$addr_details->personal = 'nobody';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$addr_details->personal = substr($address, $pos3+1, $pos2-$pos3 - 1);
|
||
|
|
}
|
||
|
|
if ($pos3)
|
||
|
|
{
|
||
|
|
$addr_details->adl = substr($address,0,$pos3 - 1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$addr_details->adl = $address;
|
||
|
|
$addr_details->personal = $address;
|
||
|
|
}
|
||
|
|
$pos3 = strpos($addr_details->adl,'@');
|
||
|
|
if (!$pos3)
|
||
|
|
{
|
||
|
|
if (!$pos)
|
||
|
|
{
|
||
|
|
$addr_details->mailbox = $addr_details->adl;
|
||
|
|
}
|
||
|
|
$addr_details->host = $GLOBALS['phpgw_info']['server']['imap_suffix'];
|
||
|
|
$details[$i] = $addr_details;
|
||
|
|
return $details;
|
||
|
|
}
|
||
|
|
$addr_details->mailbox = substr($addr_details->adl,0,$pos3);
|
||
|
|
$addr_details->host = substr($addr_details->adl,$pos3+1);
|
||
|
|
$pos = ereg("\"",$addr_details->personal);
|
||
|
|
if ($pos)
|
||
|
|
{
|
||
|
|
$addr_details->personal = substr($addr_details->personal,1,strlen($addr_details->personal)-2);
|
||
|
|
}
|
||
|
|
$pos = strpos($address,',');
|
||
|
|
if ($pos)
|
||
|
|
{
|
||
|
|
$address = trim(substr($address,$pos+1));
|
||
|
|
}
|
||
|
|
$details[$i] = $addr_details;
|
||
|
|
}
|
||
|
|
return $details;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**************************************************************************\
|
||
|
|
* More Data Communications (dcom) With POP3 Server
|
||
|
|
\**************************************************************************/
|
||
|
|
|
||
|
|
/**************************************************************************\
|
||
|
|
* DELETE a Message From the Server
|
||
|
|
\**************************************************************************/
|
||
|
|
/*!
|
||
|
|
@function delete
|
||
|
|
@abstract implements IMAP_DELETE
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $msg_num : either an integer OR a comma seperated string of integers and/or ranges (21:23, 26, 69)
|
||
|
|
@param $flags : integer - FT_UID (not implimented)
|
||
|
|
@result returns True if able to mark a message for deletion, False if not
|
||
|
|
@discussion Similar to an IMAP server, POP3 must be expunged to actually delete marked messages
|
||
|
|
This is done (1) by immediately closing the connection after your done marking, this will cause POP3 to expunge
|
||
|
|
or (2) by issuing PHP's buildin IMAP_EXPUNGE command which we DO NOT emulate here
|
||
|
|
@author Angles
|
||
|
|
@access public
|
||
|
|
*/
|
||
|
|
function delete($stream_notused,$msg_num,$flags="")
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering delete<br>'; }
|
||
|
|
// in PHP 4 msg_num can be
|
||
|
|
// a) an integer referencing a single message
|
||
|
|
// b1) a comma seperated list of message numbers "1,2,6"
|
||
|
|
// b2) and/or a range of messages format [STARTRANGE][COLON][ENDRANGE] "1:5" "6:*"
|
||
|
|
// make an array of message numbers to delete
|
||
|
|
$tmp_array = Array();
|
||
|
|
$tmp_array = explode(',',(string)$msg_num);
|
||
|
|
// process the array, and clean any empty elements (explode can suck like that sometimes)
|
||
|
|
$msg_num_array = Array();
|
||
|
|
for($i=0;$i < count($tmp_array);$i++)
|
||
|
|
{
|
||
|
|
$this_element = (string)$tmp_array[$i];
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: delete prep: this_element: '.$this_element.'<br>'; }
|
||
|
|
$this_element = trim($this_element);
|
||
|
|
// do nothing if this is an empty array element
|
||
|
|
if ($this_element != '')
|
||
|
|
{
|
||
|
|
// not empty - process it
|
||
|
|
// do we have a range
|
||
|
|
$cookie = strpos($this_element,':');
|
||
|
|
if ($cookie > 0)
|
||
|
|
{
|
||
|
|
$start_num = substr($this_element,0,$cookie);
|
||
|
|
$end_num = substr($this_element,$cookie+1);
|
||
|
|
// wildcard * used?
|
||
|
|
if ($end_num == '*')
|
||
|
|
{
|
||
|
|
$end_num = $this->num_msg($stream_notused);
|
||
|
|
}
|
||
|
|
// make sure we are dealing with integers now
|
||
|
|
$start_num = (int)$start_num;
|
||
|
|
$end_num = (int)$end_num;
|
||
|
|
// add each number in this range to the msg_num_array
|
||
|
|
for($z=$start_num; $z >= $end_num; $z++)
|
||
|
|
{
|
||
|
|
// add to the msg_num_array
|
||
|
|
$new_idx = count($msg_num_array);
|
||
|
|
$msg_num_array[$new_idx] = (int)$z;
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: delete prep: range: msg_num_array['.$new_idx.'] = '.$z.'<br>'; }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// not a range, should be a single msg_num
|
||
|
|
// add to the msg_num_array
|
||
|
|
$new_idx = count($msg_num_array);
|
||
|
|
$msg_num_array[$new_idx] = (int)$this_element;
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: delete prep: msg_num_array['.$new_idx.'] = '.$this_element.'<br>'; }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// we should now have a reliable array of msg_nums we need to delete from the server
|
||
|
|
for($i=0;$i < count($msg_num_array);$i++)
|
||
|
|
{
|
||
|
|
$this_msg_num = $msg_num_array[$i];
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: delete: deleting this_msg_num '.$this_msg_num.'<br>'; }
|
||
|
|
if (!$this->msg2socket('DELE '.$this_msg_num,"^\+ok",&$response))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving delete with error deleting msgnum '.$this_msg_num.'<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// these messages are now marked for deletion by the POP3 server
|
||
|
|
// they will be expunged when user sucessfully explicitly logs out
|
||
|
|
// if we make it here I have to assume no errors
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving delete<br>'; }
|
||
|
|
return True;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**************************************************************************\
|
||
|
|
* Get Message Headers From Server
|
||
|
|
\**************************************************************************/
|
||
|
|
/*!
|
||
|
|
@function fetchheader
|
||
|
|
@abstract implements IMAP_FETCHHEADER
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $msg_num : integer
|
||
|
|
@param $flags : integer - FT_UID; FT_INTERNAL; FT_PREFETCHTEXT
|
||
|
|
@result returns string which is complete, unfiltered RFC2822 format header of the specified message
|
||
|
|
@discussion This function implements the FT_PREFETCHTEXT text option
|
||
|
|
This function uses the helper function "get_header_raw"
|
||
|
|
@author Angles
|
||
|
|
@access public
|
||
|
|
*/
|
||
|
|
function fetchheader($stream_notused,$msg_num,$flags='')
|
||
|
|
{
|
||
|
|
// NEEDED: code for flags: FT_UID; FT_INTERNAL; FT_PREFETCHTEXT
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering fetchheader<br>'; }
|
||
|
|
|
||
|
|
$header_glob = $this->get_header_raw($stream_notused,$msg_num,$flags);
|
||
|
|
|
||
|
|
// do we also need to get the text of the message?
|
||
|
|
if ((int)$flags == FT_PREFETCHTEXT)
|
||
|
|
{
|
||
|
|
// what the user really wants here is the whole enchalada, i.e. the headers AND the message
|
||
|
|
$header_glob = $header_glob
|
||
|
|
."\r\n"
|
||
|
|
.$this->get_body($stream_notused,$msg_num,$flags);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving fetchheader<br>'; }
|
||
|
|
return $header_glob;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function get_header_array
|
||
|
|
@abstract Custom Function - Similar to IMAP_FETCHHEADER - EXCEPT returns a string list array
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $msg_num : integer
|
||
|
|
@param $flags : integer - FT_UID; (FT_INTERNAL; FT_PREFETCHTEXT) none implemented
|
||
|
|
@result returns headers exploded into a string list array, one array element per Un-Folded header line
|
||
|
|
@discussion This function UN-FOLDS the headers as per RFC2822 "folding, so each element is
|
||
|
|
in fact the intended complete header line, eliminates partial "folded" lines
|
||
|
|
@author Angles
|
||
|
|
@access public (custom function, also used privately)
|
||
|
|
*/
|
||
|
|
function get_header_array($stream_notused,$msg_num,$flags='')
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering get_header_array<br>'; }
|
||
|
|
// do we have a cached header_array ?
|
||
|
|
if ((count($this->header_array) > 0)
|
||
|
|
&& ((int)$this->header_array_msgnum == (int)($msg_num)))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving get_header_array returning cached data<br>'; }
|
||
|
|
return $this->header_array;
|
||
|
|
}
|
||
|
|
// NO cached data, get it
|
||
|
|
// first get the raw glob header
|
||
|
|
$header_glob = $this->get_header_raw($stream_notused,$msg_num,$flags);
|
||
|
|
// unwrap any wrapped headers - using CR_LF_TAB as rfc822 "whitespace"
|
||
|
|
$header_glob = str_replace("\r\n\t",' ',$header_glob);
|
||
|
|
// unwrap any wrapped headers - using CR_LF_SPACE as rfc822 "whitespace"
|
||
|
|
$header_glob = str_replace("\r\n ",' ',$header_glob);
|
||
|
|
// make the header blob into an array of strings, one array element per header line, throw away blank lines
|
||
|
|
$header_array = Array();
|
||
|
|
$header_array = $this->glob_to_array($header_glob, False, '', True);
|
||
|
|
// cache this data for future use
|
||
|
|
$this->header_array = $header_array;
|
||
|
|
$this->header_array_msgnum = (int)($msg_num);
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving get_header_array<br>'; }
|
||
|
|
return $header_array;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function get_header_raw
|
||
|
|
@abstract HELPER function for "fetchheader" / IMAP_FETCHHEADER
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $msg_num : integer
|
||
|
|
@param $flags : Not Used in helper function
|
||
|
|
@result returns returns unprocessed glob header string of the specified message
|
||
|
|
@discussion This function causes a fetch of the complete, unfiltered RFC2822 format
|
||
|
|
header of the specified message as a text string and returns that text string (i.e. glob)
|
||
|
|
@author Angles
|
||
|
|
@access private
|
||
|
|
*/
|
||
|
|
function get_header_raw($stream_notused,$msg_num,$flags='')
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering get_header_raw<br>'; }
|
||
|
|
if ((!isset($msg_num))
|
||
|
|
|| (trim((string)$msg_num) == ''))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving get_header_raw with error: Invalid msg_num<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
// do we have a cached header_glob ?
|
||
|
|
if (($this->header_glob != '')
|
||
|
|
&& ((int)$this->header_glob_msgnum == (int)($msg_num)))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving get_header_raw returning cached data<br>'; }
|
||
|
|
return $this->header_glob;
|
||
|
|
}
|
||
|
|
// NO cached data, get it
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: get_header_raw: issuing: TOP '.$msg_num.' 0 <br>'; }
|
||
|
|
if (!$this->msg2socket('TOP '.$msg_num.' 0',"^\+ok",&$response))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving get_header_raw with error<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
$glob = $this->read_port_glob('.');
|
||
|
|
// save this info for future ues
|
||
|
|
$this->header_glob = $glob;
|
||
|
|
$this->header_glob_msgnum = (int)$msg_num;
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving get_header_raw<br>'; }
|
||
|
|
return $glob;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**************************************************************************\
|
||
|
|
* Get Message Body (Parts) From Server
|
||
|
|
\**************************************************************************/
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function fetchbody
|
||
|
|
@abstract implements IMAP_FETCHBODY
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $msg_num : integer
|
||
|
|
@param $part_num : integer or a string of integers seperated by dots "2.4.1"
|
||
|
|
references the MIME part number, or section, inside of the message
|
||
|
|
@param $flags : Not Used in helper function
|
||
|
|
@result returns string which is the desired message / part
|
||
|
|
@discussion NOTE: as of Oct 17, 2001, the $part_num used here is not always
|
||
|
|
the same as the part number used for official imap servers. But because this same
|
||
|
|
class produced the fetchstructure, and provided it to the client, and that client
|
||
|
|
will again use this class to get that part, the part number is consistant internally
|
||
|
|
and is MUCH easier to implement in the fetchbody code. However, in the future, the
|
||
|
|
part numbering logic in fetchbody will be coded to exactly match what an official imap
|
||
|
|
server would expect. In the msg_msg class I refer to this "inexact" part number
|
||
|
|
as "mime number dumb" as it is based only on the part's position in the
|
||
|
|
fetchstructure array, before the processing to convert to official imap part
|
||
|
|
number, which msg_msg class refers to as "mime number smart", which
|
||
|
|
is used to access mime parts when using PHP's builtin IMAP module.
|
||
|
|
@author Angles
|
||
|
|
@access public
|
||
|
|
*/
|
||
|
|
function fetchbody($stream_notused,$msg_num,$part_num='',$flags='')
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering fetchbody<br>'; }
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody: attempt to return part '.$part_num.'<br>'; }
|
||
|
|
// totally under construction
|
||
|
|
|
||
|
|
// FORCE a pass thru fetchstructure to ENSURE all necessary data is present and cached
|
||
|
|
if ($this->debug >= 2) { echo 'pop3: fetchbody: force a pass thru fetchstructure to ensure necessary data is present and cached<br>'; }
|
||
|
|
$bogus_data = $this->fetchstructure($stream_notused,$msg_num,$flags);
|
||
|
|
|
||
|
|
// EXTREMELY BASIC part handling
|
||
|
|
// handle request for top level message headers
|
||
|
|
if ((int)$part_num == 0)
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody: returning top-level headers, part '.$part_num.', internally ['.$the_part.']<br>'; }
|
||
|
|
// grab the headers, as a glob, i.e. a string NOT an array
|
||
|
|
$header_glob = $this->get_header_raw($stream_notused,$msg_num,'');
|
||
|
|
// put this data in the var we will return below
|
||
|
|
$body_blob = $header_glob;
|
||
|
|
}
|
||
|
|
// handle 1st level parts
|
||
|
|
elseif (strlen((string)$part_num) == 1)
|
||
|
|
{
|
||
|
|
// convert to fetchstructure part number
|
||
|
|
$the_part = (int)$part_num;
|
||
|
|
$the_part = $the_part - 1;
|
||
|
|
// return part one
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody: returning part '.$part_num.', internally ['.$the_part.']<br>'; }
|
||
|
|
if ((!isset($this->msg_structure->parts[$the_part]->custom['part_start']))
|
||
|
|
|| (!isset($this->msg_structure->parts[$the_part]->custom['part_start'])))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody: ERROR: required part data not present for '.$part_num.', internally ['.$the_part.']<br>'; }
|
||
|
|
// screw it, just return the whole thing
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody - using fallback pass thru<br>'; }
|
||
|
|
$body_blob = $this->get_body($stream_notused,$msg_num,$flags,False);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// attempt to make the part
|
||
|
|
$part_start = (int)$this->msg_structure->parts[$the_part]->custom['part_start'];
|
||
|
|
$part_end = (int)$this->msg_structure->parts[$the_part]->custom['part_end'];
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody: returning part '.$part_num.' starts ['.$part_start.'] ends ['.$part_end.']<br>'; }
|
||
|
|
// assemble the body [art part
|
||
|
|
$body_blob = '';
|
||
|
|
for($i=$part_start;$i < $part_end+1;$i++)
|
||
|
|
{
|
||
|
|
$body_blob .= $this->body_array[$i]."\r\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// handle multiple parts
|
||
|
|
elseif (strlen((string)$part_num) > 2)
|
||
|
|
{
|
||
|
|
// explode part number into its component part numbers
|
||
|
|
$the_part_array = Array();
|
||
|
|
$the_part_array = explode('.',$part_num);
|
||
|
|
// convert to fetchstructure part number
|
||
|
|
for($i=0;$i < count($the_part_array);$i++)
|
||
|
|
{
|
||
|
|
$the_part_array[$i] = (int)$the_part_array[$i];
|
||
|
|
$the_part_array[$i] = $the_part_array[$i] - 1;
|
||
|
|
}
|
||
|
|
// build the recursive parts structure to obtain this parts data
|
||
|
|
// use REFERENCES to do this
|
||
|
|
$temp_part = &$this->msg_structure;
|
||
|
|
for($i=0;$i < count($the_part_array);$i++)
|
||
|
|
{
|
||
|
|
$target_part = $temp_part->parts[$the_part_array[$i]];
|
||
|
|
$temp_part = &$target_part;
|
||
|
|
}
|
||
|
|
// verify part data exists
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody: returning part '.$part_num.', internally ['.serialize($the_part_array).']<br>'; }
|
||
|
|
if ((!isset($target_part->custom['part_start']))
|
||
|
|
|| (!isset($target_part->custom['part_start'])))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody: ERROR: required part data not present for '.$part_num.', internally ['.serialize($the_part).']<br>'; }
|
||
|
|
// screw it, just return the whole thing
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody - using fallback pass thru<br>'; }
|
||
|
|
$body_blob = $this->get_body($stream_notused,$msg_num,$flags,False);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// attempt to make the part
|
||
|
|
$part_start = (int)$target_part->custom['part_start'];
|
||
|
|
$part_end = (int)$target_part->custom['part_end'];
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody: returning part '.$part_num.' starts ['.$part_start.'] ends ['.$part_end.']<br>'; }
|
||
|
|
// assemble the body [art part
|
||
|
|
$body_blob = '';
|
||
|
|
for($i=$part_start;$i < $part_end+1;$i++)
|
||
|
|
{
|
||
|
|
$body_blob .= $this->body_array[$i]."\r\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// screw it, just return the whole thing
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: fetchbody - something is unsupported, using fallback pass thru<br>'; }
|
||
|
|
// the false arg here is a temporary, custom option, says to NOT include the headers in the return
|
||
|
|
$body_blob = $this->get_body($stream_notused,$msg_num,$flags,False);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving fetchbody<br>'; }
|
||
|
|
return $body_blob;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*!
|
||
|
|
@function get_body
|
||
|
|
@abstract implements IMAP_BODY
|
||
|
|
@param $stream_notused : socket class handles stream reference internally
|
||
|
|
@param $msg_num : integer
|
||
|
|
@param $flags : integer - FT_UID; FT_INTERNAL; FT_PEEK; FT_NOT
|
||
|
|
@param$phpgw_include_header : boolean (for custom use - not a PHP option)
|
||
|
|
@result returns string which is a verbatim copy of the message body (i.e. glob)
|
||
|
|
@discussion This function implements the IMAP_BODY and also includes a custom
|
||
|
|
boolean param "phpgw_include_header" which also includes unfiltered headers in the return string
|
||
|
|
@author Angles
|
||
|
|
@access public
|
||
|
|
*/
|
||
|
|
function get_body($stream_notused,$msg_num,$flags='',$phpgw_include_header=True)
|
||
|
|
{
|
||
|
|
// NEEDED: code for flags: FT_UID; maybe FT_INTERNAL; FT_NOT; flag FT_PEEK has no effect on POP3
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Entering get_body<br>'; }
|
||
|
|
|
||
|
|
// do we have a cached body_array ?
|
||
|
|
if ((count($this->body_array) > 0)
|
||
|
|
&& ((int)$this->body_array_msgnum == (int)($msg_num))
|
||
|
|
// do we have a cached header_array ?
|
||
|
|
&& (count($this->header_array) > 0)
|
||
|
|
&& ((int)$this->header_array_msgnum == (int)($msg_num)))
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: get_body: using cached body_array and header_array data imploded into a glob<br>'; }
|
||
|
|
// implode the header_array into a glob
|
||
|
|
$header_glob = implode("\r\n",$this->header_array);
|
||
|
|
// implode the body_array into a glob
|
||
|
|
$body_glob = implode("\r\n",$this->body_array);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: get_body: NO Cached Data<br>'; }
|
||
|
|
// NO cached data we can use
|
||
|
|
// issue command to retrieve body
|
||
|
|
if (!$this->msg2socket('RETR '.$msg_num,"^\+ok",&$response))
|
||
|
|
{
|
||
|
|
$this->error();
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving get_body with error<br>'; }
|
||
|
|
return False;
|
||
|
|
}
|
||
|
|
// --- Get Header ---
|
||
|
|
// we can NOT cache the header in THIS function because we may need to BYPASS them
|
||
|
|
// to do that we need to grab it from the stream, then start filling body_glob
|
||
|
|
// AFTER we have passed the header in the stream
|
||
|
|
$header_glob = '';
|
||
|
|
while ($line = $this->read_port())
|
||
|
|
{
|
||
|
|
if ((chop($line) == '.')
|
||
|
|
|| (chop($line) == ''))
|
||
|
|
{
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
$header_glob .= $line;
|
||
|
|
}
|
||
|
|
// --- Get Body ---
|
||
|
|
// we know we have passed the headers because we did that above
|
||
|
|
$body_glob = '';
|
||
|
|
$body_glob = $this->read_port_glob('.');
|
||
|
|
// --- Explode Into an Array and Save for Future use with Fetchstructure
|
||
|
|
$this->body_array = explode("\r\n",$body_glob);
|
||
|
|
$this->body_array_msgnum = (int)$msg_num;
|
||
|
|
}
|
||
|
|
// --- Include Headers With Body Or Not ---
|
||
|
|
if (($flags == FT_NOT) || ($phpgw_include_header == True))
|
||
|
|
{
|
||
|
|
// we need to include the header here
|
||
|
|
$body_glob = $header_glob ."\r\n" .$body_glob;
|
||
|
|
}
|
||
|
|
/*
|
||
|
|
if ($this->debug >= 2)
|
||
|
|
{
|
||
|
|
echo 'pop3: get_body DUMP<br>= = = First DUMP: header_glob<br>';
|
||
|
|
echo '<pre>'.htmlspecialchars($header_glob).'</pre><br><br>';
|
||
|
|
echo 'pop3: get_body DUMP<br>= = = Second DUMP: body_glob<br>';
|
||
|
|
echo '<pre>'.htmlspecialchars($body_glob).'</pre><br><br>';
|
||
|
|
}
|
||
|
|
*/
|
||
|
|
if ($this->debug >= 1) { echo 'pop3: Leaving get_body<br>'; }
|
||
|
|
return $body_glob;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
?>
|