version 1.1, 2002/05/29 01:00:18
|
version 1.3, 2002/07/14 07:41:41
|
Line 15
|
Line 15
|
|
|
package Apache::GATEWAY::Common; |
package Apache::GATEWAY::Common; |
|
|
|
use Date::Format; |
|
|
|
sub requestURL { |
|
my $requestURL=$ENV{'HTTP_HOST'}.$ENV{'REQUEST_URI'}; |
|
return $requestURL; |
|
} |
|
|
|
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 |