Technische Dokumentation zum Unix-Verbund ... - Dr. Hubert Feyrer

B.31 Monitoring/launcher.pl 329
}
"###############################\n";
print REPORT "###\n";
print REPORT "###\n";
print REPORT "### Solstice DiskSuite problems (metastat):\n";
print REPORT "###\n";
print REPORT "###\n";
open(IN, "daily-report.$REPORT.$$") || die;
while(){
print REPORT "$_";
}
close(IN);
print REPORT "\n";
print REPORT "\n";
}
unlink "daily-report.$REPORT.$$";
###########################################################################
sub report_swap
{
print REPORT "############################################",
"###############################\n";
print REPORT "############################################",
"###############################\n";
print REPORT "###\n";
print REPORT "###\n";
print REPORT "### Belegung Swap-Space (swap/swapctl)\n";
print REPORT "###\n";
print REPORT "###\n";
open(IN,"sort $TMPDIR/$prefix.swap|") || die;
undef %swap;
while(){
($opsys, $host, @rest) = split(/\s+/, $_);
#print "$host ($opsys): @rest\n";
if ($opsys eq "SunOS") {
# Solaris
( $device, $unused, $unused, $blocks, $free) = @rest;
#print "HF: solaris rest=@rest\n";
$percused = sprintf("%6.2f", ( $blocks - $free ) /
$blocks );
$prio = "n/a"
} elsif ($opsys eq "NetBSD") {
# NetBSD
( $device, $blocks, $unused, $free, $percused, $prio ) =
@rest;
$percused =~ s/%$//;
$percused = sprintf("%6.2f", $percused);
$blocks *= 2; # kb -> blocks
} else {
sed) = @rest;
$blocks);
}
# Irix
( $unused, $device, $prio, $unused, $free, $blocks, $unu-
$percused = sprintf("%6.2f", ($blocks - $free) /
$used = $blocks - $free;
$swap{$host} = "$device $blocks $used $percused $prio";
#print "HF: swap{$host} = \"$device $blocks $used $percused $prio\"\n";
}
close(IN);
$fmt="%-13s %-20s %12s %10s %8s %5s\n";
printf REPORT "$fmt", "Host", "Device", "Blocks", "Used", "%Used", "Prio";
foreach $host ( sort keys %swap ) {
( $device, $blocks, $used, $percused, $prio ) = split(/\s+/, $swap{$host});
printf REPORT ("$fmt", $host, $device, $blocks, $used, $percused, $prio);
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003