lib/PXElator/log.pm

package log;

use warnings;
use strict;
use autodie;

use server;

our $dir = "$server::base_dir/log";
mkdir $dir unless -e $dir;

foreach ( glob("$dir/pxelator.*.log") ) {
        warn "unlink $_ ", -s $_;
        unlink $_;
}

1;
1	dpavlin	49	package log;
2
3			use warnings;
4			use strict;
5			use autodie;
6
7			use server;
8
9			our $dir = "$server::base_dir/log";
10			mkdir $dir unless -e $dir;
11
12			foreach ( glob("$dir/pxelator.*.log") ) {
13			warn "unlink $_ ", -s $_;
14			unlink $_;
15			}
16
17			1;