From a86f61b6d7d96e3f13b1fa18378e1de380c96c10 Mon Sep 17 00:00:00 2001 From: Florent Villard Date: Mon, 18 Oct 2004 15:17:28 +0000 Subject: Add distrib function to get company, system (e.g. Mandrakelinux) and product (e.g. 10.1) --- MDK/Common/System.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index 7a6d194..d81efe0 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -224,6 +224,17 @@ sub better_arch { } sub compat_arch { better_arch(arch(), $_[0]) } +sub distrib() { + my $release = MDK::Common::File::cat_('/etc/release'); + my ($real_system, $real_product) = $release =~ /(.*) release ([\d.]+)/; + my $oem_config = '/etc/sysconfig/oem'; + my %oem = -f $oem_config && getVarsFromSh($oem_config); + my $company = $oem{COMPANY} || 'Mandrakesoft'; + my $system = $oem{SYSTEM} || $real_system; + my $product = $oem{PRODUCT} || $real_product; + (company => $company, system => $system, product => $product, real_system => $real_system, real_product => $real_product) +} + sub typeFromMagic { my $f = shift; sysopen(my $F, $f, 0) or return; -- cgit v1.2.1