version 1.19, 2006/03/19 21:54:41
|
version 1.20, 2008/11/14 21:26:54
|
Line 27
|
Line 27
|
# |
# |
# |
# |
|
|
|
=head1 NAME |
|
|
|
Apache::lontest; |
|
|
|
=head1 SYNOPSIS |
|
|
|
Used for debugging and testing the LONCAPA |
|
system. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 HANDLER SUBROUTINE |
|
|
|
handler() |
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over |
|
|
|
=item * |
|
|
|
section() : |
|
|
|
section takes one env var name as input, and returns |
|
what section the given env var is in, which is the part |
|
of the env var before the first period. |
|
Returns the section, or blank string for 'no section', |
|
which is normal for the standard env vars like REQUEST_URI. |
|
|
|
=item * |
|
|
|
print_hash() |
|
|
|
=item * |
|
|
|
|
|
|
|
|
|
=back |
|
|
|
=cut |
|
|
package Apache::lontest; |
package Apache::lontest; |
|
|
use strict; |
use strict; |
Line 35 use GDBM_File;
|
Line 78 use GDBM_File;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
|
|
# section takes one env var name as input, and returns |
|
# what section the given env var is in, which is the part |
|
# of the env var before the first period. |
|
# Returns the section, or blank string for 'no section', |
|
# which is normal for the standard env vars like REQUEST_URI. |
|
sub section |
sub section |
{ |
{ |
my ($name) = @_; |
my ($name) = @_; |