Annotation of loncom/metadata_database/lonsql.pm, revision 1.2

1.1       harris41    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;
1.2     ! harris41    9: use Opcode;
        !            10: use Apache::lonnet;
        !            11: use Apache::Constants qw(:common :http);
1.1       harris41   12: 
                     13: 
1.2     ! harris41   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: }
1.1       harris41   31: 
                     32: 
                     33: 
                     34: 1;

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