#!/usr/bin/perl -w
use strict;
$|++;
use vars qw($VERSION);
$VERSION = '3.59';
=head1 NAME
reports-builder - Build reports pages
=head1 SYNOPSIS
perl reports-builder.pl
=head1 DESCRIPTION
??.
=cut
my $BASE;
# create images in pages
BEGIN {
$BASE = '/var/www/reports';
}
#----------------------------------------------------------
# Additional Modules
use lib qw|../cgi-bin/lib ../cgi-bin/plugins|;
#----------------------------------------------------------
# Code
Labyrinth::Variables::init(); # initial standard variable values
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";
}
__END__
=head1 AUTHOR
Copyright (c) 2009-2017 Barbie <barbie@cpan.org> Miss Barbell Productions.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut