web/cgi-bin/docs.cgi

#!/usr/bin/perl -w

#------------------------------------------------------------
# docs.cgi
# 
# Web-based text file viewer.
# Copyright Paul Mutton, 2000.
#------------------------------------------------------------

use strict;
use CGI;

$| = 1;

# Settings
my ($left) = "../left.inc" ;
my ($title) = "../title.inc";
my ($bottom) = "../bottom.inc";


my ($query) = new CGI;
my ($doci) = ($query->param('doc') =~ /^\s*(.*?\.txt)\s*$/);
my ($doc) = "../documentation/$doci";

print "content-type: text/html\n\n";

print <<"END";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<!--
    docs.cgi
    Web-based text file viewer and formatter.
    Created by pjm2 19/10/2000
    Last modified 19/10/2000
-->

<html>

<head>
 <title>The i-scream Project Documentation Viewer</title>
 <meta name="description" content="The i-scream Project is a central monitoring system for Unix, Linux and NT servers.">
 <meta name="keywords" content="i-scream, project, central monitoring system, unix, linux, nt, server, alert">
 <meta name="generator" content="notepad on acid, aye.">
</head>

<body bgcolor="#ffffff" link="#0000ff" alink="#3333cc" vlink="#3333cc" text="#000066">

<table border="0" cellpadding="2" cellspacing="2">
 <tr>
  <td valign="top">
END

&print_file($left);

print <<"END";

  </td>
  <td valign="top">
END

&print_file($title);

print "<PRE>\n";
&print_file($doc);
print "</PRE>\n";

&print_file($bottom);

print <<"END";

  </td>
 </tr>
</table>

</body>

</html>
END

exit 0;

sub print_file ($) {
    my ($filename) = @_;
    print `cat $filename`;
}

sub print_file_old ($) {
    my ($filename) = @_;
    open(FILE, $filename) or die "Cannot open $filename: $!\n";
    while (my ($line) = <FILE>) {
        print $line;
    }
}

Revision:	1.1
Committed:	Wed Oct 25 23:56:27 2000 UTC (24 years, 1 month ago) by tdb
Branch:	MAIN
Log Message:	This cgi/perl script formats a plain text file in the theme of the website. It's intended use is for displaying documentation, and other similar files, formatted according to our documentation specification.
#	User	Rev	Content
1	tdb	1.1	#!/usr/bin/perl -w
2
3			#------------------------------------------------------------
4			# docs.cgi
5			#
6			# Web-based text file viewer.
7			# Copyright Paul Mutton, 2000.
8			#------------------------------------------------------------
9
10			use strict;
11			use CGI;
12
13			$\| = 1;
14
15			# Settings
16			my ($left) = "../left.inc" ;
17			my ($title) = "../title.inc";
18			my ($bottom) = "../bottom.inc";
19
20
21			my ($query) = new CGI;
22			my ($doci) = ($query->param('doc') =~ /^\s(.?\.txt)\s*$/);
23			my ($doc) = "../documentation/$doci";
24
25			print "content-type: text/html\n\n";
26
27			print <<"END";
28			<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
29
30			<!--
31			docs.cgi
32			Web-based text file viewer and formatter.
33			Created by pjm2 19/10/2000
34			Last modified 19/10/2000
35			-->
36
37			<html>
38
39			<head>
40			<title>The i-scream Project Documentation Viewer</title>
41			<meta name="description" content="The i-scream Project is a central monitoring system for Unix, Linux and NT servers.">
42			<meta name="keywords" content="i-scream, project, central monitoring system, unix, linux, nt, server, alert">
43			<meta name="generator" content="notepad on acid, aye.">
44			</head>
45
46			<body bgcolor="#ffffff" link="#0000ff" alink="#3333cc" vlink="#3333cc" text="#000066">
47
48			<table border="0" cellpadding="2" cellspacing="2">
49			<tr>
50			<td valign="top">
51			END
52
53			&print_file($left);
54
55			print <<"END";
56
57			</td>
58			<td valign="top">
59			END
60
61			&print_file($title);
62
63			print "<PRE>\n";
64			&print_file($doc);
65			print "</PRE>\n";
66
67			&print_file($bottom);
68
69			print <<"END";
70
71			</td>
72			</tr>
73			</table>
74
75			</body>
76
77			</html>
78			END
79
80			exit 0;
81
82			sub print_file ($) {
83			my ($filename) = @_;
84			print `cat $filename`;
85			}
86
87			sub print_file_old ($) {
88			my ($filename) = @_;
89			open(FILE, $filename) or die "Cannot open $filename: $!\n";
90			while (my ($line) = <FILE>) {
91			print $line;
92			}
93			}
94