summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-07-25 17:38:46 +0000
committerFrancois Pons <fpons@mandriva.com>2002-07-25 17:38:46 +0000
commit848dc7b1780dde960ba6deadf6efe5d31a0f6c41 (patch)
treee5ff805016aabbb464e978d97e72f8cb33e61678 /tools
parent075f08afdf63c4b44c5029525d5c2dbf87e079a9 (diff)
downloaddrakx-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-xtools/syncrpms18
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";
}