--- builds_bin/checkrpms	2007/01/16 18:18:19	1.5
+++ builds_bin/checkrpms	2007/01/17 14:50:10	1.6
@@ -4,9 +4,13 @@ use strict;
 use warnings;
 use RPM2;
 use Data::Dumper;
+use Getopt::Std;
+
+my %opts;
+getopts( "s:", \%opts );
+my $src = $opts{s} || '/builds/RPMS';
 
 my $rpm_flags =  RPM2->vsf_nodsa;
-my $build_dir  = "/builds/RPMS";
 my @repositories = qw( 
 	/mirrors/centos/4/fasttrack/i386/RPMS/
 	/mirrors/centos/4/updates/i386/RPMS/
@@ -23,8 +27,8 @@ my @repositories = qw(
 	/builds/rpms/RPMS/noarch/
 	);
 
-opendir RPMS, $build_dir or die "Couldn't opendir $build_dir";
-my %rpms = map { my $x = RPM2->open_package("$build_dir/$_", $rpm_flags); $x->tag('NAME') => $x; } grep { /\.rpm$/ } readdir RPMS;
+opendir RPMS, $src or die "Couldn't opendir $src";
+my %rpms = map { my $x = RPM2->open_package("$src/$_", $rpm_flags); $x->tag('NAME') => $x; } grep { /\.rpm$/ } readdir RPMS;
 closedir RPMS;
 
 my %repos;
@@ -78,7 +82,7 @@ foreach my $rpm ( sort keys %rpms )
                 my $filename = $rpms{$rpm}->filename;
                 $filename =~ s@^.*/(.*)@$1@;
                 print " " . ($header eq $rpms{$rpm} ? "** " : "-- ") . $header->as_nvre . " ($path)\n";
-                #print "     - rm $build_dir/$filename; cp ". $header->filename . " $build_dir\n";
+                #print "     - rm $src/$filename; cp ". $header->filename . " $src\n";
             }
         }
     }