--- nsdl/lib/perl/Apache/GATEWAY/Common.pm	2002/05/29 01:00:18	1.1
+++ nsdl/lib/perl/Apache/GATEWAY/Common.pm	2002/07/14 07:41:41	1.3
@@ -15,6 +15,19 @@
 
 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 {
     my $r=shift;
 # -------------------------------------------------------- Load POST parameters