--- nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm 2002/05/06 19:51:21 1.2 +++ 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.2 $ =~ /(\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