From 726c740773992c06b19272f14c17cadaa96bcef3 Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Thu, 15 Sep 2005 17:43:13 +0000 Subject: - merge 10.0, 10.1, 10.2 and 2006 code base --- mdkapplet | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/mdkapplet b/mdkapplet index 179ee8d3..f72b0285 100755 --- a/mdkapplet +++ b/mdkapplet @@ -50,6 +50,8 @@ my $conffile = '/etc/sysconfig/mdkonline'; my $localdir = "$ENV{HOME}/.MdkOnline"; my $localfile = "$localdir/mdkonline"; +my $release = mdkonline::get_release(); + #compatibility mkdir_p($localdir) if !-d $localdir; -e "$ENV{HOME}/.mdkonline" and system("mv", "$ENV{HOME}/.mdkonline", $localfile); @@ -209,13 +211,13 @@ sub refresh_contents { sub configNetwork() { logIt(N("Launching drakconnect\n")); system "/usr/sbin/drakconnect &" } sub installUpdates { my $binfile = '/usr/bin/mdkapplet'; - my $oldmd5 = common::md5file($binfile); + my $oldmd5 = $release <= 10.2 ? mdkonline::md5file($binfile) : common::md5file($binfile); logIt(N("Launching mdkupdate --applet\n")); system "/usr/sbin/mdkupdate", "--applet"; - my $newmd5 = common::md5file($binfile); + my $oldmd5 = $release <= 10.2 ? mdkonline::md5file($binfile) : common::md5file($binfile); if ($newmd5 ne $oldmd5) { logIt(N("Mandriva Online seems to be reinstalled, reloading applet ....")); exec('/usr/bin/mdkapplet') } #my $w = $in->wait_message(N("Please wait"), N("Check updates")); - silentCheck(); gtkflush(); + silentCheck(); gtkflush(); #undef $w; my $mdkupdate_status = cat_('/var/tmp/mdkupdate.log'); if ($mdkupdate_status && $mdkupdate_status !~ /OK/) { logIt($mdkupdate_status); $in->ask_warn(N("Mandriva Linux Updates Applet"), $mdkupdate_status) } @@ -335,12 +337,10 @@ sub go2State { defined $textvw and refresh_status($state); } sub isNetwork { - my $r = mdkonline::get_release(); - # my $h = mdkonline::get_distro_type(); my $network; - if ($r <= 10.0) { + if ($release <= 10.0) { $network = gethostbyname("mandrivaonline.com") ? 1 : 0; - } elsif ($r <= 10.2) { + } elsif ($release <= 10.2) { require network::netconnect; require network::tools; my ($netcnx, $netc, $intf) = ({}, {}, {}); -- cgit v1.2.1