[BACK]Return to lontex.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml
File:  [LON-CAPA] / loncom / xml / lontex.pm
Revision 1.1: download - view: text, annotated - select for diffs
Thu May 3 21:28:53 2001 UTC (23 years, 1 month ago) by harris41
Branches: MAIN
CVS tags: HEAD
these files are moved from the CVS:modules directory

    1: # The LearningOnline Network with CAPA
    2: # TeX Content Handler
    3: #
    4: # 05/29/00,05/30,10/11 Gerd Kortemeyer
    5: 
    6: package Apache::lontex;
    7: 
    8: use strict;
    9: use Apache::File;
   10: use Apache::lontexconvert;
   11: use Apache::Constants qw(:common);
   12: use tth;
   13: 
   14: # ================================================================ Main Handler
   15: 
   16: sub handler {
   17:   my $r=shift;
   18:   my @texcontents;
   19:   my $texstring;
   20: 
   21: # ----------------------------------------------------------- Set document type
   22: 
   23:   if ($ENV{'browser.mathml'}) {
   24:     $r->content_type('text/xml');
   25:   } else {
   26:     $r->content_type('text/html');
   27:   }
   28:   $r->send_http_header;
   29: 
   30:   return OK if $r->header_only;
   31: 
   32: # ------------------------------------------------------------------- Read file
   33: 
   34:   {
   35:     my $fh=Apache::File->new($r->filename);
   36:     @texcontents=<$fh>;
   37:   }
   38: 
   39:   $texstring=join("\n",@texcontents);
   40: 
   41: # --------------------------------------------------------------- Render Output
   42:   
   43:   $r->print(&Apache::lontexconvert::header());
   44:   $r->print('<body bgcolor="#FFFFFF">');
   45:   $r->print(&Apache::lontexconvert::converted(\$texstring));
   46:   $r->print('</body>');
   47:   $r->print(&Apache::lontexconvert::footer());
   48: 
   49:   return OK;
   50: }
   51: 
   52: 1;
   53: __END__
   54: 
   55: 
   56: 
   57: 
   58: 
   59: 
   60:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>