#!/usr/bin/perl -w
 
use CGI;
$MAN2HTML = "/contrib/bin/man2html";
$POD2HTML = "/home/drf5n/bin/pod2html -podpath /home/drf5n/public_html/docs/lib";
 
$ENV{'MANPATH'}="/usr/man:/man/uva:/gnu/man:/contrib/man";
$query = new CGI;

print $query->header;
print $query->start_html("MAN page lookup on mug.sys.virginia.edu");
print "<H1>Man Page Lookup Form</H1>\n";
&print_prompt($query);
&do_work($query);
&print_tail;
print $query->end_html;
 
sub print_prompt {
   my($query) = @_;
   
 
   print $query->startform;
   print "<EM>What's your program?</EM><BR>";
   print $query->textfield('name'),
         $query->radio_group(-name=>'type',
                             -'values'=>['man','perl'],
                             -default=>'man',
                             -linebreak=>'false'),;
   print "<P>",$query->reset;
   print $query->submit('Action','Lookup');
   print $query->endform;
   print "<HR>\n";
}
 
sub do_work {
   my($query) = @_;
   my(@values,$key,$program,$program2);
   $program= ($query->param("name") =~m|([_/\w\d\.]+)|) ? $1 : 'man';
print $program;
   if ($query->param('type') =~ /perl/) {
      $program2 = `/home/drf5n/bin/glocate $program |tail -1`;
      $program2 = `../../bin/glocate UserAgent.pm`;
      print "<pre>",$program2,`../../bin/glocate gent`;
 #     $program2 = ($program2 =~ m|([_/\w\.\d]+)|gs) ? $1 : 'badfile';
      print $program2;
      $text = `$POD2HTML $program2`;
      print $program2;
   } elsif ($query->param('type') =~ /man/) {
     ;
     $text = `man $program |$MAN2HTML`;
   } 
   else {
	print":: $program not found";
   }
   print "<h2>$program</h2><br>$text";
   print "<H2>Here are the current settings in this form</H2>";

   foreach $key ($query->param) {
      print "<STRONG>$key</STRONG> -> ";
      @values = $query->param($key);
      print join(", ",@values),"<BR>\n";
  }
}
 
sub print_tail {
   print <<END;
<HR>
<ADDRESS>David Forrest</ADDRESS><BR>
<A HREF="/~drf5n/">Home Page</A>
END
}