#!/usr/bin/perl if (@ARGV < 1) { die "$0 roffpage\n";} unless (-f $ARGV[0]) { die "cannot open $ARGV[0]\n";} @path = split /\//, $ARGV[0]; $pagename = $path[$#path]; $pagename =~ s/\.[1-9]$//; $header =~ s/%PAGENAME%/$pagename/eg; print $header; # # assumes Debian's man-db package. # open MAN, "man -l -Tnippon $ARGV[0] |"; while(){ $_ =~ s/..\cH\cH//g; $_ =~ s/.\cH//g; print; } close MAN; print $footer; exit; # # # BEGIN{ $header = <<'EOM'; Manpage of %PAGENAME%

%PAGENAME%

このページは man2html ではうまく整形されないため、 roff を使って生成したテキストを貼り込んでいます。

JM Home Page

EOM

    $footer = <<'EOM';

JM Project に関わるご意見ご要望は linuxjm-discuss@lists.sourceforge.jp までお願いします。

JM Project のメインページへ戻る

EOM }