#!/usr/local/bin/perl

#↑パスを変更する
$ver_info = "ver.1.51";
##############################################
## 著作権表示：削除不可                     ##
## Quick Schedule (simplification)          ##
##                    ver.1.51 (00/12/12)   ##
## Copyright(C) CG-grasp                    ##
## E-MAIL: info@cg-grasp.com                ##
## Web: http://www.cg-grasp.com/            ##
##############################################

#====== 注意事項 ===============================================#
# 1. このスクリプトはフリーソフトです。このスクリプトを使用した #
#    いかなる損害に対して作者は一切の責任を負いません。         #
#    直接メールによる質問は一切お受けいたしておりません。       #
#---------------------------------------------------------------#

# 設置方法に関しては付属のreadme.htmをお読み下さい。
#

#===============### 設定 ###=============================================

# 文字コードライブラリまでのパス
require './jcode.pl';
 
# スケジュール保存ファイル
$sch_d = "./sch_d.cgi"; 

# 画像ファイルまでのパス
$s_imd = ".";

# パスワード
$p_p = "osakana3";

# プログラムの名前
$pr_na = "schedule.cgi";

# 画面に表示させるタイトル
$title = "DBCJ Quick Schedule";

# タイトルの文字の大きさ
$title_s = 4;

# タイトルの文字の色
$title_c = "WHITE";

# ページの背景の色
$bgcolor="RED";

# スケジュールの背景の色
$sch_bgcolor="#FFFFFF";

# スケジュールの文字の色
$sch_chr="#000066";

# カレンダーの背景色
$cg_bg = "#6699FF";

# カレンダーのテーブルボーダー色
$cg_border = "#66CCFF";

# カレンダーの月表示の背景色
$cg_mon_bg = "#66CCFF";

# 日付の背景色
$day_bg = "#FFFFFF";

# 当日の背景色
$today_bg = "#CCCCFF";

# 日曜日の文字色
$sun_c ="#FF0000";

# 土曜日の文字色
$sat_c ="#0000CC";

# その他の日の文字色
$other_c ="#000066";

# 戻り先
$ret_u ="http://discus.powerbean.jp";
# スケジュールカテゴリー (6個まで)
@category = ('**','自宅オフ','ショプオフ','飲み会オフ','旅行オフ');
#=============================設定ここまで=================




#======================フォームからのデータを取得==============================

   if ($ENV{'REQUEST_METHOD'} eq 'GET')
   {
      @pairs = split(/&/, $ENV{'QUERY_STRING'});
   }
   elsif ($ENV{'REQUEST_METHOD'} eq 'POST')
   {
      read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
      @pairs = split(/&/, $buffer);
   }
   else
   {
      &error('request_method');
   }
   foreach $pair (@pairs)
   {
     ($name, $value) = split(/=/, $pair);
     $name =~ tr/+/ /;
     $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
     $value =~ tr/+/ /;
     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
     &jcode'convert(*name,'sjis');
     &jcode'convert(*value,'sjis');
     $value =~ s/<!--(.|\n)*-->//g;
     $value =~ s/<html(.|\n)*//ig;
     $value =~ s/<body(.|\n)*//ig;
     $value =~ s/<script(.|\n)*//ig;
     $value =~ s/<table(.|\n)*//ig;
     $value =~ s/<form(.|\n)*//ig;
     $value =~ s/<html(.|\n)*//ig;
     $value =~ s/<xmp(.|\n)*//ig;
     $value =~ s/\r\n/<br>/g;
     $value =~ s/\r/<br>/g;
     $value =~ s/\n/<br>/g;
     $value =~ s/:/：/g;
     $FORM{$name} = $value;
   }
#==============================================================================


#===========================処理の振り分け=====================================

$buffer = $ENV{'QUERY_STRING'};

foreach $line ($buffer) {
	($he_b) = split(/&/, $line);
			}

if ($ENV{'HTTP_REFERER'} !~ /$pr_na/)
{
&top;
}
elsif ($FORM{'hantei'} eq "ck")
{
&hantei;
}
elsif ( $he_b eq "" )
{
&main;
}
elsif ( $he_b == 01 )
{
&wr_sch;
}

elsif ( $he_b == 02 )
{
&re_wr;
}

elsif ( $he_b == 03 )
{
&re_sch;
}
elsif ($he_b == 04 )
{
&sch_dl;
}
else
{
&move;
}

#========================メインページ==========================================
sub main
{
if ($ENV{'HTTP_REFERER'} !~ /$pr_na/)
{
&error('不正なアクセスです。');
}
#=====================今日の日付を取得==========================================
@days = ('日','月','火','水','木','金','土');
   @months = ('1月','2月','3月','4月','5月','6月','7月',
              '8月','9月','10月','11月','12月');
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   if ($year > 99) { $year_d = "20";
		     $year = $year-100;
                     if ($year < 10){$year = "0$year";}
	             }
                     else {$year_d = "19";}
   if ($hour < 10) { $hour = "0$hour"; }
   if ($min < 10) { $min = "0$min"; }
   if ($sec < 10) { $sec = "0$sec"; }


#======================日付から曜日の習得======================================
$b_year = "$year_d$year";
$this_year = "$year_d$year";
$mon ++;

if ($mon == 1 || $mon == 2){
		$this_year--;
		$mon += 12;
	}

$w_day = ($this_year + int($this_year/4) - int($this_year/100) + int($this_year/400)
		 + int((13*$mon + 8)/5) + 1) % 7;

if ($mon == 13 || $mon == 14){
		$this_year++;
		$mon -= 12;
	}
#========================各月の日数と閏年の判定================================
@mon_day = (0,31,28,31,30,31,30,31,31,30,31,30,31);

if ( (!($this_year % 4) && ($this_year % 100)) || !($this_year % 400) )
	{
	$mon_ht = 1;
	}
	
	else
	{
	$mon_ht = 0;
	}
	$mon_day[2] += $mon_ht;
	@mon_day;

#==============================================================================

#============================前の月と次の月====================================

	if ($mon == 12) #====次の月=========
		{
		$next_y = $this_year;
		$next_y++;
		$next_m = "1";
		}
	else
		{
		$next_y = $this_year;
		$next_m = $mon;
		$next_m++;
		}

	if ($mon == 1) #====前の月=========
		{
		$last_y = $this_year;
		$last_y--;
		$last_m = "12";
		}
	else
		{
		$last_y = $this_year;
		$last_m = $mon;
		$last_m--;
		}

#==============================================================================

#====================過去2年と未来2年==========================================
$pa_y1 = $this_year;
$pa_y1 -= 1;
$pa_y2 = $this_year;
$pa_y2 -= 2;

$fu_y1 = $this_year;
$fu_y1 += 1;
$fu_y2 = $this_year;
$fu_y2 += 2;


#==============================================================================
&page_1;

print <<PAGE_1;

              <table bgcolor="$cg_bg" border=0 width=140>
                <tr> 
                  <td align=middle bgcolor="$cg_mon_bg" colspan=7 width=210><b><font size=1><a href="$pr_na?00&$last_y&$last_m&$mday"><img src="$s_imd/ar_a.gif" border=0></a> $this_year年$mon月 <a href="$pr_na?00&$next_y&$next_m&$mday"><img src="$s_imd/ar_b.gif" border=0></a></font></b></td>
                </tr>
                <tr> 
PAGE_1

#================================= 曜日の表示

	for($i=0;$i<=6;$i++){

			if($i == 0)
			{
				$d_col="red";
			}
			elsif($i == 6)
			{
				$d_col="blue";
			}

			else
			{
				$d_col="black";
			}


		print "<td width=\"20\" align=\"center\" bgcolor=\"$day_bg\"><font size=1 color=$d_col>@days[$i]</font></td>\n";
	}

#######
	$k=0;
	$date=1;
	
	for($i=0;$i<=5;$i++){
		print "  <tr>\n";
		for($j=0;$j<=6;$j++){

#==========================今日の日付の表示==============================
			if($mday==$date)
			{
				$to="$today_bg";
			}
			
			else
			{
				$to="$day_bg";
			}
#==========================================================================
$sun_col = "$sun_c";
$sat_col = "blue";
$other_col = "$other_c";

			if(($k<$w_day)||($date>$mon_day[$mon])){
				print "<td width=\"20\" align=\"center\"><\/td>\n";
			}
			else{
				if($j==0){
					$col=$sun_col;
				}
				elsif($j==6){
					$col=$sat_col;
				}
				else{
					$col="$other_col";
				}
				print "<td width=\"20\" align=\"center\" bgcolor=\"$to\"><a href=$pr_na?00&$this_year&$mon&$date STYLE=\"text-decoration:none\"><font size=1 color=$col>$date</font></a></td>\n";
				$col="";
				$date++;
			}
			$k++;
		}
		print "  </tr>\n";
	}
print "  </tr>\n";
print "  </table>\n";

print<<HTML_01;

<table bgcolor="$cg_bg" border=1 width=140 bordercolor="$cg_border">
<tr valign="middle" align="center"> 
<td height="19"><b><font size=1>$this_year年$mon月$mday日($days[$wday])</b></td><tr> 
<td align=middle> 
<form name=zikoku>
<input name=watch size=5>
<script language=JavaScript>
function watch() {
now = new Date();
hour = now.getHours();
min = now.getMinutes();
sec = now.getSeconds();
if (hour < 10)hour = "0" + hour;
if (min < 10)min = "0" + min;
if (sec < 10)sec = "0" + sec;
document.zikoku.watch.value = hour+":"+min;
setTimeout('watch()', 999);
}
watch();
</script>
</form></td></tr></table>
              
<form action=$pr_na?01 method=post name=cal onSubmit="return kakunin()">
<center>
<font size="2">
<select name=w_nen>
<option value="$pa_y2">$pa_y2年</option>
<option value="$pa_y1">$pa_y1年</option>
<option value="$this_year" selected>$this_year年</option>
<option value="$fu_y1">$fu_y1年</option>
<option value="$fu_y2">$fu_y2年</option>
</select>
<br>
<select name=w_tuki>
HTML_01
for ($mm_b=1; $mm_b<=12; $mm_b++) {
if ($mm_b == $mon)  { print '<OPTION SELECTED VALUE="'.$mm_b.'">'.$mm_b.'月' . "\n"; }
else  { print '<OPTION  VALUE="'.$mm_b.'">'.$mm_b.'月' . "\n"; }
}
            

print " </select> \n";
print "<select name=\"w_hi\">\n";

for ($md_b=1; $md_b<=31; $md_b++) {
if ($md_b == $mday)  { print '<OPTION SELECTED VALUE="'.$md_b.'">'.$md_b.'日' . "\n"; }
else  { print '<OPTION  VALUE="'.$md_b.'">'.$md_b.'日' . "\n"; }
}

print<<HTML_DD;


            </select>
            <br>
             <select name="w_ho1">
	<option value="0">午前0時</option>
	<option value="1">午前1時</option>
	<option value="2">午前2時</option>
	<option value="3">午前3時</option>
	<option value="4">午前4時</option>
	<option value="5">午前5時</option>
	<option value="6">午前6時</option>
	<option value="7">午前7時</option>
	<option value="8">午前8時</option>
	<option value="9" SELECTED>午前9時</option>
	<option value="10">午前10時</option>
	<option value="11">午前11時</option>
	<option value="12">午後12時</option>
	<option value="13">午後1時</option>
	<option value="14">午後2時</option>
	<option value="15">午後3時</option>
	<option value="16">午後4時</option>
	<option value="17">午後5時</option>
	<option value="18">午後6時</option>
	<option value="19">午後7時</option>
	<option value="20">午後8時</option>
	<option value="21">午後9時</option>
	<option value="22">午後10時</option>
	<option value="23">午後11時</option>
            </select>
            <select name="w_ho2">
	<option value="00">00分</option>
	<option value="05">05分</option>
	<option value="10">10分</option>
	<option value="15">15分</option>
	<option value="20">20分</option>
	<option value="25">25分</option>
	<option value="30">30分</option>
	<option value="35">35分</option>
	<option value="40">40分</option>
	<option value="45">45分</option>
	<option value="50">50分</option>
	<option value="55">55分</option>
            </select>
            <br>
	</center>
           </font>         

        <select name="cate">
          <option value="0">カテゴリーなし</option>
          <option value="1">アポイント</option>
          <option value="2">出張</option>
          <option value="3">会議</option>
          <option value="4">接客</option>
          <option value="5">休暇</option>
        </select>
<textarea name="yotei" cols="20" rows="4"></textarea>
<input type="submit" name="Submit" value="スケジュールの追加">
</form>
</td>
<td width="69%" valign="top">
<hr size="1">
<b><font size=2>$this_year年$mon月$mday日($days[$wday])の\予\定</font></b>
<hr size="1">
<div align="center">
HTML_DD

#=========================予定の書き始め=======================================
     open (IN,"$sch_d");
     @SCH_DATA = <IN>;
     close (IN);

@SCH_DATA = sort { (split(/\:/,$a))[4] <=> (split(/\:/,$b))[4] || (split(/\:/,$a))[5] <=> (split(/\:/,$b))[5]} @SCH_DATA;

foreach $line (@SCH_DATA) {
	($bangou,$nen,$tuki,$hiduke,$hour_1,$hour_2,$sch_b,$cat) = split(/:/, $line);

	if ( $this_year eq $nen && $mon eq $tuki && $mday eq $hiduke ) {push(@NE,$line);}

			  }
foreach $line (@NE) {
	($bangou,$nen,$tuki,$hiduke,$hour_1,$hour_2,$sch_b,$cat) = split(/:/, $line);

print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=0><tr>\n";
print "<td align=\"center\" valign=\"middle\" width=\"11%\">\n";
print "<font size=\"2\">$hour_1:$hour_2</font></td>\n";
print "<td width=\"69%\" valign=\"middle\">\n";
print "<font size=1><b>$category[$cat]</b></font><br>\n";
print "<font size=2>$sch_b</font></td>\n";
print "<td width=\"20%\" valign=\"middle\" align=\"center\">\n";
print "<a href=\"$pr_na?02&$bangou&$nen&$tuki&$hiduke&$hour_1&$hour_2&$cat\"><font size=2>この\予\定を\編\集</font></a><br><a href=\"$pr_na?04&$bangou&$nen&$tuki&$hiduke&$hour_1&$hour_2&$cat\"\"><font size=2>この\予\定\を\削除</font></a>\n";
print "</td></tr></table>\n";
print "<center><hr size=1 width=80%></center><br>\n";

}
#=====================
&page_3;
}
#=========================================メイン終了===========================


#========================カレンダー移動========================================
sub move
{
if ($ENV{'HTTP_REFERER'} !~ /$pr_na/)
{
&error('不正なアクセスです。');
}

foreach $line ($buffer) {
	($he,$m_nen,$m_tuki,$m_hiduke) = split(/&/, $line);
			}
#=====================今日の日付を取得==========================================
@days = ('日','月','火','水','木','金','土');
   @months = ('1月','2月','3月','4月','5月','6月','7月',
              '8月','9月','10月','11月','12月');
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   if ($year > 99) { $year_d = "20";
		     $year = $year-100;
                     if ($year < 10){$year = "0$year";}
	             }
                     else {$year_d = "19";}
   if ($hour < 10) { $hour = "0$hour"; }
   if ($min < 10) { $min = "0$min"; }
   if ($sec < 10) { $sec = "0$sec"; }


#======================日付から曜日の習得======================================
$b_year = "$year_d$year";
$this_year = "$year_d$year";
$mon ++;

if ($m_tuki == 1 || $m_tuki == 2){
		$m_nen--;
		$m_tuki += 12;
	}

$m_day = ($m_nen + int($m_nen/4) - int($m_nen/100) + int($m_nen/400)
		 + int((13*$m_tuki + 8)/5) + 1) % 7;

if ($m_tuki == 13 || $m_tuki == 14){
		$m_nen++;
		$m_tuki -= 12;
	}

#================移動した日の曜日
if ($m_tuki == 1 || $m_tuki == 2){
		$m_nen--;
		$m_tuki += 12;
	}

$mw_day = ($m_nen + int($m_nen/4) - int($m_nen/100) + int($m_nen/400)
		 + int((13*$m_tuki + 8)/5) + $m_hiduke) % 7;

if ($m_tuki == 13 || $m_tuki == 14){
		$m_nen++;
		$m_tuki -= 12;
	}


#==============================================================================
@mon_day = (0,31,28,31,30,31,30,31,31,30,31,30,31);

if ( (!($m_nen % 4) && ($m_nen % 100)) || !($m_nen % 400) )
	{
	$mon_ht = 1;
	}
	
	else
	{
	$mon_ht = 0;
	}
	$mon_day[2] += $mon_ht;
	@mon_day;

#==============================================================================

#============================前の月と次の月====================================

	if ($m_tuki == 12) #====次の月=========
		{
		$next_y = $m_nen;
		$next_y++;
		$next_m = "1";
		}
	else
		{
		$next_y = $m_nen;
		$next_m = $m_tuki;
		$next_m++;
		}

	if ($m_tuki == 1) #====前の月=========
		{
		$last_y = $m_nen;
		$last_y--;
		$last_m = "12";
		}
	else
		{
		$last_y = $m_nen;
		$last_m = $m_tuki;
		$last_m--;
		}

#==============================================================================

#====================過去2年と未来2年==========================================
$pam_y1 = $m_nen;
$pam_y1 -= 1;
$pam_y2 = $m_nen;
$pam_y2 -= 2;

$fum_y1 = $m_nen;
$fum_y1 += 1;
$fum_y2 = $m_nen;
$fum_y2 += 2;


#==============================================================================
&page_1;

print <<PAGE_2;
              
              <table bgcolor="$cg_bg" border=0 width=140>
                <tr> 
                  <td align=middle bgcolor="$cg_mon_bg" colspan=7 width=210><b><font size=1><a href="$pr_na?00&$last_y&$last_m&$mday"><img src="$s_imd/ar_a.gif" border=0></a> $m_nen年$m_tuki月<a href="$pr_na?00&$next_y&$next_m&$mday"><img src="$s_imd/ar_b.gif" border=0></a></font></b></td>
                </tr>
                <tr> 
PAGE_2

#================================= 曜日の表示

	for($i=0;$i<=6;$i++){

			if($i == 0)
			{
				$d_col="red";
			}
			elsif($i == 6)
			{
				$d_col="blue";
			}

			else
			{
				$d_col="black";
			}


		print "<td width=\"20\" align=\"center\" bgcolor=\"$day_bg\"><font size=1 color=$d_col>@days[$i]</font></td>\n";
	}

#######
	$k=0;
	$date=1;
	
	for($i=0;$i<=5;$i++){
		print "  <tr>\n";
		for($j=0;$j<=6;$j++){

#==========================今日の日付の表示==============================
			if($m_hiduke==$date)
			{
				$to="$today_bg";
			}
			
			else
			{
				$to="$day_bg";
			}
#==========================================================================
$sun_col = "$sun_c";
$sat_col = "$sat_c";
$other_col = "$other_c";

			if(($k<$m_day)||($date>$mon_day[$m_tuki])){
				print "<td width=\"20\" align=\"center\"><\/td>\n";
			}
			else{
				if($j==0){
					$col=$sun_col;
				}
				elsif($j==6){
					$col=$sat_col;
				}
				else{
					$col="$other_col";
				}
				print "<td width=\"20\" align=\"center\" bgcolor=\"$to\"><a href=$pr_na?00&$m_nen&$m_tuki&$date STYLE=\"text-decoration:none\"><font size=1 color=\"$col\">$date</font></a></td>\n";
				$col="";;
				$date++;
			}
			$k++;
		}
		print "  </tr>\n";
	}
print "  </tr>\n";
print "  </table>\n";
print<<HTML_01;

<table bgcolor="$cg_bg" border=1 width=140 bordercolor="$cg_border">
<tr valign="middle" align="center"> 
<td height="19"><b><font size=1><a href="$pr_na">$this_year年$mon月$mday日($days[$wday])</a></b></td><tr> 
<td align=middle> 
<form name=zikoku>
<input name=watch size=5>
<script language=JavaScript>
function watch() {
now = new Date();
hour = now.getHours();
min = now.getMinutes();
sec = now.getSeconds();
if (hour < 10)hour = "0" + hour;
if (min < 10)min = "0" + min;
if (sec < 10)sec = "0" + sec;
document.zikoku.watch.value = hour+":"+min;
setTimeout('watch()', 999);
}
watch();
</script>
</form></td></tr></table>
              
<form action=$pr_na?01 method=post name=cal onSubmit="return kakunin()">
<center>
<font size="2">
<select name=w_nen>
<option value="$pam_y2">$pam_y2年</option>
<option value="$pam_y1">$pam_y1年</option>
<option value="$m_nen" selected>$m_nen年</option>
<option value="$fum_y1">$fum_y1年</option>
<option value="$fum_y2">$fum_y2年</option>
</select>
<br>
<select name=w_tuki>
HTML_01

for ($mm_b=1; $mm_b<=12; $mm_b++) {
if ($mm_b == $m_tuki)  { print '<OPTION SELECTED VALUE="'.$mm_b.'">'.$mm_b.'月' . "\n"; }
else  { print '<OPTION  VALUE="'.$mm_b.'">'.$mm_b.'月' . "\n"; }
}
            
print " </select> \n";
print "<select name=\"w_hi\">\n";

for ($md_b=1; $md_b<=31; $md_b++) {
if ($md_b == $m_hiduke)  { print '<OPTION SELECTED VALUE="'.$md_b.'">'.$md_b.'日' . "\n"; }
else  { print '<OPTION  VALUE="'.$md_b.'">'.$md_b.'日' . "\n"; }
}

print<<HTML_DD;


            </select>
            <br>
             <select name="w_ho1">
	<option value="0">午前0時</option>
	<option value="1">午前1時</option>
	<option value="2">午前2時</option>
	<option value="3">午前3時</option>
	<option value="4">午前4時</option>
	<option value="5">午前5時</option>
	<option value="6">午前6時</option>
	<option value="7">午前7時</option>
	<option value="8">午前8時</option>
	<option value="9" SELECTED>午前9時</option>
	<option value="10">午前10時</option>
	<option value="11">午前11時</option>
	<option value="12">午後12時</option>
	<option value="13">午後1時</option>
	<option value="14">午後2時</option>
	<option value="15">午後3時</option>
	<option value="16">午後4時</option>
	<option value="17">午後5時</option>
	<option value="18">午後6時</option>
	<option value="19">午後7時</option>
	<option value="20">午後8時</option>
	<option value="21">午後9時</option>
	<option value="22">午後10時</option>
	<option value="23">午後11時</option>
            </select>
            <select name="w_ho2">
	<option value="00">00分</option>
	<option value="05">05分</option>
	<option value="10">10分</option>
	<option value="15">15分</option>
	<option value="20">20分</option>
	<option value="25">25分</option>
	<option value="30">30分</option>
	<option value="35">35分</option>
	<option value="40">40分</option>
	<option value="45">45分</option>
	<option value="50">50分</option>
	<option value="55">55分</option>
            </select>
            <br>
	</center>
           </font>         

        <select name="cate">
          <option value="0">カテゴリーなし</option>
          <option value="1">自宅オフ</option>
          <option value="2">ショップオフ</option>
          <option value="3">飲み会オフ</option>
          <option value="4">旅行オフ</option>
          <option value="5">その他</option>
        </select>
<textarea name="yotei" cols="20" rows="4"></textarea>
<input type="submit" name="Submit" value="スケジュールの追加">
</form>
</td>
<td width="69%" valign="top">
<hr size="1">
<b><font size=2>$m_nen年$m_tuki月$m_hiduke日($days[$mw_day])の\予\定</font></b>
<hr size="1">
<div align="center">
HTML_DD

#=========================予定の書き始め=======================================

$sch_g = $sch_d;
 
     open (IN,"$sch_g");
     @SCH_DATA = <IN>;
     close (IN);

@SCH_DATA = sort { (split(/\:/,$a))[4] <=> (split(/\:/,$b))[4] || (split(/\:/,$a))[5] <=> (split(/\:/,$b))[5]} @SCH_DATA;

foreach $line (@SCH_DATA) {
	($bangou,$nen,$tuki,$hiduke,$hour_1,$hour_2,$sch_b,$cat) = split(/:/, $line);

	if ( $m_nen eq $nen && $m_tuki eq $tuki && $m_hiduke eq $hiduke ) {push(@NE,$line);}

			  }
foreach $line (@NE) {
	($bangou,$nen,$tuki,$hiduke,$hour_1,$hour_2,$sch_b,$cat) = split(/:/, $line);

print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=0><tr>\n";
print "<td align=\"center\" valign=\"middle\" width=\"11%\">\n";
print "<font size=\"2\">$hour_1:$hour_2</font></td>\n";
print "<td width=\"69%\" valign=\"middle\">\n";
print "<font size=1><b>$category[$cat]</b></font><br>\n";
print "<font size=2>$sch_b</font></td>\n";
print "<td width=\"20%\" valign=\"middle\" align=\"center\">\n";
print "<a href=\"$pr_na?02&$bangou&$nen&$tuki&$hiduke&$hour_1&$hour_2&$cat\"><font size=2>この\予\定を\編\集</font></a><br><a href=\"$pr_na?04&$bangou&$nen&$tuki&$hiduke&$hour_1&$hour_2&$cat\"\"><font size=2>この\予\定を\削\除</font></a>\n";
print "</td></tr></table>\n";
print "<center><hr size=1 width=80%></center><br>\n";

}

#=============================ここまで=========================================
&page_3;
}
#==============================カレンダー移動の終わり==========================

#=========================スケジュールの書きこみ===============================
sub wr_sch
{
if ($ENV{'HTTP_REFERER'} !~ /$pr_na/)
{
&error('不正なアクセスです。');
}
     open (IN,"$sch_d");
     @SCH_DATA = <IN>;
     close (IN);
@SCH_DATA = sort { (split(/\:/,$a))[0] <=> (split(/\:/,$b))[0] } @SCH_DATA;

foreach $line (@SCH_DATA) {
	($bangou,$nen,$tuki,$hiduke,$hour_1,$hour_2,$sch_b,$cat) = split(/:/, $line);
}
if ($bangou eq "")
{
$bd = "01";
}
else
{
$bd = $bangou;
$bd++;
}
open (sch_wr, ">>$sch_d") || die "Counter Writen Error...................\n";
flock($sch_d,2);
seek($sch_d,0,0);
print sch_wr "$bd:$FORM{'w_nen'}:$FORM{'w_tuki'}:$FORM{'w_hi'}:$FORM{'w_ho1'}:$FORM{'w_ho2'}:$FORM{'yotei'}:$FORM{'cate'}\n";
close(sch_wr);
flock($sch_d,8);

&move($buffer = "00&$FORM{'w_nen'}&$FORM{'w_tuki'}&$FORM{'w_hi'}");
}
#=========================スケジュールの書きこみ終わり=========================


#=========================スケジュールの編集===================================
sub re_wr
{
if ($ENV{'HTTP_REFERER'} !~ /$pr_na/)
{
&error('不正なアクセスです。');
}
foreach $line ($buffer) {
	($he,$ban,$m_nen,$m_tuki,$m_hiduke) = split(/&/, $line);
			}
#=====================今日の日付を取得==========================================
@days = ('日','月','火','水','木','金','土');
   @months = ('1月','2月','3月','4月','5月','6月','7月',
              '8月','9月','10月','11月','12月');
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   if ($year > 99) { $year_d = "20";
		     $year = $year-100;
                     if ($year < 10){$year = "0$year";}
	             }
                     else {$year_d = "19";}
   if ($hour < 10) { $hour = "0$hour"; }
   if ($min < 10) { $min = "0$min"; }
   if ($sec < 10) { $sec = "0$sec"; }


#==============================================================================
$b_year = "$year_d$year";
$this_year = "$year_d$year";
$mon ++;

if ($m_tuki == 1 || $m_tuki == 2){
		$m_nen--;
		$m_tuki += 12;
	}

$m_day = ($m_nen + int($m_nen/4) - int($m_nen/100) + int($m_nen/400)
		 + int((13*$m_tuki + 8)/5) + 1) % 7;

if ($m_tuki == 13 || $m_tuki == 14){
		$m_nen++;
		$m_tuki -= 12;
	}

#================移動した日の曜日
if ($m_tuki == 1 || $m_tuki == 2){
		$m_nen--;
		$m_tuki += 12;
	}

$mw_day = ($m_nen + int($m_nen/4) - int($m_nen/100) + int($m_nen/400)
		 + int((13*$m_tuki + 8)/5) + $m_hiduke) % 7;

if ($m_tuki == 13 || $m_tuki == 14){
		$m_nen++;
		$m_tuki -= 12;
	}


#==============================================================================
@mon_day = (0,31,28,31,30,31,30,31,31,30,31,30,31);

if ( (!($m_nen % 4) && ($m_nen % 100)) || !($m_nen % 400) )
	{
	$mon_ht = 1;
	}
	
	else
	{
	$mon_ht = 0;
	}
	$mon_day[2] += $mon_ht;
	@mon_day;

#==============================================================================

#============================前の月と次の月====================================

	if ($m_tuki == 12) #====次の月=========
		{
		$next_y = $m_nen;
		$next_y++;
		$next_m = "1";
		}
	else
		{
		$next_y = $m_nen;
		$next_m = $m_tuki;
		$next_m++;
		}

	if ($m_tuki == 1) #====前の月=========
		{
		$last_y = $m_nen;
		$last_y--;
		$last_m = "12";
		}
	else
		{
		$last_y = $m_nen;
		$last_m = $m_tuki;
		$last_m--;
		}

#==============================================================================


#==============================================================================
&page_1;
print <<PAGE_RE;
              
              <table bgcolor="$cg_bg" border=0 width=140>
                <tr> 
                  <td align=middle bgcolor="$cg_mon_bg" colspan=7 width=210><b><font size=1><a href="$pr_na?00&$last_y&$last_m&$mday"><img src="$s_imd/ar_a.gif" border=0></a> $m_nen年$m_tuki月<a href="$pr_na?00&$next_y&$next_m&$mday"><img src="$s_imd/ar_b.gif" border=0></a></font></b></td>
                </tr>
                <tr> 
PAGE_RE

#================================= 曜日の表示

	for($i=0;$i<=6;$i++){

			if($i == 0)
			{
				$d_col="red";
			}
			elsif($i == 6)
			{
				$d_col="blue";
			}

			else
			{
				$d_col="black";
			}


		print "<td width=\"20\" align=\"center\" bgcolor=\"$day_bg\"><font size=1 color=$d_col>@days[$i]</font></td>\n";
	}

#######
	$k=0;
	$date=1;
	
	for($i=0;$i<=5;$i++){
		print "  <tr>\n";
		for($j=0;$j<=6;$j++){

#==========================今日の日付の表示==============================
			if($m_hiduke==$date)
			{
				$to="$today_bg";
			}
			
			else
			{
				$to="$day_bg";
			}
#==========================================================================
$sun_col = "$sun_c";
$sat_col = "$sat_c";
$other_col = "\#000066";

			if(($k<$m_day)||($date>$mon_day[$m_tuki])){
				print "<td width=\"20\" align=\"center\"><\/td>\n";
			}
			else{
				if($j==0){
					$col=$sun_col;
				}
				elsif($j==6){
					$col=$sat_col;
				}
				else{
					$col="$other_col";;
				}
				print "<td width=\"20\" align=\"center\" bgcolor=\"$to\"><font size=1 color=\"$col\"><a href=$pr_na?00&$m_nen&$m_tuki&$date STYLE=\"text-decoration:none\"><font size=1 color=\"$col\">$date</font></a></td>\n";
				$col="";;
				$date++;
			}
			$k++;
		}
		print "  </tr>\n";
	}
print "  </tr>\n";
print "  </table>\n";

print<<HTML_01;

<table bgcolor="$cg_bg" border=1 width=140 bordercolor="$cg_border">
<tr valign="middle" align="center"> 
<td height="19"><b><font size=1><a href="$pr_na">$this_year年$mon月$mday日($days[$wday])</a></b></td><tr> 
<td align=middle> 
<form name=zikoku>
<input name=watch size=5>
<script language=JavaScript>
function watch() {
now = new Date();
hour = now.getHours();
min = now.getMinutes();
sec = now.getSeconds();
if (hour < 10)hour = "0" + hour;
if (min < 10)min = "0" + min;
if (sec < 10)sec = "0" + sec;
document.zikoku.watch.value = hour+":"+min;
setTimeout('watch()', 999);
}
watch();
</script>
</form></td></tr></table>
              
</td>
<td width="69%" valign="top">
<hr size="1">
<b><font size=2>$m_nen年$m_tuki月$m_hiduke日($days[$mw_day])の\予\定の編集</font></b>
<hr size="1">
<div align="center">

HTML_01

#=========================編集スケジュール表示=================================
     open (IN,"$sch_d");
     @SCH_DATA = <IN>;
     close (IN);

foreach $line (@SCH_DATA) {
	($bangou,$nen,$tuki,$hiduke,$hour_1,$hour_2,$sch_b,$cat) = split(/:/, $line);

	if ( $bangou eq $ban ) {push(@NE,$line);}

			  }
foreach $line (@NE) {
	($bangou,$nen,$tuki,$hiduke,$hour_1,$hour_2,$sch_b,$cat) = split(/:/, $line);

print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=0><tr>\n";
print "<td align=\"left\" valign=\"top\">\n";
$pa_y1 = $nen;
$pa_y1 -= 1;
$pa_y2 = $nen;
$pa_y2 -= 2;

$fu_y1 = $nen;
$fu_y1 += 1;
$fu_y2 = $nen;
$fu_y2 += 2;
print "<form name=\"cal\" method=\"post\" action=\"$pr_na?03\" onSubmit=\"return kakunin()\">\n";
print "<select name=\"w_nen\">\n";
print "<option value=\"$pa_y2\">$pa_y2年</option>\n";
print "<option value=\"$pa_y1\">$pa_y1年</option>\n";
print "<option value=\"$m_nen\" selected>$m_nen年</option>\n";
print "<option value=\"$fu_y1\">$fu_y1年</option>\n";
print "<option value=\"$fu_y2\">$fu_y2年</option>\n";
print "</select>\n";
print "<br>\n";

print " <select name=\"w_tuki\"> \n";
for ($mm_b=1; $mm_b<=12; $mm_b++) {
if ($mm_b == $tuki)  { print '<OPTION SELECTED VALUE="'.$mm_b.'">'.$mm_b.'月' . "\n"; }
else  { print '<OPTION  VALUE="'.$mm_b.'">'.$mm_b.'月' . "\n"; }
}
print "</select>\n";

print " <select name=\"w_hi\"> \n";
for ($md_b=1; $md_b<=31; $md_b++) {
if ($md_b == $hiduke)  { print '<OPTION SELECTED VALUE="'.$md_b.'">'.$md_b.'日' . "\n"; }
else  { print '<OPTION  VALUE="'.$md_b.'">'.$md_b.'日' . "\n"; }
}
print " </select> \n";

print " <select name=\"w_ho1\"> \n";
for ($mt_h=0; $mt_h<=23; $mt_h++) {

if ($mt_h == 12)
{$mmt_h = "午後$mt_h";}
elsif ($mt_h<12)
{$mmt_h = "午前$mt_h";}
else{
$mt_g = $mt_h;
$mt_g -=12;
$mmt_h = "午後$mt_g";
}
if ($mt_h == $hour_1)  { print '<OPTION SELECTED VALUE="'.$mt_h.'">'.$mmt_h.'時' . "\n"; }
else  { print '<OPTION  VALUE="'.$mt_h.'">'.$mmt_h.'時' . "\n"; }
}
print " </select> \n";

print " <select name=\"w_ho2\"> \n";
for ($mm_h=0; $mm_h<=55; $mm_h += 5) {
if ($mm_h <10){$mm_hm = "0$mm_h";}
else{$mm_hm = $mm_h;}
if ($mm_hm == $hour_2)  { print '<OPTION SELECTED VALUE="'.$mm_hm.'">'.$mm_hm.'分' . "\n"; }
else  { print '<OPTION  VALUE="'.$mm_hm.'">'.$mm_hm.'分' . "\n"; }
}
print " </select> \n";
print "<select name=\"cate\">\n";
for ($ca_h=0; $ca_h<=5; $ca_h++) {
if ($ca_h == $cat)  { print '<OPTION SELECTED VALUE="'.$ca_h.'">'.$category[$ca_h]. "\n"; }
else  { print '<OPTION  VALUE="'.$ca_h.'">'.$category[$ca_h]. "\n"; }
}
print "</select>\n";
print "<br>\n";
$sch_b =~ s/<br>/\n/g;
print "<textarea name=\"yotei\" cols=\"20\" rows=\"4\">$sch_b</textarea>\n";
print "<input type=\"hidden\" name=\"bangou\" value=\"$bangou\">\n";
print "<br>\n";
print "<input type=\"submit\" name=\"Submit\" value=\"変更を有効にする\" onSubmit=\"return kakunin()\"></form>\n";
print "</td></tr></table>\n";
print "<center><img src=\"$s_imd/bar.gif\"></center><br>\n";

}

#=============================ここまで=========================================
&page_3;
}
#=========================スケジュールの編集の終わり===========================


#=========================スケジュールの編集処理===============================
sub re_sch
{
     open (IN,"$sch_d");
     @SCH_DATA_R = <IN>;
     close (IN);

foreach $line (@SCH_DATA_R) {
	($bangou,$nen,$tuki,$hiduke,$hour_1,$hour_2,$sch_b,$cat) = split(/:/, $line);
	if ( $FORM{'bangou'} eq $bangou ) {push(@NE_R,$line);}
	else {push(@NN_R,$line);}
}

open (OUT,">$sch_d") || &error('open_error');
     print OUT (@NN_R);
     close (OUT);

open (sch_wr, ">>$sch_d") || die "Counter Writen Error...................\n";
flock($sch_d,2);
seek($sch_d,0,0);
print sch_wr "$FORM{'bangou'}:$FORM{'w_nen'}:$FORM{'w_tuki'}:$FORM{'w_hi'}:$FORM{'w_ho1'}:$FORM{'w_ho2'}:$FORM{'yotei'}:$FORM{'cate'}\n";
close(sch_wr);
flock($sch_d,8);

open (OUT_R,"$sch_d");
     @SCH_DATA_T = <IN>;
@SCH_DATA_T = sort @SCH_DATA_T;
print OUT_R (@SCH_DATA_T);
     close (IN);

&move($buffer = "00&$FORM{'w_nen'}&$FORM{'w_tuki'}&$FORM{'w_hi'}");

exit;
}
#=========================スケジュールの編集処理の終わり=======================

#=========================スケジュールの削除===================================
sub sch_dl
{
if ($ENV{'HTTP_REFERER'} !~ /$pr_na/)
{
&error('不正なアクセスです。');
}
foreach $line ($buffer) {
	($he,$ban,$m_nen,$m_tuki,$m_hiduke) = split(/&/, $line);
			}

    open (IN,"$sch_d");
     @SCH_DATA_D = <IN>;
     close (IN);

foreach $line (@SCH_DATA_D) {
	($bangou,$nen,$tuki,$hiduke,$hour_1,$hour_2,$sch_b,$cat) = split(/:/, $line);
	if ( $ban eq $bangou ) {push(@NE_D,$line);}
	else {push(@NN_D,$line);}
}

open (OUT,">$sch_d") || &error('open_error');
     print OUT (@NN_D);
     close (OUT);
&move($buffer = "00&$m_nen&$m_tuki&$m_hiduke");
exit;
}
#=========================スケジュールの削除の終わり===========================

#=========================ページ表示 1=========================================
sub page_1
{
print "Content-type: text/html\n\n";
print <<MAIN;

<html>
<head>
<title>$s_ver Quick Schdule</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<STYLE TYPE="text/css"><!-- 
A:hover { color: #6600ff } 
--></STYLE> 
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin() {
  if (document.cal.yotei.value == "") {
    alert("スケジュールを記入して下さい");
    document.cal.yotei.focus();
    return(false);
  }
  return(true);
}
// -->
</SCRIPT>
</head>

<body bgcolor="$bgcolor" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" text="#000033" link="#000033" vlink="#000033" alink="#000033">
<center><br>
  <table width="790" border="0" cellspacing="0" cellpadding="0">
<tr><td><a href="$ret_u"><font size=2>ホーム</a></font></td></tr>
    <tr valign="top"> 
      <td><b><center><font size="$title_s" color="$title_c">$title</font></center></b><br>
        <table width="100%" border="0" cellspacing="7" cellpadding="0" bgcolor="$sch_bgcolor">
          <tr>
            <td width="31%" valign="top" bgcolor="$sch_bgcolor" align="center"> 
              <hr size="1">
              
MAIN
}
#==============================================================================



#===============================ページ表示 3===================================
sub page_3
{
print<<HTML_02;

<hr size=1>
</div>
            </td>
          </tr>
        </table>

        <center><font size="1">Quick Schedule (simplification) $ver_info<br>
<!--削除不可-->
          &copy; <a href="http://www.cg-grasp.com/" target="_blank">CG-grasp</a></font></center></td>  
</tr>
  </table>
</center>
</body>
</html>
HTML_02
}
#=============================================================================

#==========================認証画面===========================================

sub top
{
print "Content-type: text/html\n\n";
print <<TOP
<html>
<head>
<title>$title</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>

<body bgcolor="$bgcolor" text="#000066" link="#000066" vlink="#9999FF" alink="#9999FF">
<center>
<font size="$title_s" color="$title_c">$title</font></b>
  <table width="600" border="0" cellspacing="0" cellpadding="0">
    <tr valign="middle" align="center"> 
      <td>
        <br>
	    <form name="nin" action="$pr_na" method="post" >
          <table width="350" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFF">
            <tr bgcolor="#FFFFF" valign="middle" align="center"> 
              <td width="50%"><font size="2">パスワードを入力して下さい。</font><br> 
                <input type="password" name="u_pass" size="10">
<input type="hidden" name="hantei" value="ck">
              </td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td colspan="2" valign="middle" align="center"> 
                <input type="submit" value="ログイン">
              </td>
            </tr>
            <tr> 
         
            </tr>
          </table>
</form>
      </td>
    </tr>
  </table>
</center>
</body>
</html>
TOP
}

#=============================================================================

#===========================認証==============================================

sub hantei
{
if ($p_p eq "$FORM{'u_pass'}")
{
&main;
}
else
{
&error('認証エラー' , '入力されたパスワードが設定されているパスワードと異なります。');
}

}

#=============================================================================



#=====================エラー画面===============================================
sub error
{
print "Content-type: text/html\n\n";

print <<EROR;


<html>
<head>
<title>エラー</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body bgcolor="#FFFFFF">
<center>
  <table width="600" border="0" cellspacing="0" cellpadding="0">
    <tr valign="middle" align="center"> 
      <td>
        <p><b><font size="3" color="#FF0000">$_[0]</font></b></p>
        <p><font size="2">$_[1]</font></p>
      </td>
    </tr>
    
  </table>
</center>
</body>
</html>
EROR
exit;
}
#=====================エラー画面ここまで=====================================