<tt>.keitairc</tt> が存在するならこれを読み込みます。
ユーザごとの設定はここに記述するとよいでしょう。
<p>
+ 次に、ユーザのホーム・ディレクトリ直下にある .keitairc.d ディレクトリの
+ <tt>config.dump</tt> が存在するならこれを読み込みます。
+ このファイルは keitairc の Web UI から変更を行った設定が保存されています。
+ このファイルでの設定は $HOME/.keitairc より優先されることに気をつけてください。
+ <p>
次に、keitairc の第一引数が存在するファイル名であった場合、
これを読み込みます。
<p>
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]){
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
################################################################