--- nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm	2002/05/06 19:51:21	1.2
+++ nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm	2002/07/14 07:37:20	1.6
@@ -37,12 +37,265 @@ package Apache::NSDL::ToTheGateway;
 
 # ================================================================ DEPENDENCIES
 use strict; # enforce handling of variables, references and subroutines
+use Apache::Constants qw(:common);
+use Apache::GATEWAY::Common;
+use Apache::NSDL::FromTheGateway;
 
 # ============================================================ MODULE VARIABLES
-my $VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
+my $VERSION = sprintf("%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/);
+my $hostname='nsdl.lon-capa.org';
 
 # ================================================================= SUBROUTINES
 
+# ----------------------------- Handling routine called via Apache and mod_perl
+sub handler {
+    my $r = shift;
+    Apache::GATEWAY::Common::readCGI($r);
+    my $output;
+    if ($ENV{'form.verb'} eq 'GetRecord') {
+	# arguments: identifier, metadataPrefix
+	if(!defined($ENV{'form.identifier'})) {
+	    my $responseDate=Apache::GATEWAY::Common::responseDate();
+	    my $requestURL=Apache::GATEWAY::Common::requestURL();
+	    $output=(<<END);
+<?xml version="1.0" encoding="UTF-8"?>
+ <OAI-PMH xmlns="http://www.openarchives.org/OAI/2.0/" 
+          xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+          xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/
+          http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd">
+   <responseDate>$responseDate</responseDate>
+   <request>$requestURL</request>
+   <error code="badArgument">Missing identifier argument</error>
+ </OAI-PMH>
+END
+	}
+	elsif(!defined($ENV{'form.metadataPrefix'})) {
+	    my $responseDate=Apache::GATEWAY::Common::responseDate();
+	    my $requestURL=Apache::GATEWAY::Common::requestURL();
+	    $output=(<<END);
+<?xml version="1.0" encoding="UTF-8"?>
+ <OAI-PMH xmlns="http://www.openarchives.org/OAI/2.0/" 
+          xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+          xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/
+          http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd">
+   <responseDate>$responseDate</responseDate>
+   <request>$requestURL</request>
+   <error code="badArgument">Missing metadataPrefix argument</error>
+ </OAI-PMH>
+END
+	}
+	elsif ($ENV{'form.metadataPrefix'} ne 'oai_dc' and
+	       $ENV{'form.metadataPrefix'} ne 'loncapa_ieeelom') {
+	    my $responseDate=Apache::GATEWAY::Common::responseDate();
+	    my $requestURL=Apache::GATEWAY::Common::requestURL();
+	    $output=(<<END);
+<?xml version="1.0" encoding="UTF-8"?>
+ <OAI-PMH xmlns="http://www.openarchives.org/OAI/2.0/" 
+          xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+          xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/
+          http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd">
+   <responseDate>$responseDate</responseDate>
+   <request>$requestURL</request>
+   <error code="cannotDisseminateFormat">Cannot disseminate the requested
+metadata format</error>
+ </OAI-PMH>
+END
+	}
+	else {
+	    my $status;
+	    ($status,$output)=
+      Apache::NSDL::FromTheGateway::view_LONCAPAgateway_metadata_record(\%ENV);
+	}
+    }
+    elsif ($ENV{'form.verb'} eq 'Identify') {
+	# arguments: none
+	my $responseDate=Apache::GATEWAY::Common::responseDate();
+	my $requestURL=Apache::GATEWAY::Common::requestURL();
+	$output=(<<END);
+<?xml version="1.0" encoding="UTF-8"?>
+  <OAI-PMH
+     xmlns="http://www.openarchives.org/OAI/2.0/"
+     xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+     xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/
+                         http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd">
+    <responseDate>$responseDate</responseDate>
+    <requestURL>$requestURL</requestURL>
+  <Identify >
+    <repositoryName>The LearningOnline Network with CAPA</repositoryName>
+    <baseURL>http://$hostname/OAI-script</baseURL>
+    <protocolVersion>1.1</protocolVersion>
+    <adminEmail>mailto:korte\@lite.msu.edu</adminEmail>
+    <description>
+     <oai-identifier xmlns="http://www.openarchives.org/OAI/2.0/oai-identifier"
+         xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+         xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/oai-identifier
+                       http://www.openarchives.org/OAI/2.0/oai-identifier.xsd">
+        <scheme>oai</scheme>
+        <repositoryIdentifier>loncapa</repositoryIdentifier>
+        <delimiter>:</delimiter>
+        <sampleIdentifier>oai:loncapa:harrison2002-1</sampleIdentifier>
+      </oai-identifier>
+    </description>
+    <description>
+      <eprints xmlns="http://www.openarchives.org/OAI/2.0/eprints"
+            xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+            xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/eprints
+                              http://www.openarchives.org/OAI/2.0/eprints.xsd">
+        <content>
+          <URL>http://$hostname/info/content.html</URL>
+          <text>Educational materials from the LearningOnline Network</text>
+        </content>
+        <metadataPolicy>
+          <text>Metadata can be used by authorized users</text>
+        </metadataPolicy>
+        <dataPolicy>
+       <text>Full content, i.e. preprints may not be harvested by robots</text>
+        </dataPolicy>
+        <submissionPolicy>
+          <text>Submissions can be made by institutions with installed
+LON-CAPA servers.</text>
+        </submissionPolicy>
+      </eprints>
+    </description>
+  </Identify> 
+ </OAI-PMH>
+END
+    }
+    elsif ($ENV{'form.verb'} eq 'ListIdentifiers') {
+	# arguments: until, from, set, resumptionToken
+#	$output=
+#      Apache::NSDL::FromTheGateway::search_against_LONCAPAgateway(\%ENV);
+	# no full implementation scheme yet so...
+	    my $responseDate=Apache::GATEWAY::Common::responseDate();
+	    my $requestURL=Apache::GATEWAY::Common::requestURL();
+	    $output=(<<END);
+<?xml version="1.0" encoding="UTF-8"?>
+ <OAI-PMH xmlns="http://www.openarchives.org/OAI/2.0/" 
+          xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+          xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/
+          http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd">
+   <responseDate>$responseDate</responseDate>
+   <request>$requestURL</request>
+   <error code="noSetHierarchy">No set hierarchy available yet for this
+gateway.</error>
+ </OAI-PMH>
+END
+    }
+    elsif ($ENV{'form.verb'} eq 'ListMetadataFormats') {
+	# arguments: identifier
+	my $responseDate=Apache::GATEWAY::Common::responseDate();
+	my $requestURL=Apache::GATEWAY::Common::requestURL();
+	$output=(<<END);
+<?xml version="1.0" encoding="UTF-8"?>
+  <ListMetadataFormats 
+      xmlns="http://www.openarchives.org/OAI/1.1/OAI_ListMetadataFormats"
+      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+xsi:schemaLocation="http://www.openarchives.org/OAI/1.1/OAI_ListMetadataFormats
+              http://www.openarchives.org/OAI/1.1/OAI_ListMetadataFormats.xsd">
+    <responseDate>$responseDate</responseDate> 
+    <requestURL>$requestURL</requestURL>
+    <metadataFormat>
+      <metadataPrefix>oai_dc</metadataPrefix>
+      <schema>http://www.openarchives.org/OAI/1.1/dc.xsd</schema>
+      <metadataNamespace>http://purl.org/dc/elements/1.1/</metadataNamespace>
+    </metadataFormat>
+    <metadataFormat>
+      <metadataPrefix>loncapa_ieeelom</metadataPrefix>
+      <schema>http://nsdl.lon-capa.org/lom/6.4/ieeelom.xsd</schema>
+      <metadataNamespace>http://nsdl.lon-capa.org/lom/6.4/</metadataNamespace>
+    </metadataFormat>
+</ListMetadataFormats>
+END
+    }
+    elsif ($ENV{'form.verb'} eq 'ListRecords') {
+	# arguments: until, from, set, resumptionToken
+#	$output=
+#      Apache::NSDL::FromTheGateway::search_against_LONCAPAgateway(\%ENV);
+	    my $responseDate=Apache::GATEWAY::Common::responseDate();
+	    my $requestURL=Apache::GATEWAY::Common::requestURL();
+	    $output=(<<END);
+<?xml version="1.0" encoding="UTF-8"?>
+ <OAI-PMH xmlns="http://www.openarchives.org/OAI/2.0/" 
+          xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+          xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/
+          http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd">
+   <responseDate>$responseDate</responseDate>
+   <request>$requestURL</request>
+   <error code="noSetHierarchy">No set hierarchy available yet for this
+gateway.</error>
+ </OAI-PMH>
+END
+    }
+    elsif ($ENV{'form.verb'} eq 'ListSets') {
+	# arguments: resumptionToken
+#	$output='not yet implemented';
+	    my $responseDate=Apache::GATEWAY::Common::responseDate();
+	    my $requestURL=Apache::GATEWAY::Common::requestURL();
+	    $output=(<<END);
+<?xml version="1.0" encoding="UTF-8"?>
+ <OAI-PMH xmlns="http://www.openarchives.org/OAI/2.0/" 
+          xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+          xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/
+          http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd">
+   <responseDate>$responseDate</responseDate>
+   <request>$requestURL</request>
+   <error code="noSetHierarchy">No set hierarchy available yet for this
+gateway.</error>
+ </OAI-PMH>
+END
+    }
+    else {
+	my $responseDate=Apache::GATEWAY::Common::responseDate();
+	my $requestURL=Apache::GATEWAY::Common::requestURL();
+	$output=(<<END);
+<?xml version="1.0" encoding="UTF-8"?>
+ <OAI-PMH xmlns="http://www.openarchives.org/OAI/2.0/" 
+          xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+          xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/
+          http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd">
+   <responseDate>$responseDate</responseDate>
+   <request>$requestURL</request>
+   <error code="badVerb">Illegal OAI verb</error>
+ </OAI-PMH>
+END
+    }
+    $r->content_type('text/xml');
+    $r->send_http_header;
+    return(OK) if $r->header_only;
+    $r->print(<<END);
+$output
+END
+    
+#    $output=~s/\>/\&gt;/g;
+#    $output=~s/\</\&lt;/g;
+#    my $cgi;
+#    foreach my $key (keys %ENV) {
+#	if ($key=~/^form\./) {
+#	    $cgi.="$key: $ENV{$key}\n";
+#	}
+#    }
+#    $r->content_type('text/html');
+#    $r->send_http_header;
+#    return(OK) if $r->header_only;
+#    $r->print(<<END);
+#<html>
+#<head><title>Test Output</title></head>
+#<body>
+#<h1>Apache::NSDL::ToTheGateway</h1>
+#<h2>Input</h2>
+#<pre>
+#$cgi
+#</pre>
+#<h2>Output</h2>
+#<pre>
+#$output
+#</pre>
+#</body>
+#</html>
+END
+    return(OK);
+}
+
 # ------------------------------------------- NSDL->answer_list_records_request
 sub answer_list_records_request {
 # Not yet implemented
@@ -51,20 +304,20 @@ sub answer_list_records_request {
 
 # ------------------------------------------------- NSDL->answer_search_request
 sub answer_search_request {
-# Not yet implemented
-# Need to specifically characterize INPUT arguments and OUTPUT data
+    my ($url)=@_;
+    return "will have http querying strategy against NSDL servers\n";
 }
 
 # ---------------------------------------- NSDL->answer_metadata_record_request
 sub answer_metadata_record_request {
-# Not yet implemented
-# Need to specifically characterize INPUT arguments and OUTPUT data
+    my ($eref)=@_;
+    return Apache::NSDL::FromTheGateway($eref);
 }
 
 # ----------------------------------------------- NSDL->answer_resource_request
 sub answer_resource_request {
-# Not yet implemented
-# Need to specifically characterize INPUT arguments and OUTPUT data
+    my ($eref)=@_;
+    return Apache::NSDL::FromTheGateway($eref);
 }
 
 1;
@@ -296,4 +549,3 @@ and Apache::GATEWAY::* manpages.
 linux
 
 =cut
-