Return to lonsql.pm CVS log

Up to [LON-CAPA] / loncom / metadata_database

setting up a first test with test output -Scott

    1: # The LearningOnline Network with CAPA
    2: # Metadata Database Handler
    3: #
    4: # 02/20/2001 Scott Harrison
    5: 
    6: package Apache::lonsql;
    7: 
    8: use strict;
    9: use Opcode;
   10: use Apache::lonnet;
   11: use Apache::Constants qw(:common :http);
   12: 
   13: 
   14: 
   15: # ================================================================ Main handler
   16: #
   17: # Interactive call to screen
   18: #
   19: #
   20: 
   21: sub handler {
   22:     my $r=shift;
   23:     my $output=<<END;
   24: Content-type: text/html
   25: 
   26: <H1>Test output message for lonsql.pm</H1>
   27: END
   28:     $r->print($output);
   29:     return OK;
   30: }
   31: 
   32: 
   33: 
   34: 1;