home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Internet / WWW / Perl_WWW_Utilities / MHonArc / doc / mktxt < prev    next >
Encoding:
Text File  |  1996-04-18  |  541 b   |  28 lines
  1. #! /usr/local/bin/perl
  2.  
  3. $manpage = "mhonarc.1";
  4. $txtfile = "mhonarc.txt";
  5.  
  6. open(MANPAGE, "> $manpage");
  7. open(TXTFILE, "> $txtfile");
  8.  
  9. print MANPAGE ".TH MHonArc 1\n",
  10.           ".SH NAME\n",
  11.           "MHonArc \\- Mail\\-to\\-HTML converter\n",
  12.           ".SH DESCRIPTION\n",
  13.           ".in 0\n",
  14.           ".nf\n";
  15. while (<STDIN>) {
  16.     next  if /^\s*\[IMAGE\]\s*$/i || /\[contents\]/i || /MifMucker/i;
  17.     print TXTFILE;
  18.     s/\\/\\\\/g;
  19.     s/-/\\-/g;
  20.     print MANPAGE;
  21. }
  22. print MANPAGE ".fi\n",
  23.           ".in\n";
  24. close(MANPAGE);
  25. close(TXTFILE);
  26.  
  27. exit 0;
  28.