summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRomain d'Alverny <rdalverny@mandriva.org>2005-12-09 11:14:02 +0000
committerRomain d'Alverny <rdalverny@mandriva.org>2005-12-09 11:14:02 +0000
commit991cde4c6295f3a3a8b21d628a133bf66869b24b (patch)
tree228158f153c0da90f6d8b9aa645f892cca2369a1
parent888e61ad33a6167b46bf785c30a68572f04ffbbe (diff)
downloadmgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.tar
mgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.tar.gz
mgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.tar.bz2
mgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.tar.xz
mgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.zip
*** empty log message ***
-rw-r--r--mdkonline.pm18
1 files changed, 18 insertions, 0 deletions
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;