summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2006-02-23 15:34:22 +0000
committerDaouda Lo <daouda@mandriva.com>2006-02-23 15:34:22 +0000
commitba441a4e42974799455c699e413dd47eaa332bfd (patch)
treeb4573c0ba61393e9474367ef293c68bfb5d1aa7c
parent73a75758e70d878a718fa442fcf9bf427db91add (diff)
downloadmgaonline-ba441a4e42974799455c699e413dd47eaa332bfd.tar
mgaonline-ba441a4e42974799455c699e413dd47eaa332bfd.tar.gz
mgaonline-ba441a4e42974799455c699e413dd47eaa332bfd.tar.bz2
mgaonline-ba441a4e42974799455c699e413dd47eaa332bfd.tar.xz
mgaonline-ba441a4e42974799455c699e413dd47eaa332bfd.zip
- put all soap call in mdkonline.pm
-rw-r--r--mdkonline.pm23
1 files changed, 14 insertions, 9 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index 55b19310..b96a5248 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -92,25 +92,30 @@ sub get_distro_type {
}
sub soap_create_account {
- my $register = $s->registerUser(@_)->result();
- $register;
+ my $data = $s->registerUser(@_)->result();
+ $data;
}
sub soap_authenticate_user {
- my $auth = $s->authenticateUser(@_)->result();
- $auth;
+ my $data = $s->authenticateUser(@_)->result();
+ $data;
}
sub soap_register_host {
- my $auth = $s->registerHost(@_)->result();
- $auth;
+ my $data = $s->registerHost(@_)->result();
+ $data;
}
sub soap_upload_config {
- my $auth = $s->setHostConfig(@_)->result();
- $auth;
+ my $data = $s->setHostConfig(@_)->result();
+ $data;
}
+sub soap_query_bundle {
+ my ($wc, $bundle_name) = @_;
+ my $data = $s->query($wc->{HOST_ID}, $wc->{HOST_KEY}, 'Software::get_bundle', $bundle_name)->result();
+ $data;
+}
sub register_upload_host {
my ($login, $password, $boxname, $descboxname, $country) = @_;
my ($registered, $res);
@@ -187,7 +192,7 @@ sub check_server_response {
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") ],
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';