From f91572f1c34b6cd6bbd83b1f799891ac655021f0 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 28 Jan 2003 09:46:21 +0000 Subject: 4.2-15mdk --- urpm.pm | 11 ++++++----- urpmi | 20 ++++---------------- urpmi.spec | 8 +++++++- 3 files changed, 17 insertions(+), 22 deletions(-) diff --git a/urpm.pm b/urpm.pm index ff46799c..05849dfe 100644 --- a/urpm.pm +++ b/urpm.pm @@ -472,13 +472,14 @@ sub read_config { chomp; s/#.*$//; s/^\s*//; s/\s*$//; $_ eq '}' and last; #- check for boolean variables first, and after that valued variables. - if (my ($no, $k, $v) = /^(no-)?(verify-rpm|fuzzy|allow-(?:force|nodeps)|(?:pre|post)-clean)(?:\s*:\s*(.*))?$/) { + my ($no, $k, $v); + if (($no, $k, $v) = /^(no-)?(verify-rpm|fuzzy|allow-(?:force|nodeps)|(?:pre|post)-clean)(?:\s*:\s*(.*))?$/) { unless (exists $urpm->{options}{$k}) { - $urpm->{options}{$k} = $v eq '' || $v =~ /^(yes|on|1)$/i; - $no and $urpm->{options}{$k} = ! $urpm->{options}{$k}; + $urpm->{options}{$k} = $v eq '' || $v =~ /^(yes|on|1)$/i || 0; + $no and $urpm->{options}{$k} = ! $urpm->{options}{$k} || 0; } next; - } elsif (my ($k, $v) = /^(limit-rate|excludepath)\s*:\s*(.*)$/) { + } elsif (($k, $v) = /^(limit-rate|excludepath)\s*:\s*(.*)$/) { unless (exists $urpm->{options}{$k}) { $v =~ /^'([^']*)'$/ and $v = $1; $v =~ /^"([^"]*)"$/ and $v = $1; $urpm->{options}{$k} = $v; @@ -689,7 +690,7 @@ sub write_config { while (my ($k,$v) = each %{$urpm->{options}}) { printf F " %s: %s\n", $k, $v; } - printf F "}\n"; + printf F "}\n\n"; } foreach my $medium (@{$urpm->{media}}) { printf F "%s %s {\n", quotespace($medium->{name}), quotespace($medium->{clear_url}); diff --git a/urpmi b/urpmi index cf0e6926..644baabf 100755 --- a/urpmi +++ b/urpmi @@ -202,11 +202,6 @@ while (defined($_ = shift @ARGV)) { } $src = 0; #- reset switch for next package. } -#- get back activated default values of boolean options. -foreach (qw(post-clean use-provides verify-rpm)) { - exists $urpm->{options}{$_} or $urpm->{options}{$_} = 1; -} - #- use install_src to promote all names as src package. if ($install_src) { @files and $urpm->{fatal}(1, _("What can be done with binary rpm files when using --install-src")); @@ -305,17 +300,10 @@ $urpm->configure(nocheck_access => $env || $uid > 0, bug => $bug, parallel => $parallel, ); -#- handle options directly here according to values in configuration file. -foreach (keys %{$urpm->{options} || {}}) { - my $v = $urpm->{options}{$_}; - /^(no-)?verify-rpm$/ and do { - unless (defined $verify_rpm) { - $verify_rpm = defined $v && $v =~ /^(yes|on)$/i; $1 and $verify_rpm = ! $verify_rpm; - } next }; - $urpm->{error}(_("ignoring option \"%s\" not used", $_ )); +#- get back activated default values of boolean options. +foreach (qw(post-clean use-provides verify-rpm)) { + exists $urpm->{options}{$_} or $urpm->{options}{$_} = 1; } -#- get default, this should be reworked to be more useable internally TODO. -defined $verify_rpm or $verify_rpm = 1; my $state = {}; my %requested = $urpm->register_rpms(@files, @src_files); @@ -527,7 +515,7 @@ my %sources = $urpm->download_source_packages($local_sources, $list, }); my %sources_install = %{$urpm->extract_packages_to_install(\%sources) || {}}; -if ($verify_rpm) { +if ($urpm->{options}{'verify-rpm'}) { my @invalid_sources; foreach (values %sources_install, values %sources) { diff --git a/urpmi.spec b/urpmi.spec index 30a0b7bc..5ade4ebd 100644 --- a/urpmi.spec +++ b/urpmi.spec @@ -2,7 +2,7 @@ Name: urpmi Version: 4.2 -Release: 14mdk +Release: 15mdk License: GPL Source0: %{name}.tar.bz2 Source1: %{name}.logrotate @@ -205,6 +205,12 @@ fi %changelog +* Tue Jan 28 2003 François Pons 4.2-15mdk +- fixed verify-rpm (both in urpmi.cfg or command line). +- fixed default options activated. +- fixed error message about unknown options use-provides and + post-clean. + * Mon Jan 27 2003 François Pons 4.2-14mdk - added more global options to urpmi.cfg: verify-rpm, fuzzy, allow-force, allow-nodeps, pre-clean, post-clean, limit-rate, -- cgit v1.2.1