#!/usr/local/bin/perl -w use strict; use Time::Local; use lib "$ENV{SCMS_HOME}lib"; use logme; my $logFileName = shift; logme::init($logFileName); my @syb1 = system("/home/cfso/scripts/EVL_Loggers/check_tlm_MCF_EA_SYB +1.csh"); logme::log("INFO","SYB 1 TLM Check @syb1\n"); my @syb2 = system("/home/cfso/scripts/EVL_Loggers/check_tlm_MCF_EA_SYB +2.csh"); logme::log("INFO","SYB 2 TLM Check @syb1\n"); my @syb3 = system("/home/cfso/scripts/EVL_Loggers/check_tlm_MCF_EA_SYB +3.csh"); logme::log("INFO","SYB 3 TLM Check @syb1\n");
In reply to How to log a system call by mdb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |