/** * 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; }