/**
* Returns the proper RFC 822 formatted date.
* @access private
* @return string
*/
function RFCDate()
{
$tz = date::current("Z");
$tzs = $tz < 0 ? "-" : "+";
$tz = abs($tz);
$tz = $tz / 3600 * 100 + $tz % 3600 / 60;
$result = sprintf("%s %s%04d", date::current("D, j M Y H:i:s"), $tzs, $tz);
return $result;
}
