#!/usr/local/bin/perl utime time(), time(), __FILE__; ############################################################ # # 日記帳 イベントスクリプト version 0.34 # # 制作者: Yutaka Tsubakiyama # 制作日: 2003.03.20 # 種類 : フリーウエア # 動作確認:FreeBSD & perl5 # ############################################################ $mode = "1"; # 動作環境(0=Windows 1=Unix) if ($mode == "0"){ require "C:\\tsubakuro\\public_html\\diary\\jcode.pl"; # フルパス指定 require "C:\\tsubakuro\\public_html\\diary\\cgi-lib.pl"; # フルパス指定 require "C:\\tsubakuro\\public_html\\diary\\lib.pl"; # フルパス指定 require "C:\\tsubakuro\\public_html\\diary\\diaryconf.cgi"; # フルパス指定 } else { require './jcode.pl'; require './cgi-lib.pl'; require './lib.pl'; require './diaryconf.cgi'; } # システム日付の取得 ($tyear,$tmon,$tday,$twday,$thour,$tmin,$tsec) = &getdatetime(time,$jisa); # WEBから送信されたフォームを読み込む &getinputfromweb; # 初期値設定 $pass = $form{'pass'}; if ($form{'year'}){$query_year = $form{'year'};} else {$query_year = $tyear;} if ($form{'mon'}) {$query_mon = $form{'mon'}; } else {$query_mon = $tmon; } if ($form{'day'}) {$query_day = $form{'day'}; } else {$query_day = $tday; } print "Content-type: text/html\n\n"; # ヘッダーの展開(ここからHTML表示部分) &header; # アクションの判定 if ($form{'action'} eq 'set1' || $form{'action'} eq 'modify1') { if ($pass eq "" || $pass ne $passwd){ &error("ERR001 パスワードが間違っています。 : $pass","back",$eventsetcgi); } else { &EventCare1; } } elsif ($form{'action'} eq 'set2' || $form{'action'} eq 'modify2') { if ($pass eq "" || $pass ne $passwd){ &error("ERR002 パスワードが間違っています。 : $pass","back",$eventsetcgi); } else { &EventCare2; } } elsif ($form{'action'} eq 'error') { &error("$form{'ermsg'}","$form{'erkbn'}",$eventsetcgi); } else { &Confirm; } # フッターの展開 &footer; exit 0; ########################################################## # ヘッダーの展開 # sub header { print "\n"; print "
\n"; if ($kanji_code eq "sjis") { print "\n"; } else { print "\n"; } print "\n"; print "\n"; # スタイルシートの展開 print &style_css; print "$mark\予\定を選択し、暗証番号を入力してください。 "; print " | ";
print "
\n"; print "
\n"; } ########################################################## # イベントの定義 # sub EventCare1 { # サブタイトルの展開 &SubTitle('4ヶ月間の予定を設定'); # アクションの判定 if ($form{'action'} eq 'modify1') { &EventWrite; } # イベントの読込 &EventRead1; # 予定画面切り替え print ""; local($i,$j,$k,$l,$m); print "\n"; } ########################################################## # イベントの読込 # sub EventRead1 { local(@lines); $f2_tyear = $query_year; $f2_tmon = $query_mon + 1; if ($f2_tmon >= 13){$f2_tmon = 1; $f2_tyear++;} $f3_tyear = $f2_tyear; $f3_tmon = $f2_tmon + 1; if ($f3_tmon >= 13){$f3_tmon = 1; $f3_tyear++;} $f4_tyear = $f3_tyear; $f4_tmon = $f3_tmon + 1; if ($f4_tmon >= 13){$f4_tmon = 1; $f4_tyear++;} # イベントが存在するとき if (-e $eventfile) { open(IN,"$eventfile") || &error("ERR003 Open Error : $eventfile","jmp",$eventsetcgi); @lines =";
print "年間イベント "; print "・キー(月,日)の重複書き込みは出来ません。 "; print "月間イベント "; print "・キー(日)の重複書き込みは出来ません。 "; print "週間イベント "; print "・キー(曜)の重複書き込みは出来ません。"; print " |
---|
"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; if ($use_del == "1"){ print ""; print ""; } print " |
"; print "
$_[0] |
---|
\n"; }