diff options
| author | Daouda Lo <daouda@mandriva.com> | 2006-02-22 18:51:02 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2006-02-22 18:51:02 +0000 |
| commit | 79d40ac491f9d3cb928e876c6a8504fad4b088ed (patch) | |
| tree | 04902177b8cd3fdc730cab335b7972026c0d2ed3 | |
| parent | 02d72e4a18137dff7a65a0d17646937ecf21ebb8 (diff) | |
| download | mgaonline-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.pm | 4 |
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])}; |