- save settings (to be finished)

1 files changed, 23 insertions, 7 deletions

diff --git a/mdkonline.pm b/mdkonline.pm
index b2e3c463..c8a65390 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -31,6 +31,7 @@ my $useragent = set_ua('mdkonline');
 sub is_proxy () {
     return defined $ENV{http_proxy} ? 1 : defined $ENV{https_proxy} ? 2 : 0;
 }
+
 my $proxy = is_proxy;
 
 my $s = $proxy == 2
@@ -278,6 +279,7 @@ sub check_server_response {
     my ($response, $h) = @_;
     print Dumper($response);
     my $code = $response->{code} || '99';
+    $response->{status} and write_conf($response);
     return $response->{status} ? 'OK' : $h->{$code}->[0] . ' : ' . $h->{$code}->[1];
 }
 
@@ -396,6 +398,15 @@ if [ -f $conffile ]; then /usr/sbin/mdkupdate --auto; fi
     chmod 0755, "/etc/cron.daily/mdkupdate";
 }
 
+sub setVar {
+    my ($file, $val) = @_;
+    my %s = getVarsFromSh($file);
+    foreach my $v (@val) {
+	$s{$val} = $st;
+    }
+    setVarsInSh($file, \%s);
+}
+
 sub read_conf() {
     my %rc = getVarsFromSh($rootconf_file); my %wc = getVarsFromSh($conf_file);
     (\%wc, \%rc)
@@ -403,20 +414,25 @@ sub read_conf() {
 
 sub write_conf {
     my $response = shift;
-    #write_wide_conf($response); write_rootconf($response);
+    write_wide_conf($response);
+    #write_rootconf($response);
     print Dumper($response);
 }
 
+sub get_date() {
+    my $date = `date --iso-8601=seconds`; # output  date/time  in ISO 8601 format. Ex: 2006-02-21T17:04:19+0100
+    $date = chomp_($date);
+    $date
+}
+
 sub write_wide_conf {
-    my ($login, $boxname, $country) = @_;
-    my $wideconf = '/etc/sysconfig/mdkonline';
-    my $d = localtime();
-    $d =~ s/\s+/_/g;
+    my ($soap_response) = shift;
+    my $date = get_date();
     output_with_perm $wideconf, 0644,
-    qq(LOGIN=$login
+    qq(USER_EMAIL=$login
 MACHINE=$boxname
 COUNTRY=$country
-LASTCHECK=$d
+DATE_SET=$date
 );
 }