# The LearningOnline Network with CAPA
# Metadata Database Handler
#
# 02/20/2001 Scott Harrison
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; } 1;