[BACK]Return to lonpublisher.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher
File:  [LON-CAPA] / loncom / publisher / lonpublisher.pm
Revision 1.1: download - view: text, annotated - select for diffs
Tue Nov 28 22:15:11 2000 UTC (23 years, 6 months ago) by www
Branches: MAIN
CVS tags: HEAD
New publishing handler, now called with post and target parent

    1: # The LearningOnline Network with CAPA
    2: # Publication Handler
    3: # 
    4: # (TeX Content Handler
    5: #
    6: # 05/29/00,05/30,10/11 Gerd Kortemeyer)
    7: #
    8: # 11/28 Gerd Kortemeyer
    9: 
   10: package Apache::lonpublisher;
   11: 
   12: use strict;
   13: use Apache::File;
   14: use Apache::Constants qw(:common);
   15: 
   16: # ================================================================ Main Handler
   17: 
   18: sub handler {
   19:   my $r=shift;
   20:   $r->content_type('text/html');
   21:   $r->send_http_header;
   22: 
   23:   return OK if $r->header_only;
   24: 
   25:   $r->print('<html><head><title>LON-CAPA Publishing</title></head>');
   26:   $r->print('<body bgcolor="#FFFFFF">');
   27:   $r->print('<h1>'.$ENV{'form.filename'}.'</h1>');
   28:   $r->print('</body></html>');
   29: 
   30:   return OK;
   31: }
   32: 
   33: 1;
   34: __END__
   35: 
   36: 
   37: 
   38: 
   39: 
   40: 
   41:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>