From 79d40ac491f9d3cb928e876c6a8504fad4b088ed Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Wed, 22 Feb 2006 18:51:02 +0000 Subject: - load config before writing change. Keep unchanged values unchanged --- mdkonline.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'mdkonline.pm') 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])}; -- cgit v1.2.1