#!/usr/bin/perl

use DBI;
require "config";

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

open(FILE,"$repo_base/Sisyphus/files/list/list.src.classic") || die "can't open lists.src.classic\n";
@list = <FILE>;
close(FILE);

$sth = $dbh->prepare("INSERT acl VALUES(?,?)");
foreach (@list) {
	@values_old = @values;
	@values = split(/ |\t/,$_);
	chomp(@values);
	
	#Check if the srpm record uniqe.
	next if ($values[0] eq $values_old[0]);
	
	for ($i=1;$i<scalar(@values);$i++) {
	    $bad=0;
	    # Check if the maintainer's record unique.
	    for ($j=1;$j<$i;$j++) { $bad=1 if ($values[$j] eq $values[$i]); }
	    if ($values[$i] eq "php_coder") { $values[$i]="php-coder"; }
	    $sth->execute($values[0],$values[$i]) if ($bad == 0);
	}
}

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

$dbh->disconnect();

