А можно вопрос по perl?
sub ReturnList {
logIt("In retrun list screen");
logIt(system("$master/find_tapes"));
system("$master/find_tapes")
} # End ReturnList
В данном виде функция возвращает вывод скрипта find_expired_tapes дважды. Если закомментировать строчку system("$master/find_expired_tapes") - то единожды. Вопрос: что за функция logit? Я так понимаю, она отвечает за запись лога? Ок, можно ли как-то отключить вывод, что-то вроде noverbose?
Upd
Всё сделал, со всем разобрался.
нашел sub logIt.
прочитал лог, потестил, дописал функцию. Всё робит как надо, без вывода:
sub ReturnList {
logIt("In retrun list screen");
logIt(system("$master/find_tapes > /dev/null"));
system("$master/find_tapes")
} # End ReturnList