--- loncom/metadata_database/Attic/lonsql.pm	2001/02/20 14:12:48	1.1
+++ loncom/metadata_database/Attic/lonsql.pm	2001/02/20 14:17:15	1.2
@@ -6,9 +6,29 @@
 package Apache::lonsql;
 
 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;