mirror of
https://github.com/webmin/webmin.git
synced 2026-05-26 08:00:31 +01:00
32 lines
697 B
Perl
Executable File
32 lines
697 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# webalizer.pl
|
|
# Generate a report on schedule
|
|
|
|
$no_acl_check++;
|
|
require './webalizer-lib.pl';
|
|
$lconf = &get_log_config($ARGV[0]);
|
|
$lconf || die "Logfile $ARGV[0] config file does not exist";
|
|
|
|
open(NULL, ">/dev/null");
|
|
&clean_language();
|
|
$ok = &generate_report($ARGV[0], NULL, 0);
|
|
&reset_environment();
|
|
close(NULL);
|
|
|
|
if ($ok && $lconf->{'clear'}) {
|
|
# Truncate or delete the files for this report
|
|
@files = $config{'skip_old'} ? ( $ARGV[0] ) : &all_log_files($ARGV[0]);
|
|
foreach $f (@files) {
|
|
next if (!-r $f);
|
|
if ($f eq $ARGV[0]) {
|
|
# Just truncate the main log file
|
|
truncate($f, 0);
|
|
}
|
|
else {
|
|
# Delete any extra compressed files
|
|
unlink($f);
|
|
}
|
|
}
|
|
}
|
|
|