#!/usr/bin/perl

# $Id: batch_exemple,v 1.5 2003/10/04 03:59:20 tvignaud Exp $

$o = {
	arch => 'i586',
	# take mailto if present, else eval mailto_eval
	#mailto => "me\@serveur"
	mailto_eval => '$maintener ? $maintener : $packager',
	mailto_summary => "maintener",
	mailfrom => 'Distlint <me@myserver>',
	mailsubject => "Pb in your mdk packages",
	mailheader => "Hi, I found pb in your package, please check it",
	mailfoot => "To have explanation, run distlint --ho ERR_CODE",
	# smtp => 'localhost.localdomain',
	replyto => '',
	
	repository =>
	    [
		 {
		     list => [ "/home/root/mandrake/mdk/Mandrake-devel/cooker/i586/Mandrake/RPMS", ],
			 check => 1,
			 chksrc => 1,
			 nochkdep => 0,
			 nochkcf => 0,
		 },
		 {
		     list => [ "/home/root/mandrake/mdk/Mandrake-devel/contrib/i586", ],
			 check => 1,
			 chksrc => 1,
			 nochkdep => 0,
			 nochkcf => 0,
		 },
		],
};

sub get_maintener() {
    my %l;
    local *CURL;
    open CURL, "/usr/bin/curl -s http://qa.mandrakesoft.com/srpmmaints.cgi |" or die "Err when retrieving maintener list\n";
    local $_;
    while (<CURL>) {
        $l{$1}=$2 if m/(.*)\t(.*)/;
    }
    close CURL;
    %l
}
                                            
