| 日付 | \n"; print "内容 | \n"; print "更新者 | \n"; print "更新日 | \n"; print "|
|---|---|---|---|---|
| "; if ($in{mode} eq 'past'){ print "$mon月$day日 | \n"; } else { print "$mon月$day日\n"; } print "$weekday[$wday]"; print " | \n"; my $j; for ($j=0;$j<=$#comment;$j++){ chomp($comment[$j]); next if ($comment[$j] eq ''); print ""; if ($comment[$j] ne ' ' && $in{mode} ne 'past') { if ($update_link == 0){ print "$comment[$j]"; } else { $comment[$j] = &link_replace($comment[$j]); print "$comment[$j]"; } } else { $comment[$j] = &link_replace($comment[$j]); print "$comment[$j]"; } print " | \n"; print ""; if ($update_link == 0){ print "$name[$j]\n"; } else { print "$name[$j]"; } print " | \n"; my $updatedate; $updatedate = &calupdate($update[$j]); print "$updatedate | \n"; print "
| \n";
}
sub htmltail {
print " $script Ver. $version \n";
print "Copyright(C) 1997-$lastupdatedyear, Hideki \n";
print " |
パスワード \n";
} else {
print "イベントが更新された日は、$newestです。 \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 <
HTMLOUT
&htmltail;
}
sub evwrite {
&error('名前とパスワードは必ず入力してください。') if ($in{name} eq '' || $in{pwd} eq '');
&lockfile;
my ($id) = &getevdata(-lastid);
$id++;
my $pwd = &makecrypt($in{pwd});
my $now = time+$offset*3600;
open WR, ">> $datafile" or &error("データファイル$datafileが開けません。");
print WR "$id,$in{year},$in{month},$in{day},$in{name},$now,$pwd,$host,$ip,$in{comment}\n";
close WR;
&unlockfile;
print "Location: $script#${in{year}}_${in{month}}_$in{day}\n\n";
}
sub evreplace {
&error('名前とパスワードは必ず入力してください。') if ($in{name} eq '' || $in{pwd} eq '');
&lockfile;
my $now = time+$offset*3600;
my ($dyear,$dmonth,$dday,$dname,$dnow,$dpwd,$dhost,$dip,$dcomment);
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) = split /,/;
chomp;
if ($id == $in{id}){
if (!checkcrypt($in{pwd}, $dpwd)){
close(WR);
&error('パスワードが違います。');
}
print WR "$in{id},$in{year},$in{month},$in{day},$in{name},$now,$dpwd,$host,$ip,$in{comment}\n";
} else {
print WR "$id,$dyear,$dmonth,$dday,$dname,$dnow,$dpwd,$dhost,$dip,$dcomment\n";
}
}
close WR;
close DATA;
rename("tmp.$$","$datafile");
&unlockfile;
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 $id;
my ($dyear,$dmonth,$dday,$dname,$dnow,$dpwd,$dcomment);
my $host;
my $ip;
my $data_day;
my $latest;
my ($lid,$lyear,$lmonth,$lday,$lname,$lnow);
my @pastyear;
if (open DATA, "< $datafile"){
while (){
chomp;
($id,$dyear,$dmonth,$dday,$dname,$dnow,$dpwd,$host,$ip,$dcomment) = split /,/;
if (grep /-alldata/, @options or $#options == -1) {
$data_day = timegm(0,0,0,$dday,--$dmonth,$dyear);
if ($data_day < $start_day || $in{mode} eq 'past') {
push @pastyear, $dyear if (! grep /$dyear/, @pastyear);
}
next if ($data_day < $start_day or $data_day > $end_day);
$dmonth++;
if (exists $caldata{$dyear}{$dmonth}{$dday}) {
next if ($dcomment eq '');
$caldata{$dyear}{$dmonth}{$dday} .= "
\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);
if ($last_written_date < $start_table_date){
print "イベントが更新された日は、$newestです。
\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{setup}[$setup_en] = "checked"; $check{disp_length}[$disp_length] = "checked"; $check{disp_length}[13] = "checked" if (!grep /checked/, $check{disp_length}[1,3,6,12]); $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{update_link}[$update_link] = "checked"; $check{link_replace_en}[$link_replace_en] = "checked"; $check{link_replace_top_en}[$link_replace_top_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/