Further Information

Example of Scheduled Eject of Media

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"

}

}

Appendix A

A-17

Page 747
Image 747
HP B6960-90078 manual Function