![[BACK]](/icons/back.gif){kind=icon}
Return to lonsql.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / metadata_database|
Return to lonsql.pm CVS log | Up to [LON-CAPA] / loncom / metadata_database |
| version 1.1, 2001/02/20 14:12:48 | version 1.2, 2001/02/20 14:17:15 |
|---|---|
| Line 6 | Line 6 |
| package Apache::lonsql; | package Apache::lonsql; |
| use strict; | use strict; |
| use Opcode; | |
| use Apache::lonnet; | |
| use Apache::Constants qw(:common :http); | |
| # ================================================================ Main handler | |
| # | |
| # Interactive call to screen | |
| # | |
| # | |
| sub handler { | |
| my $r=shift; | |
| my $output=<<END; | |
| Content-type: text/html | |
| <H1>Test output message for lonsql.pm</H1> | |
| END | |
| $r->print($output); | |
| return OK; | |
| } | |
| 1; | 1; |