version 1.1, 2002/05/05 20:52:58
|
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 |
Line 167 This lists the records matching a given
|
Line 185 This lists the records matching a given
|
The request comes from the Gateway Server, B<and the information |
The request comes from the Gateway Server, B<and the information |
passes from NSDL I<to the> GATEWAY>. |
passes from NSDL I<to the> GATEWAY>. |
|
|
|
=item B<Status of Implementation> |
|
|
|
n/a |
|
|
=back |
=back |
|
|
=item B<Apache::NSDL::answer_search_request> |
=item B<Apache::NSDL::answer_search_request> |
Line 191 This lists the records matching a given
|
Line 213 This lists the records matching a given
|
The request comes from the Gateway Server, B<and the information |
The request comes from the Gateway Server, B<and the information |
passes from NSDL I<to the> GATEWAY>. |
passes from NSDL I<to the> GATEWAY>. |
|
|
|
=item B<Status of Implementation> |
|
|
|
n/a |
|
|
=back |
=back |
|
|
=item B<Apache::NSDL::answer_metadata_record_request> |
=item B<Apache::NSDL::answer_metadata_record_request> |
Line 214 This lists the records matching a given
|
Line 240 This lists the records matching a given
|
The request comes from the Gateway Server, B<and the information |
The request comes from the Gateway Server, B<and the information |
passes from NSDL I<to the> GATEWAY>. |
passes from NSDL I<to the> GATEWAY>. |
|
|
|
=item B<Status of Implementation> |
|
|
|
n/a |
|
|
=back |
=back |
|
|
=item B<Apache::NSDL::answer_resource_request> |
=item B<Apache::NSDL::answer_resource_request> |
Line 238 This provides the content of the resourc
|
Line 268 This provides the content of the resourc
|
The request comes from the Gateway Server, B<and the information |
The request comes from the Gateway Server, B<and the information |
passes from NSDL I<to the> GATEWAY>. |
passes from NSDL I<to the> GATEWAY>. |
|
|
|
=item B<Status of Implementation> |
|
|
|
n/a |
|
|
=back |
=back |
|
|
=back |
=back |