| 39 | @ver = $history =~ /ver\.?(\d+\.\d*)/g;
|
| @ver_list = $history =~ /ver\.?(\d+\.\d*)/g;
|
| 40 | foreach $version (@ver) {
|
| foreach $version (@ver_list) {
|
| 136 | @tmp = split(/;/,$line);
|
| @tmp_list = split(/;/,$line);
|
| 137 | $com = pop(@tmp);
|
| $com = pop(@tmp_list);
|
| 139 | $line = join(';',@tmp);
|
| $line = join(';',@tmp_list);
|
| 316 | @history = split("\n",$history);
|
| @history_list = split("\n",$history);
|
| 318 | foreach (@history) {
|
| foreach (@history_list) {
|
| 321 | $history[$i-1] .= $_;
|
| $history_list[$i-1] .= $_;
|
| 322 | $history[$i] = '';
|
| $history_list[$i] = '';
|
| 326 | @history = reverse @history;
|
| @history_list = reverse @history_list;
|
| 328 | foreach (@history) {
|
| foreach (@history_list) {
|
| 357 | @tmp = split(/;/,$line);
|
| @tmp_list = split(/;/,$line);
|
| 358 | my $com = pop(@tmp);
|
| my $com = pop(@tmp_list);
|
| 447 | $init_line = '@category = (' . join(',',@cat) . ");\n";
|
| $init_line = '@category_list = (' . join(',',@cat) . ");\n";
|
| 491 | @tmp = split(/;/,$init_line);
|
| @tmp_list = split(/;/,$init_line);
|
| 492 | $com = pop(@tmp);
|
| $com = pop(@tmp_list);
|
| 510 | @tmp = split(/;/,$init_line);
|
| @tmp_list = split(/;/,$init_line);
|
| 511 | $com = pop(@tmp);
|
| $com = pop(@tmp_list);
|
| 654 | foreach (@category) {
|
| foreach (@category_list) {
|
| 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));
|
| 868 | @memo = <IN>;
|
| @memo_list = <IN>;
|
| 871 | @memo = '';
|
| @memo_list = '';
|
| 874 | foreach (@memo) {
|
| foreach (@memo_list) {
|
| 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>);
|
| 926 | foreach (@category) {
|
| foreach (@category_list) {
|
| 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);
|
| 1070 | @cont = <FILE>;
|
| @cont_list = <FILE>;
|
| 1073 | foreach (@cont) { $cont .= $_; }
|
| foreach (@cont_list) { $cont .= $_; }
|
| 1102 | @cont = split(/\n/,$cont);
|
| @cont_list = split(/\n/,$cont);
|
| 1103 | foreach (@cont) {
|
| foreach (@cont_list) {
|
| 1290 | foreach(@category) {
|
| foreach(@category_list) {
|
| 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);
|
| 1383 | @memo = <IN>;
|
| @memo_list = <IN>;
|
| 1387 | foreach (@memo) {
|
| foreach (@memo_list) {
|
| 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);
|
| 1554 | my @str = ('a' .. 'f', 0 .. 9);
|
| my @str_list = ('a' .. 'f', 0 .. 9);
|
| 1557 | $salt .= $str[int(rand(@str))];
|
| $salt .= $str_list[int(rand(@str_list))];
|
| 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["$_"]);
|
| 1676 | local(@cook) = @_;
|
| local(@cook_list) = @_;
|
| 1677 | local($gmt, $cook, @t, @m, @w);
|
| local($gmt, $cook, @t, @m, @w_list);
|
| 1681 | @m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
|
| @m_list = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
|
| 1682 | @w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
|
| @w_list = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
|
| 1686 | $w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);
|
| $w_list[$t[6]], $t[3], $m_list[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);
|
| 1689 | foreach (@cook) {
|
| foreach (@cook_list) {
|
| 1711 | $cook[$key] = $val;
|
| $cook_list[$key] = $val;
|
| 1715 | foreach ( split(/<>/, $cook['CALENDAR']) ) {
|
| foreach ( split(/<>/, $cook_list['CALENDAR']) ) {
|
| 1720 | return (@cook);
|
| return (@cook_list);
|
| 2060 | my @tmp = split(/[\/\\]/,$fname);
|
| my @tmp_list = split(/[\/\\]/,$fname);
|
| 2061 | my $name = pop @tmp;
|
| my $name = pop @tmp_list;
|
