#!/usr/bin/perl

use DBI;
use Time::localtime;
use POSIX qw(strftime);
require "config";

$dbh = DBI->connect($dsn,$dbUser,$dbPass) || die "cant connect to mysql\n";
$sth = $dbh->do("DELETE FROM gitrepos");

system("cd /tmp; wget http://git.altlinux.org/people-packages-list");

open(FILE,"/tmp/people-packages-list");
@list = <FILE>;
close(FILE);
unlink("/tmp/people-packages-list");

$sth = $dbh->prepare("INSERT gitrepos VALUES(?,?,?)");
foreach (@list) {
	@values = split(/\t/,$_);
	@path = split(/\//,$values[0]);
	$path[4] = substr($path[4],0,-4);
#	print "packager=$path[2], rpm=$path[4]\n";
	$tm = localtime($values[1]);
	$year=$tm->year+1900;
	$month=$tm->mon+1;
	$day=$tm->mday;
        $sth->execute($path[4],$path[2],"$year" . "-" . "$month" . "-" . "$day");
    }

if ($sth) {
	$sth->finish();
}

$dbh->disconnect();
