253 lines
7.5 KiB
PHP
253 lines
7.5 KiB
PHP
<?php
|
|
/**
|
|
** date.php
|
|
**
|
|
** Takes a date and parses it into a usable format. The form that a
|
|
** date SHOULD arrive in is:
|
|
** <Tue,> 29 Jun 1999 09:52:11 -0500 (EDT)
|
|
** (as specified in RFC 822) -- 'Tue' is optional
|
|
**
|
|
** $Id$
|
|
**/
|
|
|
|
if (defined ('date_php'))
|
|
return;
|
|
define ('date_php', true);
|
|
|
|
// corrects a time stamp to be the local time
|
|
function getGMTSeconds($stamp, $gmt) {
|
|
global $invert_time;
|
|
if (($gmt == 'Pacific') || ($gmt == 'PST'))
|
|
$gmt = '-0800';
|
|
else if (($gmt == 'EDT'))
|
|
$gmt = '-0400';
|
|
else if (($gmt == 'Eastern') || ($gmt == 'EST') || ($gmt == 'CDT'))
|
|
$gmt = '-0500';
|
|
else if (($gmt == 'Central') || ($gmt == 'CST') || ($gmt == 'MDT'))
|
|
$gmt = '-0600';
|
|
else if (($gmt == 'Mountain') || ($gmt == 'MST') || ($gmt == 'PDT'))
|
|
$gmt = '-0700';
|
|
else if ($gmt == 'BST')
|
|
$gmt = '+0100';
|
|
else if ($gmt == 'EET')
|
|
$gmt = '+0200';
|
|
else if ($gmt == 'GMT')
|
|
$gmt = '+0000';
|
|
else if ($gmt == 'HKT')
|
|
$gmt = '+0800';
|
|
else if ($gmt == 'IST')
|
|
$gmt = '+0200';
|
|
else if ($gmt == 'JST')
|
|
$gmt = '+0900';
|
|
else if ($gmt == 'KST')
|
|
$gmt = "+0900";
|
|
else if ($gmt == 'MET')
|
|
$gmt = '+0100';
|
|
else if ($gmt == 'MET DST' || $gmt == 'METDST')
|
|
$gmt = '+0200';
|
|
|
|
if (substr($gmt, 0, 1) == '-') {
|
|
$neg = true;
|
|
$gmt = substr($gmt, 1, strlen($gmt));
|
|
} else if (substr($gmt, 0, 1) == '+') {
|
|
$neg = false;
|
|
$gmt = substr($gmt, 1, strlen($gmt));
|
|
} else
|
|
$neg = false;
|
|
|
|
$gmt = substr($gmt, 0, 2);
|
|
$gmt = $gmt * 3600;
|
|
if ($neg == true)
|
|
$gmt = "-$gmt";
|
|
else
|
|
$gmt = "+$gmt";
|
|
|
|
/** now find what the server is at **/
|
|
$current = date('Z', time());
|
|
if ($invert_time)
|
|
$current = - $current;
|
|
$stamp = (int)$stamp - (int)$gmt + (int)$current;
|
|
|
|
return $stamp;
|
|
}
|
|
|
|
/**
|
|
Switch system has been intentionaly choosed for the
|
|
internationalization of month and day names. The reason
|
|
is to make sure that _("") strings will go into the
|
|
main po.
|
|
**/
|
|
|
|
function getDayName( $day_number ) {
|
|
|
|
switch( $day_number ) {
|
|
case 0:
|
|
$ret = _("Sunday");
|
|
break;
|
|
case 1:
|
|
$ret = _("Monday");
|
|
break;
|
|
case 2:
|
|
$ret = _("Tuesday");
|
|
break;
|
|
case 3:
|
|
$ret = _("Wednesday");
|
|
break;
|
|
case 4:
|
|
$ret = _("Thursday");
|
|
break;
|
|
case 5:
|
|
$ret = _("Friday");
|
|
break;
|
|
case 6:
|
|
$ret = _("Saturday");
|
|
break;
|
|
default:
|
|
$ret = '';
|
|
}
|
|
return( $ret );
|
|
}
|
|
|
|
function getMonthName( $month_number ) {
|
|
switch( $month_number ) {
|
|
case '01':
|
|
$ret = _("January");
|
|
break;
|
|
case '02':
|
|
$ret = _("February");
|
|
break;
|
|
case '03':
|
|
$ret = _("March");
|
|
break;
|
|
case '04':
|
|
$ret = _("April");
|
|
break;
|
|
case '05':
|
|
$ret = _("May");
|
|
break;
|
|
case '06':
|
|
$ret = _("June");
|
|
break;
|
|
case '07':
|
|
$ret = _("July");
|
|
break;
|
|
case '08':
|
|
$ret = _("August");
|
|
break;
|
|
case '09':
|
|
$ret = _("September");
|
|
break;
|
|
case '10':
|
|
$ret = _("October");
|
|
break;
|
|
case '11':
|
|
$ret = _("November");
|
|
break;
|
|
case '12':
|
|
$ret = _("December");
|
|
break;
|
|
default:
|
|
$ret = '';
|
|
}
|
|
return( $ret );
|
|
}
|
|
|
|
function date_intl( $date_format, $stamp ) {
|
|
|
|
$date_format = str_replace( 'D', '[D]', $date_format );
|
|
$date_format = str_replace( 'F', '[F]', $date_format );
|
|
$date_format = str_replace( '[D]',
|
|
ereg_replace( "([a-zA-Z])", "\\\\1", substr( getDayName( date( 'w', $stamp ) ), 0, 3 ) ),
|
|
$date_format );
|
|
$date_format = str_replace( '[F]',
|
|
ereg_replace( "([a-zA-Z])", "\\\\1", getMonthName( date( 'm', $stamp ) ) ),
|
|
$date_format );
|
|
return( $date_format . ' ' );
|
|
}
|
|
|
|
function getLongDateString($stamp) {
|
|
|
|
$date_format = date_intl( _("D, F j, Y g:i a"), $stamp );
|
|
return date( $date_format, $stamp );
|
|
|
|
}
|
|
|
|
function getDateString($stamp) {
|
|
|
|
global $invert_time;
|
|
|
|
$now = time();
|
|
$dateZ = date('Z', $now);
|
|
if ($invert_time)
|
|
$dateZ = - $dateZ;
|
|
$midnight = $now - ($now % 86400) - $dateZ;
|
|
|
|
if ($midnight < $stamp) {
|
|
// Today
|
|
$date_format = _("g:i a");
|
|
} else if ($midnight - 518400 < $stamp) {
|
|
// This week
|
|
$date_format = _("D, g:i a");
|
|
} else {
|
|
// before this week
|
|
$date_format = _("M j, Y");
|
|
}
|
|
|
|
return( date( date_intl( $date_format, $stamp ), $stamp ) );
|
|
}
|
|
|
|
function getTimeStamp($dateParts) {
|
|
/** $dateParts[0] == <day of week> Mon, Tue, Wed
|
|
** $dateParts[1] == <day of month> 23
|
|
** $dateParts[2] == <month> Jan, Feb, Mar
|
|
** $dateParts[3] == <year> 1999
|
|
** $dateParts[4] == <time> 18:54:23 (HH:MM:SS)
|
|
** $dateParts[5] == <from GMT> +0100
|
|
** $dateParts[6] == <zone> (EDT)
|
|
**
|
|
** NOTE: In RFC 822, it states that <day of week> is optional.
|
|
** In that case, dateParts[0] would be the <day of month>
|
|
** and everything would be bumped up one.
|
|
**/
|
|
|
|
// Simply check to see if the first element in the dateParts
|
|
// array is an integer or not.
|
|
// Since the day of week is optional, this check is needed.
|
|
//
|
|
// The old code used eregi('mon|tue|wed|thu|fri|sat|sun',
|
|
// $dateParts[0], $tmp) to find if the first element was the
|
|
// day of week or day of month. This is an expensive call
|
|
// (processing time) to have inside a loop. Doing it this way
|
|
// saves quite a bit of time for large mailboxes.
|
|
//
|
|
// It is also quicker to call explode only once rather than
|
|
// the 3 times it was getting called by calling the functions
|
|
// getHour, getMinute, and getSecond.
|
|
//
|
|
if (! isset($dateParts[1])) $dateParts[1] = '';
|
|
if (! isset($dateParts[2])) $dateParts[2] = '';
|
|
if (! isset($dateParts[3])) $dateParts[3] = '';
|
|
if (! isset($dateParts[4])) $dateParts[4] = '';
|
|
if (! isset($dateParts[5])) $dateParts[5] = '';
|
|
if (intval(trim($dateParts[0])) > 0) {
|
|
$string = $dateParts[0] . ' ' . $dateParts[1] . ' ' .
|
|
$dateParts[2] . ' ' . $dateParts[3];
|
|
return getGMTSeconds(strtotime($string), $dateParts[4]);
|
|
}
|
|
$string = $dateParts[0] . ' ' . $dateParts[1] . ' ' .
|
|
$dateParts[2] . ' ' . $dateParts[3] . ' ' . $dateParts[4];
|
|
if (isset($dateParts[5]))
|
|
return getGMTSeconds(strtotime($string), $dateParts[5]);
|
|
else
|
|
return getGMTSeconds(strtotime($string), '');
|
|
}
|
|
|
|
// I use this function for profiling. Should never be called in
|
|
// actual versions of squirrelmail released to public.
|
|
function getmicrotime() {
|
|
$mtime = microtime();
|
|
$mtime = explode(' ',$mtime);
|
|
$mtime = $mtime[1] + $mtime[0];
|
|
return ($mtime);
|
|
}
|
|
?>
|