$title

#!/usr/local/bin/perl ############################################### # sche35.cgi # V1.0 (2005.5.21) # Copyright(C) CGI-design ############################################### $script = 'sche35.cgi'; $base = './schedata'; #データ格納ディレクトリ $nofile = "$base/no.txt"; #書込み番号 $opfile = "$base/option.txt"; #オプション $lockfile = "$base/lock"; $catmax = 24; #分類数*2 @mdays = (31,28,31,30,31,30,31,31,30,31,30,31); @week = ('日','月','火','水','木','金','土'); 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/home.gif<>$base/title.gif<>$base/back.gif<>$base/next.gif<><>$base/style.css<>#ECF0EC<>#000000<>#800000<>#000000<>#869D7D<>#869D7D<>#CAD8CB<>#c00000<>#FBF4F4<>#4169E1<>#F8F8FF<>#000000<>#ffffff<>#ffffdd<>6<>会議<>#A0522D<>出張<>#0000ff"; close OUT; chmod(0666,$nofile); } ##### メイン処理 ##### 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; $val =~ s/&/&/g; $val =~ s//>/g; $val =~ s/"/"/g; $in{$n} = $val; } $dm = $in{'dm'}; $cm = $in{'cm'}; $mode = $in{'mode'}; $logyear = $in{'year'}; $logmon = $in{'mon'}; open (IN, "$opfile") || &error("OPEN ERROR"); ($pass,$title,$com_adm,$home,$home1,$home_icon,$title_icon,$back_icon,$next_icon,$bg_img,$style_file,$bg_color,$text_color,$title_color,$com_color,$frame_color,$monbg_color,$weekbg_color,$holi_color,$holibg_color,$sat_color,$satbg_color,$day_color,$daybg_color,$today_color,$catcols,@cat) = split(/<>/,); close IN; @wcolor = ($holi_color,$day_color,$day_color,$day_color,$day_color,$day_color,$sat_color); ($sec,$min,$hour,$nowday,$nowmon,$nowyear) = localtime; $nowyear += 1900; $nowmon++; if (!$logyear) {$logyear = $nowyear; $logmon = $nowmon;} $logfile = "$base/$logyear$logmon.txt"; if (!$dm) { if ($mode eq 'search') {&search;} elsif ($mode eq 'admin') {&admin;} else {&main;} } else { if ($mode eq 'comdsp') {&comdsp1;} elsif ($mode eq 'admin') {&admin1;} else {&main1;} } print "\n"; exit; ### sub header { print "Content-type: text/html\n\n"; print "\n"; print "$title\n"; if (!$dm) {print "\n";} print "\n"; $head = 1; } ### sub main { &header; print "\n"; print "

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

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

"; if ($title_icon) {print "

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

\n"; if ($com_adm) {print "

$com_adm

\n";} print "\n"; $k = 0; for ($i=0; $i<$catmax; $i+=2) { $catcolor = $cat[$i+1]; if (!$catcolor) {next;} if (!$k) {print "";} print "\n"; $k++; if ($k == $catcols) {print ""; $k = 0;} } if ($k) {print "";} print "

■$cat[$i]

\n"; if (!$cm) {$scm = 1;} else {$scm = 0;} print "\n"; print "

\n"; print "\n"; print "

\n"; $year = $logyear - 1; $mon = 12; print "

　$logyear年"; $year = $logyear + 1; $mon = 1; print "　

\n"; for (1 .. 12) { if ($_ eq $logmon) {print "\n";} else {print "\n";} } print "

$_月

$_月

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

[管理]

\n"; # 次の行は著作権表示ですので削除しないで下さい。# print "CGI-design\n"; } ### sub dsp_cal { %data = (); if (-e $logfile) { open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day,$shour,$smin,$ehour,$emin,$sub,$com,$color) = split(/<>/); $data = "

\n"; &time_dsp; if ($time) {$data .= "$time
";} if ($sub) {$data .= "【$sub】
";} $com =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; $data .= $com; if ($mode) {$data .= "

\n";} $data{$day} .= "$data"; } close IN; } $mdays = $mdays[$logmon - 1]; if ($logmon == 2 && $logyear % 4 == 0) {$mdays = 29;} &holi_set; print "\n"; print "\n"; for (0 .. 6) {print "\n";} print "\n"; &get_date($logyear,$logmon,1); $w=$n=0; $day=1; for (0 .. 41) { if (!$w) {print "";} if ($wday <= $_ && $day <= $mdays) { if ($w == 1) {$n++;} $wcolor = $wcolor[$w]; if (!$w) {$bc = $holibg_color;} elsif ($w == 6) {$bc = $satbg_color;} else {$bc = $daybg_color;} $holiday = ''; if (2002 < $logyear) { &get_holiday($logmon,$day,$w); if ($holiday) {$wcolor = $holi_color; $bc = $holibg_color;} } if ($logyear eq $nowyear && $logmon eq $nowmon && $day eq $nowday) {$bc = $today_color;} if ($day < 10) {$dspday = " $day";} else {$dspday = $day;} print "\n"; $day++; } else {print "\n";} $w++; if ($w == 7) { print "\n"; if ($mdays < $day) {last;} $w = 0; } } print "

$week[$_]
$dspday $holiday $data{$day}

\n"; } ### sub dsp_calt { %data = (); if (-e $logfile) { open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day,$shour,$smin,$ehour,$emin,$sub,$com,$color) = split(/<>/); if ($data{$day}) {$data = "

\n";} else {$data = '';} $data .= "\n"; &time_dsp; if ($time) {$data .= "";} $data .= "

$time

"; if ($sub) {$data .= "【$sub】　";} $com =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; $data .= "$com

"; if ($mode) {$data .= "";} else {$data .= " ";} $data{$day} .= "$data

\n"; } close IN; } $mdays = $mdays[$logmon - 1]; if ($logmon == 2 && $logyear % 4 == 0) {$mdays = 29;} &holi_set; print "\n"; $w = &get_date($logyear,$logmon,1); $n = 0; for $day (1 .. $mdays) { if ($w == 1) {$n++;} $wcolor = $wcolor[$w]; if (!$w) {$bc = $holibg_color;} elsif ($w == 6) {$bc = $satbg_color;} else {$bc = $daybg_color;} if (2002 < $logyear) { &get_holiday($logmon,$day,$w); if ($holiday) {$wcolor = $holi_color; $bc = $holibg_color;} } if ($logyear eq $nowyear && $logmon eq $nowmon && $day eq $nowday) {$bcday = " bgcolor=\"$today_color\"";} else {$bcday = '';} print "\n"; if ($holiday) {print "$holiday\n";} print "$data{$day}\n"; $w++; if ($w == 7) {$w = 0;} } print "

$day

$week[$w]

\n"; } ### sub time_dsp { $time = ''; if ($shour ne '') {$time = sprintf("$shour：%02d",$smin);} if ($shour ne '' || $ehour ne '') {$time .= "～";} if ($ehour ne '') {$time .= sprintf("$ehour：%02d",$emin);} } ### 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$n",$_[0]); $holiday = $holi_w{$smw}; if ($hflag) {$holiday = '振替休日'; $hflag = 0;} } if ($logyear eq '2009' && $sm eq '0922') {$holiday = '国民の休日';} } ### sub get_date { $y = $_[0]; $m = $_[1]; if( $m < 3 ){$y--; $m+=12;} $wday = ($y+int($y/4)-int($y/100)+int($y/400)+int((13*$m+8)/5)+$_[2])%7; } ### sub search { &header; print "\n"; print "

[Return]

\n"; print "キーワードを入力し「検索」をクリックして下さい。キーワードを複数指定する場合はスペースで区切って下さい。\n"; print "\n"; if (!$in{'word'}) {print "\n"; return;} $in{'word'} =~ s/　/ /g; @word = split(/\s+/,$in{'word'}); $m = 0; for $mon (1 .. 12) { $logfile = "$base/$logyear$mon.txt"; if (!-e $logfile) {next;} @data = (); open (IN,"$logfile") || &error("OPEN ERROR"); while () { $find = 0; foreach $word (@word) {if (0 <= index($_,$word)) {$find = 1;} else {$find = 0; last;}} if ($find) {push(@data,$_); $m++;} } close IN; if (!$data[0]) {next;} print "

$mon月

\n"; print "\n"; print "\n"; foreach (@data) { ($no,$day,$shour,$smin,$ehour,$emin,$sub,$com,$color) = split(/<>/); &time_dsp; print "\n"; } print "

日付	時間	題名	内　　容
$logyear.$mon.$day	$time	$sub	$com

\n"; } print "検索結果：計 $m件\n"; } ### sub main1 { &header; print "\n"; if ($home1) {print "[HOME]\n";} print "$title\n"; &cal_dsp1; print "[管理]\n"; # 次の行は著作権表示ですので削除しないで下さい。# print "CGI-design\n"; } ### sub cal_dsp1 { if (-e $logfile) { open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day,$shour,$smin,$ehour,$emin,$sub,$com,$color) = split(/<>/); if (!$sub) {$sub = $com;} $sub =~ s/
//g; if (22 < length($sub)) { $sub = substr($sub,0,20); $sub .= '..'; } if ($mode eq 'admin') {$data{$day} .= "
　$sub\n";} else {$data{$day} .= "
$sub\n";} } close IN; } $mdays = $mdays[$logmon - 1]; if ($logmon == 2 && $logyear % 4 == 0) {$mdays = 29;} print ""; $mon = $logmon - 1; if ($mon < 1) {$mon = 12; $year = $logyear - 1;} else {$year = $logyear;} print "← "; print "$logyear年$logmon月"; $mon = $logmon + 1; if (12 < $mon) {$mon = 1; $year = $logyear + 1;} else {$year = $logyear;} print " →

\n"; &holi_set; $w = &get_date($logyear,$logmon,1); $n = 0; for $day (1 .. $mdays) { if ($w == 1) {$n++;} $wcolor = $wcolor[$w]; if (2002 < $logyear) { &get_holiday($logmon,$day,$w); if ($holiday) {$wcolor = $holi_color;} } if ($in{'day'} || $logyear ne $nowyear || $logmon ne $nowmon || $nowday <= $day) { print "$logmon/$day($week[$w]) $holiday $data{$day}
\n"; } $w++; if ($w == 7) {$w = 0;} } print "

\n"; for ($i=0; $i<$catmax; $i+=2) { $catcolor = $cat[$i+1]; if (!$catcolor) {next;} print "■$cat[$i]
\n"; } print "

\n"; } ### sub comdsp1 { &header; print "\n"; print "[戻る]
\n"; &sel_data; &get_date($logyear,$logmon,$day); $wcolor = $wcolor[$wday]; $week = $week[$wday]; if (2002 < $logyear) { &holi_set; $w = &get_date($logyear,$logmon,1); $n = 0; for (1 .. $day) { if ($w == 1) {$n++;} &get_holiday($logmon,$_,$w); $w++; if ($w == 7) {$w = 0;} } if ($holiday) {$wcolor = $holi_color;} } print "$logmon/$day($week) $holiday
\n"; &time_dsp; if ($time) {print "$time
\n";} if ($sub) {print "【$sub】
\n";} $com =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; print "$com\n"; } ### sub admin1 { &header; print "\n"; $inpass = $in{'pass'}; if ($inpass eq '') { print "[戻る]
\n"; print "\n"; print "\n"; exit; } $mat = &decrypt($inpass,$pass); if (!$mat) {&error("パスワードが違います");} $act = $in{'act'}; if ($act) {&in_form1;} else {&edtdsp1;} } ### sub edtdsp1 { if ($in{'newwrt'}) {&newwrt;} elsif ($in{'edtwrt'}) {&edtwrt;} elsif ($in{'delwrt'}) {&delwrt;} print "[戻る]\n"; print "新規登録\n"; &cal_dsp1; } ### sub in_form1 { print "

\n"; print "[戻る]
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($act eq 'regin') { $day = $nowday; $shour=$smin=$ehour=$emin=$sub=$com=$color=''; print "新規登録
\n"; } else { print "\n"; &sel_data; $com =~ s/
/\r/g; print "修正/削除
\n"; } print "$logyear年$logmon月日
時分
～時分
\n"; print "題名
\n"; print "
\n"; for ($i=0; $i<$catmax; $i+=2) { $catcolor = $cat[$i+1]; if (!$catcolor) {next;} if ($color eq $catcolor) {$chk = ' checked';} else {$chk = '';} print "$cat[$i]
\n"; } if ($act eq 'regin') {print "";} else {print "　";} print "

\n"; } ### sub admin { &header; print "\n"; $inpass = $in{'pass'}; if ($inpass eq '') { print "

[Return]

\n"; print "

パスワードを入力して下さい

\n"; print "\n"; print "\n"; exit; } $mat = &decrypt($inpass,$pass); if (!$mat) {&error("パスワードが違います");} print "\n"; print "

　Return

\n"; $act = $in{'act'}; $wrt = $in{'wrt'}; if ($in{'set'}) {&setup;} else {®in;} print "
\n"; } ### sub regin { if ($in{'newwrt'}) {&newwrt;} elsif ($in{'edtwrt'}) {&edtwrt;} elsif ($in{'delwrt'}) {&delwrt;} &in_form; print "

修正・削除する場合は「修正」をクリックして下さい。
\n"; if (!$cm) {$scm = 1;} else {$scm = 0;} print "

\n"; print "\n"; $year = $logyear - 1; $mon = 12; print "\n"; print "\n"; $year = $logyear + 1; $mon = 1; print "\n"; print "

$logyear年

\n"; for (1 .. 12) { if ($_ eq $logmon) {print "\n";} else { print "\n"; } } print "

$_月

\n"; print "\n"; } ### sub sel_data { open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day,$shour,$smin,$ehour,$emin,$sub,$com,$color) = split(/<>/); if ($no eq $in{'no'}) {last;} } close IN; } ### sub in_form { print "

\n"; print "\n"; print "\n"; print "\n"; if (!$act) { $day = $nowday; $shour=$smin=$ehour=$emin=$sub=$com=$color=''; print "*****　新規登録　*****\n"; } else { open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day,$shour,$smin,$ehour,$emin,$sub,$com,$color) = split(/<>/); if ($in{$no}) {last;} } close IN; print "\n"; print "\n"; print "\n"; $com =~ s/
/\r/g; print "***** 修正・削除　*****\n"; } print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

日時

\n"; if (!$act) { print "年月\n"; } else { print " $logyear年$logmon月"; } print " 日　　　時分～時分

題名

内容

分類

\n"; $k = 0; for ($i=0; $i<$catmax; $i+=2) { $catcolor = $cat[$i+1]; if (!$catcolor) {next;} if (!$k) {print "";} if ($color eq $catcolor) {$chk = ' checked';} else {$chk = '';} print "\n"; if ($cat[$i]) {print "\n";} $k++; if ($k == $catcols) {print ""; $k = 0;} } if ($k) {print "";} print "

$cat[$i]

"; if (!$act) {print "";} else { print "\n"; print "

\n"; } print "

\n"; } ### sub newwrt { &in_chk; &lock; open (IN, "$nofile") || &error("OPEN ERROR"); $no = ; close IN; $no++; open (OUT, ">$nofile") || &error("OPEN ERROR"); print OUT $no; close OUT; $newdata = "$no<>$in{'day'}<>$in{'shour'}<>$in{'smin'}<>$in{'ehour'}<>$in{'emin'}<>$in{'sub'}<>$in{'com'}<>$in{'color'}<>\n"; $time = sprintf("$in{'day'}%02d%02d%02d%02d",$in{'shour'},$in{'smin'},$in{'ehour'},$in{'emin'}); if (-e $logfile) { $flag = 0; open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day,$shour,$smin,$ehour,$emin) = split(/<>/); $regtime = sprintf("$day%02d%02d%02d%02d",$shour,$smin,$ehour,$emin); if (!$flag && $time < $regtime) {push(@new,$newdata); $flag = 1;} push(@new,$_); } close IN; if (!$flag) {push(@new,$newdata);} open (OUT,">$logfile") || &error("OPEN ERROR"); print OUT @new; close OUT; } else { open (OUT,">$logfile") || &error("OPEN ERROR"); print OUT $newdata; close OUT; chmod(0666,$logfile); } &unlock; } ### sub in_chk { if (!$in{'sub'} && !$in{'com'}) {&error("題名又は内容を入力して下さい");} $in{'com'} =~ s/\r\n|\r|\n/
/g; } ### sub edtwrt { &in_chk; $newdata = "$in{'no'}<>$in{'day'}<>$in{'shour'}<>$in{'smin'}<>$in{'ehour'}<>$in{'emin'}<>$in{'sub'}<>$in{'com'}<>$in{'color'}<>\n"; $time = sprintf("$in{'day'}%02d%02d%02d%02d",$in{'shour'},$in{'smin'},$in{'ehour'},$in{'emin'}); &lock; $flag = 0; open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day,$shour,$smin,$ehour,$emin) = split(/<>/); if ($no eq $in{'no'}) {next;} $regtime = sprintf("$day%02d%02d%02d%02d",$shour,$smin,$ehour,$emin); if (!$flag && $time < $regtime) {push(@new,$newdata); $flag = 1;} push(@new,$_); } close IN; if (!$flag) {push(@new,$newdata);} open (OUT,">$logfile") || &error("OPEN ERROR"); print OUT @new; close OUT; &unlock; } ### sub delwrt { &lock; open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no) = split(/<>/); if ($no ne $in{'no'}) {push(@new,$_);} } close IN; open (OUT,">$logfile") || &error("OPEN ERROR"); print OUT @new; close OUT; &unlock; } ### sub setup { if ($wrt) { if ($in{'newpass'} ne '') {$pass = &crypt($in{'newpass'});} $title = $in{'title'}; $com_adm = $in{'com'}; $com_adm =~ s/&/&/g; $com_adm =~ s/<//g; $com_adm =~ s/"/"/g; $com_adm =~ s/\r\n|\r|\n/
/g; $home = $in{'home'}; $home1 = $in{'home1'}; $home_icon = $in{'home_icon'}; $title_icon = $in{'title_icon'}; $back_icon = $in{'back_icon'}; $next_icon = $in{'next_icon'}; $bg_img = $in{'bg_img'}; $style_file = $in{'style_file'}; $bg_color = $in{'color0'}; $text_color = $in{'color1'}; $title_color = $in{'color2'}; $com_color = $in{'color3'}; $frame_color = $in{'color4'}; $monbg_color = $in{'color5'}; $weekbg_color = $in{'color6'}; $holi_color = $in{'color7'}; $holibg_color = $in{'color8'}; $sat_color = $in{'color9'}; $satbg_color = $in{'color10'}; $day_color = $in{'color11'}; $daybg_color = $in{'color12'}; $today_color = $in{'color13'}; $catcols = $in{'catcols'}; $opdata = "$pass<>$title<>$com_adm<>$home<>$home1<>$home_icon<>$title_icon<>$back_icon<>$next_icon<>$bg_img<>$style_file<>$bg_color<>$text_color<>$title_color<>$com_color<>$frame_color<>$monbg_color<>$weekbg_color<>$holi_color<>$holibg_color<>$sat_color<>$satbg_color<>$day_color<>$daybg_color<>$today_color<>$catcols"; foreach (0 .. $catmax-1) { $cat[$_] = $in{"cat$_"}; $opdata .= "<>$cat[$_]"; } open (OUT, ">$opfile") || &error("OPEN ERROR"); print OUT $opdata; close OUT; } print "下記に入力後、「設定する」を押して下さい。\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "

\n"; print "\n"; $com_adm =~ s/
/\r/g; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; @name = ('基本背景色','基本文字色','タイトル色','コメント色','枠色','月背景色','曜日背景色','休日','休日の背景色','土曜日','土曜日の背景色','平日','平日の背景色','本日の背景色'); @data = ($bg_color,$text_color,$title_color,$com_color,$frame_color,$monbg_color,$weekbg_color,$holi_color,$holibg_color,$sat_color,$satbg_color,$day_color,$daybg_color,$today_color); for (0 .. $#name) { print "\n"; } print "\n"; print "\n"; print "\n"; print "

タイトル

コメント

PCホームURL

携帯ホームURL

ホームアイコン

タイトルアイコン

BACKアイコン

NEXTアイコン

壁紙

スタイルシート

カラーコード

$name[$_]

\n"; print "\n"; print "

分類

\n"; for ($i=0; $i<$catmax; $i+=2) { print "\n"; print "\n"; } print "

分類表\示

列

パスワード変更

（英数8文字以内）

\n"; } ### sub lock { $retry = 3; if (-e $lockfile) { $locktime = (stat($lockfile))[9]; if ($locktime < time - 60) {&unlock;} } while (!mkdir($lockfile,0755)) { if (--$retry < 0) {&error("busy!");} sleep(1); } } ### sub unlock {rmdir($lockfile);} ### sub crypt { @salt = ('a' .. 'z','A' .. 'Z','0' .. '9'); srand; $salt = "$salt[int(rand($#salt))]$salt[int(rand($#salt))]"; return crypt($_[0],$salt); } ### sub decrypt { $salt = $_[1] =~ /^\$1\$(.*)\$/ && $1 || substr($_[1],0,2); if (crypt($_[0],$salt) eq $_[1] || crypt($_[0],'$1$' . $salt) eq $_[1]) {return 1;} return 0; } ### sub error { if (!$head) {&header; print "\n";} print "
ERROR !!
$_[0]\n"; print "\n"; exit; }