Mercurial > pub > Yours

comparison _test/repo.pl @ 5:45a84be3ebb1 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added deltainfo (.drpm) packages support
author sergey
date Wed, 23 Oct 2013 16:24:52 +0400
parents 8001dc056331
children
comparison
equal deleted inserted replaced
4:8001dc056331 5:45a84be3ebb1
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 use strict; 2 use strict;
3
4
3 5
4 use IMPL::require { 6 use IMPL::require {
5 Repository => 'Yours::Model::Repository', 7 Repository => 'Yours::Model::Repository',
6 Sync => 'Yours::SyncRepository', 8 Sync => 'Yours::SyncRepository',
7 Dumper => 'Data::Dumper', 9 Dumper => 'Data::Dumper',
8 10
9 }; 11 };
10 12
11 my @repos = ( 13 my @repos = (
12 { 14 {
15 name => 'update',
16 dir => '_data/update',
17 location => 'http://mirror.yandex.ru/opensuse/update/12.3/',
18 },
19 {
13 name => 'gnome', 20 name => 'gnome',
14 dir => 'gnome', 21 dir => '_data/gnome',
15 location => 'http://download.opensuse.org/repositories/GNOME:/STABLE:/3.8/openSUSE_12.3/' 22 location => 'http://download.opensuse.org/repositories/GNOME:/STABLE:/3.8/openSUSE_12.3/'
16 }, 23 },
17 { 24 {
18 name => 'mono', 25 name => 'mono',
19 dir => 'mono', 26 dir => '_data/mono',
20 location => 'http://download.opensuse.org/repositories/Mono/openSUSE_12.3/' 27 location => 'http://download.opensuse.org/repositories/Mono/openSUSE_12.3/'
21 }, 28 },
22 { 29 {
23 name => 'nvidia', 30 name => 'nvidia',
24 dir => 'nvidia', 31 dir => '_data/nvidia',
25 location => 'ftp://download.nvidia.com/opensuse/12.3/' 32 location => 'ftp://download.nvidia.com/opensuse/12.3/'
26 }, 33 },
27 { 34 {
28 name => 'broken', 35 name => 'broken',
29 dir => 'broken', 36 dir => '_data/broken',
30 location => 'http://mirror.yandex.ru/opensuse/repositories/KDE:/Extra/KDE_Release_410_openSUSE_12.3/' 37 location => 'http://mirror.yandex.ru/opensuse/repositories/KDE:/Extra/KDE_Release_410_openSUSE_12.3/'
31 } 38 }
32 ); 39 );
33 40
34 foreach my $info ( @repos ) { 41 foreach my $info ( @repos ) {
40 skipDebug => 1, 47 skipDebug => 1,
41 skipSrc => 1 48 skipSrc => 1
42 }) 49 })
43 ->Update($repo); 50 ->Update($repo);
44 }; 51 };
45 if(my $err = $@) { 52 if($@) {
46 print eval { $err->message || $err }, "\n"; 53 warn $@;
47 } else { 54 } else {
48 print "done\n"; 55 print "done\n";
49 } 56 }
50 } 57 }
51 58