The easiest way I've found:
Tee("This is the text I want.\n");
sub Tee{
print OUTFILE @_;
print @_;
}
-----Original Message-----
From: Peter Lemus [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 26, 2002 5:41 PM
To: [EMAIL PROTECTED]
Subject: output to console and to logfile.
Hi, folks,
I have a scripts that prints to a log file. I would
like to receive all messages on my terminal also when
the script runs. Please enlight me...thanks.
The scripts looks something like this...
#MAIN
#-----------------------------------------------
open (STDOUT, ">> $LOGFILE");
&getdate;
print "-----------START---------------------.\n";
print "-----------START---------------------.\n";
close(STDOUT);
print "$date:Starting The Pre-Backup Process.\n";
&backupcmd;
print "$date:Establishing the BCV Pairs.\n";
&Establish_BCV;
&getdate;
open (STDOUT, ">> $LOGFILE");
print "$date:Verifing the Establish is done.\n";
close(STDOUT);
&Verify_BCV;
&getdate;
:q!
=====
Peter Lemus
Network Engineer
[EMAIL PROTECTED]
--A wise man will be master of his mind, a fool will be its slave. Dr.David
Schwartz.
--Enjoy every moment of the day; Live like as if today was your last day
alive, and perhaps, it might be. Peter Lemus
--Those who know, don't say; those who say don't know. Famous chinese say.
__________________________________________________
Do you Yahoo!?
New DSL Internet Access from SBC & Yahoo!
http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
