egroupware/phpgwapi/inc/class.msg_base_sock.inc.php

1107 lines
33 KiB
PHP
Raw Normal View History

<?php
/**************************************************************************\
* phpGroupWare API - MAIL *
* This file written by Mark Peters <skeeter@phpgroupware.org> *
* Handles general functionality for mail/mail structures *
* Copyright (C) 2001 Mark Peters *
* -------------------------------------------------------------------------*
* 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 *
\**************************************************************************/
2002-05-26 22:09:01 +02:00
/* $Id$ */
define('SA_MESSAGES',1);
define('SA_RECENT',2);
define('SA_UNSEEN',4);
define('SA_UIDNEXT',8);
define('SA_UIDVALIDITY',16);
define('SA_ALL',31);
2002-05-26 22:09:01 +02:00
define('SORTDATE',0);
define('SORTARRIVAL',1);
define('SORTFROM',2);
define('SORTSUBJECT',3);
define('SORTTO',4);
define('SORTCC',5);
define('SORTSIZE',6);
2002-05-26 22:09:01 +02:00
define ('TYPETEXT',0);
define ('TYPEMULTIPART',1);
define ('TYPEMESSAGE',2);
define ('TYPEAPPLICATION',3);
define ('TYPEAUDIO',4);
define ('TYPEIMAGE',5);
define ('TYPEVIDEO',6);
// what is defined as 7 ? , not typemodel
define ('TYPEOTHER',8);
// define ('TYPEMODEL',
define ('ENC7BIT',0);
define ('ENC8BIT',1);
define ('ENCBINARY',2);
define ('ENCBASE64',3);
define ('ENCQUOTEDPRINTABLE',4);
define ('ENCOTHER',5);
// ENCUU not defined in php 4, but we may use it
define ('ENCUU',6);
2002-05-26 22:09:01 +02:00
define ('FT_UID',1); // the msgnum is a UID
define ('FT_PEEK',2); // do not set the \Seen flag if not already set
define ('FT_NOT',4); // do not fetch header lines (with IMAP_BODY)
define ('FT_INTERNAL',8); // server will not attempt to standardize CRLFs
define ('FT_PREFETCHTEXT',16); // grab the header AND its associated RFC822.TEXT
2002-05-26 22:09:01 +02:00
define ('SE_UID',1); // used with IMAP_SORT, IMAP_SEARCH,
define ('SE_FREE',2); // Return the search program to free storage after finishing NOT used by PHP
define ('SE_NOPREFETCH',4); // used with IMAP_SORT , don't really understand it though
//SE_UID Return UIDs instead of sequence numbers
//SE_NOPREFETCH Don't prefetch searched messages.
2002-05-26 22:09:01 +02:00
// This may need to be a reference to the different months in native tongue....
$GLOBALS['month_array'] = Array(
'jan' => 1,
'feb' => 2,
'mar' => 3,
'apr' => 4,
'may' => 5,
'jun' => 6,
'jul' => 7,
'aug' => 8,
'sep' => 9,
'oct' => 10,
'nov' => 11,
'dec' => 12
);
/*
@class mailbox_status (sockets)
@abstract part of mail Data Communications class
@Discussion
see PHP function: IMAP_STATUS -- This function returns status information on a mailbox other than the current one
SA_MESSAGES - set status->messages to the number of messages in the mailbox
SA_RECENT - set status->recent to the number of recent messages in the mailbox
SA_UNSEEN - set status->unseen to the number of unseen (new) messages in the mailbox
SA_UIDNEXT - set status->uidnext to the next uid to be used in the mailbox
SA_UIDVALIDITY - set status->uidvalidity to a constant that changes when uids for the mailbox may no longer be valid
SA_ALL - set all of the above
*/
class mailbox_status
{
var $messages = '';
var $recent = '';
var $unseen = '';
var $uidnext = '';
var $uidvalidity = '';
// quota and quota_all not in php builtin
var $quota = '';
var $quota_all = '';
}
2002-05-26 22:09:01 +02:00
/*
@class mailbox_msg_info (sockets)
@abstract part of mail Data Communications class
@Discussion
see PHP function: IMAP_MAILBOXMSGINFO -- Get information about the current mailbox
Date date of last change
Driver driver
Mailbox name of the mailbox
Nmsgs number of messages
Recent number of recent messages
Unread number of unread messages
Deleted number of deleted messages
Size mailbox size
*/
class mailbox_msg_info
{
var $Date = '';
var $Driver ='';
var $Mailbox = '';
var $Nmsgs = '';
var $Recent = '';
var $Unread = '';
var $Size = '';
}
2002-05-26 22:09:01 +02:00
/*
@class mailbox_status (sockets) discussion VS. class mailbox_msg_info (sockets)
@abstract compare these two similar classes and their functions
@Discussion:
class mailbox_status is used by function IMAP_STATUS
class mailbox_msg_info is used by function IMAP_MAILBOXMSGINFO
These two functions / classes are similar, here are some notes on their usage:
Note 1):
IMAP_MAILBOXMSGINFO is only used for the folder that the client is currently logged into,
for pop3 this is always "INBOX", for imap this is the currently selected (opened) folder.
Therefor, with imap the target folder must already be selected (via IMAP_OPEN or IMAP_REOPEN)
Note 2):
IMAP_STATUS is can be used to obtain data on a folder that is NOT currently selected (opened)
by the client. For pop3 this difference means nothing, for imap this means the client
need NOT select (i.e. open) the target folder before requesting status data.
Still, IMAP_STATUS can be used on any folder wheter it is currently selected (opened) or not.
Note 3):
The main functional difference is that one function returns size data, and the other does not.
imap_mailboxmsginfo returns size data, imap_status does NOT.
This size data adds all the sizes of the messages in that folder together to get the total folder size.
Some IMAP servers can take alot of time and CPU cycles to get this total,
particularly with MAILDIR type imap servers such as Courier-imap, while other imap servers
seem to return this size data with little difficulty.
*/
/*
@class msg_structure (sockets)
@abstract part of mail Data Communications class
@Discussion
see PHP function: imap_fetchstructure -- Read the structure of a particular message
type Primary body type
encoding Body transfer encoding
ifsubtype TRUE if there is a subtype string
subtype MIME subtype
ifdescription TRUE if there is a description string
description Content description string
ifid TRUE if there is an identification string
id Identification string
lines Number of lines
bytes Number of bytes
ifdisposition TRUE if there is a disposition string
disposition Disposition string
ifdparameters TRUE if the dparameters array exists
dparameters Disposition parameter array
ifparameters TRUE if the parameters array exists
parameters MIME parameters array
parts Array of objects describing each message part
*/
class msg_structure
{
var $type = '';
var $encoding = '';
var $ifsubtype = False;
var $subtype = '';
var $ifdescription = False;
var $description = '';
var $ifid = False;
var $id = '';
var $lines = '';
var $bytes = '';
var $ifdisposition = False;
var $disposition = '';
var $ifdparameters = False;
var $dparameters = array();
var $ifparameters = False;
var $parameters = array();
// custom phpgw data to aid in building this structure
var $custom = array();
var $parts = array();
}
2002-05-26 22:09:01 +02:00
// gonna have to decide on one of the next two
class msg_params
{
var $attribute;
var $value;
function msg_params($attrib,$val)
{
$this->attribute = $attrib;
$this->value = $val;
}
}
class att_parameter
{
var $attribute;
var $value;
}
2002-05-26 22:09:01 +02:00
class address
{
var $personal;
var $mailbox;
var $host;
var $adl;
}
2002-05-26 22:09:01 +02:00
/*
@class msg_overview (sockets)
@abstract part of mail Data Communications class
@Discussion see PHP function: imap_fetch_overview -- Read an overview of the information in the
headers of the given message
NOT CURRENTY IMPLEMENTED
*/
class msg_overview
{
var $subject; // the messages subject
var $from; // who sent it
var $date; // when was it sent
var $message_id; // Message-ID
var $references; // is a reference to this message id
var $size; // size in bytes
var $uid; // UID the message has in the mailbox
var $msgno; // message sequence number in the maibox
var $recent; // this message is flagged as recent
var $flagged; // this message is flagged
var $answered; // this message is flagged as answered
var $deleted; // this message is flagged for deletion
var $seen; // this message is flagged as already read
var $draft; // this message is flagged as being a draft
}
/*
@class hdr_info_envelope (sockets)
@abstract part of mail Data Communications class
@Discussion
see PHP function: imap_headerinfo -- Read the header of the message
see PHP function: imap_header which is simply an alias to imap_headerinfo
*/
class hdr_info_envelope
{
// --- Various Header Data ---
var $remail = '';
var $date = '';
var $subject = '';
var $Subject = ''; // is this needed?
var $in_reply_to = '';
var $message_id = '';
var $newsgroups = '';
var $followup_to = '';
var $references = '';
// --- Message Flags ---
var $Recent = ''; // 'R' if recent and seen, 'N' if recent and not seen, ' ' if not recent
var $Unseen = ''; // 'U' if not seen AND not recent, ' ' if seen OR not seen and recent
var $Answered = ''; // 'A' if answered, ' ' if unanswered
var $Deleted = ''; // 'D' if deleted, ' ' if not deleted
var $Draft = ''; // 'X' if draft, ' ' if not draft
var $Flagged = ''; // 'F' if flagged, ' ' if not flagged
// --- To, From, etc... Data ---
var $toaddress = ''; // up to 1024 characters of the To: line
var $to; // array of these objects from the To line, containing:
// to->personal ; to->adl ; to->mailbox ; to->host
// this applies to From, Cc, Bcc, etc... below
var $fromaddress = ''; // up to 1024 characters of the From: line
var $from;
var $ccaddress = ''; // up to 1024 characters of the Cc: line
var $cc;
var $bccaddress = ''; // up to 1024 characters of the Bcc: line
var $bcc;
var $reply_toaddress = ''; // up to 1024 characters of the Reply_To: line
var $reply_to;
var $senderaddress = ''; // up to 1024 characters of the Sender: line
var $sender;
var $return_pathaddress = ''; // up to 1024 characters of the Return-Path: line
var $return_path;
var $udate = ''; // mail message date in unix time
// --- Specially Formatted Data ---
var $fetchfrom = ''; // from line formatted to fit arg "fromlength" characters
var $fetchsubject = ''; // subject line formatted to fit arg "subjectlength" characters
var $lines = '';
var $size = '';
var $Size = '';
}
/*!
@class msg_base (sockets)
@abstract part of mail Data Communications class
@discussion msg_base Extends phpgw api class network
After msg_base is loaded, a top level class mail is created
specifically for the necessary propocol, either POP3, IMAP, or NNTP
@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_base extends network
{
// Cached Data
// raw message data from the server, some raw data, some exploded into a string list
var $header_glob = '';
var $header_glob_msgnum = '';
var $header_array = array();
var $header_array_msgnum = '';
//var $body_glob = '';
//var $body_glob_msgnum = '';
var $body_array = array();
2002-05-26 22:09:01 +02:00
var $body_array_msgnum = '';
// structural information from our processing functions
//var $mailbox_msg_info = ''; // caching this with POP3 is OK but will cause HAVOC with IMAP or NNTP
//var $mailbox_status;
var $msg_structure = '';
var $msg_structure_msgnum = '';
var $hdr_info_envelope;
// server error strings *should* get stored here
var $server_last_error_str = '';
// server data returned to the calling function does NOT include the final OK line
// because this line is not actually data, so put this line here for inspection if necessary
var $server_last_ok_response = '';
2002-05-26 22:09:01 +02:00
// future use
var $refto_msg_parent;
var $mailbox;
var $numparts;
var $sparts;
var $hsub=array();
var $bsub=array();
var $folder = '';
2002-05-26 22:09:01 +02:00
var $imap_builtin=False;
var $force_msg_uids = False;
2002-05-26 22:09:01 +02:00
// DEBUG FLAG: Debug Levels are 0=none, 1=basic, 2=detailed, 3=more detailed
var $debug=0;
//var $debug=1;
//var $debug=2;
2002-05-26 22:09:01 +02:00
function msg_base()
{
$this->errorset = 0;
$this->network(True);
if (isset($GLOBALS['phpgw_info']))
{
$this->tempfile = $GLOBALS['phpgw_info']['server']['temp_dir'].SEP.$GLOBALS['phpgw_info']['user']['sessionid'].'.mhd';
$this->att_files_dir = $GLOBALS['phpgw_info']['server']['temp_dir'].SEP.$GLOBALS['phpgw_info']['user']['sessionid'];
}
else
{
2002-05-26 22:09:01 +02:00
// NEED GENERIC DEFAULT VALUES HERE
}
}
2002-05-26 22:09:01 +02:00
function error()
{
echo 'Error: '.$this->error['code'].' : '.$this->error['msg'].' - '.$this->error['desc']."<br>\r\n";
$this->close();
$GLOBALS['phpgw']->common->phpgw_exit();
}
2002-05-26 22:09:01 +02:00
// REDUNDANT FUNCTION FROM NON-SOCK CLASS
function get_flag($stream,$msg_num,$flag)
{
$header = $this->fetchheader($stream,$msg_num);
$flag = strtolower($flag);
for ($i=0;$i<count($header);$i++)
{
$pos = strpos($header[$i],':');
if (is_int($pos) && $pos)
{
$keyword = trim(substr($header[$i],0,$pos));
$content = trim(substr($header[$i],$pos+1));
if (strtolower($keyword) == $flag)
{
return $content;
}
}
}
return false;
}
2002-05-26 22:09:01 +02:00
/*!
@function distill_fq_folder
@abstract break down a php fully qualified folder name into its seperate barts
@param $fq_folder : string : {SERVER_NAME:PORT/OPTIONS}FOLDERNAME
@result array structure like this:
result['folder'] : string is the folder (a.k.a. mailbox) name WITHOUT the bracketed {server:port/options}
result['svr_and_port'] string : for Internal Use
result['server'] : string is the IP or NAME of the server
result['port_with_junk'] string : for Internal Use
result['port'] string is the port number
@discussion $fq_folder name arrives as:
{SERVER_NAME:PORT}FOLDERNAME
OR some variation like this:
{SERVER_NAME:PORT/pop3}FOLDERNAME
{SERVER_NAME:PORT/imap/ssl/novalidate-cert}FOLDERNAME
this is how php passes around this data in its builtin IMAP extensions
this function breaks down that string into it's parts
@syntax ?
@author Angles
@access private
*/
function distill_fq_folder($fq_folder)
{
// initialize return structure array
$svr_data = Array();
$svr_data['folder'] = '';
$svr_data['svr_and_port'] = '';
$svr_data['server'] = '';
$svr_data['port_with_junk'] = '';
$svr_data['port'] = '';
2002-05-26 22:09:01 +02:00
// see if we have any data to work with
if ((!isset($fq_folder))
|| ((trim($fq_folder) == '')))
{
// no data, return the reliable default of INBOX
$svr_data['folder'] = 'INBOX';
return $svr_data;
// we're out'a here
}
2002-05-26 22:09:01 +02:00
// see if this is indeed a fully qualified folder name
if (strstr($fq_folder,'}') == False)
{
// all we have is a _simple_ folder name, no server or port info included
$svr_data['folder'] = $fq_folder;
return $svr_data;
// we're out'a here
}
2002-05-26 22:09:01 +02:00
// -- (1) -- get the folder name stripped of the server string
// folder name at this stage is {SERVER_NAME:PORT}FOLDERNAME
// ORsome variation like this:
// {SERVER_NAME:PORT/pop3}FOLDERNAME
// {SERVER_NAME:PORT/imap/ssl/novalidate-cert}FOLDERNAME
// get everything to the right of the bracket "}", INCLUDES the bracket itself
$svr_data['folder'] = strstr($fq_folder,'}');
// get rid of that 'needle' "}"
$svr_data['folder'] = substr($svr_data['folder'], 1);
// -- (2) -- get the {SERVER_NAME:PORT} part and strip the brackets
$svr_callstr_len = strlen($fq_folder) - strlen($svr_data['folder']);
// start copying at position 1 skipping the opening bracket
// and stop copying at length of {SERVER_NAME:PORT} - 2 to skip the closing beacket
$svr_data['svr_and_port'] = substr($fq_folder, 1, $svr_callstr_len - 2);
// -- (3)-- get the port number INCLUDING any junk that may come after it, like "/pop3/ssl/novalidate-cert"
// "svr_and_port" at this stage is SERVER_NAME:PORT , or SERVER_NAME:PORT/pop3 , etc...
// get everything to the right of the colon ":", INCLUDES the colon itself
$svr_data['port_with_junk'] = strstr($svr_data['svr_and_port'],':');
// get rid of that 'needle' ":"
$svr_data['port_with_junk'] = substr($svr_data['port_with_junk'], 1);
// -- (4)-- get the server name
// port_with_junk + 1 means the port number with the added 1 char length of the colon we got rid of just above
$svr_only_len = strlen($svr_data['svr_and_port']) - strlen($svr_data['port_with_junk']);
// $svr_only_len - 1 means leave out the 1 char length of the colon we stripped deom "port_with_junk" above
$svr_data['server'] = substr($svr_data['svr_and_port'], 0, $svr_only_len - 1);
// -- (5)-- get the port number , stripping any junk that _may_ be with it
// get everything to the right of the forst slash "/", INCLUDES the slash itself, else returns FALSE
$port_junk = strstr($svr_data['port_with_junk'],'/');
// test
//$svr_data['port'] = $port_junk;
if ($port_junk)
{
$port_only_len = strlen($svr_data['port_with_junk']) - strlen($port_junk);
$svr_data['port'] = substr($svr_data['port_with_junk'], 0, $port_only_len);
}
else
{
$svr_data['port'] = trim($svr_data['port_with_junk']);
}
return $svr_data;
}
2002-05-26 22:09:01 +02:00
/*!
@function read_port_glob
@abstract used with POP3, reads data from port until we encounted param $end
@param $end : string is the flag to look for that tells us when to stop reading the port's data
@result string raw string of data (glob) as received from the server
@discussion POP3 servers data typically ends with special charactor(s),
usually an empty line, i.e. a lone CRLF pair, or line that is a period "." followed br a CRLF pair
thus we can direct this function to read the server's data until such special end flag is reached
@syntax ?
@author Angles, skeeter
@access private
*/
function read_port_glob($end='.')
{
$glob_response = '';
while ($line = $this->read_port())
{
//echo $line."<br>\r\n";
if (chop($line) == $end)
{
break;
}
$glob_response .= $line;
}
return $glob_response;
}
2002-05-26 22:09:01 +02:00
/*!
@function glob_to_array
@abstract used with POP3, converts raw string server data into an array
@param $data : string
@param $keep_blank_lines : boolean
@param $cut_from_here : string
@param $keep_received_lines : boolean
@param $idx_offset : integer : where to start the returned array at (if not zero)
@result array
@discussion ?
@syntax ?
@author Angles
@access private
*/
function glob_to_array($data,$keep_blank_lines=True,$cut_from_here='',$keep_received_lines=True,$idx_offset=0)
{
$data_array = explode("\r\n",$data);
$return_array = Array();
for($i=0;$i < count($data_array);$i++)
{
$new_str = $data_array[$i];
if ($cut_from_here != '')
{
$cut_here = strpos($new_str,$cut_from_here);
if ($cut_here > 0)
{
$new_str = substr($new_str,0,$cut_here);
}
else
{
$new_str = '';
}
}
if (($keep_blank_lines == False)
&& (trim($new_str) == ''))
{
// do noting
}
elseif (($keep_received_lines == False)
&& (stristr($new_str, 'received:'))
&& (strpos(strtolower($new_str),'received:') == 0))
{
// do noting
2002-05-26 22:09:01 +02:00
}
else
{
$new_idx = count($return_array) + $idx_offset;
$return_array[$new_idx] = $new_str;
}
}
return $return_array;
}
2002-05-26 22:09:01 +02:00
/*!
@function show_crlf
@abstract replace actual CRLF sequence with the string "CRLF"
@param $data : string
@result returns string "\r\n" CRFL pairs replaced with the string "CRLF"
@discussion useful for debugging, CRLF pairs are CarrageReturn + LineFeed
which is the standard way email client and servers end any line while communicating
@author Angles
@access public or private
*/
function show_crlf($data='')
{
return str_replace("\r\n", 'CRLF', $data);
}
2002-05-26 22:09:01 +02:00
function create_header($line,$header,$line2='')
{
$thead = explode(':',$line);
$key = trim($thead[0]);
switch(count($thead))
{
case 1:
$value = TRUE;
break;
case 2:
$value = trim($thead[1]);
break;
default:
$thead[0] = '';
$value = '';
for($i=1,$j=count($thead);$i<$j;$i++)
{
$value .= $thead[$i].':';
}
//$value = trim($value.$thead[$j++]);
//$value = trim($value);
break;
}
$header[$key] = $value;
if (ereg('^multipart/mixed;',$value))
{
if (! ereg('boundary',$header[$key]))
{
if ($line2 == 'True')
{
$line2 = $this->read_port();
echo 'Response = '.$line2.'<br>'."\n";
}
}
$header[$key] .= chop($line2);
}
//echo 'Header[$key] = '.$header[$key].'<br>'."\n";
}
2002-05-26 22:09:01 +02:00
function build_address_structure($key)
{
$address = array(new address);
// Build Address to Structure
$temp_array = explode(';',$this->header[$key]);
for ($i=0;$i<count($temp_array);$i++)
{
$this->decode_author($temp_array[$i],&$email,&$name);
$temp = explode('@',$email);
$address[$i]->personal = $this->decode_header($name);
$address[$i]->mailbox = $temp[0];
if (count($temp) == 2)
{
$address[$i]->host = $temp[1];
$address[$i]->adl = $email;
}
return $address;
}
}
2002-05-26 22:09:01 +02:00
function convert_date_array($field_list)
{
$new_list = Array();
while(list($key,$value) = each($field_list))
{
//$new_list[$key] = $this->convert_date($value);
$new_list[$key] = $this->make_udate($value);
if ($this->debug >= 2) { echo 'base_sock: convert_date_array: field_list: "'.$new_list[$key].'" was "'.$value.'"<br>'; }
2002-05-26 22:09:01 +02:00
}
return $new_list;
}
2002-05-26 22:09:01 +02:00
function convert_date($msg_date)
{
$dta = array();
$ta = array();
2002-05-26 22:09:01 +02:00
// Convert "Sat, 15 Jul 2000 20:50:22 +0200" to unixtime
$comma = strpos($msg_date,',');
if($comma)
{
$msg_date = substr($msg_date,$comma + 2);
}
//echo 'Msg Date : '.$msg_date."<br>\n";
$dta = explode(' ',$msg_date);
$ta = explode(':',$dta[3]);
2002-05-26 22:09:01 +02:00
if(substr($dta[4],0,3) <> 'GMT')
{
$tzoffset = substr($dta[4],0,1);
(int)$tzhours = substr($dta[4],1,2);
(int)$tzmins = substr($dta[4],3,2);
switch ($tzoffset)
{
case '+':
(int)$ta[0] -= (int)$tzhours;
(int)$ta[1] -= (int)$tzmins;
break;
case '-':
(int)$ta[0] += (int)$tzhours;
(int)$ta[1] += (int)$tzmins;
break;
}
}
2002-05-26 22:09:01 +02:00
$new_time = mktime($ta[0],$ta[1],$ta[2],$GLOBALS['month_array'][strtolower($dta[1])],$dta[0],$dta[2]) - ((60 * 60) * intval($GLOBALS['phpgw_info']['user']['preferences']['common']['tzoffset']));
//echo 'New Time : '.$new_time."<br>\n";
return $new_time;
}
2002-05-26 22:09:01 +02:00
function make_udate($msg_date)
{
$pos = strpos($msg_date,',');
if ($pos)
{
$msg_date = trim(substr($msg_date,$pos+1));
}
$pos = strpos($msg_date,' ');
$day = substr($msg_date,0,$pos);
$msg_date = trim(substr($msg_date,$pos));
$month = $GLOBALS['month_array'][strtolower(substr($msg_date,0,3))];
$msg_date = trim(substr($msg_date,3));
$pos = strpos($msg_date,' ');
$year = trim(substr($msg_date,0,$pos));
$msg_date = trim(substr($msg_date,$pos));
$hour = substr($msg_date,0,2);
$minute = substr($msg_date,3,2);
$second = substr($msg_date,6,2);
$pos = strrpos($msg_date,' ');
$tzoff = trim(substr($msg_date,$pos));
if (strlen($tzoff)==5)
{
$diffh = substr($tzoff,1,2); $diffm = substr($tzoff,3);
if ((substr($tzoff,0,1)=='+') && is_int($diffh))
{
$hour -= $diffh; $minute -= $diffm;
}
else
{
$hour += $diffh; $minute += $diffm;
}
}
$utime = mktime($hour,$minute,$second,$month,$day,$year);
return $utime;
}
2002-05-26 22:09:01 +02:00
function ssort_prep($a)
{
$a = strtoupper($a);
if(strpos(' '.$a,'FW: ') == 1 || strpos(' '.$a,'RE: ') == 1)
{
$a_mod = substr($a,4);
}
elseif(strpos(' '.$a,'FWD: ') == 1)
{
$a_mod = substr($a,5);
}
else
{
$a_mod = $a;
}
2002-05-26 22:09:01 +02:00
while(substr($a_mod,0,1) == ' ')
{
$a_mod = substr($a_mod,1);
}
2002-05-26 22:09:01 +02:00
//if(strpos(' '.$a_mod,'[') == 1)
//{
// $a_mod = substr($a_mod,1);
//}
return $a_mod;
}
2002-05-26 22:09:01 +02:00
function ssort_ascending($a,$b)
{
$a_mod = $this->ssort_prep($a);
$b_mod = $this->ssort_prep($b);
if ($a_mod == $b_mod)
{
return 0;
}
return ($a_mod < $b_mod) ? -1 : 1;
}
2002-05-26 22:09:01 +02:00
function ssort_decending($a,$b)
{
$a_mod = $this->ssort_prep($a);
$b_mod = $this->ssort_prep($b);
if ($a_mod == $b_mod)
{
return 0;
}
return ($a_mod > $b_mod) ? -1 : 1;
}
2002-05-26 22:09:01 +02:00
function msg_header($msgnum)
{
$this->msg = new msg;
// This needs to be pulled back to the actual read header of the mailer type.
//$this->msg_fetch_overview($msgnum);
2002-05-26 22:09:01 +02:00
// From:
$this->msg->from = array(new address);
$this->msg->from = $this->build_address_structure('From');
$this->msg->fromaddress = $this->header['From'];
2002-05-26 22:09:01 +02:00
// To:
$this->msg->to = array(new address);
if (strtolower($this->type) == 'nntp')
{
$temp = explode(',',$this->header['Newsgroups']);
$to = array(new address);
for($i=0;$i<count($temp);$i++)
{
$to[$i]->mailbox = '';
$to[$i]->host = '';
$to[$i]->personal = $temp[$i];
$to[$i]->adl = $temp[$i];
}
$this->msg->to = $to;
}
else
{
$this->msg->to = $this->build_address_structure('To');
$this->msg->toaddress = $this->header['To'];
}
2002-05-26 22:09:01 +02:00
// Cc:
$this->msg->cc = array(new address);
if(isset($this->header['Cc']))
{
$this->msg->cc[] = $this->build_address_structure('Cc');
$this->msg->ccaddress = $this->header['Cc'];
}
2002-05-26 22:09:01 +02:00
// Bcc:
$this->msg->bcc = array(new address);
if(isset($this->header['bcc']))
{
$this->msg->bcc = $this->build_address_structure('bcc');
$this->msg->bccaddress = $this->header['bcc'];
}
2002-05-26 22:09:01 +02:00
// Reply-To:
$this->msg->reply_to = array(new address);
if(isset($this->header['Reply-To']))
{
$this->msg->reply_to = $this->build_address_structure('Reply-To');
$this->msg->reply_toaddress = $this->header['Reply-To'];
}
2002-05-26 22:09:01 +02:00
// Sender:
$this->msg->sender = array(new address);
if(isset($this->header['Sender']))
{
$this->msg->sender = $this->build_address_structure('Sender');
$this->msg->senderaddress = $this->header['Sender'];
}
2002-05-26 22:09:01 +02:00
// Return-Path:
$this->msg->return_path = array(new address);
if(isset($this->header['Return-Path']))
{
$this->msg->return_path = $this->build_address_structure('Return-Path');
$this->msg->return_pathaddress = $this->header['Return-Path'];
}
2002-05-26 22:09:01 +02:00
// UDate
$this->msg->udate = $this->convert_date($this->header['Date']);
2002-05-26 22:09:01 +02:00
// Subject
$this->msg->subject = $this->phpGW_quoted_printable_decode($this->header['Subject']);
2002-05-26 22:09:01 +02:00
// Lines
// This represents the number of lines contained in the body
$this->msg->lines = $this->header['Lines'];
}
2002-05-26 22:09:01 +02:00
function msg_headerinfo($msgnum)
{
$this->msg_header($msgnum);
}
function read_and_load($end)
{
$this->header = Array();
while ($line = $this->read_port())
{
//echo $line."<br>\n";
if (chop($line) == $end) break;
$this->create_header($line,&$this->header,"True");
}
return 1;
}
/*
* PHP `quoted_printable_decode` function does not work properly:
* it should convert '_' characters into ' '.
*/
function phpGW_quoted_printable_decode($string)
{
$string = str_replace('_', ' ', $string);
return quoted_printable_decode($string);
}
2002-05-26 22:09:01 +02:00
/*
* Remove '=' at the end of the lines. `quoted_printable_decode` doesn't do it.
*/
function phpGW_quoted_printable_decode2($string)
{
$string = $this->phpGW_quoted_printable_decode($string);
return preg_replace("/\=\n/", '', $string);
}
2002-05-26 22:09:01 +02:00
function decode_base64($string)
{
$string = ereg_replace("'", "\'", $string);
$string = preg_replace("/\=\?(.*?)\?b\?(.*?)\?\=/ieU",base64_decode("\\2"),$string);
return $string;
}
2002-05-26 22:09:01 +02:00
function decode_qp($string)
{
$string = ereg_replace("'", "\'", $string);
$string = preg_replace("/\=\?(.*?)\?q\?(.*?)\?\=/ieU",$this->phpGW_quoted_printable_decode2("\\2"),$string);
return $string;
}
2002-05-26 22:09:01 +02:00
function decode_header($string)
{
/* Decode from qp or base64 form */
if (preg_match("/\=\?(.*?)\?b\?/i", $string))
{
return $this->decode_base64($string);
}
if (preg_match("/\=\?(.*?)\?q\?/i", $string))
{
return $this->decode_qp($string);
}
return $string;
}
function decode_author($author,&$email,&$name)
{
/* Decode from qp or base64 form */
$author = $this->decode_header($author);
/* Extract real name and e-mail address */
/* According to RFC1036 the From field can have one of three formats:
1. Real Name <name@domain.name>
2. name@domain.name (Real Name)
3. name@domain.name
*/
/* 1st case */
//if (eregi("(.*) <([-a-z0-9\_\$\+\.]+\@[-a-z0-9\_\.]+[-a-z0-9\_]+)>",
if (eregi("(.*) <([-a-z0-9_$+.]+@[-a-z0-9_.]+[-a-z0-9_]+)>",$author, $regs))
{
$email = $regs[2];
$name = $regs[1];
}
/* 2nd case */
elseif (eregi("([-a-z0-9_$+.]+@[-a-z0-9_.]+[-a-z0-9_]+) ((.*))",$author, $regs))
{
//if (eregi("([-a-z0-9\_\$\+\.]+\@[-a-z0-9\_\.]+[-a-z0-9\_]+) \((.*)\)",$author, $regs))
$email = $regs[1];
$name = $regs[2];
}
/* 3rd case */
else
{
$email = $author;
}
if ($name == '')
{
$name = $email;
}
$name = eregi_replace("^\"(.*)\"$", "\\1", $name);
$name = eregi_replace("^\((.*)\)$", "\\1", $name);
}
2002-05-26 22:09:01 +02:00
// OBSOLETED ?
function get_mime_type($de_part)
{
if (!isset($de_part->type))
{
return 'unknown';
}
else
{
return $this->type_int_to_str($de_part->type);
}
}
2002-05-26 22:09:01 +02:00
function type_int_to_str($type_int)
{
switch ($type_int)
{
2002-05-26 22:09:01 +02:00
case TYPETEXT : $type_str = 'text'; break;
case TYPEMULTIPART : $type_str = 'multipart'; break;
case TYPEMESSAGE : $type_str = 'message'; break;
case TYPEAPPLICATION : $type_str = 'application'; break;
case TYPEAUDIO : $type_str = 'audio'; break;
case TYPEIMAGE : $type_str = 'image'; break;
case TYPEVIDEO : $type_str = 'video'; break;
case TYPEOTHER : $type_str = 'other'; break;
default : $type_str = 'unknown';
}
return $type_str;
}
2002-05-26 22:09:01 +02:00
function get_mime_encoding($de_part)
{
if (!isset($de_part->encoding))
{
return 'other';
}
else
{
$encoding_str = $this->type_int_to_str($de_part->encoding);
if ($encoding_str == 'quoted-printable')
{
$encoding_str = 'qprint';
}
return $encoding_str;
}
}
2002-05-26 22:09:01 +02:00
function encoding_int_to_str($encoding_int)
{
switch ($encoding_int)
{
2002-05-26 22:09:01 +02:00
case ENC7BIT : $encoding_str = '7bit'; break;
case ENC8BIT : $encoding_str = '8bit'; break;
case ENCBINARY : $encoding_str = 'binary'; break;
case ENCBASE64 : $encoding_str = 'base64'; break;
case ENCQUOTEDPRINTABLE : $encoding_str = 'quoted-printable'; break;
2002-05-26 22:09:01 +02:00
case ENCOTHER : $encoding_str = 'other'; break;
case ENCUU : $encoding_str = 'uu'; break;
default : $encoding_str = 'other';
}
return $encoding_str;
}
2002-05-26 22:09:01 +02:00
// OBSOLETED
function get_att_name($de_part)
{
$param = new parameter;
$att_name = 'Unknown';
if (!isset($de_part->parameters))
{
return $att_name;
}
for ($i=0;$i<count($de_part->parameters);$i++)
{
$param=(!$de_part->parameters[$i]?$de_part->parameters:$de_part->parameters[$i]);
if(!$param)
{
break;
}
$pattribute = $param->attribute;
if (strtolower($pattribute) == 'name')
{
$att_name = $param->value;
}
}
return $att_name;
}
2002-05-26 22:09:01 +02:00
function uudecode($str)
{
$file='';
for($i=0;$i<count($str);$i++)
{
if ($i==count($str)-1 && $str[$i] == "`")
{
$GLOBALS['phpgw']->common->phpgw_exit();
}
$pos=1;
$d=0;
$len=(int)(((ord(substr($str[$i],0,1)) ^ 0x20) - ' ') & 077);
while (($d+3<=$len) && ($pos+4<=strlen($str[$i])))
{
$c0=(ord(substr($str[$i],$pos ,1)) ^ 0x20);
$c1=(ord(substr($str[$i],$pos+1,1)) ^ 0x20);
$c2=(ord(substr($str[$i],$pos+2,1)) ^ 0x20);
$c3=(ord(substr($str[$i],$pos+3,1)) ^ 0x20);
$file .= chr(((($c0 - ' ') & 077) << 2) | ((($c1 - ' ') & 077) >> 4));
$file .= chr(((($c1 - ' ') & 077) << 4) | ((($c2 - ' ') & 077) >> 2));
$file .= chr(((($c2 - ' ') & 077) << 6) | (($c3 - ' ') & 077) );
$pos+=4;
$d+=3;
}
if (($d+2<=$len) && ($pos+3<=strlen($str[$i])))
{
$c0=(ord(substr($str[$i],$pos ,1)) ^ 0x20);
$c1=(ord(substr($str[$i],$pos+1,1)) ^ 0x20);
$c2=(ord(substr($str[$i],$pos+2,1)) ^ 0x20);
$file .= chr(((($c0 - ' ') & 077) << 2) | ((($c1 - ' ') & 077) >> 4));
$file .= chr(((($c1 - ' ') & 077) << 4) | ((($c2 - ' ') & 077) >> 2));
$pos+=3;
$d+=2;
}
if (($d+1<=$len) && ($pos+2<=strlen($str[$i])))
{
$c0=(ord(substr($str[$i],$pos ,1)) ^ 0x20);
$c1=(ord(substr($str[$i],$pos+1,1)) ^ 0x20);
$file .= chr(((($c0 - ' ') & 077) << 2) | ((($c1 - ' ') & 077) >> 4));
}
}
return $file;
}
}
?>