nsdl/lib/perl/Apache/GATEWAY/Common.pm - diff

Return to Common.pm CVS log

Up to [LON-CAPA] / nsdl / lib / perl / Apache / GATEWAY

version 1.1, 2002/05/29 01:00:18	version 1.2, 2002/05/30 17:04:42
Line 15	Line 15

package Apache::GATEWAY::Common;	package Apache::GATEWAY::Common;

	use Date::Format;

	sub responseDate {
	my $responseDate=Date::Format::time2str("%Y-%m-%dT%T%z",time);
	$responseDate=~s/(..)$/\:$1/;
	return $responseDate;
	}

sub readCGI {	sub readCGI {
my $r=shift;	my $r=shift;
# -------------------------------------------------------- Load POST parameters	# -------------------------------------------------------- Load POST parameters