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 |