Subroutine message()

Subroutine message()

sub message{

local ($avail, $fs, $type, $total)=@_;

if ($FLAG) {

print "ADDRESS The Following:\n";

$FLAG=0;

}

printf "\t%s is low on %s(%d/%d)\n",

$fs, $type,$avail,$total;

}

Previous slide Next slide Back to the first slide View Graphic Version