$title

#!/usr/bin/perl ############################################### # sche28.cgi # V2.0 (2004.10.8) # Copyright(C) CGI-design ############################################### $script = 'sche28.cgi'; $base = './schedata'; #データ格納ディレクトリ $opfile = "$base/option.txt"; #オプションファイル @week = ('日','月','火','水','木','金','土'); @mdays = (31,28,31,30,31,30,31,31,30,31,30,31); open(IN,"$opfile") || &error("OPEN ERROR"); $opdata = ; close IN; if (!$opdata) { $pass = &crypt('cgi'); chmod(0666,$opfile); open(OUT,">$opfile") || &error("OPEN ERROR"); print OUT "$pass<>スケジュール<><>$base/title.gif<>$base/home.gif<>$base/last.gif<>$base/next.gif<><>$base/style.css<>#fafaf5<>#333333<>#c00000<>#aaaaaa<>#eeeeee<>#ffffff<>#ff0000<>#ff0000<>#fff8ff<>#0000ff<>#f4ffff<>#fffff5<>#eeff00<>900<>12"; close OUT; } ##### メイン処理 ##### if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN, $in, $ENV{'CONTENT_LENGTH'});} else {$in = $ENV{'QUERY_STRING'};} foreach (split(/&/,$in)) { ($n,$val) = split(/=/); $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$n} = $val; } $dm = $in{'dm'}; $mode = $in{'mode'}; open(IN,"$opfile") || &error("OPEN ERROR"); ($pass,$title,$home,$title_icon,$home_icon,$last_icon,$next_icon,$bg_img,$style_file,$bg_color,$text_color,$title_color,$frame_color,$week_color,$combg_color,$sub_color,$holi_color,$holibg_color,$sat_color,$satbg_color,$daybg_color,$today_color,$calw,$fsize) = split(/<>/,); close IN; @wcolor = ($holi_color,$text_color,$text_color,$text_color,$text_color,$text_color,$sat_color); ($sec,$min,$hour,$nowday,$nowmon,$nowyear) = localtime; $nowyear += 1900; $nowmon++; $logyear = $in{'year'}; $logmon = $in{'mon'}; if (!$logyear) {$logyear = $nowyear; $logmon = $nowmon;} $logfile = "$base/$logyear$logmon.txt"; $mdays = $mdays[$logmon - 1]; if ($logmon == 2 && $logyear % 4 == 0) {$mdays = 29;} &header; if ($mode eq 'admin') {&admin;} else {&main;} print "\n"; exit; ### sub header { print "Content-type: text/html\n\n"; print "\n"; print "$title\n"; $head = 1; } ### sub main { print "\n"; print "

\n"; if ($home) {if ($home_icon) {print "

";} else {print "[HOME]";}} print "

"; if ($title_icon) {print "

";} else {print "$title";} print "

\n"; &dsp; if (!$dm) {&dsp_cal;} else {&dsp_calt;} print "

[管理]

\n"; # 次の行は著作権表示ですので削除しないで下さい。# print "CGI-design\n"; } ### sub dsp { @holi=@sub=@com=(); $flag = 0; if (-e $logfile) { open(IN,"$logfile") || &error("OPEN ERROR"); while () { ($day,$holi,$sub,$com) = split(/<>/); $holi[$day] = $holi; $sub[$day] = $sub; $com[$day] = $com; } close IN; } else { $flag = 1; &holi_set; } print "\n"; print "\n"; $mon = $logmon + 1; if (12 < $mon) {$mon = 1; $year = $logyear + 1;} else {$year = $logyear;} print "\n"; if (!$dm) {$sdm = 1;} else {$sdm = 0;} print "

$logyear年

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

$logmon月

\n"; } ### sub dsp_cal { print "\n"; print "\n"; for (0 .. 6) {print "\n";} print "\n"; &get_date($logyear,$logmon,1); $w=$n=0; $k=1; for (0 .. 41) { if (!$w) {print "";} if ($wday <= $_ && $k <= $mdays) { if ($w == 1) {$n++;} $wcolor = $wcolor[$w]; if (!$w) {$bc = $holibg_color;} elsif ($w == 6) {$bc = $satbg_color;} else {$bc = $daybg_color;} if ($flag && 2002 < $logyear) { &get_holiday($logmon,$k,$w,$n); if ($holiday) {$holi[$k] = 1; $sub[$k] = $holiday;} } if ($holi[$k]) {$wcolor = $holi_color; $bc = $holibg_color;} if ($logyear == $nowyear && $logmon == $nowmon && $k == $nowday) {$bc = $today_color;} if ($k < 10) {$day = " $k";} else {$day = $k;} print "\n"; $k++; } else {print "\n";} $w++; if ($w == 7) { print "\n"; if ($mdays < $k) {last;} $w = 0; } } print "

$week[$_]
$day"; if ($mode eq 'admin') { $com[$k] =~ s/ /\r/g; if ($holi[$k]) {$chk = ' checked';} else {$chk = '';} print ""; print " \n"; print "$com[$k]\n"; } else { print " $sub[$k] $com[$k]\n"; } print "

\n"; } ### sub dsp_calt { print "\n"; &get_date($logyear,$logmon,1); $w = $wday; $n = 0; for (1 .. $mdays) { $k = $_; if ($w == 1) {$n++;} $wcolor = $wcolor[$w]; if (!$w) {$bc = $holibg_color;} elsif ($w == 6) {$bc = $satbg_color;} else {$bc = $daybg_color;} if ($flag && 2002 < $logyear) { &get_holiday($logmon,$k,$w,$n); if ($holiday) {$holi[$k] = 1; $sub[$k] = $holiday;} } if ($holi[$k]) {$bc = $holibg_color; $wcolor = $holi_color;} if ($logyear == $nowyear && $logmon == $nowmon && $k == $nowday) {$bcday = " bgcolor=\"$today_color\"";} else {$bcday = '';} 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]) {print "$sub[$k]　";} $com[$k] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; print $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 holi_set { $def = 0.242194*($logyear-1980)-int(($logyear-1980)/4); $spr = int(20.8431+$def); $aut = int(23.2488+$def); %holi_d = ('0101','元日','0211','建国記念の日',"03$spr",'春分の日','0429','みどりの日','0503','憲法記念日','0505','こどもの日',"09$aut",'秋分の日','1103','文化の日','1123','勤労感謝の日','1223','天皇誕生日'); %holi_w = ('012','成人の日','073','海の日','093','敬老の日','102','体育の日'); } ### sub get_holiday { $sm = sprintf("%02d%02d",$_[0],$_[1]); $holiday = $holi_d{$sm}; if ($sm eq '0504' && 1 < $_[2]) {$holiday = '国民の休日';} if ($holiday && !$_[2]) {$hflag = 1;} if (!$holiday && $_[2] == 1) { $smw = sprintf("%02d$_[3]",$_[0]); $holiday = $holi_w{$smw}; if ($hflag) {$holiday = '振替休日'; $hflag = 0;} } } ### sub admin { print "\n"; $inpass = $in{'pass'}; if ($inpass eq '') { print "

[Return]

\n"; print "