[LON-CAPA-cvs] cvs: nsdl /lib/perl/Apache/NSDL ToTheGateway.pm

[harris41]

harris41		Thu May 30 13:07:38 2002 EDT

  Modified files:              
    /nsdl/lib/perl/Apache/NSDL	ToTheGateway.pm 
  Log:
  placeholders for all OAI verbs; correctly calculating responseDate
  
  
Index: nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm
diff -u nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm:1.4 nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm:1.5
--- nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm:1.4	Tue May 28 21:17:55 2002
+++ nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm	Thu May 30 13:07:38 2002
@@ -42,7 +42,7 @@
 use Apache::NSDL::FromTheGateway;
 
 # ============================================================ MODULE VARIABLES
-my $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
+my $VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);
 
 # ================================================================= SUBROUTINES
 
@@ -56,6 +56,7 @@
       Apache::NSDL::FromTheGateway::view_LONCAPAgateway_metadata_record(\%ENV);
     }
     elsif ($ENV{'form.verb'} eq 'Identify') {
+	my $responseDate=Apache::GATEWAY::Common::responseDate();
 	$output=(<<END);
 <?xml version="1.0" encoding="UTF-8"?>
   <Identify 
@@ -63,7 +64,7 @@
      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
      xsi:schemaLocation="http://www.openarchives.org/OAI/1.1/OAI_Identify
                          http://www.openarchives.org/OAI/1.1/OAI_Identify.xsd">
-    <responseDate>2001-06-01T19:20:30-04:00</responseDate>
+    <responseDate>$responseDate</responseDate>
     <requestURL>http://nsdl.lon-capa.org/OAI-script?verb=Identify</requestURL>
     <repositoryName>The LearningOnline Network with CAPA</repositoryName>
     <baseURL>http://nsdl.lon-capa.org/OAI-script</baseURL>
@@ -102,9 +103,21 @@
     </description>
   </Identify> 
 END
-        $output=~s/\>/\&gt;/g;
-	$output=~s/\</\&lt;/g;
     }
+    elsif ($ENV{'form.verb'} eq 'ListIdentifiers') {
+	$output='not yet implemented';
+    }
+    elsif ($ENV{'form.verb'} eq 'ListMetadataFormats') {
+	$output='not yet implemented';
+    }
+    elsif ($ENV{'form.verb'} eq 'ListRecords') {
+	$output='not yet implemented';
+    }
+    elsif ($ENV{'form.verb'} eq 'ListSets') {
+	$output='not yet implemented';
+    }
+    $output=~s/\>/\&gt;/g;
+    $output=~s/\</\&lt;/g;
     my $cgi;
     foreach my $key (keys %ENV) {
 	if ($key=~/^form\./) {