#!/usr/bin/perl -w
$|++;
$VERSION
=
'3.59'
;
my
$BASE
;
BEGIN {
$BASE
=
'/var/www/reports'
;
}
use
lib
qw|../cgi-bin/lib ../cgi-bin/plugins|
;
Labyrinth::Variables::init();
Labyrinth::Globals::LoadSettings(
"$BASE/cgi-bin/config/settings.ini"
);
Labyrinth::Globals::DBConnect();
SetLogFile(
FILE
=>
'/var/www/reports/toolkit/logs/builder-audit-distro.log'
,
USER
=>
'labyrinth'
,
LEVEL
=> 0,
CLEAR
=> 0,
CALLER
=> 1);
my
$content
= Labyrinth::Plugin::Content->new();
$content
->GetVersion();
_log(
"Start"
);
my
$builder
= Labyrinth::Plugin::CPAN::Builder->new();
$builder
->BasePages();
$builder
->Process(\
&_log
,
'distro'
);
_log(
"Processed 0 pages, 0 requests remaining."
);
_log(
"Finish"
);
sub
_log {
my
@date
=
localtime
(
time
);
my
$date
=
sprintf
"%04d/%02d/%02d %02d:%02d:%02d"
,
$date
[5]+1900,
$date
[4]+1,
$date
[3],
$date
[2],
$date
[1],
$date
[0];
print
"$date "
.
join
(
' '
,
@_
).
"\n"
;
}