sub Logger() { my $message = $_[0]; if ( $message eq "" ) { return; } &Date(); $pdmgrdFile = "pdmgrd\.$LOG_NAME"; $pdmgrdLogPath = "$log$pdmgrdFile"; open(PDMGRD, ">>$pdmgrdLogPath") || die "Can't open logfile: $ +pdmgrdLogPath - $!\n"; print PDMGRD "$LOG_STAMP $message\n"; close(PDMGRD); }
In reply to Log STDERR by onegative
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |