| 321 | $history[$i-1] .= $_;
|
| $history_list[$i-1] .= $_;
|
| 322 | $history[$i] = '';
|
| $history_list[$i] = '';
|
| 500 | while ($init[$ex_line] =~ /^#+/) {
|
| while ($init_list[$ex_line] =~ /^#+/) {
|
| 501 | $memo = $init[$ex_line];
|
| $memo = $init_list[$ex_line];
|
| 683 | $val["$name"] = $value;
|
| $val_list["$name"] = $value;
|
| 703 | if ($cfg && exists $val["$cfg"] && $line =~ /^\s*\$$cfg\s*=\s*/) {
|
| if ($cfg && exists $val_list["$cfg"] && $line =~ /^\s*\$$cfg\s*=\s*/) {
|
| 705 | if ($val["$cfg"] =~ /^\d+$/) {
|
| if ($val_list["$cfg"] =~ /^\d+$/) {
|
| 706 | $value = $val["$cfg"];
|
| $value = $val_list["$cfg"];
|
| 708 | $val = $val["$cfg"];
|
| $val = $val_list["$cfg"];
|
| 723 | if ($oval ne $val["$cfg"]) {
|
| if ($oval ne $val_list["$cfg"]) {
|
| 728 | push($config_value,qq($cfg<>) . $val["$cfg"] . qq(\n));
|
| push($config_value,qq($cfg<>) . $val_list["$cfg"] . qq(\n));
|
| 905 | my %param = ('type'=>'month','year'=>$yy,'month'=>$mm,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
| my %param_hash = ('type'=>'month','year'=>$yy,'month'=>$mm,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
| 906 | print qq(<a href="$script) . &url_param(%param) . qq(">$yyﾇｯ$mmｷ?</a>$ddﾆ?($week_com) $holiday ､ﾎ･?･? );
|
| print qq(<a href="$script) . &url_param(%param_hash) . qq(">$yyﾇｯ$mmｷ?</a>$ddﾆ?($week_com) $holiday ､ﾎ･?･? );
|
| 907 | $param['type'] = $in['type'];
|
| $param_list['type'] = $in['type'];
|
| 908 | $param['year'] = $in['year'];
|
| $param_list['year'] = $in['year'];
|
| 909 | $param['month'] = $in['month'];
|
| $param_list['month'] = $in['month'];
|
| 910 | print qq( <a href="$script) . &url_param(%param) . qq(">ﾍｽﾄ?ﾉｽ､ﾋﾌ?､?</a>);
|
| print qq( <a href="$script) . &url_param(%param_hash) . qq(">ﾍｽﾄ?ﾉｽ､ﾋﾌ?､?</a>);
|
| 992 | $file["$link"] = $file;
|
| $file_list["$link"] = $file;
|
| 1005 | if ($w && $h) { $wh["$link"] = qq(width="$w" height="$h"); }
|
| if ($w && $h) { $wh_list["$link"] = qq(width="$w" height="$h"); }
|
| 1006 | else { $wh["$link"] = ""; }
|
| else { $wh_list["$link"] = ""; }
|
| 1013 | my $decode_name = &url_decode($file["$key"]);
|
| my $decode_name = &url_decode($file_list["$key"]);
|
| 1014 | if ($wh["$key"]) {
|
| if ($wh_list["$key"]) {
|
| 1015 | print qq(<div style="margin:0.5em"><a href="$tmp"><img src="$tmp" $wh["$key"] border="0" alt="decode_name" title="$decode_name\n$fsize["$key"]"></a> <a href="$script?mode=del_file&date=$in['date']&file=$file["$key"]">ｺ?ｽ?</a></div>);
|
| print qq(<div style="margin:0.5em"><a href="$tmp"><img src="$tmp" $wh_list["$key"] border="0" alt="decode_name" title="$decode_name\n$fsize["$key"]"></a> <a href="$script?mode=del_file&date=$in['date']&file=$file_list["$key"]">ｺ?ｽ?</a></div>);
|
| 1017 | print qq(<div style="margin:0.5em"><a href="$tmp" title="$decode_name\n$fsize["$key"]"><img src="./clip.gif" border="0" alt="$decode_name">$decode_name</a> <a href="$script?mode=del_file&date=$in['date']&file=$file["$key"]">ｺ?ｽ?</a></div>);
|
| print qq(<div style="margin:0.5em"><a href="$tmp" title="$decode_name\n$fsize["$key"]"><img src="./clip.gif" border="0" alt="$decode_name">$decode_name</a> <a href="$script?mode=del_file&date=$in['date']&file=$file_list["$key"]">ｺ?ｽ?</a></div>);
|
| 1055 | my %param = ('before_year'=>$in['before_year'],'show_year'=>$in['show_year'],'type'=>$in['type'],'year'=>$in['year'],'month'=>$in['month']);
|
| my %param_hash = ('before_year'=>$in['before_year'],'show_year'=>$in['show_year'],'type'=>$in['type'],'year'=>$in['year'],'month'=>$in['month']);
|
| 1056 | print qq(<a href="$script) . &url_param(%param) . qq(">ﾍｽﾄ?ﾉｽ､ﾋﾌ?､?</a>\n);
|
| print qq(<a href="$script) . &url_param(%param_hash) . qq(">ﾍｽﾄ?ﾉｽ､ﾋﾌ?､?</a>\n);
|
| 1333 | my %param = ('type'=>'month','year'=>$yy,'month'=>$mm,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
| my %param_hash = ('type'=>'month','year'=>$yy,'month'=>$mm,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
| 1334 | my $url = $script . &url_param(%param);
|
| my $url = $script . &url_param(%param_hash);
|
| 1446 | my %param = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
| my %param_hash = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
| 1447 | $url = $script . &url_param(%param);
|
| $url = $script . &url_param(%param_hash);
|
| 1449 | $param['type'] = $in['type'];
|
| $param_list['type'] = $in['type'];
|
| 1450 | $param['year'] = $in['year'];
|
| $param_list['year'] = $in['year'];
|
| 1451 | $param['month'] = $in['month'];
|
| $param_list['month'] = $in['month'];
|
| 1452 | $url = $script . &url_param(%param);
|
| $url = $script . &url_param(%param_hash);
|
| 1482 | my %param = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
| my %param_hash = ('mode'=>'write','date'=>$date,'before_year'=>$in['before_year'],'show_year'=>$in['show_year']);
|
| 1483 | my $url = $script . &url_param(%param);
|
| my $url = $script . &url_param(%param_hash);
|
| 1485 | $param['type'] = $in['type'];
|
| $param_list['type'] = $in['type'];
|
| 1486 | $param['year'] = $in['year'];
|
| $param_list['year'] = $in['year'];
|
| 1487 | $param['month'] = $in['month'];
|
| $param_list['month'] = $in['month'];
|
| 1488 | $url = $script . &url_param(%param);
|
| $url = $script . &url_param(%param_hash);
|
| 1655 | my %param = $_;
|
| my %param_hash = $_;
|
| 1658 | foreach (sort keys %param) {
|
| foreach (sort keys %param_hash) {
|
| 1659 | if ($param["$_"]) {
|
| if ($param_list["$_"]) {
|
| 1661 | $url .= "?" . $_ . qq(=$param["$_"]);
|
| $url .= "?" . $_ . qq(=$param_list["$_"]);
|
| 1664 | $url .= "&" . $_ . qq(=$param["$_"]);
|
| $url .= "&" . $_ . qq(=$param_list["$_"]);
|
| 1711 | $cook[$key] = $val;
|
| $cook_list[$key] = $val;
|
| 1715 | foreach ( split(/<>/, $cook['CALENDAR']) ) {
|
| foreach ( split(/<>/, $cook_list['CALENDAR']) ) {
|
