'Net::SMTP' => 0,
'XML::Simple' => 0,
'AppConfig' => 0,
+ 'File::Path' => 0,
'Encode' => 0,
},
EXE_FILES => ['keitairc'],
<li>file[:directory]<br />
ファイルにログを出力します。{info,error,debug}_YYYYMMDD.log の3つのファイルが作成され、種類毎に
そのファイルに書き出されます(ファイル名は現状変更できません)。ログの出力先のディレクトリは
- $HOME/.keitairc_log です。出力先のディレクトリを変更したい場合は、:に続けてパスを記述して
+ $HOME/.keitairc.d/log です。出力先のディレクトリを変更したい場合は、:に続けてパスを記述して
ください。</li>
<li>syslog[:facility]<br />
syslogにログを出力します。ディフォルトのファシリティは local0 です。ファシリティを変更
'mobile_fontsize' => {TYPE => 'fontsize', DEFAULT => -1},
'irc_charset' => {TYPE => 'charset', DEFAULT => 'utf8'},
'web_charset' => {TYPE => 'charset', DEFAULT => 'shiftjis'},
- 'pid_dir' => {TYPE => 'dir', DEFAULT => $ENV{HOME} . '/.keitairc_log', ATTR => 'RO'},
+ 'pid_dir' => {TYPE => 'dir', DEFAULT => $ENV{HOME} . '/.keitairc.d', ATTR => 'RO'},
'url_target' => {TYPE => 'url_target', DEFAULT => '_self'},
'log' => {TYPE => 'log', DEFAULT => 'file', ATTR => 'RO'},
use Keitairc::Config;
use POSIX qw(strftime);
use FileHandle;
+use File::Path;
use strict;
use warnings;
$me->{debug} = $cf->debug();
my ($type, $dir) = split(':', $cf->log(), 2);
- $me->{dir} = $dir || $ENV{HOME} . '/.keitairc_log';
+ $me->{dir} = $dir || $ENV{HOME} . '/.keitairc.d/log';
- mkdir($me->{dir}) if (!-e $me->{dir});
+ mkpath($me->{dir}) if (!-e $me->{dir});
if (!-w $me->{dir}) {
print STDERR 'keitairc [ERROR]: Log dir ' . $me->{dir} . " not writable\n";
return 0;