Subversion Repositories DevTools

Rev

Rev 1289 | Rev 6475 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1289 Rev 3846
Line 14... Line 14...
14 
require 5.008_002;
 14 
require 5.008_002;
15 
use strict;
 15 
use strict;
16 
use warnings;
 16 
use warnings;
17 
package Logger;
 17 
package Logger;
18 
 
 18 
 
19 
use Shell qw(mv);
 - 
 
20 
 
 - 
 
21 
$| = 1;
 19 
$| = 1;
22 
 
 20 
 
23 
sub new ($$) {
 21 
sub new ($$) {
24 
    my ($class, $conf) = @_;
 22 
    my ($class, $conf) = @_;
25 
    return bless { conf => $conf }, $class;
 23 
    return bless { conf => $conf }, $class;
Line 98... Line 96...
98 
    my $num = $conf->{'logfile.count'};
 96 
    my $num = $conf->{'logfile.count'};
99 
    unlink "$logfile.$num" if ( -f "$logfile.$num");;
 97 
    unlink "$logfile.$num" if ( -f "$logfile.$num");;
100 
    for (; $num > 1 ; $num--)
 98 
    for (; $num > 1 ; $num--)
101 
    {
 99 
    {
102 
        my $prev = $num - 1;
 100 
        my $prev = $num - 1;
103 
        mv ("$logfile.$prev", "$logfile.$num") if ( -f "$logfile.$prev");
 101 
        rename ("$logfile.$prev", "$logfile.$num") if ( -f "$logfile.$prev");
104 
    }
 102 
    }
105 
    mv ($logfile, "$logfile.$num");
 103 
    rename ($logfile, "$logfile.$num");
106 
    $self->logmsg('Rotating logfile complete');
 104 
    $self->logmsg('Rotating logfile complete');
107 
    $self->{RollingLogs} = 0;
 105 
    $self->{RollingLogs} = 0;
108 
    return undef;
 106 
    return undef;
109 
}
 107 
}
110 
 
 108