--- nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm 2002/05/05 20:52:58 1.1 +++ nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm 2002/05/23 19:54:28 1.3 @@ -37,12 +37,30 @@ package Apache::NSDL::ToTheGateway; # ================================================================ DEPENDENCIES use strict; # enforce handling of variables, references and subroutines +use Apache::Constants qw(:common); # ============================================================ MODULE VARIABLES -my $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/); +my $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/); # ================================================================= SUBROUTINES +# ----------------------------- Handling routine called via Apache and mod_perl +sub handler { + my $r = shift; + $r->content_type('text/html'); + $r->send_http_header; + return(OK) if $r->header_only; + $r->print(< +Test Output + +Apache::NSDL::ToTheGateway + + +END + return(OK); +} + # ------------------------------------------- NSDL->answer_list_records_request sub answer_list_records_request { # Not yet implemented @@ -167,6 +185,10 @@ This lists the records matching a given The request comes from the Gateway Server, B GATEWAY>. +=item B + +n/a + =back =item B @@ -191,6 +213,10 @@ This lists the records matching a given The request comes from the Gateway Server, B GATEWAY>. +=item B + +n/a + =back =item B @@ -214,6 +240,10 @@ This lists the records matching a given The request comes from the Gateway Server, B GATEWAY>. +=item B + +n/a + =back =item B @@ -238,6 +268,10 @@ This provides the content of the resourc The request comes from the Gateway Server, B GATEWAY>. +=item B + +n/a + =back =back