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