$title

#!/usr/bin/perl ############################################### # sche18.cgi # V3.0 (2010.8.3) # Copyright(C) CGI-design ############################################### $script = 'sche18.cgi'; $base = './schedata'; #データ格納ディレクトリ $nofile = "$base/no.txt"; #記事番号 $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<>スケジュール<><><>#fafaf5,#000000,#c00000,#aaaaaa,#ffffff,#e6e4ce,#ffd700,#fff3bd,#ff0000,#0000ff"; close OUT; chmod(0666,$nofile); } ### メイン処理 ### if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN,$in,$ENV{'CONTENT_LENGTH'});} else {$in = $ENV{'QUERY_STRING'};} %in = (); 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; $val =~ s/\r\n|\r|\n/
/g; if (defined($in{$n})) {$in{$n} .= "\0$val";} else {$in{$n} = $val;} } $mode = $in{'mode'}; $logyear = $in{'year'}; $logmon = $in{'mon'}; open (IN,"$opfile") || &error("OPEN ERROR"); ($pass,$title,$home,$bg_img,$colors) = split(/<>/,); close IN; ($bg_color,$text_color,$title_color,$frame_color,$combg_color,$subbg_color,$today_color,$sche_color,$hol_color,$sat_color) = split(/,/,$colors); @wcolor = ($hol_color,$text_color,$text_color,$text_color,$text_color,$text_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 ($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 { &header; print "\n"; print "

\n"; if ($home) {print "HOME";} print "

$title

｜管理｜

\n"; &cal; foreach (@data) { ($no,$day,$sub,$com) = split(/<>/); &dsp; } # 次の行は著作権表示ですので削除しないで下さい。# print "CGI-design\n"; } ### sub cal { @data = @logno = (); if (-e $logfile) { open (IN,"$logfile") || &error("OPEN ERROR"); while () { push (@data,$_); ($no,$day) = split(/<>/); if (!$logno[$day]) {$logno[$day] = $no;} } close IN; } $mdays = $mdays[$logmon - 1]; if ($logmon == 2 && $logyear % 4 == 0) {$mdays = 29;} print "

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

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

<<前月

$logyear年 $logmon月

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

次月>>

\n"; print "\n"; print "\n"; for (0 .. 6) {print "\n";} print "\n"; &set_holiday; &get_wday($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 (2007 <= $logyear) { &get_holiday; if ($holiday) {$wcolor = $wcolor[0];} } $day = "$k"; if ($logno[$k]) { $bc = " bgcolor=\"$sche_color\""; $day = "$day"; } else {$bc = '';} if ($logyear eq $nowyear && $logmon eq $nowmon && $k eq $nowday) {$bc = " bgcolor=\"$today_color\"";} print "\n"; $pro[$k] = "$w,$wcolor"; $k++; } else { print ""; } $w++; if ($w == 7) { print "\n"; if ($mdays < $k) {last;} $w = 0; } } print "

$week[$_]
$day

\n"; print "\n"; foreach (@data) { ($no,$day,$sub) = split(/<>/); ($wday,$wcolor) = split(/,/,$pro[$day]); if ($logyear eq $nowyear && $logmon eq $nowmon && $day eq $nowday) {print "";} else {print "";} print "\n"; } print "

$logmon.$day ($week[$wday])

$sub

\n"; } ### sub dsp { $com =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; ($wday,$wcolor) = split(/,/,$pro[$day]); if ($logyear eq $nowyear && $logmon eq $nowmon && $day eq $nowday) {$bc = $today_color;} else {$bc = $subbg_color;} print "\n"; print "

\n"; print ""; if ($mode eq 'admin') {print "";} print "

$logyear.$logmon.$day ($week[$wday])　　$sub

\n"; print "

$com

\n"; print "

▲top

\n"; } ### sub set_holiday { $def = 0.242194*($logyear-1980)-int(($logyear-1980)/4); $spr = int(20.8431+$def); $aut = int(23.2488+$def); %hod = ('0101','元日','0211','建国記念の日',"03$spr",'春分の日','0429','昭和の日','0503','憲法記念日','0504','みどりの日','0505','こどもの日',"09$aut",'秋分の日','1103','文化の日','1123','勤労感謝の日','1223','天皇誕生日'); %how = ('12','成人の日','73','海の日','93','敬老の日','102','体育の日'); } ### sub get_holiday { $sm = sprintf("%02d%02d",$logmon,$k); $holiday = $hod{$sm}; if ($holiday && !$w) {$hflag = 1;} if (!$holiday && $w == 1) {$holiday = $how{"$logmon$n"};} if (!$holiday && $hflag) {$holiday = '振替休日'; $hflag = 0;} if (($logyear eq '2009' || $logyear eq '2015') && $sm eq '0922') {$holiday = '国民の休日';} } ### sub get_wday { ($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 { &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"; print "\n"; print "\n"; print "\n"; print "

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

記事を修正、削除する場合は「修正」をクリックして下さい。

\n"; &cal; print "\n"; } ### sub in_form { print "

\n"; print "\n"; print "\n"; print "\n"; if ($in{'edt'}) { open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day,$sub,$com) = split(/<>/); if ($in{$no}) {last;} } close IN; print "\n"; print "\n"; print "\n"; $com =~ s/
/\r/g; print "\n"; } else { print "\n"; $sub = $com = ''; } print "\n"; print "\n"; print "

日付

$logyear年$logmon月$day日

日付

年月日

題名

内容

"; if ($in{'edt'}) { print "\n"; print "

\n"; } else { print ""; } print "

\n"; } ### sub newwrt { 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{'sub'}<>$in{'com'}<>\n"; if (-e $logfile) { @new = (); $flag = 0; open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day) = split(/<>/); if (!$flag && $in{'day'} < $day) {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); } } ### sub edtwrt { @new = (); open (IN,"$logfile") || &error("OPEN ERROR"); while () { ($no,$day) = split(/<>/); if ($no eq $in{'no'}) {push(@new,"$no<>$day<>$in{'sub'}<>$in{'com'}<>\n");} else {push(@new,$_);} } close IN; open (OUT,">$logfile") || &error("OPEN ERROR"); print OUT @new; close OUT; } ### sub delwrt { @new = (); 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; } ### sub setup { if ($in{'wrt'}) { if ($in{'newpass'} ne '') {$pass = &crypt($in{'newpass'});} $title = $in{'title'}; $home = $in{'home'}; $bg_img = $in{'bg_img'}; $colors = $in{'colors'}; $colors =~ s/\0/,/g; open (OUT,">$opfile") || &error("OPEN ERROR"); print OUT "$pass<>$title<>$home<>$bg_img<>$colors"; close OUT; } print "下記に入力後、「設定する」を押して下さい。

\n"; print "\n"; } ### 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; }