From a163de6c48e7750a588bc7fa14b2a910c331a974 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 28 Mar 2006 18:08:53 +0000
Subject: (check_server_response) rely on {code} rather than on deprecated
 {status}

---
 mdkonline.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'mdkonline.pm')

diff --git a/mdkonline.pm b/mdkonline.pm
index 91453080..450e9708 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -198,8 +198,10 @@ sub check_server_response {
     foreach my $num ([9, 8], [21, 20]) { $hash_ret->{$num->[0]} = $hash_ret->{$num->[1]} }
     #    print Dumper($response);
     my $code = $response->{code} || '99';
-    $response->{status} and write_conf($response);
-    return $response->{status} ? 'OK' : $hash_ret->{$code}[0] . ' : ' . $hash_ret->{$code}[1] . "\n\n" . $response->{message};
+    my $answer = $response->{code} eq 0 ? 'OK' : $hash_ret->{$code}[0] . ' : ' . $hash_ret->{$code}[1] . "\n\n" . $response->{message};
+    $answer eq 'OK' and write_conf($response);
+    return $answer;
+    
 }
 
 sub check_valid_email {
-- 
cgit v1.2.1