\n";
} else {
&inputform($now) unless ($adminonly_en and $admin_reglinks == 0);
print "$body_insert3\n" if ($body_insert3_en == 1);
&updateinfo;
print "$body_insert4\n" if ($body_insert4_en == 1);
&misclink($now);
print "$body_insert5\n" if ($body_insert5_en == 1);
}
($caldata, $calname, $caldate, $calid, $pastyear, $calbg, $calfg) = &getevdata;
my @pastarray;
# if ($in{mode} ne 'past'){
@pastarray = sort {$a <=> $b} @{$pastyear};
if ($#pastarray != -1){
foreach ($pastarray[0] .. $year+1900){
print "$_年 ";
}
}
# }
if ($in{mode} eq 'past'){
print "
\n";
foreach (1 .. 12){
if ($past_length){
print "$_月 \n";
} else {
print "$_月 \n";
}
}
}
print "$body_insert6\n" if ($body_insert6_en == 1 && $in{mode} ne 'past');
print "
| 日付 | \n"; print "内容 | \n"; print "更新者 | \n"; print "更新日 | \n"; print "||
|---|---|---|---|---|---|
| "; if ($in{mode} eq 'past'){ print "$mon月$day日 | \n"; } else { if ($adminonly_en and $admin_reglinks == 0){ print "$weekday[$wday]"; print " | \n"; my $day_bgcolor; my $j; for ($j=0;$j<=$#comment;$j++){ chomp($comment[$j]); next if ($comment[$j] eq ''); if ($id[$j] eq 'anniv') { if ($day_bgcolor[$j] ne 'default') { $day_bgcolor = "$day_bgcolor[$j]"; } else { $day_bgcolor = "$col_bgcolor"; } } else { if ($day_bgcolor[$j] ne '' and $day_bgcolor_en){ $day_bgcolor = "$day_bgcolor[$j]"; } else { $day_bgcolor = "$col_bgcolor"; } } if ($day_fgcolor[$j] eq 'default'){ $day_fgcolor[$j]='black'; } print ""; if ($comment[$j] ne ' ' && $in{mode} ne 'past') { $comment[$j] =~ s/ / /g; if ($update_link == 0){ if ($id[$j] eq 'anniv'){ print "$comment[$j]"; } else { if ($adminonly_en and $admin_reglinks == 0){ $comment[$j] = &link_replace($comment[$j]); print "$comment[$j]"; } else { print "$comment[$j]"; } } } else { if ($id[$j] eq 'anniv'){ print "$comment[$j]"; } else { $comment[$j] = &link_replace($comment[$j]); print "$comment[$j]"; } } } else { if ($id[$j] eq 'anniv'){ print "$comment[$j]"; } else { $comment[$j] = &link_replace($comment[$j]); print "$comment[$j]"; } } print " | \n"; print ""; if ($update_link == 0){ if ($id[$j] eq 'anniv' or $name[$j] eq ' '){ print " \n"; } else { print "$name[$j]\n"; } } else { if ($id[$j] eq 'anniv' or $name[$j] eq ' '){ print " \n"; } else { if ($adminonly_en and $admin_reglinks == 0){ print "$name[$j]\n"; } else { print "$name[$j]"; } } } print " | \n"; my $updatedate; $updatedate = &calupdate($update[$j]); if ($id[$j] eq 'anniv'){ print "\n"; } else { print " | $updatedate | \n"; } print "
【イベントカレンダーへ】
\n" if ($in{mode} eq 'past');
&usage unless ($in{mode} eq 'past');
print "
$body_insert7\n" if ($body_insert7_en == 1);
&htmltail;
}
sub evmobile {
&htmlhead($title{display}{text});
print "$mob_backlink_name
\n"; print "$title{display}{text}
"; print "今日へジャンプ
\n"; &inputform($now) unless ($adminonly_en and $admin_reglinks == 0); &updateinfo; if ($adminonly_en and $admin_reglinks == 0){ print "管理用
\n"; } my ($caldata, $calname, $caldate, $calid, $pastyear, $calbg, $calfg) = &getevdata; print "
- \n";
my @pastarray;
my @comment;
my @name;
my @update;
my @id;
my @day_bgcolor;
my @day_fgcolor;
my @week_number;
my $i;
my ($tsec,$tmin,$thour,$tday,$tmon,$tyear,$twday,$tyday,$tisdst)=gmtime($now);
for ($i=$start_day;$i<=$end_day;$i+=86400) {
my $col_bgcolor;
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=gmtime($i);
if ((gmtime($i - 604800))[4] != $mon) { # 7 * 86400 = 604800 last week
$week_number[$wday] = 1;
} else {
$week_number[$wday]++;
}
$mon++;
$year += 1900;
if ($year == $tyear+1900 && $mon == $tmon+1 && $day == $tday){
print "\n";
}
if ($wday == 0){
print "
- $mon月$day日（$weekday[$wday]）";
} elsif ($wday == 6) {
print "
- $mon月$day日（$weekday[$wday]）"; } else { print "
- $mon月$day日（$weekday[$wday]）"; } my @weekname = qw(sun mon tue wed thu fri sat); my $dai_day = "dai-$week_number[$wday]-$weekname[$wday]"; my ($comment_ref, $name_ref, $update_ref, $id_ref, $day_bgcolor_ref, $day_fgcolor_ref) = &get_each_data($caldata, $calname, $caldate, $calid, $pastyear, $calbg, $calfg, $year, $mon, $day, $dai_day, $weekname[$wday]); @comment = @$comment_ref; @name = @$name_ref; @update = @$update_ref; @id = @$id_ref; @day_bgcolor = @$day_bgcolor_ref; @day_fgcolor = @$day_fgcolor_ref; my $rowspan = $#comment+1; my $day_bgcolor; my $j; for ($j=0;$j<=$#comment;$j++){ chomp($comment[$j]); next if ($comment[$j] eq ''); if ($id[$j] eq 'anniv') { if ($day_bgcolor[$j] ne 'default') { $day_bgcolor = "$day_bgcolor[$j]"; } else { $day_bgcolor = "$col_bgcolor"; } } else { if ($day_bgcolor[$j] ne '' and $day_bgcolor_en){ $day_bgcolor = "$day_bgcolor[$j]"; } else { $day_bgcolor = "$col_bgcolor"; } } if ($day_fgcolor[$j] eq 'default'){ $day_fgcolor[$j]='black'; } if ($comment[$j] ne ' ') { print "
- $mon月$day日（$weekday[$wday]）"; } else { print "
- ";
if ($update_link == 0){
if ($id[$j] eq 'anniv'){
print "$comment[$j]";
} else {
if ($adminonly_en and $admin_reglinks == 0){
print "$comment[$j]";
} else {
print "$comment[$j]";
}
print "（$name[$j]）";
}
} else {
if ($id[$j] eq 'anniv'){
print "$comment[$j]";
} else {
$comment[$j] = &link_replace($comment[$j]);
print "$comment[$j]";
if ($adminonly_en and $admin_reglinks == 0){
print "（$name[$j]）";
} else {
print "（$name[$j]）";
}
}
}
print "
\n"; } else { if ($id[$j] eq 'anniv'){ print "$comment[$j]"; } else { print "
\n"; } } } } print "
- \n";
foreach my $repday (0 .. $ssi_evdisp-1){
my $exists = 0;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime($now + 86400 * $repday);
$year += 1900;
$mon++;
if ($ssi_evdate_en){
print "
/i){ print "
/i){ print "
"; $in{$key} =~ s//>/g; $in{$key} =~ s/\r\n/$br/g; $in{$key} =~ s/\n/$br/g; $in{$key} =~ s/\r/$br/g; $in{$key} =~ s/,/&\#44;/g; } } sub htmlhead { my $title = shift; if ($in{mobile} eq 'on' or $in{mode} eq 'mobile'){ print "Content-type:text/html;charset=Shift_JIS\n\n"; print "\n"; print "\n"; print "
| \n";
}
}
sub htmltail {
my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];
if ($in{mobile} eq 'on' or $in{mode} =~ /mobile/){
print " evcal.cgi Ver. $version\n"; print "Copyright(C) 1997-$lastupdatedyear, hidekik.com\n"; print "\n"; } else { print " evcal.cgi Ver. $version \n";
print "Copyright(C) 1997-$lastupdatedyear, hidekik.com \n";
print " |
管理人用イベント登録・変更
\n";
&inputform($now);
&editbutton;
}
} else {
print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; } &htmltail; exit; } sub wradminpwd { my $passwd = &makecrypt($in{pwd}); my $file; if ($in{mode} eq 'grwradminpwd'){ $file = $groupdat; } else { $file = $admindat; } if (open(FILE,"> $file")){ print FILE "$passwd"; close(FILE); } else { &error('パスワードファイル作成に失敗しました'); } print "Location: $script\n\n"; } sub checkadmin { my $pwd = shift; if (open(FILE,"< $admindat")){ my $filepwd =
$title->{text}
"; } elsif ($title->{sel} == 2){ $titleline = "
"; } elsif ($title->{sel} == 3){ $titleline = "
"; } elsif ($title->{sel} == 4){ $titleline = ""; } return($titleline); } sub register { my $subname = 'register'; if ($ENV{"REQUEST_METHOD"} eq "POST"){ my ($ssec,$smin,$shour,$sday,$smon,$syear,$swday,$syday,$sisdst)=gmtime($start_day); if ($in{year} eq ''){ if ($smon > $in{month}-1) { $in{year} = $syear + 1901; } else { $in{year} = $syear + 1900; } } &monthdaycheck($in{year},$in{month}-1,$in{day}); my $regtime = timegm(0,0,0,$in{day},$in{month}-1,$in{year}); &error('選択範囲が登録可能範囲（カレンダーの表示範囲）を超えています。') if ($regtime > $end_day || $regtime < $start_day); ($ssec,$smin,$shour,$sday,$smon,$syear,$swday,$syday,$sisdst)=gmtime($regtime); $in{weekday} = $swday; } $title{$subname}{text} = "$in{year}年$in{month}月$in{day}日（$weekday[$in{weekday}]）$title{$subname}{text}"; my $titleprint=&titleprint($title{$subname}); my $colwidth; my $pwdname = 'password'; if ($in{mobile} eq 'on'){ print "Content-type:text/html;charset=Shift_JIS\n\n"; print "\n"; print "\n"; print "
";
$colwidth = 30;
} else {
&htmlhead($title{$subname}{text});
print "$titleprint";
$colwidth = 50;
}
print <
HTMLOUT
if ($day_bgcolor_en and $in{mobile} ne 'on'){
print "イベント日の色（オプション） \n";
}
if ($in{mobile} eq 'on'){
print "\n";
}
if ($group_en){
print < ";
$colwidth = 30;
} else {
&htmlhead($title{$subname}{text});
print "$titleprint";
$colwidth = 50;
}
my $j;
my $dataline;
my $name;
my $id;
my $bg;
for ($j=0;$j<=$#comment;$j++){
next unless ($in{id} == $id[$j]);
$dataline = $comment[$j];
$dataline =~ s/
HTMLOUT
if ($day_bgcolor_en and $in{mobile} ne 'on'){
print "イベント日の色（オプション） \n";
}
if ($in{mobile} eq 'on'){
print "\n";
}
print < \n";
}
sub inputform {
my $now = shift;
my $n;
my $nn;
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=gmtime($now);
print " \n";
}
sub usage {
if ($usage_en == 1){
print <
内容
\n";
print "
HTMLOUT2
}
print <
HTMLOUT3
&htmltail;
}
sub modify {
my $subname = 'modify';
if ($adminonly_en and $admin_reglinks == 0){
foreach my $key1 (split /&/, $in{param}){
my ($key,$elem) = split /=/, $key1;
$in{$key} = $elem;
}
}
$title{$subname}{text} = "$in{year}年$in{month}月$in{day}日（$weekday[$in{weekday}]）$title{$subname}{text}";
my $caldata;
my $calname;
my $caldate;
my $calid;
my $pastyear;
my $calbg;
($caldata, $calname, $caldate, $calid, $pastyear, $calbg) = &getevdata;
my @comment = ();
my @name = ();
my @update = ();
my @id = ();
my @bg = ();
if (exists $calname->{$in{year}}{$in{month}}{$in{day}}) {
@comment = split /
/\n/g;
$dataline =~ s/\n*$//;
$name = $name[$j];
$id = $id[$j];
$bg = $bg[$j];
last;
}
print <
内容
\n";
print "
HTMLOUT2
&htmltail;
}
sub evwrite {
&error('名前とパスワードは必ず入力してください。') if ($in{name} eq '' || $in{pwd} eq '');
if ($adminonly_en and !&checkadmin($in{pwd})) {
&error('管理人オンリーモードでの管理人パスワードが違います。');
}
if ($group_en && !&checkcrypt($in{grouppwd},$grouppwd)) {
my $message = 'グループ用パスワードが違います。';
&error($message);
}
if ($day_bgcolor_en){
&error("無効なカラーコード、$in{day_bgcolor}です。") unless &color_check($in{day_bgcolor});
}
&lockfile;
my ($id) = &getevdata(-lastid);
$id++;
my $pwd = &makecrypt($in{pwd});
my $now = time+$offset*3600;
my $day_bgcolor = $day_bgcolor_en ? $in{day_bgcolor} : '';
$day_bgcolor =~ s/^([\da-f]{6})$/\#$&/i;
open WR, ">> $datafile" or &error("データファイル$datafileが開けません。");
print WR "$id,$in{year},$in{month},$in{day},$in{name},$now,$pwd,$host,$ip,$in{comment},$day_bgcolor\n";
close WR;
&unlockfile;
chmod (0666, "$datafile");
if ($in{mobile} eq 'on'){
print "Location: $script?mode=mobile\n\n";
} else {
print "Location: $script#${in{year}}_${in{month}}_${in{day}}\n\n";
}
}
sub evreplace {
&error('名前とパスワードは必ず入力してください。') if ($in{name} eq '' || $in{pwd} eq '');
if ($day_bgcolor_en){
&error("無効なカラーコード、$in{day_bgcolor}です。") unless &color_check($in{day_bgcolor});
}
&lockfile;
my $now = time+$offset*3600;
my ($dyear,$dmonth,$dday,$dname,$dnow,$dpwd,$dhost,$dip,$dcomment,$day_bgcolor);
my $id;
open DATA, "< $datafile" or &error("データファイル$datafileが開けません。");
open WR, "> tmp.$$" or &error("テンポラリファイルが開けません。");
while (){
chomp;
($id,$dyear,$dmonth,$dday,$dname,$dnow,$dpwd,$dhost,$dip,$dcomment,$day_bgcolor) = split /,/;
chomp;
if ($id == $in{id}){
if (!checkcrypt($in{pwd}, $dpwd)){
close(WR);
&error('修正用パスワードが違います。');
}
$in{day_bgcolor} =~ s/^([\da-f]{6})$/\#$&/i;
print WR "$in{id},$in{year},$in{month},$in{day},$in{name},$now,$dpwd,$host,$ip,$in{comment},$in{day_bgcolor}\n";
} else {
print WR "$id,$dyear,$dmonth,$dday,$dname,$dnow,$dpwd,$dhost,$dip,$dcomment,$day_bgcolor\n";
}
}
close WR;
close DATA;
rename("tmp.$$","$datafile");
&unlockfile;
chmod (0666, "$datafile");
if ($in{mobile} eq 'on'){
print "Location: $script?mode=mobile\n\n";
} else {
print "Location: $script#${in{year}}_${in{month}}_${in{day}}\n\n";
}
}
sub calupdate {
my $now = shift;
return $now if ($now eq ' ');
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=gmtime($now);
$mon++;
$year += 1900;
my $update = "$mon/$day/$year";
return $update;
}
sub getevdata {
# options
# -lastid : Return the last id in the data file
# -latest : Return the latest update information in the data file
# -alldta : Retrun hash reference for all registered contents in the data file
# (default)
my @options = @_;
my %caldata;
my %calname;
my %caldate;
my %calid;
my %calbg;
my %calfg;
my $id;
my ($dyear,$dmonth,$dday,$dname,$dnow,$dpwd,$dcomment,$day_bgcolor,$day_fgcolor);
my $host;
my $ip;
my $data_day;
my $latest;
my ($lid,$lyear,$lmonth,$lday,$lname,$lnow);
my @pastyear;
if ((grep /-alldata/, @options or $#options == -1) and $anniv_en and $anniv ne '') {
my @anniv_data = split /[\r\n]/, $anniv;
foreach (@anniv_data){
chomp;
($dmonth,$dday,$day_bgcolor,$day_fgcolor,$dcomment) = split /,/;
$dday = lc($dday);
$dmonth = lc($dmonth);
$day_bgcolor ||= 'default';
$day_fgcolor ||= 'default';
$dyear = 'anniv';
if (grep /-alldata/, @options or $#options == -1) {
if (exists $caldata{$dyear}{$dmonth}{$dday}) {
next if ($dcomment eq '');
$caldata{$dyear}{$dmonth}{$dday} .= "
\n" if ($in{mode} eq 'mobile');
print "最終更新日は ";
print "$datetimeです。
\n";
my ($nsec,$nmin,$nhour,$nday,$nmon,$nyear,$nwday,$nyday,$nisdst)=gmtime($now);
my $start_table_date = timegm(0,0,0,1,$nmon,$nyear);
my $dmonth_n = $dmonth - 1 if ($dmonth != 0);
$dday = 1 if ($dday eq '');
my $last_written_date = timegm(0,0,0,$dday,$dmonth_n,$dyear);
print "イベントが更新された日は、";
if ($in{mode} eq 'mobile'){
print "$newest";
} else {
if ($last_written_date < $start_table_date){
if ($past_length) {
print "$newest";
} else {
print "$newest";
}
} else {
print "$newest";
}
}
print "です。
\n"; } sub monthdaycheck { my ($year,$month,$day) = @_; my @monthdays = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); my $md = $monthdays[$month]; ++$md unless $month != 1 or $year % 4 or !($year % 400); $month++; &error("日付が適切ではありません。$month月$day日") if $day > $md or $day < 1; } sub setup { my $subname = 'setup'; &setadminpwd if ($in{pwd} eq ''); &error('管理用パスワードが違います。') unless &checkadmin($in{pwd}); &htmlhead($title{$subname}{text}); my %check; $check{backlink}[$backlink_en] = "checked"; $check{bgimage}[$bgimage_en] = "checked"; $check{title}{display}{sel}[$title{display}{sel}] = "checked"; $check{title}{display}{loc}[$title{display}{loc}] = "checked"; $check{title}{register}{sel}[$title{register}{sel}] = "checked"; $check{title}{register}{loc}[$title{register}{loc}] = "checked"; $check{title}{modify}{sel}[$title{modify}{sel}] = "checked"; $check{title}{modify}{loc}[$title{modify}{loc}] = "checked"; $check{style_sheet}[$style_sheet_en] = "checked"; $check{head_insert}[$head_insert_en] = "checked"; $check{usage}[$usage_en] = "checked"; $check{jumplink}[$jumplink_en] = "checked"; $check{mobilelink}[$mobilelink_en] = "checked"; $check{setup}[$setup_en] = "checked"; $check{start_month}[$start_month] = "checked"; $check{disp_length}[$disp_length] = "checked"; $check{disp_length}[13] = "checked" if (!grep /checked/, @{$check{disp_length}}[1,3,6,12]); $check{past_length}[$past_length] = "checked"; $check{body_insert1}[$body_insert1_en] = "checked"; $check{body_insert2}[$body_insert2_en] = "checked"; $check{body_insert3}[$body_insert3_en] = "checked"; $check{body_insert4}[$body_insert4_en] = "checked"; $check{body_insert5}[$body_insert5_en] = "checked"; $check{body_insert6}[$body_insert6_en] = "checked"; $check{body_insert7}[$body_insert7_en] = "checked"; $check{update_link}[$update_link] = "checked"; $check{link_replace_en}[$link_replace_en] = "checked"; $check{link_replace_top_en}[$link_replace_top_en] = "checked"; $check{day_bgcolor_en}[$day_bgcolor_en] = "checked"; $check{anniv_en}[$anniv_en] = "checked"; $check{group_en}[$group_en] = "checked"; $check{adminonly_en}[$adminonly_en] = "checked"; $check{admin_reglinks}[$admin_reglinks] = "checked"; $check{ssi_evdate_en}[$ssi_evdate_en] = "checked"; print "
"; &htmltail; } sub setupwrite { $in{title_display_size} =~ s/ /+/; $in{title_register_size} =~ s/ /+/; $in{title_modify_size} =~ s/ /+/; foreach (keys(%in)){ $in{$_} =~ s//\n/g; $in{$_} =~ s/,/,/g; $in{$_} =~ s/<//g; } open(SETUP,"> $setupfile"); $in{disp_length_other} = 12 if ($in{disp_length_other} !~ /\d/); $in{disp_length} = $in{disp_length_other} if ($in{disp_length} == 13); print SETUP <
管理人用イベント登録・変更
\n";
&inputform($now);
&editbutton;
}
&htmltail;
}