#!/usr/local/bin/perl ############################################### # sche31.cgi # V1.2 (2004.1.12) # Copyright(C) CGI-design ############################################### $script = 'sche31.cgi'; $base = './schedata'; #データ格納ディレクトリ $opfile = "$base/option.txt"; #オプションファイル @week = ('日','月','火','水','木','金','土'); @mdays = (31,28,31,30,31,30,31,31,30,31,30,31); @wcolor = ("#ff0000","#000000","#000000","#000000","#000000","#000000","#0000ff"); 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<>"; close OUT; foreach (1 .. 12) {chmod(0666,"$base/d2004$_.txt");} } ##### メイン処理 ##### @pair = split(/&/,$ENV{'QUERY_STRING'}); foreach (@pair) { ($n,$val) = split(/=/); $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$n} = $val; } $mode = $in{'mode'}; $act = $in{'act'}; open (IN,"$opfile") || &error("OPEN ERROR"); ($pass,$home) = split(/<>/,); close IN; ($sec,$min,$hour,$nowday,$nowmon,$nowyear) = localtime; $nowyear += 1900; $nowmon++; $logyear = $in{'year'}; $logmon = $in{'mon'}; $logday = $in{'day'}; if (!$logyear) {$logyear = $nowyear; $logmon = $nowmon; $logday = $nowday;} $logfile = "$base/d$logyear$logmon.txt"; &header; if ($mode eq 'comdsp') {&comdsp;} elsif ($mode eq 'admin') {&admin;} else {&main;} print "\n"; exit; ### sub header { print "Content-type: text/html\n\n"; print "\n"; $head = 1; } ### sub main { print ""; if ($home) {print "[HOME]";} print "　[管理]\n"; &dsp; # 次の行は著作権表示ですので削除しないで下さい。# print "

CGI-design\n"; } ### sub dsp { if (-e $logfile) { open (IN, "$logfile") || &error("OPEN ERROR"); while () { ($day,$com,$holiday) = split(/<>/); $com[$day] = $com; $holiday[$day] = $holiday; } close IN; } 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"; $mdays = $mdays[$logmon - 1]; if ($logmon == 2) {$u = $logyear % 4; if (!$u) {$mdays = 29;}} $w = &get_date($logyear,$logmon,1); for ($k=1; $k<=$mdays; $k++) { if ($holiday[$k]) {$wcolor = $wcolor[0];} else {$wcolor = $wcolor[$w];} if ($k < 10) {$day = " $k";} else {$day = $k;} if ($mode eq 'admin') {print "$day\n";} else {print "$day";} $com = $com[$k]; $com =~ s/
/ /g; if (14 < length($com)) { $com = substr($com,0,12); $com .= '..'; } if ($logyear == $nowyear && $logmon == $nowmon && $k == $nowday) {$com = "$com";} print "$com
\n"; $w++; if (6 < $w) {$w = 0;} } } ### sub comdsp { print "[戻る]
\n"; open (IN, "$logfile") || &error("OPEN ERROR"); while () { ($day,$com,$holiday) = split(/<>/); if ($logday eq $day) {last;} } close IN; $w = $in{'w'}; if ($holiday) {$wcolor = $wcolor[0];} else {$wcolor = $wcolor[$w];} print "$logyear.$logmon.$logday($week[$w])
\n"; if ($holiday) {print "[$holiday]
";} print "$com"; } ### sub get_date { my($y,$m,$d) = @_; if( $m < 3 ){$y--; $m+=12;} return ($y+int($y/4)-int($y/100)+int($y/400)+int((13*$m+8)/5)+$d)%7; } ### sub admin { $inpass = $in{'pass'}; print "戻る\n"; if ($inpass eq '') { print "\n"; print "\n"; exit; } $mat = &decrypt($inpass,$pass); if (!$mat) {&error("パスワードが違います");} print "　編集　設定
\n"; if ($act eq 'regin') {&in_form;} elsif ($act eq 'wrt') {®ist;} elsif ($act eq 'set') {&setup;} print "日付クリック
\n"; &dsp; } ### sub in_form { $flag = 0; if (-e $logfile) { open (IN, "$logfile") || &error("OPEN ERROR"); while () { ($day,$com,$holiday) = split(/<>/); if ($logday eq $day) {$flag = 1; $com =~ s/
/\r/g; last;} } close IN; } if (!$flag) {$com=$holiday='';} print "\n"; print "\n"; exit; } ### sub regist { $in{'com'} =~ s/\r\n|\r|\n/
/g; if (-e $logfile) { $flag = 0; open (IN, "$logfile") || &error("OPEN ERROR"); while () { ($day,$com,$holiday) = split(/<>/); if ($logday eq $day) { push(@new,"$day<>$in{'com'}<>$in{'holiday'}<>\n"); $flag = 1; } else {push(@new,$_);} } close IN; if (!$flag) {push(@new,"$logday<>$in{'com'}<>$in{'holiday'}<>\n");} open (OUT,">$logfile") || &error("OPEN ERROR"); print OUT @new; close OUT; } else { open (OUT,">$logfile") || &error("OPEN ERROR"); print OUT "$logday<>$in{'com'}<>$in{'holiday'}<>\n"; close OUT; chmod(0666,$logfile); } } ### sub setup { if ($in{'wrt'} eq 'on') { if ($in{'newpass'} ne '') {$pass = &crypt($in{'newpass'});} $home = $in{'home'}; open (OUT, ">$opfile") || &error("OPEN ERROR"); print OUT "$pass<>$home"; close OUT; } print "\n"; exit; } ### 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 "
ERROR !!
$_[0]\n"; print "\n"; exit; }