▼変更対象の変数
264行目 if ($file ne '.' && $file ne '..' && $ex eq 'dat' && (stat $path)[7] > 0 && $dt =~ /^[0-9]
${8}/) {
464行目 $add_comment .= qq($in["cat$count"]の色) . '#' . qq(
${base_color}は暗すぎて文字の抜けが悪い恐れがあります。できればもっと明るい色にしてください。\n);
675行目 # my @config_value = @{ $ref_config_value };
717行目 $frm =~ s/;([^;]*
$)//;
724行目 $chg_com .= qq(
${frm} → ) . '$' . $cfg . " = " . $value . qq(\n);
738行目 # open(CFG,">$config_file") || &error("
${config_file}が開けません。");
1180行目 # print qq(</select>年
${bef_mon}月から);
1181行目 print qq(<input type="text" name="start_year" value="$start_year" size="4" style="ime-mode:disabled;">年
${bef_mon}月から);
1186行目 print qq(<input type="text" name="end_year" value="$end_year" size="4" style="ime-mode:disabled;">年
${after_mon}月まで);
1261行目 + ($mm == 2 && (($yy
% 4 == 0 && $yy
% 100 != 0) ||
1262行目 $yy
% 400 == 0));
1289行目 print qq(<div style="margin:0.4em;">\nカテゴリー:<span style="font-size:100
%;color:$memo_col;">■</span>なし);
1291行目 print qq( <span style="font-size:100
%;color:$cat_col["$_"];">■</span>$_);
1329行目 + ($mm == 2 && (($yy
% 4 == 0 && $yy
% 100 != 0) ||
1330行目 $yy
% 400 == 0));
1361行目 if ($week > 0 && $week
% 7 == 0) {
1380行目 $data_file = join('/',$data_dir, "
${date}.cgi");
1406行目 $show_new = qq(<span style="color:red;font-size:90
%;">up!</span> );
1408行目 $show_new = qq(<span style="color:red;font-size:90
%;">new!</span> );
1456行目 <td valign="top"><a href="$url" style="text-decoration:none;"><span style="font-size:120
%;color:$catcol;">■</span></a></td><td>|;
1759行目 font-size:90
%;
1775行目 font-size:110
%;
1782行目 font-size:110
%;
1879行目 int ($year + int ($year/4) - int ($year/100) + int ($year/400) + int ((13*$month+8)/5) + $day)
% 7;
2058行目 $imgfile = join('/', $attach_dir, "
${no}$tail");