7 |
|
|
8 |
sub compare($$); |
sub compare($$); |
9 |
|
|
10 |
|
my $test_repo = '/releases/7/smedev'; |
11 |
my $releases = 2; |
my $releases = 2; |
12 |
|
|
13 |
my $rpm_flags = RPM2->vsf_nodsa; |
my $rpm_flags = RPM2->vsf_nodsa; |
|
my $test_repo = '/releases/7/smetest'; |
|
14 |
my @repositories = qw( |
my @repositories = qw( |
|
/releases/7/smeupdates/i386/RPMS/ |
|
15 |
/releases/7/smeos/i386/CentOS/RPMS/ |
/releases/7/smeos/i386/CentOS/RPMS/ |
16 |
|
/releases/7/smeupdates/i386/RPMS/ |
17 |
/releases/7/smeupdates-testing/i386/RPMS/ |
/releases/7/smeupdates-testing/i386/RPMS/ |
18 |
|
/releases/7/smeextras/i386/RPMS/ |
19 |
/builds/rpms/RPMS/i386/ |
/builds/rpms/RPMS/i386/ |
20 |
/builds/rpms/RPMS/i586/ |
/builds/rpms/RPMS/i586/ |
21 |
/builds/rpms/RPMS/i686/ |
/builds/rpms/RPMS/i686/ |
55 |
} |
} |
56 |
} |
} |
57 |
|
|
58 |
|
my $changed = 0; |
59 |
my @pushed; |
my @pushed; |
60 |
foreach my $package (sort keys %pushed) |
foreach my $package (sort keys %pushed) |
61 |
{ |
{ |
67 |
unless (grep { ! compare($_, $rpm) } @testing) { |
unless (grep { ! compare($_, $rpm) } @testing) { |
68 |
print "adding ".$rpm->filename."\n"; |
print "adding ".$rpm->filename."\n"; |
69 |
system(qw(cp -a), $rpm->filename, "$test_repo/i386/RPMS/"); |
system(qw(cp -a), $rpm->filename, "$test_repo/i386/RPMS/"); |
70 |
|
$changed++; |
71 |
} |
} |
72 |
} |
} |
73 |
} |
} |
80 |
} |
} |
81 |
} |
} |
82 |
|
|
83 |
system(qw(rm -rf), "$test_repo/i386/headers", "$test_repo/i386/repodata"); |
if ($changed) { |
84 |
system(qw(createrepo), "$test_repo/i386"); |
system(qw(/builds/bin/linksource -s), "$test_repo/i386/RPMS", '-d', "$test_repo/SRPMS"); |
85 |
system(qw(yum-arch), "$test_repo/i386"); |
system(qw(rm -rf), "$test_repo/i386/headers", "$test_repo/i386/repodata"); |
86 |
|
system(qw(createrepo), "$test_repo/i386"); |
87 |
|
system(qw(repoview), "$test_repo/i386"); |
88 |
|
system(qw(yum-arch), "$test_repo/i386"); |
89 |
|
} |
90 |
|
|
91 |
sub compare($$) { |
sub compare($$) { |
92 |
my ($a, $b) = @_; |
my ($a, $b) = @_; |