add config dump file

diff --git a/doc/manual.html b/doc/manual.html
index cb78924..4ac5145 100644 (file)
--- a/doc/manual.html
+++ b/doc/manual.html
@@ -51,6 +51,11 @@
       <tt>.keitairc</tt> が存在するならこれを読み込みます。
       ユーザごとの設定はここに記述するとよいでしょう。
     <p>
+      次に、ユーザのホーム・ディレクトリ直下にある .keitairc.d ディレクトリの
+      <tt>config.dump</tt> が存在するならこれを読み込みます。
+      このファイルは keitairc の Web UI から変更を行った設定が保存されています。
+      このファイルでの設定は $HOME/.keitairc より優先されることに気をつけてください。
+    <p>
       次に、keitairc の第一引数が存在するファイル名であった場合、
       これを読み込みます。
     <p>

diff --git a/lib/Keitairc/Config.pm b/lib/Keitairc/Config.pm
index 194aee6..60a9582 100644 (file)
--- a/lib/Keitairc/Config.pm
+++ b/lib/Keitairc/Config.pm
@@ -108,6 +108,9 @@ sub new{
        if(-r $ENV{HOME} . '/.keitairc'){
                $me->file($ENV{HOME} . '/.keitairc');
        }
+       if(-r $ENV{HOME} . '/.keitairc.d/config.dump'){
+               $me->file($ENV{HOME} . '/.keitairc.d/config.dump');
+       }
 
        if(defined $argv[0]){
                if(-r $argv[0]){
@@ -232,6 +235,19 @@ sub dump {
        return $ret;
 }
 
+sub dump2file {
+       my $me = shift;
+       if (! open(FH, '> ' . $ENV{HOME} . '/.keitairc.d/config.dump') ) {
+               $::log->log_error('can not open config dump file: ' . $ENV{HOME} . '/.keitairc.d/config.dump');
+               return 0;
+       }
+
+       print FH $me->dump;
+
+       close(FH);
+       return 1;
+}
+
 ################################################################
 # config params check utility functions
 ################################################################