diff options
Diffstat (limited to 'urpm/cfg.pm')
| -rw-r--r-- | urpm/cfg.pm | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/urpm/cfg.pm b/urpm/cfg.pm index c952847a..815a992a 100644 --- a/urpm/cfg.pm +++ b/urpm/cfg.pm @@ -42,14 +42,22 @@ Returns 1 on success, 0 on failure. #- implementations of the substitutions. arch and release are mdk-specific -sub get_arch () { `/bin/rpm -q --qf '%{arch}' mandrakelinux-release` } - -sub get_release () { - my ($v, $r) = split / /, `/bin/rpm -q --qf '%{version} %{release}' mandrakelinux-release`; - $v = 'cooker' if $r =~ /^0\./; - $v; +my ($arch, $release); +sub _init_arch_release () { + if (!$arch && !$release) { + open my $f, '/etc/mandrakelinux-release' or return undef; + my $l = <$f>; + close $f; + ($release, $arch) = $l =~ /release (\d+\.\d+).*for (\w+)/; + $release = 'cooker' if $l =~ /cooker/i; + } + 1; } +sub get_arch () { _init_arch_release(); $arch } + +sub get_release () { _init_arch_release(); $release } + sub get_host () { my $h; if (open my $f, '/proc/sys/kernel/hostname') { |