PciIds/Html/Help.pm

   1 package PciIds::Html::Help;
   2 use strict;
   3 use warnings;
   4 use PciIds::Startup;
   5 use PciIds::Html::Util;
   6 use Apache2::Const qw(:common :http);
   7 use base 'Exporter';
   8
   9 our @EXPORT=qw(getHelp);
  10
  11 sub getHelp($) {
  12         my( $req ) = @_;
  13         my( $helpname ) = ( $req->uri() =~ /^\/help\/(.*)/ );
  14         return NOT_FOUND if( $helpname =~ /[\/.]/ || $helpname eq '' );
  15         open HELP, "$directory/help/$helpname" or return NOT_FOUND;
  16         my $head = <HELP>;
  17         chomp $head;
  18         genHtmlHead( $req, $head, undef );
  19         print "<h1>$head</h1>\n";
  20         while( defined( my $line = <HELP> ) ) {
  21                 print $line;
  22         }
  23         close HELP;
  24         genHtmlTail();
  25         return OK;
  26 }
  27
  28 1;