--- nsdl/lib/perl/Apache/GATEWAY/Common.pm	2002/05/30 17:04:42	1.2
+++ nsdl/lib/perl/Apache/GATEWAY/Common.pm	2002/07/14 07:41:41	1.3
@@ -17,6 +17,11 @@ 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/;