#!/usr/bin/perl
use strict;
use warnings;
$| = 1;
# ----------- Beginn Konfiguration --------------
# Pfad zu den Manual pages
my $man_path = "/usr/share/man";
# my $man_path = ".";
# Pfad zum man-Programm
my $man = "/usr/bin/man";
# ------------ Ende Konfiguration ---------------
# Global: Formulardaten
my %FORM = ();
ParseForm();
my $manpage = $FORM{'manpage'};
my $section = $FORM{'section'};
print "Content-type: text/html\n\n";
if (defined($FORM{'submit'}))
{
$manpage =~ s/^\s*(.*)\b\s*$/$1/;
if ((!$manpage) || ($manpage !~ /^[\w\+\-]+$/))
{
Error ("500 UNIX Manual Page Gateway Error",
"Fehler bei der Angabe der Manpage.");
}
$section = FindSection($section, $manpage);
if (($section < 1) || ($section > 8))
{
Error ("500 UNIX Manual Page Gateway Error",
"Document nicht gefunden: $FORM{'section'} - $manpage");
}
DisplayManpage($section, $manpage);
}
else
{ ShowForm(); }
sub ShowForm
{
# Formular ausgeben
print qq~
~;
}
sub FindSection # ($section, $manpage)
{
# gibt es die Manualseite ueberhaupt
my ($section, $manpage) = @_;
my ($loop, $dir, $file, $gzfile);
my $tmp_section = 0;
# keine Sektion angegeben, alle durchsuchen
if ($section !~ /^\d+$/)
{
for $loop (1 .. 8)
{
$dir = $man_path . '/man' . $loop;
# die Datei kann entweder normal oder komprimiert (.gz)
# vorliegen. Beides wird getestet.
$file = $dir . '/' . $manpage . '.' . $loop;
$gzfile = $file . '.gz';
if (-f $file || -f $gzfile)
{
# gefunden, fertig
$tmp_section = $loop;
last;
}
}
return ($tmp_section);
}
else
{
# das gleiche, bei angegebener Sektion
$file = $man_path . '/man' . $section . '/' .
$manpage . '.' . $section;
$gzfile = $file . '.gz';
$tmp_section = $section if (-f $file || -f $gzfile);
return ($tmp_section);
}
}
sub DisplayManpage # ($section, $manpage)
{
# Manualseite anzeigen, aber etwas aufbereiten
my ($file, $blank, $heading, $line);
print qq~
UNIX Manual Page Gateway
UNIX Manual Page Gateway
~;
# wir lassen das Man-Kommando die Arbeit machen
open (MANUAL, "$man $section $manpage |");
$blank = 0;
# Manualpage etwas aufbereiten
while ($line = )
{
chomp($line);
# Kopf- und Fusszeilen ueberlesen
next if (($line =~ /^$manpage\(\w+\)/i) or
($line =~ /\bLast change:/o));
# Die Folge "Zeichen, Backspace, Zeichen" ersetzen
# durch das Zeichen alleine
$line =~ s/\S\010(\S)/$1/g;
# Ueberschrift bearbeiten, wird H3
if ($line =~ /^([A-Z0-9_ ]+)$/)
{
$heading = $1;
print "", $heading, "
", "\n";
}
elsif ($line =~ /^\s*$/)
{
# max. 2 Leerzeilen hintereinander ausgeben
$blank++;
print "$line\n" if ($blank < 2);
}
else
{
# normale Textzeile, "gefaehrliche" HTML-Tags umwandeln
$blank = 0;
$line =~ s/\&/&/g;
$line =~ s//>/g;
# Die Folge "Underline, Backspace, Zeichen" ersetzen
# durch Fettdruck
if ($line =~ /_\010/)
{
$line =~ s/((_\010\S)+)/$1<\/B>/g;
$line =~ s/_\010//g;
}
# die bearbeitete Zeile ausgeben
print "$line\n";;
}
}
close (MANUAL);
# HTML-Nachspann
print qq~
~;
}
sub Error
{
# Fehlertext ausgeben
my ($status, $message) = @_;
print qq~
$status
$message