#!/usr/bin/perl 
#
# copyright 2000 by Gottfried Szing e9625460@stud3.tuwien.ac.at
#
# version 0.01

eval("require '$ARGV[0]'") || die ("please specify a config file to use! $!\nUsage: $0 <config>\n");

my $config = shift;

sub printx
{
	print @_ unless ($config::quiet);
}


# ============== CONFIGURATION START =========================
my $version 	= "0.01";	    	# dont touch this ;-)
# =============== CONFIGURATION END ==========================

$| = 1;

use strict;
use DBI;		# db-connection
use DBI::DBD;

# printx header
printx <<EOF;
Generate reports from the MySQL Database

Database:  $config::serverDb\@$config::serverName:$config::serverPort

EOF

# open DB
my $dbh 	= DBI->connect("DBI:mysql:database=$config::serverDb;host=$config::serverName;port=$config::serverPort",
				$config::serverUser,$config::serverPass);

# generate informational header
my $startdate	= scalar localtime;

# calculate hits and transfered size
my $sql_statement = "select date_format(time, '%d %m %Y') as date,
							date_format(time, '%d'),
							date_format(time, '%m'),
							date_format(time, '%Y')
					from transfer t
					group by date order by date";

my $cur = $dbh->prepare($sql_statement);

$cur->execute;

while (my @req = $cur->fetchrow_array() )
{
	my ($date, $day, $month, $year) = @req;

	system("./genreports", $config, $day, $month, $year, 23, 59);
}

$cur->finish;

$dbh->disconnect();


# and now some general generating statistics
my $stopdate = localtime;

printx <<EOF;

Start Time:     $startdate
Stop Time:      $stopdate

EOF

exit 0;
