--- 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=<<END;
+
+<P>
+<H1>MySQL search engine</H1>
+<FORM METHOD="GET" ACTION="/adm/sqltest">
+<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
+<TR><TD><STRONG>title</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="title"></TD>
+<TR><TD><STRONG>author</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="author"></TD>
+<TR><TD><STRONG>subject</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="subject"></TD>
+<TR><TD><STRONG>notes</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="notes"></TD>
+<TR><TD><STRONG>abstract</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="abstract"></TD>
+<TR><TD><STRONG>mime</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="mime"></TD>
+<TR><TD><STRONG>language</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="language"></TD>
+<TR><TD><STRONG>creationdate</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="creationdate"></TD>
+<TR><TD><STRONG>lastrevisiondate</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="lastrevisiondate"></TD>
+<TR><TD><STRONG>owner</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="owner"></TD>
+<TR><TD><STRONG>copyright</STRONG></TD>
+<TD><INPUT TYPE="TEXT" NAME="copyright"></TD>
+</TR>
+</TABLE>
+<SELECT NAME="logic">
+<OPTION SELECTED>and</OPTION>
+<OPTION>or</OPTION>
+</SELECT>
+<INPUT TYPE="SUBMIT" NAME="SUBMIT" VALUE="SEARCH MySQL DATABASE">
+</P>
+<P>
+$searchquery
+</P>
+<P>
+$searchresults
+</P>
+END
+    $r->print($output);
+    return OK;
+}