1#!%OPT_PATH_PERL% 2# 3# vfnmz.pl - program to view the NMZ.f file as HTML with lynx 4# Version 1.0.1 [10/24/1998] 5# 6# Copyright (C) 1997-1998 Satoru Takabayashi All rights reserved. 7# This is free software with ABSOLUTELY NO WARRANTY. 8# 9# patch for OS/2 by Kaz SHiMZ <kshimz@sfc.co.jp> [10/24/1998] 10 11$VERSION = "1.0.0"; 12$COPYRIGHT = "Copyright (C) 1997-1998 Satoru Takabayashi All rights reserved."; 13 14$LYNX = "lynx" ; # lynx path 15$SYSTEM = $^O; # $^O contains system name 16 17if ($SYSTEM eq "os2") { 18 $TMP = $ENV{TMPDIR}; 19 $TMP = $ENV{TMP} unless $TMP ; 20 $TMP = $ENV{TEMP} unless $TMP ; 21 $TMP = $TMP . "/vfnmz.$$.html" ; 22 $TMP =~ s|\\|/|g ; 23} else { 24 $TMP = "/tmp/vfnmz.$$.html"; 25} 26 27if (defined($ARGV[0])) { 28 $FINFO = $ARGV[0]; 29} else { 30 print <<EOFusage; 31 vfnmz.pl v$VERSION - program to view the NMZ.f file as HTML with lynx 32 $COPYRIGHT 33 34 usage: vfnmz.pl NMZ.f 35 36EOFusage 37 exit(1); 38} 39 40open(TMP, ">$TMP") || die "$! : $TMP\n"; 41open(FINFO, "$FINFO") || die "$! : ./NMZ.f\n"; 42 43print TMP <<EOM; 44<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" 45 "http://www.w3.org/TR/REC-html40/strict.dtd"> 46<HTML> 47<HEAD> 48<TITLE>$FINFO</TITLE> 49</HEAD> 50<BODY LANG="en"> 51<H1>$FINFO</H1> 52<HR> 53<DL> 54EOM 55 56print TMP join('', <FINFO>); 57 58 59print TMP <<EOM; 60</DL> 61<HR> 62<P> 63(bottom) 64</P> 65</BODY> 66</HTML> 67EOM 68close(FINFO); 69close(TMP); 70 71if ($SYSTEM eq "os2") { 72 $TMP2 = $TMP ; 73 $TMP2 =~ s/:/;/g ; 74 $TMP2 = '"' . $TMP2 . '"' ; 75 system("$LYNX $TMP2"); 76} else { 77 system("$LYNX $TMP"); 78} 79 80unlink($TMP); 81