diff options
| author | Romain d'Alverny <rdalverny@mandriva.org> | 2005-12-09 11:14:02 +0000 |
|---|---|---|
| committer | Romain d'Alverny <rdalverny@mandriva.org> | 2005-12-09 11:14:02 +0000 |
| commit | 991cde4c6295f3a3a8b21d628a133bf66869b24b (patch) | |
| tree | 228158f153c0da90f6d8b9aa645f892cca2369a1 | |
| parent | 888e61ad33a6167b46bf785c30a68572f04ffbbe (diff) | |
| download | mgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.tar mgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.tar.gz mgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.tar.bz2 mgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.tar.xz mgaonline-991cde4c6295f3a3a8b21d628a133bf66869b24b.zip | |
*** empty log message ***
| -rw-r--r-- | mdkonline.pm | 18 |
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; |