From 02d72e4a18137dff7a65a0d17646937ecf21ebb8 Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Wed, 22 Feb 2006 18:19:43 +0000 Subject: - add better error message --- mdkonline.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mdkonline.pm b/mdkonline.pm index 91a9dfe5..6be696c3 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -118,7 +118,7 @@ sub register_upload_host { $res = upgrade2v3(); } elsif (!$wc->{HOST_ID} && !-e $rootconf_file) { $registered = soap_register_host($login, $password, $boxname, $descboxname, $country); - #print Dumper($registered); + print Dumper($registered); $res = check_server_response($registered); } return $res if (defined $res && $res ne 'OK'); @@ -175,14 +175,14 @@ sub check_server_response { 13 => [ N("Service error"), N("Mandriva web services are currently unavailable\nPlease Try again Later") ], 17 => [ N("Password error"), N("Password mismatch") ], 20 => [ N("Service error"), N("Mandriva web services are under maintenance\nPlease Try again Later") ], - 22 => [ N("User Forbidden"), N("User account forbidden by Mandriva web services") ], + 22 => [ N("User Forbidden"), N("User account forbidden by Mandriva web services") ], 99 => [ N("Connection error"), N("Mandriva web services not reachable") ] }; 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]; + return $response->{status} ? 'OK' : $hash_ret->{$code}->[0] . ' : ' . $hash_ret->{$code}->[1] . '\n\n' . $response->{message}; } sub check_valid_email { -- cgit v1.2.1