Sun Enterprise 250 Benutzerhandbuch Seite 100

$title = <DF>;
$found = 0;
while ($fields = <DF>)
{
chop($fields);
($fs, $size, $used, $avail, $capacity, $mount) = split(' ', $fields);
if ($ARGV[0] eq $mount)
{
$found = 1;
if ($capacity > $ARGV[1])
{
print STDERR "ALERT: \"", $mount, "\" is at ", $capacity,
$nofify_msg = 'mount point "'.$mount.'" is at '.
exec (@notify_cmd, 'send_event', '-c', $nofify_msg)
}
}
}
if ($found != 1)
{
print STDERR "ERROR: \"", $ARGV[0],
}
close(DF);
Sun Remote System Control (RSC) Benutzerhandbuch ♦ März 1999, Ausgabe A
C-2
" of capacity, sending notification\n";
$capacity.' of capacity';
|| die "ERROR: $!\n";
"\" is not a valid mount point\n\n";
(Fortsetzung)