From 991cde4c6295f3a3a8b21d628a133bf66869b24b Mon Sep 17 00:00:00 2001
From: Romain d'Alverny <rdalverny@mandriva.org>
Date: Fri, 9 Dec 2005 11:14:02 +0000
Subject: *** empty log message ***

---
 mdkonline.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'mdkonline.pm')

diff --git a/mdkonline.pm b/mdkonline.pm
index cc24f287..e6fa8d16 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -241,6 +241,19 @@ sub run_and_return_task {
 	$ret;
 };
 
+sub upload_host_data {
+	print "Saving local sw config...\n";
+	my $swdata     = `rpm -qa --queryformat '%{HDRID} %{N} %{E} %{V} %{R} %{ARCH} %{OS} %{DISTRIBUTION} %{VENDOR} %{SIZE} %{BUILDTIME} %{INSTALLTIME}\n'`;
+	my $etcrelease = `cat /etc/mandrake-release`;
+	print "Done.\n";
+	print "Uploading data...\n";
+	print $etcrelease,"\n";
+	$data = soap_upload_host_config( $id, $key, $etcrelease, $swdata );
+	print "Done.\n\n";
+
+	print Dumper($data);
+	1
+};
 
 sub md5file {
     require Digest::MD5;
@@ -289,6 +302,11 @@ sub soap_register_host {
 	$auth;	
 }
 
+sub soap_upload_config {
+	my $auth = $s->setHostConfig(@_)->result();
+	$auth;	
+}
+
 sub soap_recover_service {
 	my $auth = $s->recoverHostFromV2(@_)->result();
 	$auth;
-- 
cgit v1.2.1