summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2006-02-22 18:51:02 +0000
committerDaouda Lo <daouda@mandriva.com>2006-02-22 18:51:02 +0000
commit79d40ac491f9d3cb928e876c6a8504fad4b088ed (patch)
tree04902177b8cd3fdc730cab335b7972026c0d2ed3
parent02d72e4a18137dff7a65a0d17646937ecf21ebb8 (diff)
downloadmgaonline-79d40ac491f9d3cb928e876c6a8504fad4b088ed.tar
mgaonline-79d40ac491f9d3cb928e876c6a8504fad4b088ed.tar.gz
mgaonline-79d40ac491f9d3cb928e876c6a8504fad4b088ed.tar.bz2
mgaonline-79d40ac491f9d3cb928e876c6a8504fad4b088ed.tar.xz
mgaonline-79d40ac491f9d3cb928e876c6a8504fad4b088ed.zip
- load config before writing change. Keep unchanged values unchanged
-rw-r--r--mdkonline.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index 6be696c3..4faad566 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -48,6 +48,7 @@ sub upgrade2v3 {
if (-e $rootconf_file) {
my %oc = getVarsFromSh($rootconf_file);
my $res = soap_recover_service($oc{LOGIN},'{md5}'. $oc{PASS}, $oc{MACHINE}, $oc{COUNTRY});
+ print Dumper($res);
$res = check_server_response()
}
$res
@@ -309,8 +310,9 @@ sub write_wide_conf {
my ($soap_response) = shift;
# print Dumper($soap_response);
my $date = get_date(); my $conf_hash;
+ %{$conf_hash} = getVarsFromSh($conf_file);
$conf_hash->{uc($_)} = $soap_response->{data}->{$_} foreach (keys %{$soap_response->{data}});
- print Dumper $conf_hash;
+ #print Dumper $conf_hash;
$conf_hash->{DATE_SET} = $date;
foreach my $alias (['email','user_email'], ['customer_id', 'user_id']) {
exists $conf_hash->{uc($alias->[0])} and $conf_hash->{uc($alias->[1])} = $conf_hash->{uc($alias->[0])};