Will someone provide clues as to how use logfile rotate on multiple files?
I looked at the rotate.pm and did not see anything this the code. I tried
one File => line followed by multipl scalers but that did not work then I
tried multiple File => references and this did not work???
thank you,
Here is my code:
use strict;
use warnings;
use diagnostics;
use MIME::Lite;
use Logfile::Rotate;
$ENV{"PATH"} = qq(/opt/SUNWsamfs/sbin:/usr/bin:/usr/sbin:/usr/local/log);
my $wd=40;
my $tpexports = qq(/usr/local/log/exports);
my $hrtlabtapeszs = qq(/usr/local/log/heartlab_tapeszs.log);
my $fujitapeszs = qq(/usr/local/log/fuji_tapeszs.log);
my $slhtapeszs = qq(/usr/local/log/slh_tapeszs.log);
open (FFFF_, "+>$tpexports") || die "could not open file: $tpexports $!";
open (FFF_, "+<$hrtlabtapeszs") || die "could not open file: $hrtlabtapeszs
$!";
open (FF_, "+<$fujitapeszs") || die "could not open file: $fujitapeszs $!";
#open (F_, "+<$slhtapeszs") || die "could not open file: $slhtapeszs $!";
my $logs = new Logfile::Rotate (File => $tpexports,
File => $hrtlabtapeszs,
Count => 10,
Gzip => '/usr/bin/gzip',
Dir => '/usr/local/log/old',
Flock => 'yes',
Persist => 'yes' );
$logs->rotate();
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
