--- builds_bin/checkrpms	2007/06/04 16:39:15	1.18
+++ builds_bin/checkrpms	2007/07/19 19:59:15	1.19
@@ -6,25 +6,22 @@ use RPM2;
 use Data::Dumper;
 use Getopt::Std;
 
-my %opts;
-getopts( "als:", \%opts );
-my $src = $opts{s} || '/builds/RPMS';
-
 my $centosrel = '4';
 my $fedorarel = '3';
 my $builds = '/builds/rpms';
 my $arch = `uname -i`;
 chomp $arch;
 
+my %opts;
+getopts( "als:", \%opts );
+my $src = $opts{s} || "/builds/RPMS-$arch";
+
 my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_nodsa;
 my @repos = (
               "/mirrors/centos/$centosrel/fasttrack/$arch/RPMS",
               "/mirrors/centos/$centosrel/updates/$arch/RPMS",
               "/mirrors/centos/$centosrel/os/$arch/CentOS/RPMS",
-              "/mirrors/centos/$centosrel/os/$arch/SME/RPMS",
-              "/mirrors/centos/$centosrel/os/$arch/RPMS",
               "/mirrors/centos/$centosrel/os/$arch/CentOS",
-              "/mirrors/centos/$centosrel/os/$arch/SME",
               "/mirrors/centos/$centosrel/extras/$arch/RPMS",
               "/mirrors/fedora/epel/$centosrel/$arch",
               "/mirrors/rpmforge/dag/redhat/el$centosrel/en/$arch/dag/RPMS",
@@ -98,8 +95,7 @@ foreach my $rpm ( sort keys %rpms )
                 $path =~ s@^(.*)/.*@$1@;
                 my $filename = $rpms{$rpm}->filename;
                 $filename =~ s@^.*/(.*)@$1@;
-                print " " . ( $header eq $rpms{$rpm} ? "** " : ( $path =~ m#/centos/# ? "-- " : ".. " ) ) . $header->as_nvre . " ($path)\n";
-                #print "     - rm -f $src/$filename; cp ". $header->filename . " $src\n";
+                print " " . ( $header eq $rpms{$rpm} ? "** " : ( $path =~ m#/centos/# ? "-- " : ".. " ) ) . $header->filename . "\n";
                 last if $header eq $rpms{$rpm}  && $opts{l};
             }
         }