my $logDir = $file{log} . sprintf('%04d', $year + 1900);
unless(-d $logDir) {
&status("openLog: making $logDir.");
mkdir $logDir, 0755 or &status("Cannot mkdir $logDir");;
}
my $logDir = $file{log} . sprintf('%04d', $year + 1900);
unless(-d $logDir) {
&status("openLog: making $logDir.");
mkdir $logDir, 0755 or &status("Cannot mkdir $logDir");;
}