diff options
author | Daouda Lo <daouda@mandriva.com> | 2004-05-10 17:02:13 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2004-05-10 17:02:13 +0000 |
commit | 67b2ebc3df9be9af9491dd8dea824996f354aaf4 (patch) | |
tree | 3ad2673e3ad580bce2fa6d6501d97ce5d2c7d59a | |
parent | 2348cfb7d595a5d77e23da54660f0a9886a9a282 (diff) | |
download | mgaonline-67b2ebc3df9be9af9491dd8dea824996f354aaf4.tar mgaonline-67b2ebc3df9be9af9491dd8dea824996f354aaf4.tar.gz mgaonline-67b2ebc3df9be9af9491dd8dea824996f354aaf4.tar.bz2 mgaonline-67b2ebc3df9be9af9491dd8dea824996f354aaf4.tar.xz mgaonline-67b2ebc3df9be9af9491dd8dea824996f354aaf4.zip |
- what is '96' return code ? Need to ask to ayo
-rwxr-xr-x | mdkapplet | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -194,12 +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"; my $retcode = { 10 => sub { okState() }, 11 => sub { @@ -215,6 +216,7 @@ sub silentCheck { } !$comp and okState(); }, + 96 => sub { logIt(N("Unknown state")) ; go2State('okay') } 97 => sub { logIt(N("Online services disabled. Contact MandrakeOnline site\n")) ; go2State('disabled'); }, 98 => sub { logIt(N("Wrong Password.\n")); go2State('critical'); }, 99 => sub { logIt(N("Wrong Action or host or login.\n")); go2State('critical'); } |