DAY FLASH $query_year年$query_mon月

#!/usr/local/bin/perl utime time(), time(), __FILE__; ############################################################ # # 日記帳 version 0.34 # 動作確認：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'; } $wording1 = '記帳されてありません。'; # 初期値チェック # 記帳表示日数 if ($reiterate <= 0){$reiterate = 1;} if ($reiterate > $reiterate_max){$reiterate = $reiterate_max;} # 日記表示縦サイズ if ($diary_hsize < 1){$diary_hsize = 1;} if ($diary_hsize > $diary_hsizemax){$diary_hsize = $diary_hsizemax;} # 日記表示横サイズ if ($diary_wsize < 450){$diary_wsize = 450;} if ($diary_wsize > $diary_wsizemax){$diary_wsize = $diary_wsizemax;} # WEBから送信されたフォームを読み込む &getinputfromweb; $query_year = $form{'year'}; $query_mon = $form{'mon'}; $query_day = $form{'day'}; ($year,$mon,$day,$wday,$hour,$min,$sec) = &getdatetime(time,$jisa); if ($query_year eq ""){$query_year = $year;} if ($query_mon eq ""){$query_mon = $mon;} if ($query_day eq ""){ $query_day = $day; } elsif ($query_day eq "99"){ $query_day = &getgetumatu($query_year,$query_mon) } print "Content-type: text/html\n\n"; # イベントの取得 if (-e $eventfile) { if (open(DATA,"<$eventfile")){ @eventlist = ; close(DATA); } } else { open(OUT,">$eventfile") || &error("ERR001 WRITE ERROR : $eventfile","end",$diarycgi); print OUT ""; close(OUT); chmod (0666,$eventfile); @eventlist = ""; } $both = ''; # 画像ポップアップ if ($form{'action'} eq 'picture') { &PopPictures; # フレーム分割あり } elsif ($frameid == "1") { $both = '&framename=both'; if ($form{'framename'} eq 'left') { &leftdisp; } elsif ($form{'framename'} eq 'right') { &rightdisp; } elsif ($form{'framename'} eq 'both') { &leftdisp; print "\n"; } else { &framedisp; } # フレーム分割なし } elsif ($frameid == "0") { &diarydisp; # カレンダー表示なし } else { &diary2disp; } exit 0; ########################################################## # ヘッダーの展開 # sub header { print "\n"; print "\n"; if ($kanji_code eq "sjis") { print "\n"; } else { print "\n"; } print "\n"; print "\n"; print "\n"; if ($form{'action'} eq 'picture') { print &style_css2; print &JavaScript2; } else { print &style_css; print &JavaScript; } print "DAY FLASH $query_year年$query_mon月\n"; } ########################################################## # 標準表示（フレーム分割あり） sub framedisp { # ヘッダーの展開 &header; # bodyタグ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "<body><br><center>\n"; print "<p>フレームに対応していませんので、環境設定画面に於いてフレーム分割をしないを選択してください。</p>\n"; print "<p>"; print ""; print "</p>\n"; print "</center></body>\n"; print "\n"; print "\n"; } ########################################################## # 左フレーム表示 sub leftdisp { # ヘッダーの展開 &header; # bodyタグ if ($backgif1) { $bgkey = "background=\"$imagedir$backgif1\" bgcolor=$h_bgcolor1 leftmargin=0"; } else { $bgkey = "bgcolor=$h_bgcolor1 leftmargin=0"; } print "\n"; print "
\n"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "

	"; # アイコンリンク &iconlink; print "

	"; # カレンダー本体の作成 &calendar(1); &message; &EventPrint; print "

\n"; print "\n"; print "\n"; } ########################################################## # 右フレーム表示 sub rightdisp { # ヘッダーの展開 &header; # bodyタグ if ($backgif2) { $bgkey = "background=\"$imagedir$backgif2\" bgcolor=$h_bgcolor2 leftmargin=0"; } else { $bgkey = "bgcolor=$h_bgcolor2 leftmargin=0"; } print "\n"; print "\n"; print "
\n"; print ""; print ""; # タイトル print ""; print ""; print ""; # 日記本体の作成開始 print ""; print ""; print "

"; &diarytitle; print "
"; # 四隅の編集 &corners; # 書き込み背景カラー設定 &backcolor; # 年月日の待避 $next_year = $query_year; $next_mon = $query_mon; $next_day = $query_day; $no = 0; # 表示条件（1=日記 0=全て） if ($diary_condition == "1"){ &write_view($reiterate,1); } else { # 記帳内容取得 &Is_GetDate(1); &all_view($reiterate,1); } print "

"; print "\n"; print "\n"; } ########################################################## # 標準表示（フレーム分割なし） sub diarydisp { # ヘッダーの展開 &header; # bodyタグ if ($backgif) { $bgkey = "background=\"$imagedir$backgif\" bgcolor=$h_bgcolor"; } else { $bgkey = "bgcolor=$h_bgcolor"; } print "\n"; print "\n"; # title print "
\n"; print "\n"; print ""; # 著作権表示 print "\n"; print "

"; print "\n"; print ""; print ""; # アイコンリンク print ""; print ""; print ""; print ""; print ""; print "\n"; print "\n"; print "

	\n"; print "

	\n"; # カレンダー本体の作成 &calendar(1); &message; print "

\n"; print "

"; print "\n"; # タイトル print ""; print ""; print ""; print ""; print ""; # 日記本体の作成開始 print "\n"; print "\n"; print "

"; &diarytitle; print "

過去のDAY FLASHはこちら

\n"; # 四隅の編集 &corners; # 書き込み背景カラー設定 &backcolor; # 年月日の待避 $next_year = $query_year; $next_mon = $query_mon; $next_day = $query_day; $no = 0; # 表示条件（1=日記 0=全て） if ($diary_condition == "1"){ &write_view($reiterate,1); } else { # 記帳内容取得 &Is_GetDate(1); &all_view($reiterate,1); } # 日記制御 $w_past = $diary_wsize + 36; print "

\n"; print "

\n"; print "
\n"; print "\n"; } ########################################################## # 標準表示（カレンダー表示なし） sub diary2disp { # ヘッダーの展開 &header; # bodyタグ if ($backgif) { $bgkey = "background=\"$imagedir$backgif\" bgcolor=$h_bgcolor"; } else { $bgkey = "bgcolor=$h_bgcolor"; } print "\n"; print "\n"; print "
\n"; print ""; print ""; # アイコンリンク print ""; print ""; print ""; print ""; # タイトル print ""; print ""; print ""; # 日記本体の作成開始 print ""; print ""; print ""; print ""; # 著作権表示 print ""; print ""; print "

"; &iconlink; print "

"; &diarytitle; print "

"; # 四隅の編集 &corners; # 書き込み背景カラー設定 &backcolor; # 年月日の待避 $next_year = $query_year; $next_mon = $query_mon; $next_day = $query_day; $no = 0; # 表示条件（1=日記 0=全て） if ($diary_condition == "1"){ &write_view($reiterate,1); } else { # 記帳内容取得 &Is_GetDate(1); &all_view($reiterate,1); } # 日記制御 $w_past = $diary_wsize + 36; print "\n"; print "\n"; print "\n"; } else { print ""; print "the last\n"; } print "\n"; print "

the newest | "; # 日記の表示 (1=昇順 0=降順) if ($screen == "1"){ print ""; print "the next

\n"; # 日記本体の作成終了 print "

"; print "

\n"; print "
\n"; print "\n"; } ########################################################## # アイコンリンク sub iconlink { if ($frameid eq "1") { $target = " target=\"_parent\""; } else { $target = ""; } print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; if ($use_del == "1"){ print ""; print ""; } print ""; print ""; if ($use_mail == "1"){ print ""; print ""; } } ########################################################## # 左側カレンダー下のメッセージの設定 sub message { print ""; print ""; print "

$message1

\n"; } ########################################################## # 書き込み背景カラー設定 sub backcolor { if (-e "$imagedir$backpengif") { $backpen = ""; } else { $backpen = ""; } } ########################################################## # 記帳表示 sub Is_Screen { print ""; print ""; print "

\n"; &screens($next_year,$next_mon,$next_day,$wtitlegif,$color_no,$next_diarydata,'0'); print "

\n"; } ########################################################## # 検索期間内に記帳されていない sub Is_NoScreen { $hyouji = '表示'; print ""; print "\n"; print "$upperleft"; print ""; print "$upperright"; print "\n"; print ""; # 書き込み背景カラー設定 if (-e "$imagedir$backpengif") { print "\n"; print ""; print "\n"; print "$lowerleft"; print ""; print "$lowerright"; print "

"; print "

"; print "

"; } else { print "

"; } # 日記の表示 (1=昇順 0=降順) if ($screen == "1"){ print ""; print ""; print ""; print "

"; print "$wording1
"; print "（$query_year/$query_mon/$query_day～$last_year/$last_mon/$last_day - $reiterate日間の昇順$hyouji）"; print "

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

"; print "$wording1
"; print "（$last_year/$last_mon/$last_day～$query_year/$query_mon/$query_day - $reiterate日間の降順$hyouji）"; print "

\n"; } print "

"; print "

"; print "

\n"; } ############################################################ # イベントの展開 # sub EventPrint { $e_year = $year; $e_mon = $mon; print "
\n"; print ""; for $i (1..4) { $tamaend = &getgetumatu($e_year,$e_mon); for $e_day (1..$tamaend) { @holidaylist = &EventList($e_year); push(@holidaylist,@eventlist); $e_youbi = &getyoubi($e_year,$e_mon,$e_day); ($flag1,$flag2,$event) = &MakeEvent($e_year,$e_mon,$e_day,$e_youbi,@holidaylist); if ($event) { print "\n"; } } $e_mon++; if ($e_mon > 12) { $e_year++; $e_mon = 1; } } print "

$eventtitle

・"; print "$event($e_mon/$e_day)

\n"; } ############################################################ # スクリーンの展開 # sub PopPictures { # 設定 $picture = $up_dir . $form{'picture'}; # 画像サイズの取得 if (substr($picture, -4, 4) eq '.gif') { ($wsize,$hsize) = &GifSize("$picture"); } elsif (substr($picture, -4, 4) eq '.jpg') { ($wsize,$hsize) = &JpegSize("$picture"); } elsif (substr($picture, -4, 4) eq '.png') { ($wsize,$hsize) = &PngSize("$picture"); } # ヘッダーの展開 &header; # bodyタグ if ($backgif) { $bgkey = "background=\"$imagedir$backgif\" bgcolor=$h_bgcolor"; } else { $bgkey = "bgcolor=$h_bgcolor"; } print "\n"; print "\n"; # 画像表示 print <<"EOM";

$\"クリックすると閉じます\"$

EOM print "\n"; print "\n"; print "\n"; }