#!/usr/bin/perl
use strict;

$ENV{http_proxy} = "http://10.111.0.3:3128";

use IMPL::require {
	Repository => 'Yours::Model::Repository',
	Sync => 'Yours::SyncRepository',
	Dumper => 'Data::Dumper',
	
};

my @repos = (
	{
		name => 'gnome',
		dir => 'gnome',
		location => 'http://download.opensuse.org/repositories/GNOME:/STABLE:/3.8/openSUSE_12.3/'
	}
);

foreach my $info ( @repos ) {
	eval {
		my $repo = Repository->new( map $info->{$_},qw(name dir location));
		Sync
			->new(*STDOUT) # log to STDOUT
			->Update($repo);
	};
	warn $@ if $@;
}


print "SUCCESS\n";