man/view_perl.cgi

   1 #!/usr/local/bin/perl
   2 # view_perl.cgi
   3 # View perl module documentation
   4
   5 require './man-lib.pl';
   6 &ReadParse();
   7
   8 $in{'mod'} !~ /[\\\&\;\`\'\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\n\r]/ ||
   9         &error($text{'perl_emod'});
  10
  11 &ui_print_header(undef, $text{'perl_title'}, "");
  12
  13 @for = split(/\s+/, $in{'for'});
  14 &open_execute_command(DOC, "$perl_doc -t ".quotemeta($in{'mod'}), 1, 1);
  15 $out = "<pre>";
  16 while($line = <DOC>) {
  17         $line = &html_escape($line);
  18         foreach $f (@for) {
  19                 $line =~ s/($f)/<b>$1<\/b>/ig;
  20                 }
  21         $out .= $line;
  22         }
  23 close(DOC);
  24 $out .= "</pre>";
  25 &show_view_table(&text('perl_header', $in{'mod'}), $out);
  26
  27 &ui_print_footer("", $text{'index_return'});
  28