From 7a9b6226b59654617cf2cdb3ec324c539d646f2d Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Tue, 21 Feb 2006 12:16:12 +0000
Subject: - switch to new system

---
 mdkonline | 32 +++++++++++++++++++++-----------
 1 file changed, 21 insertions(+), 11 deletions(-)

(limited to 'mdkonline')

diff --git a/mdkonline b/mdkonline
index 7a2e17dc..ab54f4f1 100755
--- a/mdkonline
+++ b/mdkonline
@@ -37,7 +37,7 @@ BEGIN { unshift @::textdomains, 'mdkonline', 'drakfirstboot' }
 use mdkonline;
 use Digest::MD5  qw(md5 md5_hex md5_base64);
 
-my $online_link = 'https://www.mandrivaonline.com';
+my $online_link = 'http://online3.mandriva.com/o/soap/';
 
 my $confdir = '/root/.MdkOnline';
 my $conffile = "$confdir/mdkupdate";
@@ -73,12 +73,20 @@ my $locale = lang::read('', $>);
 $country = lang::c2name($locale->{country});
 my $lang = $locale->{lang} || 'en_US';
 
-sub read_conf() {
-    my $wideconf = '/etc/sysconfig/mdkonline';
-    my %t = getVarsFromSh($wideconf);
+my $descboxname;
+my ($host_id, $host_key);
+
+sub get_conf() {
+    my ($wc, $rc) = mdkonline::read_conf();
     my $host = chomp_(`hostname`);
-    $t{MACHINE} ||= $1 if $host =~ /(\w+)(.*)/;
-    $login = $t{LOGIN}; $boxname = $t{MACHINE};
+    $wc->{MACHINE} ||= $1 if $host =~ /(\w+)(.*)/;
+    $login = $wc->{LOGIN}; $boxname = $wc->{MACHINE}; $descboxname = $wc->{DESCMACHINE};
+}
+
+sub send_conf_via_soap {
+    my $w = $in->wait_message(N("Please wait"), N("Reading configuration\n")) if $ia;
+    my $reg_host = mdkonline::register_upload_host($login, $password, $boxname, $descboxname, $country);
+    undef $w if $w;
 }
 
 sub send_conf {
@@ -113,13 +121,15 @@ my $wiz = wizards->new(
 		account => {
 			    name => N("Enter your Mandriva Online login, password and machine name:"),
 			    pre => sub {
-				read_conf();
+				get_conf();
 			    },
 			    data => sub {
 				[
 				 { label => N("Email address:"), val => \$login },
 				 { label => N("Password:"), val => \$password, hidden => 1 },
 				 { label => N("Machine name:"), val => \$boxname },
+				 { label => N("Machine description:"), val => \$descboxname },
+				 { label => N("(Ex: My Home Office's Computer)")},
 				];
 			    },
 			    post => sub {
@@ -137,7 +147,7 @@ my $wiz = wizards->new(
 				 name => sub {
 				     if ($is_success eq 'OK') {
 					 N("In order to benefit from Mandriva Online services,\nwe are about to upload your configuration.\n\nThe Wizard will now send the following information to Mandriva:\n1) the list of packages you have installed on your system,\n2) your hardware configuration.\n\nIf you feel uncomfortable by that idea, or do not want to benefit from this service,\nplease press 'Cancel'. By pressing 'Next', you allow us to keep you informed\nabout security updates and useful upgrades via personalized email alerts.\nFurthermore, you benefit from discounted paid support services on\nwww.mandrivaexpert.com.");
-				     } else {
+       				     } else {
 					 $is_success
 				     }
 				 },
@@ -194,9 +204,9 @@ my $wiz = wizards->new(
 			   },
 			   post => sub {
 			       if ($sendconfres eq 'TRUE' && $key) {
-				   mdkonline::automated_upgrades($conffile, $login, md5_hex($password), $boxname, $key, $country, 'TRUE');
-				   mdkonline::write_wide_conf($login, $boxname, $country);
-				   mdkonline::clean_confdir();
+				   #mdkonline::automated_upgrades($conffile, $login, md5_hex($password), $boxname, $key, $country, 'TRUE');
+				   #mdkonline::write_conf($registered);
+				   #mdkonline::clean_confdir();
 				   "end";
 			       } else {
 				   "authenticate";
-- 
cgit v1.2.1