From: Ricardo Mones <ricardo@mones.org>
Date: Wed, 24 Aug 2016 22:06:13 +0000 (+0200)
Subject: And method to save account preferences too
X-Git-Tag: 0.8.0~1
X-Git-Url: http://git.claws-mail.org/?p=clawsker.git;a=commitdiff_plain;h=03b1c22f3cec9acf0164dbea1bf31bcfe2e27fe6

And method to save account preferences too
---

diff --git a/clawsker b/clawsker
index c3902a1..0595eba 100755
--- a/clawsker
+++ b/clawsker
@@ -215,6 +215,7 @@ my %PREFS = ();
 my %ACPREFS = ();
 # values of all preferences handled by clawsker
 my %HPVALUE = ();
+my %ACHPVALUE = ();
 # default config dir and file name
 my $ALTCONFIGDIR = FALSE;
 my $CONFIGDIR = $ENV{HOME} . '/.claws-mail/';
@@ -2057,6 +2058,40 @@ sub save_preferences {
     return TRUE;
 }
 
+sub save_ac_preferences {
+    my $rc = get_ac_rc_filename ();
+    log_message ("Saving account preferences to $rc\n");
+    return FALSE unless check_rc_file ($rc);
+    return FALSE unless check_claws_not_running ();
+    my $rcbak = "$rc.backup";
+    rename ($rc, $rcbak);
+    open (RCF, ">$rc");
+    open (RCB, "<$rcbak");
+    my $akey;
+    while (<RCB>) {
+        chomp;
+        if (/^\[Account: (\d+)\]$/) {
+          $akey = $1;
+          print RCF $_ . "\n";
+          next;
+        }
+        if (/^([8a-z_]+)=(.*)$/) {
+            if (defined($ACHPVALUE{$akey}{$1})) {
+                print RCF $1 . "=" . $ACHPVALUE{$akey}{$1} . "\n";
+            }
+            else {
+                print RCF $_ . "\n";
+            }
+        }
+        else {
+            print RCF $_ . "\n";
+        }
+    }
+    close (RCB);
+    close (RCF);
+    return TRUE;
+}
+
 # create notebook
 sub new_notebook {
     my $nb = Gtk2::Notebook->new;