From 5cedd60005433a0a64a738f407d92a76f3ce176e Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Wed, 15 Feb 2006 16:07:06 +0000
Subject: - use real machine name

---
 mdkupdate | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/mdkupdate b/mdkupdate
index 244fe6ad..da9a805b 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -32,8 +32,6 @@ use urpm;
 
 use Getopt::Long;
 
-use SOAP::Lite;
-
 BEGIN { unshift @::textdomains, 'mdkupdate' }
 
 require_root_capability();
@@ -167,16 +165,16 @@ if (!$bundle) {
     my $namespace    = 'http://online3.mandriva.com/o/soap/';
     my $serviceProxy = $namespace;
     my %bundle_vars = getVarsFromSh($bundle);
+    
     $o{LOGIN} or system("/usr/sbin/mdkonline");
     $o{LOGIN} or die("Configuration not uploaded to Mandriva Online");
+    
     my $s = SOAP::Lite
       ->proxy($serviceProxy)
 	->uri($namespace);
-    my $hostname = chomp_(`hostname`);
-    $data = $s->authenticateUser( $o{LOGIN}, $o{PASS} )->result();
-    $data = $s->registerHost( $o{LOGIN}, $o{PASS}, $hostname, "plop" )->result();
-    my $id  = $data->{data}->{host_id};
-    my $key = $data->{data}->{host_key};
+    $data = mdkonline::soap_authenticate_user($o{LOGIN}, $o{PASS});
+    $data = mdkonline::soap_register_host($o{LOGIN}, $o{PASS}, $o{MACHINE}, "Testing online");
+    my $id  = $data->{data}->{host_id}; my $key = $data->{data}->{host_key};
     $data = $s->query( $id, $key, 'Software::get_bundle', $bundle_vars{BUNDLE} )->result();
 }
 
-- 
cgit v1.2.1