summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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;