Filter
Top Products
Further Information
Example of Scheduled Eject of Media
Appendix AA-18
if (!keys(%List)) {
print "[Warning] No tape(s) to eject.\n";
return (1);
}
return (0);
}
#-------------------------------------------------------
-----------------
# MAIN
#-------------------------------------------------------
-----------------
if ($ENV{"OS"}=~/Windows/) { # Windows NT
$OMNIBIN ='c:\\program files\\omniback\\bin\\';
} else {
local($uname)=`uname -a`;
chop $uname;
@uname=split(' ', $uname);
if ($uname[0]) {
if ($uname [0] eq 'HP-UX') {
$OMNIBIN ='/opt/omni/bin/';
} else {
$OMNIBIN ='/usr/omni/bin';
}
} else {
exit (1);
}
}