diff options
author | Daouda Lo <daouda@mandriva.com> | 2004-10-29 10:43:22 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2004-10-29 10:43:22 +0000 |
commit | 208e32c177f2d2fa8fbf77f3253034ec8674945d (patch) | |
tree | cbc52ac655457bf42d092e872cd5e8ee00c440d5 /mdkonline.pm | |
parent | e3fb46ed91e8b8c563ef93e51b22e9460ae02101 (diff) | |
download | mgaonline-208e32c177f2d2fa8fbf77f3253034ec8674945d.tar mgaonline-208e32c177f2d2fa8fbf77f3253034ec8674945d.tar.gz mgaonline-208e32c177f2d2fa8fbf77f3253034ec8674945d.tar.bz2 mgaonline-208e32c177f2d2fa8fbf77f3253034ec8674945d.tar.xz mgaonline-208e32c177f2d2fa8fbf77f3253034ec8674945d.zip |
- handle mnf cases
Diffstat (limited to 'mdkonline.pm')
-rw-r--r-- | mdkonline.pm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index ac235e4c..994aaee5 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -13,13 +13,21 @@ use HTTP::Request::Common; use HTTP::Request; #Don't change version manually -$::VERSION = '1.1-13mdk'; +$::VERSION = '1.1-20mdk'; + +my $release_file = find { -f $_ } '/etc/mandrakelinux-release', '/etc/mandrake-release', '/etc/redhat-release'; sub get_release() { - my ($release) = cat_('/etc/mandrake-release') =~ /release\s+(\S+)/; + my ($release) = cat_($release_file) =~ /release\s+(\S+)/; ($release) } +sub get_distro_type() { + my $d; + cat_($release_file) =~ /(corporate|mnf)/i, and $d = $1; + $d +} + sub get_from_URL { my ($link, $agent_name) = @_; my $ua = LWP::UserAgent->new; @@ -133,10 +141,9 @@ sub header { " * $_[0] ********************************************************************************"; } -my $releasefile = find { -f $_ } '/etc/mandrakelinux-release', '/etc/mandrake-release', '/etc/redhat-release'; output($file, map { chomp; "$_\n" } header("rpm -qa"), join('', sort `rpm -qa`), - header("mandrake version"), cat_($releasefile)); + header("mandrake version"), cat_($release_file)); system("/usr/bin/bzip2 -f $file"); open(my $F, $file . ".bz2") or die "Cannot open file : $!"; my ($chunk, $buffer); |