Filter
Top Products
Further Information
Example of Scheduled Eject of Media
Appendix A A-17
while (($lib, $slot) = each(%List)) {
$result |=&Library_Eject($lib,$slot);
}
if ($result) {
return (1);
} else {
print "[Normal] All operations successfully
completed.\n";
return (0);
}
}
#=======================================================
========================
# FUNCTION Omnirpt
#
# ARGUMENTS none
#
# DESCRIPTION Function get slots to eject from omnirpt
report
#=======================================================
========================
sub Omnirpt {
@lines =<STDIN>;
for ($i=5;$i<@lines;$i++) {
@line =split(/\t/,$lines[$i]);
if ($line[2] =~/^\[([\w:\-\s]+):\s+(\w+)\]/) {
$List{$1}.=$2.' '; # $1= "Library name", $2=
"Slot ID"
}
}