ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/docs.cgi
Revision: 1.1
Committed: Wed Oct 25 23:56:27 2000 UTC (24 years 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.

File Contents

# Content
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