10 |
getopts( "s:", \%opts ); |
getopts( "s:", \%opts ); |
11 |
my $src = $opts{s} || '/builds/RPMS'; |
my $src = $opts{s} || '/builds/RPMS'; |
12 |
|
|
|
my $arch = 'i386'; |
|
13 |
my $centosrel = '4'; |
my $centosrel = '4'; |
14 |
my $fedorarel = '3'; |
my $fedorarel = '3'; |
15 |
my $builds = '/builds/rpms'; |
my $builds = '/builds/rpms'; |
16 |
|
my $arch = `uname -i`; |
17 |
|
chomp $arch; |
18 |
|
|
19 |
my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_nodsa; |
my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_nodsa; |
20 |
my @repos = ( |
my @repos = ( |
21 |
"/mirrors/centos/$centosrel/fasttrack/$arch/RPMS", |
"/mirrors/centos/$centosrel/fasttrack/$arch/RPMS", |
22 |
"/mirrors/centos/$centosrel/updates/$arch/RPMS", |
"/mirrors/centos/$centosrel/updates/$arch/RPMS", |
23 |
"/mirrors/centos/$centosrel/os/$arch/CentOS/RPMS", |
"/mirrors/centos/$centosrel/os/$arch/CentOS/RPMS", |
24 |
|
"/mirrors/centos/$centosrel/os/$arch/SME/RPMS", |
25 |
|
"/mirrors/centos/$centosrel/os/$arch/RPMS", |
26 |
|
"/mirrors/centos/$centosrel/os/$arch/CentOS", |
27 |
|
"/mirrors/centos/$centosrel/os/$arch/SME", |
28 |
"/mirrors/centos/$centosrel/extras/$arch/RPMS", |
"/mirrors/centos/$centosrel/extras/$arch/RPMS", |
29 |
|
"/mirrors/fedora/epel/$centosrel/$arch", |
30 |
"/mirrors/rpmforge/dag/redhat/el$centosrel/en/$arch/dag/RPMS", |
"/mirrors/rpmforge/dag/redhat/el$centosrel/en/$arch/dag/RPMS", |
31 |
"/mirrors/atrpms/el$centosrel-$arch/atrpms/stable", |
"/mirrors/atrpms/el$centosrel-$arch/atrpms/stable", |
32 |
"/mirrors/fedora/core/updates/$fedorarel/$arch", |
"/mirrors/fedora/core/updates/$fedorarel/$arch", |
70 |
{ |
{ |
71 |
@headers = grep { $_->filename !~ m#/centos/[\d.]+/os/#i || $_ eq $rpms{$rpm} } @headers; |
@headers = grep { $_->filename !~ m#/centos/[\d.]+/os/#i || $_ eq $rpms{$rpm} } @headers; |
72 |
} |
} |
73 |
if (grep { $_->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i || $_->filename =~ m#/dag/[^d]#i } @headers) |
if (grep { $_->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i || $_->filename =~ m#/(dag|epel)/[^d]#i } @headers) |
74 |
{ |
{ |
75 |
@headers = grep { $_->filename !~ m#/atrpms/#i || $_ eq $rpms{$rpm} } @headers; |
@headers = grep { $_->filename !~ m#/atrpms/#i || $_ eq $rpms{$rpm} } @headers; |
76 |
@headers = grep { $_->filename !~ m#/fedora/#i || $_ eq $rpms{$rpm} } @headers; |
@headers = grep { $_->filename !~ m#/fedora/#i || $_ eq $rpms{$rpm} } @headers; |