[BACK]Return to ToTheGateway.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / nsdl / lib / perl / Apache / NSDL

Diff for /nsdl/lib/perl/Apache/NSDL/ToTheGateway.pm between versions 1.2 and 1.3

version 1.2, 2002/05/06 19:51:21 version 1.3, 2002/05/23 19:54:28
Line 37  package Apache::NSDL::ToTheGateway; Line 37  package Apache::NSDL::ToTheGateway;
   
 # ================================================================ DEPENDENCIES  # ================================================================ DEPENDENCIES
 use strict; # enforce handling of variables, references and subroutines  use strict; # enforce handling of variables, references and subroutines
   use Apache::Constants qw(:common);
   
 # ============================================================ MODULE VARIABLES  # ============================================================ MODULE VARIABLES
 my $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);  my $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
   
 # ================================================================= SUBROUTINES  # ================================================================= 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(<<END);
   <html>
   <head><title>Test Output</title></head>
   <body>
   Apache::NSDL::ToTheGateway
   </body>
   </html>
   END
       return(OK);
   }
   
 # ------------------------------------------- NSDL->answer_list_records_request  # ------------------------------------------- NSDL->answer_list_records_request
 sub answer_list_records_request {  sub answer_list_records_request {
 # Not yet implemented  # Not yet implemented
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>