$title $logmon月

#!/usr/bin/perl ############################################### # sche6.cgi # V1.3 (2003.12.30) # Copyright(C) CGI-design ############################################### $script = 'sche.cgi'; $base = './schedata'; #データ格納ディレクトリ $opfile = "$base/option.txt"; #オプションファイル $style_file = "$base/style.css"; #スタイルシート @week = ('日','月','火','水','木','金','土'); @mdays = (31,28,31,30,31,30,31,31,30,31,30,31); open IN,"$opfile"; $opdata = ; close IN; if (!$opdata) { $pass = &crypt('cgi'); chmod(0666,$opfile); open OUT,">$opfile"; print OUT "スケジュール,$pass,http://www.niigata-jc.com/,$base/home.gif,$base/back.gif,$base/next.gif,$base/wall.gif,#800000,#ff0000,#000000,#ff0000,#fef0ef,#0000ff,#eeffff,#000000,#fef9e7,#ffff00,10,10,18,104,2"; close OUT; foreach (1 .. 12) {chmod(0666,"$base/d2004$_.log");} } ### メイン処理 ### if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN, $in, $ENV{'CONTENT_LENGTH'});} else {$in = $ENV{'QUERY_STRING'};} @pair = split(/&/,$in); foreach (@pair) { ($n,$val) = split(/=/); $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($n eq 'holi') {$in_holi[$val] = 1;} else {$in{$n} = $val;} } $mode = $in{'mode'}; open IN, "$opfile"; ($title,$pass,$home,$home_icon,$back_icon,$next_icon,$bg_img,$title_color,$sub_color,$sche_color,$holi_color,$holibg_color,$sat_color,$satbg_color,$day_color,$daybg_color,$today_color,$sub_size,$sche_size,$subc_size,$schec_size,$scher_size) = split(/,/,); close IN; @wcolor = ($holi_color,$day_color,$day_color,$day_color,$day_color,$day_color,$sat_color); ($sec,$min,$hour,$nowday,$nowmon,$nowyear,$nowwday) = localtime; $nowyear += 1900; $nowmon++; $logyear = $in{'year'}; $logmon = $in{'mon'}; if (!$logyear) {$logyear = $nowyear; $logmon = $nowmon;} $logfile = "$base/d$logyear$logmon.log"; $mdays = $mdays[$logmon - 1]; if ($logmon == 2 && $logyear % 4 == 0) {$mdays = 29;} print "Content-type: text/html\n\n"; print <<"EOM" ; $title $logmon月 EOM ##スクリプトここから print <<"EOM" ; EOM ##スクリプトここまで print "\n"; if ($mode eq 'admin') {&admin;} else {&main;} print "\n"; exit; ### sub main { #-----ヘッダここから print <<"EOM" ;

　二葉幼稚園では、年間を通じて様々な催し物を\予\定しております。

EOM #-----ヘッダここまで &dsp; #-----フッタここから print <<"EOM" ;

スケジュールは変更になる場合がございます。

〒951-8118 新潟市中央区西中町714番地 TEL 025-222-4509 FAX 025-222-9130

EOM #-----フッタここまで } ### sub dsp { if (-e $logfile) { open IN, "$logfile"; while () { ($day,$com,$sub,$holi) = split(/<>/); $com[$day] = $com; $sub[$day] = $sub; $holi[$day] = $holi; } close IN; } print "\n" ; print "

$logyear年

\n"; $mon = $logmon - 1; if ($mode eq "admin") { if ($mon < 1) {$mon = 12; $year = $logyear - 1;} else {$year = $logyear;} print "

　\n"; print "$logmon月"; $mon = $logmon + 1; if (12 < $mon) {$mon = 1; $year = $logyear + 1;} else {$year = $logyear;} print "　

\n"; } else { if ($mon < 1) {$mon = 12; $year = $logyear - 1;} else {$year = $logyear;} print "

　\n"; print "$logmon月"; $mon = $logmon + 1; if (12 < $mon) {$mon = 1; $year = $logyear + 1;} else {$year = $logyear;} print "　

　\n"; } print "\n"; &get_date($logyear,$logmon,1); $w = $wday; for ($k=1; $k<=$mdays; $k++) { $wcolor = $wcolor[$w]; if ($logyear == $nowyear && $logmon == $nowmon && $k == $nowday) {$bcday = " bgcolor=\"$today_color\"";} else {$bcday = '';} if (!$w) {$bc = $holibg_color;} elsif ($w == 6) {$bc = $satbg_color;} else {$bc = $daybg_color;} if ($holi[$k]) {$bc = $holibg_color; $wcolor = $holi_color;} print "\n"; if ($mode eq 'admin') { if ($holi[$k]) {$chk = ' checked';} else {$chk = '';} print "\n"; print "\n"; $com[$k] =~ s/
/\r/g; print ""; } else { if ($sub[$k]) {$sub = "$sub[$k]　";} else {$sub = '';} $com[$k] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; print "$sub$com[$k]"; } print "\n"; $w++; if (6 < $w) {$w = 0;} } print "

$k($week[$w])

\n"; } ### sub get_date { ($y,$m,$d) = @_; if( $m < 3 ){$y--; $m+=12;} $wday = ($y+int($y/4)-int($y/100)+int($y/400)+int((13*$m+8)/5)+$d)%7; } ### sub admin { $inpass = $in{'pass'}; if ($inpass eq '') { print "

[スケジュール表\示へ戻る]

\n"; print "