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;
|