summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2006-02-22 17:50:25 +0000
committerDaouda Lo <daouda@mandriva.com>2006-02-22 17:50:25 +0000
commit22a35d246ccfee7717605821112896f5b789cbff (patch)
tree0fa8bbcbd7daaa65c442f9bf77a266fb619631eb
parente5d79cbae647b4b29dd7730d637fab3e96d3fd2f (diff)
downloadmgaonline-22a35d246ccfee7717605821112896f5b789cbff.tar
mgaonline-22a35d246ccfee7717605821112896f5b789cbff.tar.gz
mgaonline-22a35d246ccfee7717605821112896f5b789cbff.tar.bz2
mgaonline-22a35d246ccfee7717605821112896f5b789cbff.tar.xz
mgaonline-22a35d246ccfee7717605821112896f5b789cbff.zip
- clean up
-rwxr-xr-xmdkonline38
1 files changed, 10 insertions, 28 deletions
diff --git a/mdkonline b/mdkonline
index ddefda32..cfeb419b 100755
--- a/mdkonline
+++ b/mdkonline
@@ -77,10 +77,10 @@ my $descboxname;
my ($host_id, $host_key);
sub get_conf() {
- my ($wc, $rc) = mdkonline::read_conf();
+ my $wc = mdkonline::read_conf();
my $host = chomp_(`hostname`);
- $wc->{MACHINE} ||= $1 if $host =~ /(\w+)(.*)/;
- $login = $wc->{LOGIN}; $boxname = $wc->{MACHINE}; $descboxname = $wc->{DESCMACHINE};
+ $wc->{HOST_NAME} ||= $1 if $host =~ /(\w+)(.*)/;
+ $login = $wc->{USER_EMAIL}; $boxname = $wc->{HOST_NAME}; $descboxname = $wc->{HOST_DESC};
}
sub send_conf_via_soap {
@@ -91,21 +91,6 @@ sub send_conf_via_soap {
$reg_host
}
-sub send_conf {
- my ($log, $pass, $box) = @_;
- my $uplink = $online_link . '/wizard.php';
- my $pp = md5_hex($pass);
- my $w = $in->wait_message(N("Please wait"), N("Reading configuration\n")) if $ia;
- mdkonline::report_config("$confdir/$log.$pp.$box.online.log");
- my $tag = { submit => "upload_wizard", wizard => ["$confdir/$log.$pp.$box.online.log.bz2.uue"] };
- undef $w if $w;
- my $ww = $in->wait_message(N("Please wait"), N("Sending configuration...")) if $ia;
- ($sendconfres, $key) = mdkonline::send_config($uplink, $tag);
- mdkonline::hw_upload($log, $pass, $box);
- undef $ww if $ww;
- ($sendconfres, $key);
-}
-
my $wiz = wizards->new(
{
name => N("Mandriva Online"),
@@ -191,23 +176,22 @@ my $wiz = wizards->new(
},
upload => {
name => sub {
- if ($sendconfres eq 'TRUE') {
+ if ($sendconfres eq 'OK') {
"\n\n" . N("Your upload was successful!") . "\n\n" . N("From now you will receive on security and updates \nannouncements thanks to Mandriva Online.") . "\n\n" . N("Mandriva Online offers you the ability to automate the updates.\nA program will run regulary in your system waiting for new updates\n");
} else {
N("Connection problem") . N("Problem occurs when uploading files, please try again");
}
},
data => sub {
- if ($sendconfres eq 'TRUE') {
+ if ($sendconfres eq 'OK') {
[
{ label => N("Country"), val => \$country, type => "combo", list => [ sort keys %countries ], not_edit => 0 }
];
}
},
post => sub {
- if ($sendconfres eq 'TRUE') {
- #mdkonline::automated_upgrades($conffile, $login, md5_hex($password), $boxname, $key, $country, 'TRUE');
- #mdkonline::write_conf($registered);
+ if ($sendconfres eq 'OK') {
+ mdkonline::automated_upgrades();
#mdkonline::clean_confdir();
"end";
} else {
@@ -230,11 +214,9 @@ if (!$ia && $login && $password && $boxname) {
$is_success = mdkonline::create_authenticate_account('authenticate', $login, $password);
if ($is_success eq 'OK') {
$sendconfres = send_conf_via_soap($login, $password, $boxname, $descboxname, $country);
- print "RESULT = $sendconfres";
- if ($sendconfres eq 'TRUE') {
- #mdkonline::automated_upgrades($conffile, $login, md5_hex($password), $boxname, $key, $country, 'TRUE');
- #mdkonline::write_wide_conf($login, $boxname, $country);
- #output_p($logfile, N("Configuration uploaded successfully"));
+ if ($sendconfres eq 'OK') {
+ mdkonline::automated_upgrades();
+ output_p($logfile, N("Configuration uploaded successfully"));
} else { output_p($logfile, N("Problem uploading configuration")) }
} else {
output_p($logfile, N("Cannot connect to Mandriva Online website: wrong login/password or router/firewall bad settings"));