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