Hi folks back again this is the first time i have written a script of any description and I think my difficulty is not understanding some of the answers and cannot use them correctly
1. I have a html page with 15 links each link is linked to one perl script
2. Each link corresponds to a server.
3. When I click on a link I have it directly linked to my perl script
4.so my perl script needs to know what log file to open and read depending on what link I click this is what i cannot get done. how do i do this
5. The nas01.txt is the log file and there are 15 of these
6. Do i put the path of all 15 log files into an array and then use an if statement i.e. if this link is clicked do this or is it something simpler
Any help would be appreciated
Here is my code so far
-
#!c:\perl\bin\perl.exe
-
-
use warnings;
-
use strict;
-
use CGI qw/:standard/;
-
-
-
print <<HTTPHDR;
-
Content-type: text/html
-
HTTPHDR
-
print <<HEADER;
-
<HTML>
-
<HEAD>
-
<TITLE>NAS Disk</TITLE>
-
</HEAD>
-
HEADER
-
-
my $data_file = "nas01.txt";
-
-
open DATA, "$data_file" or die "can't open $data_file $!";
-
my @read_data = <DATA>;
-
my @array_of_data = map { SpecialChars($_); } @read_data;
-
close DATA;
-
-
-
-
foreach my $line ( @array_of_data ) {
-
if ($line =~ m/levels/i) {
-
print "$line\n\n\n";
-
-
} elsif ($line =~ m/date/i) {
-
print "$line\n\n\n";
-
-
} elsif ($line =~ m/hostname/i) {
-
print "$line\n\n\n";
-
-
} elsif ($line =~ m/uptime/i) {
-
print "$line\n\n\n";
-
}
-
}
-
-
print "========================================================================================================<br>\n";
-
-
-
print "</PRE>\n";
-
-
print "<TABLE border=1>\n";
-
my $disk = 0;
-
foreach my $lines ( @array_of_data ) {
-
if ($lines =~ m/(\d+)[%]/i) {
-
my $val = $1;
-
if ($val > 80) {
-
$disk++;
-
print <<DISK;
-
<tr style="color: red"><td><PRE>$lines</PRE></td><th>Please look at this disk immediately.</TH></TR>
-
DISK
-
-
} else {
-
print <<OKDISK;
-
<tr style="color: indigo"><td><PRE>$lines</PRE></td><th>Disk levels are ok.</th></tr>
-
OKDISK
-
}
-
}
-
}
-
-
if ($disk == 0) { print <<ALLDISKOK; <TR style="color:
-
green"><TH colspan=2>Disk levels are ok.</th>
-
</tr> ALLDISKOK } print "</TABLE>\n";
-
-
print <<HTMLFOOT;
-
</BODY>
-
</HTML>
-
HTMLFOOT
-
-
# Remove special chars from input
-
sub SpecialChars($) {
-
my ($line) = @_;
-
$line =~ s/&/&/sg;
-
$line =~ s/</</sg;
-
$line =~ s/>/>/sg;
-
return($line);
-
}
-
-
11
