$title

#!/usr/bin/perl #print "HTTP/1.1 200 OK\n"; ########追加######## # IIS対策 if ($ENV{'SERVER_SOFTWARE'} =~ /IIS/i) { local($chdir) = $0; $chdir =~ s/[^\\]*$//; chdir($chdir); } ########追加######## ####################################################################################################################### ##### カレンダー付き月間スケジュール複数人登録／編集可能ＣＧＩ(spt-cal.pl) ##### 2003.08.07 ～新規作成 ####################################################################################################################### ####################################################################################################################### ##### 定数セット ##### ####################################################################################################################### $script = '/cgi-bin/spt-cal/spt-cal.pl'; $base = './schedata'; #データ格納ディレクトリ $opfile = "$base/option.txt"; #オプションファイル $catmax = 24; #最大文字色数X2 $style_file = "/ow-orange.css"; #スタイルシート $backimg = "../../img/st07_bg.gif"; #背景画像ファイル $titleimg = "../../img/ptitle-spt-cal.gif"; #ページタイトル画像ファイル $subtitleimg = "../../img/ow-ptitle-o.gif"; #ページタイトル画像ファイル $adminpass = "oyakata"; #管理用パスワード $mainpage = 'http://www.okhotsk.or.jp/supprt.shtml'; # @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); @week = ('日','月','火','水','木','金','土'); @mdays = (31,28,31,30,31,30,31,31,30,31,30,31); # @month = ('January','February','March','April','May','June','July','August','September','October','November','December'); @month = ('1月','2月','3月','4月','5月','6月','7月','8月','9月','10月','11月','12月'); @cat = ('サーバメンテナンス情報','#FF0066','お知らせ','#0066FF'); %holiday03 = ('0101','元日','0113','成人の日','0211','建国記念の日','0321','春分の日','0429','みどりの日','0503','憲法記念日','0505','こどもの日','0721','海の日','0915','敬老の日','0923','秋分の日','1013','体育の日','1103','文化の日','1123','勤労感謝の日','1124','振替休日','1223','天皇誕生日'); $nowtime = time; ($sec,$min,$hour,$nowday,$nowmon,$nowyear,$nowwday) = localtime; $nowyear += 1900; $nowmon++; ####################################################################################################################### ##### 設定ファイル作成（無い場合） ##### ####################################################################################################################### open IN,"$opfile"; $opdata = ; close IN; if (!$opdata) { $pass = &crypt('cgi'); chmod(0666,$opfile); open OUT,">$opfile"; print OUT "Schedule,$pass,http://merlion.cool.ne.jp/cgi/,$base/wall.gif,#ffffff,#000000,#800000,#aaaaaa,#ffffff,#eeeeee,#c00000,#4169E1,#FEF5DA,#FFD700"; close OUT; } ####################################################################################################################### ##### 設定ファイル読み込み ##### ####################################################################################################################### open IN, "$opfile"; ($title,$pass,$home,$bg_img,$bg_color,$text_color,$title_color,$frame_color,$combg_color,$subbg_color,$holi_color,$sat_color,$sche_color,$today_color) = split(/,/,); close IN; @wcolor = ($holi_color,$text_color,$text_color,$text_color,$text_color,$text_color,$sat_color); ####################################################################################################################### ##### データ取得 ##### ####################################################################################################################### 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 'com') {$val =~ s/\r\n|\r|\n/
/g;} $in{$n} = $val; } ####################################################################################################################### ##### ヘッダ出力 ##### ####################################################################################################################### # print "Content-type: text/html\n\n"; # print "Content-Type: text/plain\n\n"; if ($in{'mode'} ne 'ssi' && $in{'mode'} ne '') { print "\n"; print "\n"; print "\n"; print "\n"; print "$title\n"; print "\n"; } else{ print "<\/font>\n"; #←いんちき処理 } ####################################################################################################################### ##### 表示モード取得 ##### ####################################################################################################################### $mode = $in{'mode'}; # if ($mode eq 'admin') {&admin;} else {if($mode eq 'regin') {®in;} else {&main;}} if ($mode eq 'admin') {&admin;} elsif ($mode eq 'regin') {®in;} elsif ($mode eq 'main') {&main;} elsif ($mode eq 'ssi') {&ssi;} else {&ssi;} print "\n"; exit; ####################################################################################################################### ##### ＳＳＩ用表示（カレンダー／スケジュールタイトル表示）メイン ##### ####################################################################################################################### sub ssi { $mode = 'ssi'; &dsp; # わからんからやめたわ。 # 本当は、SSIとして表示させるときのみ、埋め込みのまま、月変更出来るようにしたかった。 # 最初ssi表示→（月変更）→(一時変数に月情報退避)→ssi表示（一時変数より月情報取得して表示） # しかし、ssiからは環境変数が取得できないらしい。 # よって、以下の流れに変更した。（挫折仕様） # 最初ssi表示→（月変更）→cgi表示(月変更して)　※登録モード・詳細参照時の流れと同様。 # #クッキー取得 # if ($ENV{'HTTP_COOKIE'}) { # @pairs=split(/;/, $ENV{'HTTP_COOKIE'}); # foreach $pair (@pairs) # { # ($name, $value)=split(/=/, $pair); # $incookie{$name}=$value; # } # }else{$incookie{'log-bak'}=$in{'log'};} # # # # if ($incookie{'log-bak'} eq '' && $in{'log'} ne ''){ # if ($in{'log'} ne ''){ # #日付をクッキーにセットして、ＴＯＰページへ戻す # print "Set-Cookie: log-bak=$in{'log'};\n"; # # &reload # # } # else{ # print "Set-Cookie: log-bak=$incookie{'log-bak'};\n"; # print "Set-Cookie: log-bak='';\n"; # # print "HTTP_COOKIE $ENV{'HTTP_COOKIE'}
\n"; # print "incookie $incookie{'log-bak'}
\n"; # #トップページより呼び出されたとき、クッキーを呼び出して日付にセットして表示させる # $in{'log'} = $incookie{'log-bak'}; # &dsp; # } } ####################################################################################################################### ##### トップページ再表示 ##### ####################################################################################################################### #sub reload { # print "Content-type:text/html\n\n"; # print "\n\n"; # print "\n"; # print "HTTP_COOKIE $ENV{'HTTP_COOKIE'}
\n"; # print "incookie $incookie{'log-bak'}
\n"; # print "ページが表示されない場合はこちらをクリック下さい。\n"; # print "\n\n"; # exit; #} ####################################################################################################################### ##### 通常表示（カレンダー／スケジュールタイトル／スケジュール明細表示）メイン ##### ####################################################################################################################### sub main { print "\n"; print "\n"; print "

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

\n"; print "

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

　<< ユーザーサポートTOPへ戻る

HOMEへ戻る >>　

\n"; &dsp; print "

\n"; } ####################################################################################################################### ##### カレンダー部分（カレンダー／スケジュールタイトル／スケジュール明細表示）表示 ##### ####################################################################################################################### sub dsp { $log = $in{'log'}; if (!$log) {$log = "$nowyear$nowmon";} $logyear = substr $log,0,4; $logmon = substr $log,4; $logfile = "$base/d$log.log"; if (-e $logfile) { $logflag = 1; open IN,"$logfile"; @data = ; close IN; $top = shift(@data); foreach (@data) { ($no,$regtime,$year,$mon,$day) = split(/<>/); if (!$logno[$day]) {$logno[$day] = $no;} } } $mdays = $mdays[$logmon - 1]; if ($logmon == 2 && $logyear % 4 == 0) {$mdays = 29;} ###############################カレンダーのタイトル部分 # if ($mode ne 'ssi') { print "\n"; }else{ print "

\n"; } # print "\n"; # } ##############################スケジュールタイトル部見出し # print "

\n"; print "

\n"; # $mon = $logmon - 1; # if ($mon < 1) {$mon = 12; $year = $logyear - 1;} else {$year = $logyear;} # # if ($mode ne 'ssi') { # print "<< 前月　　\n"; # }else{ # print "<< 前月　　\n"; # } # # print "$logyear年 $month[$logmon - 1]\n"; # # $mon = $logmon + 1; # if (12 < $mon) {$mon = 1; $year = $logyear + 1;} else {$year = $logyear;} # # if ($mode ne 'ssi') { # print "　　翌月 >>\n"; # }else{ # print "　　翌月 >>\n"; # } ###############################カレンダー作成部分 # print "\n"; # for (0 .. 6) {print "\n";} # print "\n"; # # &get_date($logyear,$logmon,1); # $w = 0; # $k = 1; # for ($i=0; $i<42; $i++) { # if (!$w) {print "";} # $bgcday = ''; # if ($wday <= $i && $k <= $mdays) { # $wcolor = $wcolor[$w]; # if ($logyear == 2003) { # $smd = sprintf("%02d%02d",$logmon,$k); # if ($holiday03{$smd}) {$wcolor = $holi_color;} # } # $dspday = "$k"; # if ($logno[$k]) { # $bgcday = " bgcolor=\"$sche_color\""; # # # if ($mode ne 'ssi') { # $dspday = "$dspday"; # }else{ # $dspday = "$dspday"; # } # # # } # if ($logyear == $nowyear && $logmon == $nowmon && $k == $nowday) {$bgcday = " bgcolor=\"$today_color\"";} # print "$dspday\n"; # $k++; # } else {print "\n";} # $w++; # if ($w == 7) { # print ""; # if ($mdays < $k) {last;} # $w = 0; # } # } # print "

$week[$_]

\n\n"; # if ($mode ne 'regin') { # print "

[スケジュールの登録／修正]

\n"; print "\n"; # print "\n"; print "\n"; # if ($mode ne 'ssi') { # print "\n"; # }else{ # print "\n"; print "\n"; # } print "

▼ $month[$logmon - 1]のお知らせ

【$month[$logmon - 1]のお知らせ】

[全スケジュールを参照]

[ \n"; $mon = $logmon - 1; if ($mon < 1) {$mon = 12; $year = $logyear - 1;} else {$year = $logyear;} if ($mode eq 'ssi') {print "<< 前月　/　\n";} elsif ($mode eq 'regin') {print "<< 前月　/　\n";} else{ print "<< 前月　/　\n";} $mon = $logmon + 1; if (12 < $mon) {$mon = 1; $year = $logyear + 1;} else {$year = $logyear;} if ($mode eq 'ssi') {print "翌月 >>\n";} elsif ($mode eq 'regin') {print "翌月 >>\n";} else{ print "翌月 >>\n";} print " ]

\n"; ##############################スケジュールタイトル一覧 if ($logflag) { # print "\n"; print "

\n"; foreach (@data) { ($no,$regtime,$year,$mon,$day,$youbi,$sub,$com,$color) = split(/<>/); if ($mode ne 'ssi') { print "\n"; }else{ # if ($day >= $nowday) { print "\n"; # } } } print "

■ $mon月$day日($youbi)	\n"; print "$sub
■ $mon月$day日($youbi)	\n"; print "$sub

\n"; } # print "

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

【記事区分】～

■ $cat[$i]

\n"; ###############################その月分のスケジュール内容表示 if ($mode ne 'ssi') { if ($logflag) { foreach (@data) { ($no,$regtime,$year,$mon,$day,$youbi,$sub,$com,$color,$url,$email) = split(/<>/); &dsp_log($_[0]); } } } } ####################################################################################################################### ##### スケジュール内容表示 ##### ####################################################################################################################### sub dsp_log { print "
\n"; print "

\n"; print "

　■ $year年$mon月$day日（$youbi）　　$sub

\n"; # if ($_[0] eq 'edt') {print "[修正／削除]\n";} if ($_[0] eq 'edt') {print "[修正／削除]\n";} print "

\n"; print "

$com

\n"; if ($url ne '' || $email ne '') { print "\n"; print "

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

\n"; print "\n"; print "\n"; exit; } if ($inpass ne $adminpass) {&error("パスワードが違います");} print "\n"; print "\n"; print "\n"; print "

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

\n"; print "

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

　<< 「管理者モード」を終了する

HOMEへ戻る >>　

\n"; print "

\n"; print "【管理者モード】

\n"; $act = $in{'act'}; if ($act eq 'newwrt') {&newwrt;} elsif ($act eq 'edtin') {&edtin;} elsif ($act eq 'edtwrt') {&edtwrt; &edtin;} elsif ($act eq 'delwrt') {&delwrt;} elsif ($act eq 'setup') {&setup;} if ($in{'act'} eq "newwrt") {print "※ご入力された内容はスケジュールに新規追加されました。ご確認ください。

\n";} elsif ($in{'act'} eq "delwrt") {print "※指定された記事はスケジュールより削除されました。ご確認ください。

\n";} else{ print "※以下の登録フォームに必要事項を入力後、「新規登録」ボタンで記事が書き込めます。

\n";} &in_form('reg',$nowyear,$nowmon,$nowday); print "

\n"; print "
※記事を修正／削除する場合は、詳細ごとの[修正／削除]をクリックしてください。

\n"; print "\n"; &dsp('edt'); print "

\n"; } ####################################################################################################################### ##### 書込／編集処理メイン ##### ####################################################################################################################### sub regin { print "\n"; print "\n"; print "\n"; print "

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

\n"; print "

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

　<< 「登録／修正モード」を終了する

HOMEへ戻る >>　

理者専用画面

\n"; # print "

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

【登録／修正モード】

【オホーツクカレンダーご利用について】

オホーツクカレンダーは、本サイトご利用の方ならどなたでも書き込むことができる、カレンダー型の告知専用掲示板です。
\n"; # print "個人・企業にとらわれず、ご自由にご利用ください。\n"; # print "なお、公序良俗に反する内容、本カレンダーの主旨にあわない内容の場合につきましては、勝手ながら削除させて頂く事がございます。あらかじめご了承お願い致します。

[ オホーツクカレンダー利用規約～ご利用の前に必ずお読み下さい ]

\n"; print "

\n"; print "【登録／修正モード】

\n"; $act = $in{'act'}; if ($act eq 'newwrt') {&newwrt;} elsif ($act eq 'edtin') {&edtin;} elsif ($act eq 'edtwrt') {&edtwrt; &edtin;} elsif ($act eq 'delwrt') {&delwrt;} elsif ($act eq 'setup') {&setup;} if ($in{'act'} eq "newwrt") {print "※ご入力された内容はスケジュールに新規追加されました。ご確認ください。

\n";} elsif ($in{'act'} eq "delwrt") {print "※指定された記事はスケジュールより削除されました。ご確認ください。

\n";} else{ print "※以下の登録フォームに必要事項を入力後、「新規登録」ボタンで記事が書き込めます。

\n";} &in_form('reg',$nowyear,$nowmon,$nowday); print "

\n"; print "
※記事を修正／削除する場合は、詳細ごとの[修正／削除]をクリックしてください。

\n"; print "\n"; &dsp('edt'); print "

\n"; } ####################################################################################################################### ##### 入力フォーム作成 ##### ####################################################################################################################### sub in_form { ($type,$year,$mon,$day) = @_; print "\n"; print "\n"; # print "\n"; print "\n"; if ($type eq 'reg') { print "\n"; print "\n"; $sub = $com = ''; $submit = '新規登録'; } else { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $submit = '修　正'; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

日付

\n"; print "年\n"; print " 月\n"; print " 日

件　名

本　文

記事区分

\n"; if (!$color) {$color = $cat[1];} $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]

関連URL

E-mail

修正パスワード

（英数8文字以内）

\n"; if ($type ne 'reg') { # print "\n"; } print "

\n"; print "

\n"; } ####################################################################################################################### ##### 新規保存 ##### ####################################################################################################################### sub newwrt { &in_chk; &get_date($in{'year'},$in{'mon'},$in{'day'}); $logfile = "$base/d$in{'year'}$in{'mon'}.log"; $pwd = &crypt($in{'pwd'}); $newdata = "$nowtime<>$in{'year'}<>$in{'mon'}<>$in{'day'}<>$youbi<>$in{'sub'}<>$in{'com'}<>$in{'color'}<>$in{'url'}<>$in{'email'}<>$pwd<>\n"; # $newdata = "$nowtime<>$in{'year'}<>$in{'mon'}<>$in{'day'}<>$youbi<>$in{'sub'}<>$in{'com'}<>$in{'color'}<>$in{'url'}<>$in{'email'}<>$in{'pwd'}<>\n"; if (-e $logfile) { open IN,"$logfile"; @data = ; close IN; $top = shift(@data); ($no,$lasttime) = split(/<>/, $top); $no++; $newdata = "$no<>$newdata"; $flag = 0; foreach (@data) { ($n,$regtime,$year,$mon,$day) = split(/<>/); if ($in{'day'} < $day && !$flag) {push(@new,$newdata); $flag = 1;} # if ($in{'day'} >= $day && !$flag) {push(@new,$newdata); $flag = 1;} push(@new,$_); } if (!$flag) {push(@new,$newdata);} unshift(@new,"$no<>$nowtime<>\n"); open OUT,">$logfile"; print OUT @new; close OUT; } else { $newdata = "1<>$nowtime<>\n1<>$newdata"; open OUT,">$logfile"; print OUT $newdata; close OUT; chmod(0666,$logfile); } } ####################################################################################################################### ##### 既存データ読込 ##### ####################################################################################################################### sub edtin { $log = $in{'log'}; $logfile = "$base/d$log.log"; open IN,"$logfile"; @data = ; close IN; $top = shift(@data); foreach (@data) { ($no,$regtime,$year,$mon,$day,$youbi,$sub,$com,$color,$url,$email,$pwd) = split(/<>/); if ($in{'no'} eq $no) {last;} } if ($mode ne 'admin'){ if ($regaddr ne $ENV{'REMOTE_ADDR'}) { if ($in{'inpwd'} eq '') { &dsp_log; print "
※この記事の「修正パスワード」を入力して下さい。
\n"; print "\n"; print "
Copyright © 2003 System Supply Co.,Ltd All Rights Reserved.\n"; print "\n"; print "\n"; exit; } $mat = &decrypt($in{'inpwd'},$pwd); if (!$mat) { if ($pwd eq "") {&error("該当の登録データに修正パスワードが設定されていません。");} $mat = &decrypt($in{'inpwd'},$pwd); if (!$mat) {&error("修正パスワードの入力に誤りがあります。");} } } $pwd = $in{'inpwd'}; }else{ $pwd = $adminpass ; $inpass= $adminpass ; } # print "
***** 修正・削除フォーム　*****
\n"; if ($in{'act'} eq "edtwrt") {print "※更新完了しました。修正内容をご確認ください。
\n";} else {print "※修正部分を編集後、「修正」ボタンで更新します。削除する場合は「削除」ボタンを押して下さい。
\n";} &dsp_log; # print "

\n"; $com =~ s/
/\r/g; &in_form('edt',$year,$mon,$day); print "
Copyright © 2003 System Supply Co.,Ltd All Rights Reserved.\n"; print "\n"; print "

\n"; exit; } ####################################################################################################################### ##### 既存データ書込 ##### ####################################################################################################################### sub edtwrt { &in_chk; $log = $in{'log'}; $logfile = "$base/d$log.log"; open IN,"$logfile"; @data = ; close IN; $top = shift(@data); foreach (@data) { ($no,$regtime,$year,$mon,$day,$youbi) = split(/<>/); $pwd = &crypt($in{'pwd'}); if ($in{'no'} eq $no) {push(@new,"$no<>$regtime<>$year<>$mon<>$day<>$youbi<>$in{'sub'}<>$in{'com'}<>$in{'color'}<>$in{'url'}<>$in{'email'}<>$pwd<>\n");} # if ($in{'no'} eq $no) {push(@new,"$no<>$regtime<>$year<>$mon<>$day<>$youbi<>$in{'sub'}<>$in{'com'}<>$in{'color'}<>$in{'url'}<>$in{'email'}<>$in{'pwd'}<>\n");} else {push(@new,$_);} } unshift(@new,$top); open OUT,">$logfile"; print OUT @new; close OUT; } ####################################################################################################################### ##### データ削除 ##### ####################################################################################################################### sub delwrt { $log = $in{'log'}; $logfile = "$base/d$log.log"; open IN,"$logfile"; @data = ; close IN; $top = shift(@data); foreach (@data) { ($no,$regtime) = split(/<>/); if ($in{'no'} ne $no) {push(@new,$_);} } unshift(@new,$top); open OUT,">$logfile"; print OUT @new; close OUT; } ################################################################################################################### ##### 入力チェック ##### ################################################################################################################### sub in_chk { if (!$in{'sub'}) {&error("件名を入力して下さい。");} if (!$in{'com'}) {&error("内容を入力して下さい。");} if (!$in{'pwd'}) {&error("修正パスワードを入力して下さい。");} $in{'com'} =~ s/\r\n|\n|\r/
/g; } ################################################################################################################### ##### 設定画面／設定更新（未使用）##### #sub setup { # if ($in{'wrt'} eq 'on') { # if ($in{'newpass'} ne '') {$pass = &crypt($in{'newpass'});} # $title = $in{'title'}; # $home = $in{'home'}; # $bg_img = $in{'bg_img'}; # # $bg_color = $in{'color0'}; # $text_color = $in{'color1'}; # $title_color = $in{'color2'}; # $frame_color = $in{'color3'}; # $combg_color = $in{'color4'}; # $subbg_color = $in{'color5'}; # $holi_color = $in{'color6'}; # $sat_color = $in{'color7'}; # $sche_color = $in{'color8'}; # $today_color = $in{'color9'}; # # open OUT,">$opfile"; # print OUT "$title,$pass,$home,$bg_img,$bg_color,$text_color,$title_color,$frame_color,$combg_color,$subbg_color,$holi_color,$sat_color,$sche_color,$today_color"; # 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 { print "
※エラーです。下記の点をご確認下さい。

\n"; print "
・$_[0]

\n"; print "
[前のページへ戻る]

\n"; print "
Copyright © 2003 System Supply Co.,Ltd All Rights Reserved.\n"; print "\n"; print "\n"; exit; } ###################################################################################################################