|
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 |
![[BACK]](/icons/back.gif){kind=icon}
Return to Common.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / nsdl / lib / perl / Apache / GATEWAY