ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

details

Browse source
This commit is contained in:
Ward Wouts 2003-02-13 10:20:19 +00:00
parent 1721556370
commit f7cccc53ee
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
rpm_compare/rpm_compare
View file

@ -16,8 +16,6 @@ my @RPMPATHS=(
"/home/ward/REDHAT73/homemade", "/home/ward/REDHAT73/homemade",
); );
my $SSH="/usr/bin/ssh";
my %instrpms = (); my %instrpms = ();
my %refrpms = (); my %refrpms = ();
my %option = (); my %option = ();
@ -63,6 +61,7 @@ sub pathread {
} }
closedir DH; closedir DH;
} }
&outputnewest(%refrpms);
} }
sub fileread($) { sub fileread($) {
@ -102,7 +101,7 @@ sub comparerpms() {
foreach ( sort keys %instrpms ) { foreach ( sort keys %instrpms ) {
if ( exists $refrpms{$_} ) { if ( exists $refrpms{$_} ) {
$correct = @{$refrpms{$_}}[0]->{'FILENAME'}; $correct = @{$refrpms{$_}}[0]->{'FILENAME'};
$correct =~ s/\.(i[36]86|noarch)(\.rpm)?$//; $correct =~ s/\.(i[36]86|athlon|noarch)(\.rpm)?$//;
foreach $installed ( @{$instrpms{$_}} ) { foreach $installed ( @{$instrpms{$_}} ) {
unless ( $correct eq $installed ) { unless ( $correct eq $installed ) {
print "\ncorrect: $correct\n"; print "\ncorrect: $correct\n";
@ -150,7 +149,7 @@ sub splitname($$) {
my $build; my $build;
my $arch; my $arch;
if ( $fullname =~ /(.*?)-([^-]*)-([^-]*)\.(i[36]86|noarch)(\.rpm)?$/ ) { if ( $fullname =~ /(.*?)-([^-]*)-([^-]*)\.(i[36]86|athlon|noarch)(\.rpm)?$/ ) {
$packagename = $1; $packagename = $1;
$version = $2; $version = $2;
$build =$3; $build =$3;