#!/usr/bin/perl

$filename='/man.cgi';
@stylestack = ();

$r = $ENV{PATH_INFO};
$ENV{TERM} = "dumb";
$ENV{PATH_INFO} =~ s/^\///g;
$ENV{PATH_INFO} =~ s/\// /g;
$ENV{QUERY_STRING} = $ENV{PATH_INFO} . $ENV{QUERY_STRING};
if ($ENV{QUERY_STRING} eq "") { $ENV{QUERY_STRING} = "man" }
$ENV{QUERY_STRING} =~ s/%([0-9A-Fa-f]{2})/pack("c", hex($1))/ge;
$ENV{QUERY_STRING} =~ s/\+/ /g;
$ENV{QUERY_STRING} =~ s/^q=//g;
($c) = ($ENV{QUERY_STRING} =~ s/c=([01])//);
($s) = ($ENV{QUERY_STRING} =~ s/s=([01])//);
($f) = ($ENV{QUERY_STRING} =~ s/f=([01])//);
($t) = ($ENV{QUERY_STRING} =~ s/t=([01])//);
if ($f eq 1) {$fchecked = 'checked="checked" '; $argappend .= "/f=1";}
if ($t eq 1) {$tchecked = 'checked="checked" '; $argappend .= "/t=1";}
($QS) = ($ENV{QUERY_STRING} =~ /([-\:._A-Za-z0-9,! ]*)/);

if($s eq "1") {

  print "Content-type: text/plain\r\n\r\n";
  open(SOURCE, "<$filename");
  { local $/; print <SOURCE>; }
  close(SOURCE);

}

if ($c eq 1) {
print "Content-type: text/css\r\n\r\n";
print <<EOF
html, body {
  font-family: monospace;
  color: black;
/* background-color: #cccccc; */
  background-color: #000000;
  margin: 0em;
  padding: 0.25em;
}

p {
  margin-bottom: 1em;
  margin-top: 1em;
}

div.overall, div.main {
  position: absolute; left: 50%;
}

.hidden {
  display: none;
}

.underline {
  font-style: italic;
}

.sections  {
  display: none;
}

.cluster:hover .sections,
.cluster:active .sections,
.sections:hover {
  display: inline;
}

a:link, a:visited {
  color: gray;
  text-decoration: underline;
}

a.alias, .alias {
  color: gray;
  font-style: oblique;
  text-decoration: none;
}

.floating-image, 
.floating-image-right, 
.floating-image-topright {
  float: right;
  display: block;
  clear: none;
  margin: .25em;
  margin-left: 6.2em;
  padding: .1em;
/*  border-style: solid; */
  border-color: #666666;
  border-width: .08em;
}

.floating-image-left {
  float: left;
  display: block;
  clear: none;
  margin: .25em;
  padding: .1em;
/*  border-style: solid; */
  border-color: #666666;
  border-width: .08em;
}

.floating-image-right {
  float: right;
  display: block;
  clear: none;
  margin: .25em;
  padding: .1em;
/*  border-style: solid; */
  border-color: #666666;
  border-width: .08em;
}

.floating-image-center {
  display: block;
  clear: both;
  margin-left: auto;
  margin-right: auto;
  padding: .1em;
/*  border-style: solid; */
  border-color: #666666;
  border-width: .08em;
}

div.body p .floating-image-topright {
  margin-left:  1.25em;
  margin-right: -4.1em;
  margin-top:   -6.2em;
  /* margin-right: 0em; */
}

.floating-image {
  margin-left:  1.25em;
}

.noimgborder img {
  border-width: 0px;
}

pre.preformatted-code {
  /* margin-left: 4.4em; */
  /* margin-right: 4.4em; */
  margin-left: 6.3em;
  margin-right: 6.3em;
  /* margin-left: auto; */
  /* margin-right: auto; */
  text-align: left;
  max-width: 36em;
  width: 37em;
  /* padding-left: 1.9em; */
  /* padding-right: 1.9em; */
  overflow: scroll;
  border-style: outset;
  border-color: #666666;
  border-width: 1px;
}

h1, h2 {
  text-align: center;
}

h1 {
  background: #cccccc url(/greenscape-grey-small.png) 50% 100% no-repeat; 
/*  background: #cccccc url(/files/muirbeachsmall.png) 50% 100% no-repeat; */
  color: black;
  padding: .2em .7em 60px .7em;
  margin: .5em auto 0em auto; 
  overflow: hidden;
  position: relative; left: -9em; width: 18em;
  font-size: 27pt;
  border-style: solid;
  border-color: #666666;
  border-width: .05em;
}

/*

h2 {
  padding: .2em .7em .2em .7em;
  margin: 0em auto 0em auto; 
  position: relative; left: -13.5em; width: 27.7em;
  font-size: 18pt;
  border-style: solid;
  border-color: #666666;
  border-width: .08em;
}

*/

h2 { margin-top: 1em; margin-bottom: 1em; font-size: 14pt; }
h3 { padding-left: 0.00em; margin-top: 1em; margin-bottom: 1em; font-size: 9pt; text-transform: uppercase; }
h4 { padding-left: 4.40em; margin-top: 0em; margin-bottom: 0em; font-size: 9pt; }
h5 { padding-left: 5.06em; margin-top: 0em; margin-bottom: 0em; font-size: 9pt; }
h6 { padding-left: 5.73em; margin-top: 0em; margin-bottom: 0em; font-size: 9pt; }

dt {
  margin-left: -1.9em;
  padding-left: 0em;
  padding-right: 1.9em;
  text-align: justify;
  font-weight: bold;
}

dd, li {
  margin-left: 0em;
  padding-left: 0em;
  padding-right: 1.9em;
  text-align: justify;
  margin-bottom: 1em;
}

li li {
  margin-bottom: 0;
}

ul, ol, dl, blockquote {
  margin-left: 0em;
  padding-left: 6.3em;
  padding-right: 4.4em;
  text-align: justify;
}

ul ul, ul ol, ul dl, ol ul, ol ol, ol dl, dl ul, dl ol, dl dl {
  margin-left: 0em;
  padding-left: 1.9em;
  padding-right: 0em;
  text-align: justify;
  margin-top: 0;
  margin-bottom: 0;
}

ul,ol,dl,blockquote {
  margin-top: 1em;
  margin-bottom: 1em;
}
dt {
  margin-top: .5em;
  margin-bottom: 0em;
}
dd {
  margin-top: 0em;
  margin-bottom: 0em;
}


form.control, div.header, div.form, div.footer, div.nav, div.topnav, div.index-footer, div.navigation, div.h2 {
  position: relative; left: -27em; width: 54em;
  border-style: ridge;
  border-color: black;
  border-width: .2em;
  background-color: #999999;
  margin-left: auto;
  margin-right: auto;
  margin-top: 0.5em;
  margin-bottom: 0.5em;
  padding-left: 2em;
  padding-right: 2em;
  padding-top: 0em;
  padding-bottom: 0em;
  font-size: 9pt;
}

div.body p, div.form p {
  padding-left: 4.4em;
  padding-right: 4.4em;
  text-align: justify;
}

div.blog div.body {
  padding-bottom: 0em;
  padding-top: 1em;
}

div.blog div.manheader {
  margin-bottom: 3em;
}

div.body {
  margin-top: 0.5em;
  margin-bottom: 0.5em;
  padding-bottom: 3em;
}

div.body div.creditline {
  margin-top: 3em;
  text-align: center;
  margin-bottom: 1em;
}

div.hidden {
  line-height: 0em;
}

div.body span.hometitle {
  margin-top: -1.3em;
  float: left;
  display: block;
  clear: none;
}
div.body span.postdate {
  text-align: center;
  clear: none;
  margin-left: auto;
  margin-right: auto;
}
div.body span.homedescr {
  margin-top: -1.3em;
  float: right;
  display: block;
  clear: none;
}

div.body h2 {
  padding-left: 0em;
  padding-right: 0em;
  text-align: left;
  margin-top: 1em;
  margin-bottom: 3em;
  font-size: 9pt;
  font-weight: normal;
}

div.blog div.body h2 {
  margin-top: 0em;
}

form.control a:link,
div.header a:link,
div.form a:link,
div.footer a:link,
div.nav a:link,
div.topnav a:link,
div.index-footer a:link,
div.navigation a:link,
h1 a:link,
h2 a:link,
form.control a:visited,
div.header a:visited,
div.form a:visited,
div.footer a:visited,
div.nav a:visited,
div.topnav a:visited,
div.index-footer a:visited,
div.navigation a:visited,
h1 a:visited,
h2 a:visited {
  color: black;
  text-decoration: underline;
}

div.man, div.body, div.pictures {
  position: relative; left: -27em; width: 54em;
  margin-left: auto;
  margin-right: auto;
  padding-left: 2em;
  padding-right: 2em;
  border-width: .2em;
  border-color: black;
  border-style: groove;
  color: black;
  background-color: white;  
  font-size: 9pt;
}

input {
  height: 1.6em;
  margin-bottom: 0px;
  padding: 0px;
  border-width: .2em;
  border-color: black;
  color: black;
  background-color: white;
}

input[type="checkbox"] {
  width: 1.6em;
}

input[type="submit"] {
  margin-bottom: .1em;
}

input[type="text"] {
  height: 1.2em;
  margin-bottom: .2em;
}

blockquote {
  padding-left: 8.2em;
  text-align: justify;
}

blockquote p.bq {
  margin-left: 0em;
  margin-right: 0em;
  padding-left: 0em;
  padding-right: 0em;
}

EOF
; exit 0;
}

#print "Content-type: text/plain\r\n\r\n";
#use Data::Dumper; print Data::Dumper->Dump([\%ENV], [qw(ENV)]);

#close(STDERR);

use Digest::MD5 md5_hex;
my $md5 = md5_hex("$QS:$f:$t");
my $md5_file = "/tmp/man.datacache/$md5";
if ( -f $md5_file ) {
  my $data = '';
  open(FILE, "<", $md5_file);
  $title = <FILE>;
  chomp $title;
  { local $/; $data = <FILE>; }
  close(FILE);
  $man = $data;
} else {

$man = `sh -c 'yes | TERM=xterm MANPAGER=/bin/cat man $QS | cat'`;

#print "Content-type: text/plain\r\n\r\nman: '$man'
#
#sh -c 'yes | TERM=xterm MANPAGER=/bin/cat man $QS 2> /dev/null | cat'
#";


$man =~ s/&/&amp;/g;
$man =~ s/</&lt;/g;
$man =~ s/(\e[[][^m]+m)/&escapecode($1)/ge;

open(FILEMD5, ">", $md5_file);

if ($f ne 1) {
  if ( -f "/tmp/man.datadump" ) {
    my $data = '';
    open(FILE, "</tmp/man.datadump");
    { local $/; $data = <FILE>; }
    close(FILE);
    eval $data;
    %mans = %$manstore;
  } else {
    @mans = qx[
      ls -R -F -1 \$(man -W | tr ':' ' ') |
      perl -pe 'if (/^(\\/.*)\\:\$/){\$dir=\$1};print\$dir."/"' |
      grep -v '\\/\\/' |
      grep -v '\\/\$' |
      sed -e 's/[*\@]//g'
    ];
    @mans = `apropos .`;
    for my $mans (@mans) {
      ($name, $section, $title) = ($mans =~ /^(.*?) +\((.*)\)  - (.*$)/);
      if (defined $name) {
        if ($name =~ s/ \[(.*?)\]//) {
          push (@{$mans{'%alias%'}{$name}}, "$1" . '.' . "$section") if not grep("$1" . '.' . "$section", @{$mans{'%alias%'}{$name}});
          $title = "$name - $title";
          $name = $1;
        } else {
          $title = "$name - $title";
        }
        my ($prev) = ($mans{$name}{$section} =~ /^(.+?) - /);
        if (defined $prev) {
          $mans{$name}{$section} = "$prev, $title";
        } else {
          $mans{$name}{$section} = $title;
        }
        print STDERR "man.cgi: added to $name($section): $mans{$name}{$section}: \n$mans";
      } else {
        print STDERR "man.cgi: didn't find anything in this line: \n$mans";
      }
    }
    use Data::Dumper;
    my $data = Data::Dumper->Dump([\%mans], [qw(manstore)]);
    $data =~ s/^ +//gs;
    open(FILE, ">/tmp/man.datadump");
    print FILE $data;
    close(FILE);
  }
  $man =~ s/([-\:\._A-Za-z0-9]+)/&replacetxt($1)/gse;
  $man =~ s/([-\:\._A-Za-z0-9]+)(- *\n +)([-\:\._A-Za-z0-9]+)/&replacetxt("$1$3","$1$2$3")/gse;
  $man =~ s/([a-z]+:\/[^>< \n]+)(- *\n +)([^>< \n]+[^>< \n.!?:;()])|([a-z]+:\/[^>< \n]+[^>< \n.!?:;()])/<a href="$4$1$3">$4$1$2$3<\/a>/g;
  $man =~ s/(<a [^>]*>)([^<]*)(- *\n +)([^<]*)(<\/a>)/$1$2$5$3$1$4$5/gs;
  $QStitle = $QS;
  $QStitle =~ s/([-\:._A-Za-z0-9]+)/&replacetxt($1)/gse;
  ($title) = ($QStitle =~ /title=\"([^<>"]*)\"/);
  $title .= " - " if $title ne "";
  print FILEMD5 "$title\n";
} else {
  print FILEMD5 "\n";
}


$man =~ s!<u>!<span class="underline">!g;
$man =~ s!</u>!</span>!g;

  print FILEMD5 $man;
  close(FILEMD5);
}

my $status = "200 Manual Found";

if ($man eq "") {
  $man = "

       The requested manual: &quot;${title}man ${QS}&quot; was Not Found.

       Please retry with a different query or use the search features.

";

  $status = "404 Manual Not Found";
}

if ($ENV{HTTP_USER_AGENT} =~ /MSIE/) {
  print "Content-type: text/html\r\nStatus: $status\r\n\r\n";
} else {
  print "Content-type: application/xhtml+xml\r\nStatus: $status\r\n\r\n";
}

print <<EOF
<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" 
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<?xml-stylesheet href="/$filename/c=1" type="text/css"?>
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
  <head>
    <title>${title}man $QS</title>
    <meta http-equiv="Content-Type" content="application/xhtml+xml; charset=ISO-8859-1" />
    <meta name="description" content="Seth Woolley's Man Viewer, Unix Manuals, ${title}man $QS" />
    <meta name="ICBM" content="45.5438, -122.6295" />
    <meta name="DC.title" content="${title}man $QS" />
    <link rel="stylesheet" href="$filename/c=1" type="text/css" />
    <base href="http://swoolley.org/" />
  </head>
  <body>
    <div class="overall">
    <h1><a href="/">Seth Woolley's Man Viewer</a></h1>
    <div class="h2">
      <h2>${title}man $QS</h2>
    </div>
    <form action="$filename" method="get" class="control">
      <p><span><tt>
        ([section] manual, -k keyword, -K [section] search, -f whatis)<br />
        man <input type="text" name="q" value="$QS" />
        plain<input type="checkbox" name="f" value="1" $fchecked/>
        no title<input type="checkbox" name="t" value="1" $tchecked/>
        <input type="submit" value="execute" />
      </tt></span></p>
    </form>
    <div class="man">
      <pre class="man">$man</pre>
    </div>
    @{[($status eq "200 Manual Found")?qq{<div class="body">
      <h3>References for this manual (incoming links)</h3>
      @{[&printrefs]}}:""]}
    </div>
    </div>
  </body>
</html>
EOF
;



sub replacetxt {
  my $toreplace = shift;
  my $bereplace = shift;
  if ($bereplace eq "") { $bereplace = $toreplace; }
  my $manpage = $toreplace;
  my @mana = ();
  if (defined $mans{'%alias%'}{$manpage}) {
    @manaliases = sort @{$mans{'%alias%'}{$manpage}};
    for my $m (@manaliases) {
      my ($mtxt, $stxt) = ($m =~ /^(.+)\.([^.]+)$/);
      push(@mana, [$stxt, $mtxt]);
    }
  }
  if (defined $mans{$manpage}) {
    @mans = sort keys %{$mans{$manpage}};
    if ($#mans eq 0) {
      my $i = $mans[0];
      {
        if ($t ne "1") { $mandesc = " - " . &mandesc($manpage, $i); } else { $mandesc = ""; }
        $toreplace = "<a title=\"$manpage\($i\)$mandesc\" href=\"$filename/$i/$manpage$argappend\">$bereplace</a>";
      }
    } else {
      $toreplace = "<span class=\"cluster\"><a title=\"Manual for $manpage\" href=\"$filename/$manpage$argappend\">$bereplace</a><span class=\"sections\">(";
      for my $i (@mans) {
        if ($t ne "1") { $mandesc = " - " . &mandesc($manpage, $i); } else { $mandesc = ""; }
        $toreplace .= "<a title=\"$manpage\($i\)$mandesc\" href=\"$filename/$i/$manpage$argappend\">$i</a>,";
      }
      if ($#mana ne -1) {
        for my $iv (@mana) {
          @i = @{$iv};
          if ($t ne "1") { $mandesc = " - " . &mandesc($i[1], $i[0]); } else { $mandesc = ""; }
          $toreplace .= "<a class=\"alias\" title=\"Alias for $manpage: $i[1]\($i[0]\)$mandesc\" href=\"$filename/$i[0]/$i[1]$argappend\">$i[0] $i[1]</a>,";
        }
      }
      $toreplace =~ s/,$/)<\/span><\/span>/;
    } 
  } else {
    if ($#mana ne -1) {
      if ($#mana eq 0) {
        my @i = @{$mana[0]};
        {
          if ($t ne "1") { $mandesc = " - " . &mandesc($i[1], $i[0]); } else { $mandesc = ""; }
          $toreplace = "<a class=\"alias\" title=\"Alias for $manpage: $i[1]\($i[0]\)$mandesc\" href=\"$filename/$i[0]/$i[1]$argappend\">$bereplace</a>";
        }
      } else {
        $toreplace = "<span class=\"cluster\"><span title=\"Aliases for $manpage\" class=\"alias\">$bereplace</span><span class=\"sections\">(";
        for my $iv (@mana) {
          @i = @{$iv};
          if ($t ne "1") { $mandesc = " - " . &mandesc($i[1], $i[0]); } else { $mandesc = ""; }
          $toreplace .= "<a class=\"alias\" title=\"Alias for $manpage $i[1]\($i[0]\)$mandesc\" href=\"$filename/$i[0]/$i[1]$argappend\">$i[0] $i[1]</a>,";
        }
        $toreplace =~ s/,$/)<\/span><\/span>/;
      } 
    } else {
      $toreplace = $bereplace;
    }
  }
  return $toreplace;
}

sub pr {
  $toprint = shift;
  if ($toprint eq "<strong>") { 
    if (grep { $_ eq "strong" } @stylestack) {
      $toprint = "";
    } else {
      push(@stylestack, "strong");
    }
  }
  if ($toprint eq "<u>") { 
    if (grep { $_ eq "u" } @stylestack) {
      $toprint = "";
    } else {
      push(@stylestack, "u");
    }    
  }
  if ($toprint eq "</strong>") { 
    if (grep { $_ eq "strong" } @stylestack) {
      my $front = "";
      my $back = "";
      my @sst = ();
      while (1) {
        my $ent = pop(@stylestack);
        if ($ent ne "strong") {
          $front .= "</$ent>";
          $back .= "<$ent>";
          push(@sst, $ent);
        } else {
          last;
        }
      }
      push(@stylestack, @sst);
      $toprint = $front . $toprint . $back;
    } else {
      $toprint = "";
    }    
  }
  if ($toprint eq "</u>") { 
    if (grep { $_ eq "u" } @stylestack) {
      my $front = "";
      my $back = "";
      my @sst = ();
      while (1) {
        my $ent = pop(@stylestack);
        if ($ent ne "u") {
          $front .= "</$ent>";
          $back .= "<$ent>";
          push(@sst, $ent);
        } else {
          last;
        }
      }
      push(@stylestack, @sst);
      $toprint = $front . $toprint . $back;
    } else {
      $toprint = "";
    }    
  }
  return $toprint;
}

sub escapecode {
  my $txt = shift;
  $txt =~ s/\e[[]1m/&pr("<strong>")/ge;
  $txt =~ s/\e[[]0m/&pr("<\/strong>") . &pr("<\/u>")/ge;
  $txt =~ s/\e[[]4m|\e[[][34][0-9]m/&pr("<u>")/ge;
  $txt =~ s/\e[[]22m/&pr("<\/strong>")/ge;
  $txt =~ s/\e[[]24m/&pr("<\/u>")/ge;
  return $txt;
}

sub mandesc {
  my $manpage = shift;
  my $section = shift;
  if (defined $mans{$manpage}{$section}) { return $mans{$manpage}{$section}; }
  return "No Title Available";
}

### references addition code

sub printrefs {
  my $refsfile   = "referindex.tab";      # referrers file, relative to docroot
  open(SOURCE, "<", "$refsfile") or warn "$!";
  local @refsdata = <SOURCE>;
  close(SOURCE);
  return grabrefs("$filename$r", \@refsdata)
}

sub grabrefs {
  my $search = shift;
  my @refsdata = @{shift()};
  my $searchregex = $search;
  ($prefix) = ($searchregex =~ /^(.*)\Q$filename\E/);
  $searchregex =~ s/^.*?\Q$filename\E//;
  $searchregex = "$prefix$filename" . &uriescape($searchregex);
  #print "Content-type: text/plain\r\n\r\n$searchregex\n\n";
  my @refsgood = grep {m!^\Q$searchregex\E\t!} @refsdata;
  my %hash = ();
  my $returnstring = '';
  my ($uri, $ref, $tit);
  for (@refsgood) {
    ($uri, $ref, $tit) = (/^([^\t]*)\t([^\t]*)\t([^\t]*)\n$/);
    $hash{$uri}{$ref}++;
    $hashtit{$ref} = $tit;
  }
  for $uri (sort keys %hash) {
    $returnstring .= qq`          <dt><a href="@{[&plaintext($uri)]}">@{[&plaintext($uri)]}</a></dt>\n`;
    my %refhash = ();
    for $ref (keys %{$hash{$uri}}) {
      $refhash{$hash{$uri}{$ref}} .= qq`          <dd><dl><dt>$hash{$uri}{$ref}:<a href="@{[&plaintext($ref)]}">@{[&plaintext(&cuturl($ref,60))]}</a></dt>
<dd>@{[&plaintext($hashtit{$ref})]}</dd></dl></dd>\n`;
    }
    for $ref (reverse sort keys %refhash) {
      $returnstring .= $refhash{$ref};
    }
  }
  return "        <dl>\n$returnstring        </dl>";
}

sub plaintext() {
  local $_ = shift;
  my $mval = shift;
  my $mstr = ' ' x $mval;
  s/\t/        /g; s/ +$//mg;
  s/&/&amp;/g; s/"/&quot;/g; # s/'/&apos;/g;
  s/</&lt;/g; s/>/&gt;/g;
  s/  /&nbsp; /g; s/  / &nbsp;/g;
  if ($mval) {
    s/\n/<br \/>\n/g; s/\n/\n$mstr  /gs;
    return "\n$mstr  $_\n$mstr";
  } else {
    s/\n/&nbsp;/gs;
    return $_;
  }
}

sub uriescape {
  local $_ = shift;
  s/([^0-9A-Za-z\:\/])/&es($1)/gse;
  return $_;
  sub es {
    my $b = ord(shift());
#    return '+' if $b == 32;  # apache can't do + inside urls, only in query_strings
    my $a = int($b/16);
    $b = $b - $a * 16;
    return '%' . &hx($a) . &hx($b);
  }
  sub hx {
    my $a = shift;
    $a = $a>9 ? chr($a+55) : $a;
    return $a;
  }
}

sub cuturl() {
  local $_ = shift;
  my $l = shift;
  s/&nbsp;/ /g; s/[ \t\n\l\r\f]+/ /gs;
  if(length($_)<$l) {
    return $_;
  } else {
    $_ = substr($_,0,$l+1);
    s/[\/?]?[^\/?]*$/.../;
    return $_;
  }
}

What manual page do you want?
Content-type: application/xhtml+xml
Status: 404 Manual Not Found

<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" 
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<?xml-stylesheet href="//man.cgi/c=1" type="text/css"?>
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
  <head>
    <title>man </title>
    <meta http-equiv="Content-Type" content="application/xhtml+xml; charset=ISO-8859-1" />
    <meta name="description" content="Seth Woolley's Man Viewer, Unix Manuals, man " />
    <meta name="ICBM" content="45.5438, -122.6295" />
    <meta name="DC.title" content="man " />
    <link rel="stylesheet" href="/man.cgi/c=1" type="text/css" />
    <base href="http://swoolley.org/" />
  </head>
  <body>
    <div class="overall">
    <h1><a href="/">Seth Woolley's Man Viewer</a></h1>
    <div class="h2">
      <h2>man </h2>
    </div>
    <form action="/man.cgi" method="get" class="control">
      <p><span><tt>
        ([section] manual, -k keyword, -K [section] search, -f whatis)<br />
        man <input type="text" name="q" value="" />
        plain<input type="checkbox" name="f" value="1" />
        no title<input type="checkbox" name="t" value="1" />
        <input type="submit" value="execute" />
      </tt></span></p>
    </form>
    <div class="man">
      <pre class="man">

       The requested manual: &quot;man &quot; was Not Found.

       Please retry with a different query or use the search features.

</pre>
    </div>
    
    </div>
    </div>
  </body>
</html>