diff options
author | Daouda Lo <daouda@mandriva.com> | 2004-05-10 17:07:33 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2004-05-10 17:07:33 +0000 |
commit | 8496f470c5726ce8e18fb0ec531c4b9afeb57fea (patch) | |
tree | 78dc4cd8da058138fe5cd745d56dc1fbb1323364 | |
parent | 6ca7dfbff59d5c31f8af781a0e77615fef3efff8 (diff) | |
download | mgaonline-8496f470c5726ce8e18fb0ec531c4b9afeb57fea.tar mgaonline-8496f470c5726ce8e18fb0ec531c4b9afeb57fea.tar.gz mgaonline-8496f470c5726ce8e18fb0ec531c4b9afeb57fea.tar.bz2 mgaonline-8496f470c5726ce8e18fb0ec531c4b9afeb57fea.tar.xz mgaonline-8496f470c5726ce8e18fb0ec531c4b9afeb57fea.zip |
- no debug messages
-rwxr-xr-x | mdkapplet | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -194,13 +194,13 @@ sub silentCheck { logIt(N("Connecting to") . " $lnk ...\n"); my $response = $ua->request($request); my $ct = $response->content; - print "\nCONTENTS = $ct\n"; +# print "\nCONTENTS = $ct\n"; logIt(N("Response from MandrakeOnline server\n") . "$ct"); if ($ct =~ /rpm/) { $u = 11 } elsif ($ct =~ m/(\d+)/) { $u = sprintf("%d",$1); } else { $u = 10 }; # 99 - log or host or action or pass empty, wrong action # 98 - wrong pass # 97 - host not active - print "Returned value = $u\n"; +# print "Returned value = $u\n"; my $retcode = { 10 => sub { okState() }, 11 => sub { |