#!/usr/bin/perl
$datahome = ".";
opendir CURRENTDIR, $datahome or die "Cannot open dir: $!";
@files = grep /.txt$/, readdir CURRENTDIR;
closedir CURRENTDIR;
if (!@files) { print "No Ping files\n"; }
#print ("Content-type: text/html\n\n");
print("\n\n");
for ( $f = 0 ; $f < @files ; $f++ ) {
@flnm_stg1 = split(/.txt/, $files[$f]);
@flnm_stg = split(/_/, $flnm_stg1[0]);
print "--------------------------------------
\n";
print "Machine: $flnm_stg[0] @ IP: $flnm_stg[2]
\n";
print "Ping Log for FWS Server: $flnm_stg[1]
\n";
print "Date (mmddyy): $flnm_stg[4] @ Time (hhmmss): $flnm_stg[3]
\n";
print "--------------------------------------
\n";
open (PINGIN, $files[$f]) || die "Could not open \"$files[$f]\".\n$!";
@fltmp = ;
$lncntr = $otcntr = $pngtot = $totbyt = $avgms = $tpcntr = $tocntr = 0;
&sumpng(@fltmp);
close(PINGIN);
}
print "$lncntr
\n";
$avgms = ( $pngtot / $lncntr );
print "Total Time: $tpngtot
\n";
print "Total # of pings: $tlncntr
\n";
$totbyt = ($lncntr*$tstbyt[1]);
print "Total Bytes xferred: $ttotbyt
\n";
printf("Avg Time: %6.3f ms
\n",$tavgms);
print "----------------------------------
\n";
print("\n\n");
sub sumpng {
my(@tmp) = @_;
for ( $x = 0 ; $x < @tmp ; $x++ ) {
$tmpstg = $tmp[$x];
if ( $tmpstg =~ /time=/ ) {
$lncntr++;
@tststg = split(/ time=/, $tmpstg);
@tstbyt = split(/bytes=/, $tststg[0]);
@tmsplt = split(/ms TTL=/, $tststg[1]);
$tbyt2sec = ($tmsplt[0]*$tstbyt[1])/8096;
$tbyt3sec = (($tstbyt[1]*8)*($tmsplt[0]/1000))/1024;
$lno = $x;
if ($lno < 10) {$lno = "0$lno";}
printf("$lno\) %6.3f ms @ %6.3f kbit\/sec or %6.3f kbyte\/sec
\n", $tmsplt[0], $tbyt2sec, $tbyt3sec);
$pngtot=$pngtot+$tmsplt[0];
$tpngtot=$tpngtot+$pngtot;
}
elsif ( $tmpstg =~ /timed out/ ) {
$tocntr++;
}
}
print "----------------------------------
\n";
print "$lncntr
\n";
$avgms = ( $pngtot / $lncntr );
$tavgms = $tavgms + $avgms;
print "Total Time: $pngtot
\n";
print "Total # of pings: $lncntr
\n";
$totbyt = ($lncntr*$tstbyt[1]);
$ttotbyt = $ttotbyt + $totbyt;
print "Total Bytes xferred: $totbyt
\n";
printf("Avg Time: %6.3f ms
\n",$avgms);
$tpcntr = ( $tocntr / 30 );
print "Packets Lost %: $tpcntr
\n";
}