bin/yaman2html.perl

   1 #!/usr/bin/perl
   2
   3 if (@ARGV < 1) { die "$0 roffpage\n";}
   4 unless (-f $ARGV[0]) { die "cannot open $ARGV[0]\n";}
   5
   6 @path = split /\//, $ARGV[0];
   7 $pagename = $path[$#path];
   8 $pagename =~ s/\.[1-9]$//;
   9
  10 $header =~ s/%PAGENAME%/$pagename/eg;
  11 print $header;
  12
  13 #
  14 # assumes Debian's man-db package.
  15 #
  16 open MAN, "man -l -Tnippon $ARGV[0] |";
  17
  18 while(<MAN>){
  19     $_ =~ s/..\cH\cH//g;
  20     $_ =~ s/.\cH//g;
  21     print;
  22 }
  23 close MAN;
  24
  25 print $footer;
  26 exit;
  27
  28 #
  29 #
  30 #
  31 BEGIN{
  32    $header = <<'EOM';
  33 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
  34   "http://www.w3.org/TR/REC-html40/loose.dtd">
  35 <HTML LANG="ja" DIR="LTR">
  36 <HEAD>
  37  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
  38  <TITLE>Manpage of %PAGENAME%</TITLE>
  39  <META NAME="author" LANG="en" CONTENT="JM Project Members">
  40  <META NAME="copyright" CONTENT="(C) 1999 JM Project.">
  41  <META NAME="DESCRIPTION" CONTENT="JM: JM Project.">
  42  <META NAME="keywords" CONTENT="JM, Linux, Japanese, Manual">
  43  <LINK REV="made" HREF="mailto:linuxjm-discuss@lists.sourceforge.jp">
  44  <LINK REL="stylesheet" TYPE="text/css" HREF="../../../jm.css">
  45 </HEAD>
  46 <BODY>
  47  <H1>%PAGENAME%</H1>
  48
  49  <BLOCKQUOTE>
  50   このページは man2html ではうまく整形されないため、
  51   roff を使って生成したテキストを貼り込んでいます。
  52  </BLOCKQUOTE>
  53
  54  <A HREF="../../../index.html">JM Home Page</A>
  55  <PRE>
  56 EOM
  57
  58     $footer = <<'EOM';
  59  </PRE>
  60  <HR><ADDRESS>
  61   JM Project に関わるご意見ご要望は
  62   <A HREF="mailto:linuxjm-discuss@lists.sourceforge.jp">linuxjm-discuss@lists.sourceforge.jp</A>
  63   までお願いします。
  64  </ADDRESS><HR>
  65 <P>
  66 <IMG SRC="%URLROOT%/images/grey.png" WIDTH="14" HEIGHT="14" ALT="*">
  67 <A HREF="%URLROOT%/">JM Project のメインページへ戻る</A>
  68 </P>
  69 </body>
  70 </html>
  71 EOM
  72 }
  73
  74