diff options
| -rw-r--r-- | urpm/cfg.pm | 104 |
1 files changed, 93 insertions, 11 deletions
diff --git a/urpm/cfg.pm b/urpm/cfg.pm index aa485b53..f30c8b0d 100644 --- a/urpm/cfg.pm +++ b/urpm/cfg.pm @@ -2,6 +2,7 @@ package urpm::cfg; use strict; use warnings; +use urpm::util; =head1 NAME @@ -13,26 +14,107 @@ urpm::cfg - routines to handle the urpmi configuration files =over -=cut +=item load_config($file) + +Reads an urpmi configuration file and return its contents in a hash ref : -# Standard paths of the config files -our $PROXY_CFG = "/etc/urpmi/proxy.cfg"; + { + 'medium name 1' => { + url => 'http://...', + option => 'value', + ... + } + '' => { + # global options go here + }, + } -=item set_environment($env_path) +Returns undef() in case of parsing error (and sets C<$urpm::cfg::err> to the +appropriate error message.) -Modifies the paths of the config files, so they will be searched -in the $env_path directory. This is obviously to be called early. +=item dump_config($file, $config) =cut -sub set_environment { - my ($env) = @_; - for ($PROXY_CFG) { - $env =~ s,^/etc/urpmi,$env,; +our $err; + +sub _syntax_error () { $err = N("syntax error in config file at line %s" } + +sub load_config ($) { + my ($file) = @_; + my %config; + my $medium = undef; + $err = ''; + open my $f, $file or do { $err = "Can't read $file: $!\n"; return } + local $_; + while (<$f>) { + chomp; + next if /^\s*#/; #- comments + s/^\s+//; s/\s+$//; + if ($_ eq '}') { #-{ + if (!defined $medium) { + _syntax_error; + return; + } + undef $medium; + next; + } + if (defined $medium && /{$/) { #-} + _syntax_error; + return; + } + if ($_ eq '{') { #-} Entering a global block + $medium = ''; + next; + } + if (/^(.*?[^\\])\s+(?:(.*?[^\\])\s+)?{$/ { #-} medium definition + $config{ $medium = unquotespace $1 }{url} = unquotespace $2; + next; + } + #- config values + /^(hdlist + |list + |with_hdlist + |removable + |md5sum + |limit-rate + |excludepath + |key[\-_]ids + |split-(?:level|length) + |priority-upgrade + |downloader + )\s*:\s*(.*)$/x + and $config{$medium}{$1} = $2, next; + #- positive flags + /^(update|ignore|synthesis|virtual)$/ + and $config{$medium}{$1} = 1, next; + my ($no, $k, $v); + #- boolean options + if (($no, $k, $v) = /^(no-)?( + verify-rpm + |fuzzy + |allow-(?:force|nodeps) + |(?:pre|post)-clean + |excludedocs + |compress + |keep + |auto + |resume)(?:\s*:\s*(.*))?$/x + ) { + my $yes = !$no; + $config{$medium}{$k} = $v =~ /^(yes|on|1|)$/i ? $yes : !$yes; + next; + } + #- obsolete + /^modified$/ and next; } + close $f; + return \%config; } -1; +sub dump_config ($$) { + my ($file, $config) = @_; +} __END__ |