▼変更対象の変数
9行目 #(I!C%9%1%8%(B?(I!<%(B?(I$(B?(I%+%F%4%(B?(I!<J,$1$7!"?'J,$1I=<($9$(B?(I$3$H
$,$G$-$^$9!#(B
10行目 #(I!C%(B?(I!<%+%(B?(I4D6-$GF0$+$9>(B?(I9(B?(I!"A(B?(I9(B?(I>(B?(IJ(B?(I4IM(B?(I%D!<%(B?Agenda(I$H%G!<%?$(B?(I6M-$9$(B?((I)(B?$3$H
$,$G$-$^$9!#(B
15行目 #(I("(B (I$$$+$J$(B?(IB;32$KBP$7$F:(B?(I<T$O0(B?(I@Z$N@UG$$(B?(II(B?(I$$$^
$;$(B?(I!#(B
18行目 # ver.1.01 2007.12.11 (I2(B?(I5(B?(I$N%(B?(I%(B?(I
$,$&$^$/I=<($5$(B?(I$J$$%P%0$(B?(I=$@5(B
20行目 # ver.1.03 2008.10.14 (I@_D(B?(I2(B?(ILL$N%G%U
%)%(B?(I%HI=<(G/?(B?(I
$,%/%C%-!<$N1F6A$(B?(I<(B?(I$1$F$7$^$&$N$(B?(I=$@5(B
21行目 # ver.1.04 2010.02.25 Agenda(I$N%U%!%$%(B?(I
$,$&$^$/FI$_9(B?(I$(B?(I$J$$>(B?(I9(B?(I
$,$"$(B?(I$N$(B?(I=$@5(B
22行目 # ver.1.05 2010.02.26 (I%+%(B?(I%(B?(I%@!<$N%U
%)%(B?(I%H!"
%;%(B?(I$N%5%$%:$NH(B?(ID4@0%\%?%(B?(I$(B?(IDI2C$7!"%/%C%-!<$KJ]B8$9$(B?(I$(B?(I$&$K$7$^$7$?!#(B
24行目 # ver.1.051 2010.03.08 3(I$+7(B?(II=<(%(B?(I!<%I$G:#7(B?(I$NGX7J?'
$,I=<($5$(B?(I$F$$$J$+$C$?$N$(B?(I=$@5$7$^$7$?!#(B
26行目 # ver.1.061 2010.03.15 (I%(B?(I%(B?(I$K(B"((I%@%V%(B?(I%/
%)!<%H(B)(I
$,4^$^$(B?(I$F$$$(B?(I$HI=<(
$,J(B?(I$(B?(I$(B?(I%P%0$(B?(I=$@5$7$^$7$?!#(B
27行目 # ver.1.07 2010.03.30 (I%U%!%$%(B?(I$(B?(I%*%(B?(I%8%J%(B?(IL>$N$^$^%"%C%W%(B?(I!<%I$G$-$(B?(I$(B?(I$&$K$7$^$7$?
$,!"F(B?(IK\8(B?(I$N>(B?(I9(B?(I$O(BURL(I%(%(B?(I%3!<%I2=$7$^$9!#(B
30行目 # ver.1.091 2012.04.17 (II=<(G/$(B?(I@>N(B?(I$G;XD(B?(I$9$(B?(I$(B?(I$&$KJQ99$7$^$7$?!#@(B?(I7(B?(I$N%+%(B?(I%(B?(I%@!<
$,:8C<$K$/$(B?(I$(B?(I$&$KG[CV$7$F$$$^$7$?
$,!"(B
31行目 # (I8=:_
$,2?7(B?(I$+$K$+$+$(B?(I$(B?(I$:!"(B1(I7(B?(I$(B?(I:8C<$KG[CV$G$-$(B?(I$(B?(I$&$K$7$^$7$?!#(B((I4IM(B?(I<T@_D(B?(I2(B?(ILL$G(B\$january_top (I$(B?1(I$K$9$(B?)
34行目 # ver.1.093 2012.05.17 (I@(B?(IF,$(B?1(I7(B?(I$K$9$(B?(I@_D(B?(I$K$7$?>(B?(I9(B?(I!";XD(B?(I$7$?HO0O$NG/7(B?(I
$,$&$^$/I=<($5$(B?(I$J$$%P%0$(B?(I=$@5$7$^$7$?!#(B
35行目 # ver.1.094 2013.03.08 (I%+%(B?(I%(B?(I%@!<$N%5%$%:D4@0
$,$&$^$/$$$+$J$$%P%0$(B?(I=$@5$7$^$7$?!#@_D(B?(IJT=8;(B?(I$N%(B?(I%@%$%(B?(I%/%H$(B?(IGQ;_$7$^$7$?!#(B
46行目 require './lib/holiday.pl'; # kent-web(I$G8(B?(I3+$5$(B?(I$F$$$(B?holiday.pl(I$(B?(I;HMQ$5
$;$F$(B?(I$(B?(I$C$F$$$^$9!#(B
50行目 # (I0E9(B?(I2=J(B?(IK!
$,L$D(B?(I$N>(B?(I9(B?(I$N$_%9%/%(B?(I%W%H%U%!%$%(B?(I$(B?(I=(B?(I$-49$((B
52行目 # MD5(I%(B?(I%8%(B?(I!<%(B?(I
$,%$%(B?(I%9%H!<%(B?(I$5$(B?(I$F$$$(B?(I$+$I$&$+D4$Y$(B?
62行目 open(INT,'./init.cgi') || error("init.cgi(I
$,3+$1$^
$;$(B?(I!#(B");
122行目 # (I%Q%9%(B?(I!<%I
$,@_D(B?(I$5$(B?(I$F$$$J$1$(B?(I$P=(B?(I4(B?(I@_D(B?
126行目 # init.cgi(I$N%P%C%/%"%C%W
$,B8:_$9$(B?(I$P(B
168行目 if ($in['year'] eq '(I%(B?(I
%;%C%H(B') {
227行目 # (I8!:(B?(I%\%?%(B?(I$(B?(I2!$7$F!"%-!<%(B?(I!<%I
$,(BTrue(I$N>(B?(I9(B?
248行目 print qq(<span style="font-weight:bold;">$agenda_dir</span>(I
$,3+$1$^
$;$(B?(I!#%Q%9$(B?(I3NG'$7$F$/$@$5$$!#(B<br>\n);
250行目 print qq(Agenda(I$N(BData(I%U
%)%(B?(I%@
$,;XD(B?(I$5$(B?(I$F$$$^
$;$(B?(I!#(B<br>\n);
258行目 opendir(AGD,$agenda_dir) || error($agenda_dir . "(I
$,3+$1$^
$;$(B?(I!#(B");
264行目 if ($file ne '.' && $file ne '..' && $ex eq 'dat' && (stat $path)[7] > 0 && $dt =~ /^[0-9]
${8}/) {
271行目 if (!-e $data_dir) { mkdir $data_dir; } # $data_dir(I
$,$J$1$(B?(I$P:(B?(I$C$F$*$/!#(B
282行目 open(DAT,"$ag_data") || error("$ag_data(I
$,3+$1$^
$;$(B?(I!#(B");
286行目 open(NEW,">$cal_data") || error("$cal_data(I
$,:(B?(I@.$G$-$^
$;$(B?(I!#(B");
289行目 open(OLD,"$cal_data") || error("$cal_data(I
$,3+$1$^
$;$(B?(I!#(B1");
297行目 open(NEW,">$cal_data") || error("$cal_data(I
$,3+$1$^
$;$(B?(I!#(B2");
341行目 # $in['pass'](I
$,(BTrue(I$J$(B?init.cgi(I$K4IM(B?(I<TMQ%Q%9%(B?(I!<%I$(B?(I=(B?(I$-9(B?(I$(B?
347行目 open(INIT,"./init.cgi") || error("./init.cgi(I
$,3+$1$^
$;$(B?(I!#(B");
366行目 open(INIT,">./init_bck.cgi") || error("./init_bck.cgi(I
$,3+$1$^
$;$(B?(I!#(B");
369行目 unlink 'init.bck' if -e 'init.bck'; # (I0JA0$N%P%C%/%"%C%W
$,;D$C$F$$$?$(B?(I:(B?(I=(B?
372行目 open(INIT,">./init.cgi") || error("./init.cgi(I
$,3+$1$^
$;$(B?(I!#(B");
414行目 error("(I%Q%9%(B?(I!<%I
$,0(B?(I$$$^$9(B");
426行目 open(INIT,"./init.cgi") || error("./init.cgi(I
$,3+$1$^
$;$(B?(I!#(B");
440行目 if ($init_line =~ /^\s*\@category\s*=\s*/) { # (I@55,I=8=
$,%$%^%$%A$(B?(I$+$(B?(I$J$$(B(^^;;
464行目 $add_comment .= qq($in["cat$count"](I$N?'(B) . '(I!(B?' . qq(
${base_color}(I$O0E$9$.$FJ8;(B?(I$NH4$1
$,0-$$62$(B?(I
$,$"$(B?(I$^$9!#$G$-$(B?(I$P$(B?(I$C$HL@$(B?(I$$?'$K$7$F$/$@$5$$!#(B\n);
524行目 unlink 'init.bck' if -e 'init.bck'; # (I0JA0$N%P%C%/%"%C%W
$,;D$C$F$$$?$(B?(I:(B?(I=(B?
526行目 open(NEW,">./init.cgi") || error("./init.cgi(I
$,3+$1$^
$;$(B?(I!#(B");
546行目 $com .= qq(\n(I4IM(B?(I<T$N$_JT=82D$G$J$$$H!"%?%0$(B?(IM-8(B?(I$K$G$-$^
$;$(B?(I!#(B);
563行目 print qq(<div style="line-height:1.5em;color:red;margin-bottom:0.5em">9(IJ8;(B?(I0J>(B?(I$N%Q%9%(B?(I!<%I$(B?(I;HMQ$5$(B?(I$F$$$^$9
$,!"8=:_(B8(IJ8;(B?(IL\$^$G$7$+M-8(B?(I$K$J$C$F$$$^
$;$(B?(I!#(B<br>9(IJ8;(B?(IL\0J9_$(B?(IM-8(B?(I$K$9$(B?(I$K$O!"$*<(B?(I?(B?(I$G$9
$,!V4IM(B?(I<T%Q%9%(B?(I!<%I$(B?(IJQ99!W%\%?%(B?(I$(B?(I2!$7$F:FEYEPO?$7$F$/$@$5$$!#(B</div>\n);
675行目 # my @config_value = @{ $ref_config_value };
717行目 $frm =~ s/;([^;]*
$)//;
724行目 $chg_com .= qq(
${frm} (I"*(B ) . '$' . $cfg . " = " . $value . qq(\n);
734行目 open(NEW,">init.cgi") || error("init.cgi(I
$,3+$1$^
$;$(B?(I!#(B");
738行目 # open(CFG,">$config_file") || error("
${config_file}(I
$,3+$1$^
$;$(B?(I!#(B");
756行目 error("(I%Q%9%(B?(I!<%I
$,0(B?(I$$$^$9(B");
769行目 error("$del_file(I$(B?(I:(B?(I=(B?(I$G$-$^
$;$(B?(I$G$7$?!#(B");
807行目 <input type="submit" value="(I:(B?(I=(B?(I$9$(B?"> <input type="submit" value="(I%-%(B?(I%(B?(I
%;%(B?" onclick="history.back(); return false;">
824行目 error("(I%Q%9%(B?(I!<%I
$,0(B?(I$$$^$9(B");
836行目 # (I%(B?(I%(B?(I$NF(B?(IMF
$,$J$$$N$K!"%U%!%$%(B?(I$@$1$"$(B?(I>(B?(I9(B?((I%(B?(I%(B?(I$(B?(I:(B?(I=(B?(I$7$?>(B?(I9(B?(I$J$I(B)(I$O%U%!%$%(B?(I$(B?(I:(B?(I=(B?
847行目 open(NEW,">$agen_file") || error("$agen_file(I
$,3+$1$^
$;$(B?(I!#(B");
888行目 # (I%U
%)!<%(B?(I$(B?(II=<($9$(B?
958行目 print qq(<input type="submit" value="(IA(B?(I?.$9$(B?"><input type="reset" value="(I%(B?(I
%;%C%H(B">\n);
1123行目 print qq(<div>(I3:E(B?(I9(B?(IL\$O$"$(B?(I$^
$;$(B?</div>\n);
1133行目 # (I8!:(B?(I%U
%)!<%(B?(I$(B?(II=<((B
1152行目 print qq(<input type="submit" value="(I8!:(B?(I$9$(B?"><input type="reset" value="(I%(B?(I
%;%C%H(B">\n);
1180行目 # print qq(</select>(IG/(B
${bef_mon}(I7(B?(I$+$(B?);
1181行目 print qq(<input type="text" name="start_year" value="$start_year" size="4" style="ime-mode:disabled;">(IG/(B
${bef_mon}(I7(B?(I$+$(B?);
1186行目 print qq(<input type="text" name="end_year" value="$end_year" size="4" style="ime-mode:disabled;">(IG/(B
${after_mon}(I7(B?(I$^$G(B);
1187行目 print qq(<input type="submit" value="(IA(B?(I?.$9$(B?"><input type="submit" name="year" value="(I%(B?(I
%;%C%H(B">\n);
1261行目 + ($mm == 2 && (($yy
% 4 == 0 && $yy
% 100 != 0) ||
1262行目 $yy
% 400 == 0));
1289行目 print qq(<div style="margin:0.4em;">\n(I%+%F%4%(B?(I!<!'(B<span style="font-size:100
%;color:$memo_col;">(I"#(B</span>(I$J$7(B);
1291行目 print qq( <span style="font-size:100
%;color:" . $cat_col["$_"] . ";">(I"#(B</span>$_);
1317行目 print qq(<tr><td><span style="font-size:80%">(I%U
%)%(B?(I%H%5%$%:(B</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;">(I"#(B</span></a></td><td>|;
1627行目 # (I%U
%)!<%(B?(I%G%3!<%I(B
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;
2031行目 else { error("(I%"%C%W%(B?(I!<%I$G$-$^
$;$(B?"); }
2058行目 $imgfile = join('/', $attach_dir, "
${no}$tail");
2065行目 # (I3HD
%;RA0$N(B.(I$(B?URL(I%(%(B?(I%3!<%I$5$(B?(I$F$7$^$&$N$G!"(B.(I$(B?(I$(B?(IA0$@$1$(B?URL(I%(%(B?(I%3!<%I$7$?$"$H3HD
%;R$(B?(I$D$1$(B?(I!#(B
