#!/usr/bin/perl

use DBI;
require "config";

open(MIR,$aptsource) || die "cannot open $aptsource\n";

while (<MIR>){
    unless (/rpm-src.+(ftp\:\/\/\S+\/Sisyphus)/){
        next;
    }
    
    $mirrors{$1} = "on";
}
close(MIR);

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

$sth = $dbh->prepare("INSERT mirrors VALUES(?)");
foreach (sort keys %mirrors){
	$sth->execute($_);
}
$sth->finish();
$dbh->disconnect();
