I'm probably missing something obvious here, but heck it's a beginners list.
the first time the log file is generated it contains the correct data.
However any time it tries appending data to the existing log file, nothing
gets written to it. Any help is appreciated.
#gather log data
open (FH, "<$emailBody") || die "could not open file: $!";
# $emailBody contains the log information
my @logContents = <FH>;
close (FH);
#append to log file
open (FH, ">>$outfile") || die "could not open file: $!";
#$outfile is a file name/path
seek FH,0,2;
foreach my $logContents(@logContents){
print FH "$logContents";
}
close (FH);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
