#!/usr/bin/perl require './jcode.pl'; require './perl-lib.pl'; #==================================================================== # Todays Diary 初期設定 #==================================================================== # #掲示板のタイトル $title = 'アズガーデン日本橋・宿泊状況カレンダー'; #タイトル画像が有れば指定 $titleimg = ''; #------------------------------------------------ #管理者パスワード $password = 'azga'; #------------------------------------------------ #管理者ホームページのURL $homepage = 'http://www.xxxxxx.com'; #------------------------------------------------ #背景色 $bgcolor = '#EFF4FF'; #文字色 $text = '#0000FF'; #リンク色 $link = '#0000FF'; #アクセス済みリンク色 $vlink = '#0000FF'; #アクセス中リンク色 $alink = '#0000FF'; #背景画像 $bgimg = ''; #------------------------------------------------ #画像が保存されているディレクトリ $imgdir = 'images/'; #------------------------------------------------ #世界標準時との時差 $timelag = 0; #------------------------------------------------ #カレンダー選択肢 $SELECTDATE[1] = '2016/12';$SELECTDATE[6] = '2017/05';$SELECTDATE[11] = '2017/10'; $SELECTDATE[2] = '2017/01';$SELECTDATE[7] = '2017/06';$SELECTDATE[12] = '2017/11'; $SELECTDATE[3] = '2017/02';$SELECTDATE[8] = '2017/07'; $SELECTDATE[4] = '2017/03';$SELECTDATE[9] = '2017/08'; $SELECTDATE[5] = '2017/04';$SELECTDATE[10] = '2017/09'; #==================================================================== # 初期設定はここまで．．． #==================================================================== $ENV{'TZ'} = "GMT"; $date_now = time + $timelag * 3600; readparts('QUERY', '<>=', 'sjis'); $date = jst_time($date_now, 5); $date2 = $date; $todaysyear = substr($date, 0, 4); $todaysmonth = substr($date, 5, 2); $todaysday = substr($date, 8, 2); if (!$QUERY{'date'}) { $date = jst_time($date_now, 5); $QUERY{'date'} = substr($date, 0, 7); } $year = substr($QUERY{'date'}, 0, 4); $month = substr($QUERY{'date'}, 5, 2); if ($QUERY{'action'} eq 'edit' && $QUERY{'pw'} eq $password) { &html_top(); &form($year,$month); &html_bottom(); exit; } elsif ($QUERY{'action'} eq 'regist' && $QUERY{'pw'} eq $password) { ($year, $month) = split(/\//, $QUERY{'selectdate'}); $filename = sprintf("%04d-%02d", $year, $month) . '.dat'; foreach (1 .. 31) { $j = sprintf("%02d", $_); if ($QUERY{"$j"}) { $value = "day=$j\tschedule=$QUERY{$j}\n"; push(@SCHEDULE, $value); } } data_save($filename, @SCHEDULE); } &html_top(); &col($year,$month); &html_bottom(); exit; #==================================================================== sub button { my($nextdate, $previousdate, $y, $m); print "\n"; $y = $year; $m = $month - 1; if ($m < 1) { $m = 12; $y--; } $previousdate = sprintf("%04d/%02d", $y, $m); # print "\n"; print "\n"; print "\n"; if ($QUERY{'pw'} eq $password) { print "\n"; } # print "\n"; $y = $year; $m = $month + 1; if ($m > 12) { $m = 1; $y++; } $nextdate = sprintf("%04d/%02d", $y, $m); # print "
"; print "\n"; print "
\n"; } #==================================================================== sub html_top { print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "$title\n"; print ""; print "\n"; print "
\n"; print "\n"; if ($titleimg) { print "\n"; } } #==================================================================== sub html_bottom { print "
All Copyrite(C) TryTheHomePage Terra
\n"; print "
\n"; print "\n"; } #==================================================================== sub col { my(@DATE) = calendar($_[0], $_[1], $timelag, 2); my(@DUMMY, $datestr, $len, $n, $i, $j, $bgcolor, $linkflag); my($filename) = sprintf("%04d-%02d", $year, $month) . '.dat'; my(@SCHEDULE) = data_read($filename); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; $len = length($_[0]) - 1; foreach (0 .. $len) { $n = substr($_[0], $_, 1); print ""; } print ""; $len = length($_[1]) - 1; foreach (0 .. $len) { $n = substr($_[1], $_, 1); print ""; } print ""; &button(); print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; foreach (1 .. (@DATE - 1)) { print "\n"; @DAY = split(/,/, $DATE[$_]); $j = 0; foreach $line (@DAY) { if ($line eq ' ') { $line = ''; } if ($j == 0) { $bgcolor = 'sun'; } elsif ($j == 6) { $bgcolor = 'sat'; } else { if ($_[0] == $todaysyear && $_[1] == $todaysmonth && $line == $todaysday) { $bgcolor = 'today'; } else { $bgcolor = 'week'; } } print "\n"; $j++; if ($j > 6) { $j = 0; } } print "\n"; } print "
"; if ($line < 1) { print $line; } else { $len = length($line) - 1; foreach (0 .. $len) { $n = substr($line, $_, 1); print ""; } $d = sprintf("%02d", $line); @DUMMY = grep(/^day=$d\t/, @SCHEDULE); if (@DUMMY) { %SCHEDULE = fields($DUMMY[0]); print "
$SCHEDULE{'schedule'}\n"; } } print "
\n"; } #==================================================================== sub form { my($year, $month) = @_; my(@DATE) = calendar2($year, $month, 0, 0); my($filename) = sprintf("%04d-%02d", $year, $month) . '.dat'; my(@SCHEDULE) = data_read($filename); print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; foreach (1 .. @DATE - 1) { $DATE[$_] =~ /(\d+)\D+(\d+)\D+(\d+)\D+\((.+)\)$/; $y = $1; $m = $2, $d = $3; $week = $4; if ($week eq '日') { $bgcolor = '#FFAAAA'; } elsif ($week eq '土') { $bgcolor = '#AAAAFF'; } else { $bgcolor = '#FFFFFF'; } print "\n"; $i++; } print "\n"; print "
日付\n"; print "\n"; print "\n"; print "
予\定\n"; &button(); print "
\n"; print "
"; print "\n"; print "$d日($week)"; $date = sprintf("%04d/%02d/%02d", $QUERY{'year'}, $QUERY{'month'}, $d); @DUMMY = grep(/^day=$d\t/, @SCHEDULE); %SCHEDULE = fields($DUMMY[0]); print ""; if ($QUERY{'id'} eq $MEMBER{'id'}) { print ""; } print ""; print ""; print "
\n"; print "
\n"; }