#!perl
use strict;
use warnings;
use File::Copy;
print "Content-type: text/html\n\n";
my @servers = ();
for my $i (1..9) {
push @servers, "serverpd0${i}";
}
push @servers, qw (serverpd15);
for my $server (@servers) {
my $audit_file = "\\\\$server\\c\$\\program files\\maintenance\\audit.txt";
if (-e $audit_file) {
copy($audit_file, "tmp\\$server.log") or die $!;
}
}
print "";
print system("cat.exe tmp\\*.log | c:\\wbin\\sort.exe -k 3 -r");
print "";
exit;
__END__
print qq {
};
print "";
print qq{
| Timestamp |
Username |
Where From |
Record Type |
Record Data |
Field Name |
Action |
Data |
};
for my $timestamp (reverse sort keys %logs) {
for my $entry (@{$logs{$timestamp}}) {
print "| ";
my @temp = split("\t", $entry);
splice @temp, 1, 3;
unshift @temp, $timestamp;
print join(" | ", @temp);
print " |
";
}
}
print qq{
};