--- loncom/metadata_database/Attic/lonsql.pm 2001/02/20 14:12:48 1.1
+++ loncom/metadata_database/Attic/lonsql.pm 2001/02/20 15:03:23 1.3
@@ -6,8 +6,88 @@
package Apache::lonsql;
use strict;
-
-
+use Opcode;
+use Apache::lonnet;
+use Apache::Constants qw(:common :http);
+
+use CGI;
+
+# ================================================================ Main handler
+#
+# Interactive call to screen
+#
+#
+
+sub handler {
+ my $r=shift;
+
+ if ($r->header_only) {
+ $r->content_type('text/html');
+ $r->send_http_header;
+ return OK;
+ }
+
+# ------------------------------------------------------------------- Open page
+
+ my $query=new CGI;
+
+ my $searchquery;
+ my $searchresults;
+
+ if ($query->{'SUBMIT'}) {
+ $searchquery="trying to search...";
+ }
+
+ $r->content_type('text/html');
+ $r->header_out('Cache-control','no-cache');
+ $r->header_out('Pragma','no-cache');
+ $r->send_http_header;
+ my $output=<MySQL search engine
+
+$searchquery +
++$searchresults +
+END + $r->print($output); + return OK; +}