From 8585f58cc94e9cd73ef28c9a2bcbb8106353358f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 28 Jul 2009 12:33:38 +0000
Subject: (xml2perl) factorize code (needed for next commit)

---
 mdkapplet-restricted-helper | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

(limited to 'mdkapplet-restricted-helper')

diff --git a/mdkapplet-restricted-helper b/mdkapplet-restricted-helper
index f2737061..55e55265 100755
--- a/mdkapplet-restricted-helper
+++ b/mdkapplet-restricted-helper
@@ -116,17 +116,10 @@ my $error;
 sub add_restricted_medium {
     my ($email, $password) = @_;
 
-    my $res =  get_from("https://my.mandriva.com/rest/authenticate",
+    my $res =  get_from("https://my.mandriva.com/rest/authenticate2",
                         [ 'username', $email, 'password', $password,
                           'return', 'userdata' ]);
-    my $ref = eval { XML::Simple->new->XMLin($res->{_content}) };
-    if (my $err = $@) {
-        warn ">> XML error: $err\n";
-        $ref = {
-            code => 1,
-            message => $err,
-        };
-    }
+    my $ref = xml2perl($res);
 
     if ($ref->{code} != 0) {
         my $in = interactive->vnew;
-- 
cgit v1.2.1