Sun Microsystems Enterprise 250 Guia Del Usuario página 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 "ALERTA: \"", $mount, "\" está al ", $capacity,
$nofify_msg = 'mount point "'.$mount.'" está al '.
exec (@notify_cmd, 'send_event', '-c', $nofify_msg)
}
}
}
if ($found != 1)
{
print STDERR "ERROR: \"", $ARGV[0],
}
close(DF);
Guía del usuario de Remote System Control (RSC) de Sun ♦ Marzo de 1999, Revision A
C-2
" de su capacidad, enviando notificación\n";
$capacity.' de capacidad';
|| die "ERROR: $!\n";
"\" no es un punto de montaje válido\n\n";
(continuación)