summaryrefslogtreecommitdiffstats
path: root/mdkonline.pm
diff options
context:
space:
mode:
Diffstat (limited to 'mdkonline.pm')
-rw-r--r--mdkonline.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index 2401f3f5..91a9dfe5 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -289,8 +289,8 @@ if [ -f $conf_file ]; then /usr/sbin/mdkupdate --auto; fi
}
sub read_conf() {
- my %rc = getVarsFromSh($rootconf_file); my %wc = getVarsFromSh($conf_file);
- (\%wc, \%rc)
+ my %wc = getVarsFromSh($conf_file);
+ \%wc
}
sub write_conf {
@@ -310,7 +310,11 @@ sub write_wide_conf {
# print Dumper($soap_response);
my $date = get_date(); my $conf_hash;
$conf_hash->{uc($_)} = $soap_response->{data}->{$_} foreach (keys %{$soap_response->{data}});
+ 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])};
+ }
setVarsInSh($conf_file, $conf_hash, qw(USER_EMAIL USER_ID HOST_NAME HOST_ID HOST_KEY HOST_DESC HOST_MOBILE VERSION DATE_SET));
}