warn("$0: database entry nr. ".($i+1)." missing tape server hostname\n")unless($TPCONFIG{$i}{'tapeserver'});
warn("$0: database entry nr. ".($i+1)." missing tape drive name\n")unless($TPCONFIG{$i}{'tapedrive'});
warn("$0: database entry nr. ".($i+1)." missing device group name\n")unless($TPCONFIG{$i}{'devicegroup'});
warn("$0: database entry nr. ".($i+1)." missing unix device\n")unless($TPCONFIG{$i}{'unixdevice'});
warn("$0: database entry nr. ".($i+1)." missing init status\n")unless($TPCONFIG{$i}{'initstatus'});
warn("$0: database entry nr. ".($i+1)." missing control method\n")unless($TPCONFIG{$i}{'controlmethod'});
warn("$0: database entry nr. ".($i+1)." missing the modification date\n")unless($TPCONFIG{$i}{'modifdate'});
warn("$0: database entry nr. ".($i+1)." missing user name\n")unless($TPCONFIG{$i}{'modifuser'});
print("$0: database entry nr. ".($i+1)." no tape service comment\n")unless($TPCONFIG{$i}{'tapeservicecomment'});
print("$0: database entry nr. ".($i+1)." no tape drive comment\n")unless($TPCONFIG{$i}{'tapedrivecomment'});
}
$xmlDoc->dispose;
}else{
warn("$0: URL $url is not returning any usable data for $hostname. This tape server will not be configured. Please check whether there is a tape drive assigned to this tape server.\n");
}
}else{
warn("$0: URL $url doesn't seem to work. There could be a problem with the Web server or the Oracle APEX database server.\n");