# The LON-CAPA problem handler # # Problem Handler # # 12/15-01/21,01/24 Gerd Kortemeyer # 4/12 Guy Albertelli # 8/6 Scott Harrison package Apache::lonproblem; use strict; use HTML::TokeParser; use Safe; use Apache::File; # ================================================================ Main Handler sub handler { my $r=shift; my @parsecontents; my $parsestring; my $outstring; { my $fh=Apache::File->new($r->filename); @parsecontents=<$fh>; } $parsestring=join('',@parsecontents); print "