# The LearningOnline Network with CAPA
# Publication Handler
#
# (TeX Content Handler
#
# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#
# 11/28 Gerd Kortemeyer
package Apache::lonpublisher;
use strict;
use Apache::File;
use Apache::Constants qw(:common);
# ================================================================ Main Handler
sub handler {
my $r=shift;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
$r->print('<html><head><title>LON-CAPA Publishing</title></head>');
$r->print('<body bgcolor="#FFFFFF">');
$r->print('<h1>'.$ENV{'form.filename'}.'</h1>');
$r->print('</body></html>');
return OK;
}
1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>