diff options
-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 { |