1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# madoka 4.2 rc_log
#
# rc/log.mpi
# Copyright(c)1998- cookie / The madoka project
#
my($var, $arg) = split(/=\s*/, $rc_line, 2);
my $file = &search_file('log.mpi');
&redo($file);
if ($var eq 'dir') {
$arg = './' unless $arg;
$arg =~ s/^~\//$homedir\//;
$arg =~ s/\/$//;
if (!-e $arg) {
mkdir($arg, 0711);
warn("[log] mkdir: $arg\n");
}
$arg .= '/';
&down("[ERROR] dir in [log]\n") unless -d $arg;
$log_dir = $arg;
} elsif ($var eq 'time') {
$log_time = $arg;
my $l;
while ($arg =~ /%(.)/) {
$l = $1;
&down("[ERROR] wrong time format in [log]")
if $l !~ /^[YyMDhms]$/;
$arg =~ s/%$l//;
}
} elsif ($var eq 'mode') {
&down("[ERROR] mode in [log]\n") if $arg =~ /[^\d]/ || !$arg;
$log_mode = oct($arg);
} elsif ($var eq 'code') {
$arg = lc($arg);
&redo('kanji.mpi');
if ($arg !~ /^(jis|euc|sjis)$/) {
warn("[log] unknown character code. set 'jis'. ");
$log_code = 'jis';
} else {
$log_code = $arg;
}
} elsif ($var eq 'rotatetime') {
&down("[ERROR] wrong format: rotatetime in [log]")
if $arg !~ /^\d+:\d+P?\s*$/;
$arg =~ s/\s+$//;
if ($arg =~ /P$/) {
$log_rotatep = 1;
$arg =~ s/P$//;
}
$log_rotate = $arg;
&list_add($per_min, 'log_day');
} elsif ($var eq 'topic') {
$arg =~ s/^~\//$homedir\//;
&down("[ERROR] topic in [log]\n") if $arg =~ /\/$/ || !$arg;
$log_topic = $arg;
}
|
