[LON-CAPA-cvs] cvs: nsdl /lib/perl/Apache/GATEWAY Common.pm

[harris41]

harris41		Sun Jul 14 03:41:41 2002 EDT

  Modified files:              
    /nsdl/lib/perl/Apache/GATEWAY	Common.pm 
  Log:
  format the requestURL variable expected by OAI protocol
  
  
Index: nsdl/lib/perl/Apache/GATEWAY/Common.pm
diff -u nsdl/lib/perl/Apache/GATEWAY/Common.pm:1.2 nsdl/lib/perl/Apache/GATEWAY/Common.pm:1.3
--- nsdl/lib/perl/Apache/GATEWAY/Common.pm:1.2	Thu May 30 13:04:42 2002
+++ nsdl/lib/perl/Apache/GATEWAY/Common.pm	Sun Jul 14 03:41:41 2002
@@ -17,6 +17,11 @@
 
 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/;