diff options
author | Francois Pons <fpons@mandriva.com> | 2002-07-25 17:38:46 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2002-07-25 17:38:46 +0000 |
commit | 848dc7b1780dde960ba6deadf6efe5d31a0f6c41 (patch) | |
tree | e5ff805016aabbb464e978d97e72f8cb33e61678 /tools | |
parent | 075f08afdf63c4b44c5029525d5c2dbf87e079a9 (diff) | |
download | drakx-848dc7b1780dde960ba6deadf6efe5d31a0f6c41.tar drakx-848dc7b1780dde960ba6deadf6efe5d31a0f6c41.tar.gz drakx-848dc7b1780dde960ba6deadf6efe5d31a0f6c41.tar.bz2 drakx-848dc7b1780dde960ba6deadf6efe5d31a0f6c41.tar.xz drakx-848dc7b1780dde960ba6deadf6efe5d31a0f6c41.zip |
no more use rpmtools.pm.
Diffstat (limited to 'tools')
-rwxr-xr-x | tools/syncrpms | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/tools/syncrpms b/tools/syncrpms index c33eee7c2..df3ddfaed 100755 --- a/tools/syncrpms +++ b/tools/syncrpms @@ -21,7 +21,7 @@ use strict qw(subs vars refs); #- compare a version string. -use rpmtools; +use URPM; #- get basename for a file. sub basename { $_[0] =~ /([^\/]*)$/ ? $1 : $_[0]; } @@ -61,8 +61,7 @@ sub get_rpms { if (/([^\/]*?)-([^-]*)-([^-]*)\.([^-\.]*)\.rpm$/) { my $key = "$1 $4"; #- get name including architecture. if ($rpms->{$key}) { - if (rpmtools::version_compare($2, $rpms->{$key}{version}) > 0 || - rpmtools::version_compare($2, $rpms->{$key}{version}) == 0 && rpmtools::version_compare($3, $rpms->{$key}{release}) > 0) { + if (URPM::ranges_overlap("== $2-$3", "> $rpms->{$key}{version}-$rpms->{$key}{release}")) { if ($modifiable) { if ($flag->{sorted}) { print "you said rpms directory is sorted, so I keep obsoleted $rpms->{$key}{file} by $_ in $rpms->{$key}{dir}\n" if $flag->{verbose}; @@ -166,11 +165,11 @@ sub sync_rpms { #- search in both part. foreach (keys %$source) { if ($target->{$_}) { - if (rpmtools::version_compare($source->{$_}{version}, $target->{$_}{version}) > 0 || - rpmtools::version_compare($source->{$_}{version}, $target->{$_}{version}) == 0 && - (rpmtools::version_compare($source->{$_}{release}, $target->{$_}{release}) > 0 || - rpmtools::version_compare($source->{$_}{release}, $target->{$_}{release}) == 0 && - -s "$source->{$_}{dir}/$source->{$_}{file}" != -s "$target->{$_}{dir}/$target->{$_}{file}")) { + if (URPM::ranges_overlap("== $source->{$_}{version}-$source->{$_}{release}", + ">= $target->{$_}{version}-$target->{$_}{release}")) { + if ("$source->{$_}{version}-$source->{$_}{release}" eq "$target->{$_}{version}-$target->{$_}{release}") { + -s "$source->{$_}{dir}/$source->{$_}{file}" == -s "$target->{$_}{dir}/$target->{$_}{file}" and next; + } if ($flag->{verbose}) { print "updating $target->{$_}{dir}/$target->{$_}{file} with newer version $source->{$_}{file}\n"; } @@ -182,8 +181,7 @@ sub sync_rpms { } rm("$target->{$_}{dir}/$target->{$_}{file}") unless $source->{$_}{file} eq $target->{$_}{file}; #- copy on eq } - } elsif (rpmtools::version_compare($source->{$_}{version}, $target->{$_}{version}) != 0 || - rpmtools::version_compare($source->{$_}{release}, $target->{$_}{release}) != 0) { + } elsif ($source->{$_}{version} ne $target->{$_}{version} || $source->{$_}{release} ne $target->{$_}{release}) { if ($flag->{verbose}) { print STDERR "keeping more up-to-date version $target->{$_}{dir}/$target->{$_}{file} against $source->{$_}{dir}/$source->{$_}{file}, check your repository !\n"; } |