![[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|
Return to Common.pm CVS log | Up to [LON-CAPA] / nsdl / lib / perl / Apache / GATEWAY |
| version 1.2, 2002/05/30 17:04:42 | version 1.3, 2002/07/14 07:41:41 |
|---|---|
| Line 17 package Apache::GATEWAY::Common; | Line 17 package Apache::GATEWAY::Common; |
| use Date::Format; | use Date::Format; |
| sub requestURL { | |
| my $requestURL=$ENV{'HTTP_HOST'}.$ENV{'REQUEST_URI'}; | |
| return $requestURL; | |
| } | |
| sub responseDate { | sub responseDate { |
| my $responseDate=Date::Format::time2str("%Y-%m-%dT%T%z",time); | my $responseDate=Date::Format::time2str("%Y-%m-%dT%T%z",time); |
| $responseDate=~s/(..)$/\:$1/; | $responseDate=~s/(..)$/\:$1/; |