#!/usr/local/bin/perl

# アドレス帳の保守

# id=address.cgi

# update.  2000.10.10
#　日本語コード変換ライブラリ(v2.0)の指定
# &ReadParse命令で、$in{ }の変数にフォーム入力データが格納される		

require 'cgi-lib.pl';
require 'jcode.pl';
&ReadParse;

#　設置するＵＲＬを設定
$reload = 'http://www0.kumagaya.or.jp/cgi-bin/users/chichibu/address.cgi';
$bkhmpg = "http://www.kumagaya.or.jp/~chichibu/cgi1.html";
$file = "/dialup/chichibu/cgi-bin/address.dat";

# 管理者用パスワードを設定する場合のみ（半角ならば１０文字以内）
$pwd="y";

# データ確認デバッグモード（通常は$test=""、各画面で変数状態を見たいときは"on"）
$test="";

# 種類名配列
$syuruimei[1]="パソコン";
$syuruimei[2]="携帯";
$syuruimei[3]="モバイル";

# 分類名配列
$bunruimei[1]="プライベート";
$bunruimei[2]="会社";
$bunruimei[3]="ビジネス";
$bunruimei[4]="その他";

# 分類毎の表示色
$buncol[1]="#000000"; # 黒
$buncol[2]="#0000FF"; # 青
$buncol[3]="#007700"; # 緑
$buncol[4]="#FF00FF"; # ピンク

# 送信許可メッセージ
$mailokmsg[0]="×";
$mailokmsg[1]="○";

# 表示順序の既定値　・・・　１＝名前昇順・２＝名前降順・３＝アドレス昇順・４＝アドレス降順・・・
$narabi=1;
 
# 備考欄の最大文字数
$mojisu=100;
####################################
#                                  #
#   メインルーチン（処理の分岐）     #
#                                  #
####################################
#  全体の流れを決定する
$page=$in{'page'};

if ($in{'action'} eq 'main') { &main; }

elsif ($in{'action'} eq 'kinyu') { &kinyu; }

elsif ($in{'action'} eq 'check') { ✓ &kakunin; }

elsif ($in{'action'} eq 'update') { &update; }

elsif ($in{'action'} eq 'meisai') { &meisai; }

elsif ($in{'action'} eq 'next') { &next; }

elsif ($in{'action'} eq 'back') { &back; }

# 詳細表示画面
elsif ($in{'action'} eq 'teisei') {&teisei; &main;}

else { &first; }

# なくても良いが最終出口を示す
exit;


#############################################
#                                           #
#    データを読む　　　　　　　   　　　#  
#                                           #
#############################################           

sub read {

# データを読み各連想配列に入れる
#  　 1       2     3  　4   　 5      6 　　 7
# 名前、アドレス、種類、分類、登録日、備考、メール送信許可
# 種類とは、携帯かＰＣか

open(DB,"$file");
flock(DB,2);
$j=0;
%data=();

while (<DB>)  {
$bundt = $_;
&bunkai;
# ９は全部、他は指定分類のみ、指定なしも全件
# $bunrui_fは画面からの選択指示

############################
# 各項目をソートさせるため、項目データ＋連番をキーとした連想配列をつくる
############################
# 名前
if ($sortkb == 1 || $sortkb == 2) { $rkey="$name\0$j" }
# アドレス
if ($sortkb == 3 || $sortkb == 4) { $rkey="$email\0$j" }
# 種類
if ($sortkb == 5 || $sortkb == 6) { $rkey="$syurui\0$j" }
# グループ
if ($sortkb == 7 || $sortkb == 8) { $rkey="$bunrui\0$j" }
# メール送信許可
if ($sortkb == 9 || $sortkb == 10) { $rkey="$mailok\0$j" }
# 登録日
if ($sortkb == 11 || $sortkb == 12) { $rkey="$tymd\0$j" }

if ($bunrui_f == 9)  { $data{$rkey}=$_ }
elsif ($bunrui_f == $bunrui)  { $data{$rkey}=$_ }

# $jは先頭からの行�ｂ�示す
$j++;
} # end of while

flock(DB,8);
close(DB);
# データ数（キーの数から調べる）
@a=keys(%data);
$cnt=@a;

# 次にソート処理・・・２．４．６．８．１０は降順
if ($sortkb == 2 || $sortkb == 4 ||  $sortkb == 6 || $sortkb == 8 || $sortkb == 10 || $sortkb == 12)
{ @a=sort by_koujun keys(%data)}
else 
{ @a=sort by_shojun keys(%data)}

# ソートしたキーから表示用の配列を作る
@data=();
@datano=();
foreach (@a){ 
# ソート済みのデータが格納される
push(@data,$data{$_});
# 元データの登録行�ｂ烽ｨなじ添え字の配列にセットする
($dummy,$no) = split(/\0/,$_);
push(@datano,$no);
} # foreach

} # end of read
#############################################
#                                           #
#    登録データを読む（訂正削除用配列）　　#  
#                                           #
#############################################           

sub read2 {

# データを読み各連想配列に加算する
open(DB,"$file");
flock(DB,2);
@data=<DB>;
flock(DB,8);
close(DB);

# データ数
$cnt=@data;

# 各レコードを連番をキーにした連想配列にセットする

$idx=0;
foreach (@data) {

# 連想配列にセット
$idxdt{$idx} = $_;
# カウントアップ
$idx++;
} # end of foreach

} # end of read2
#############################################
#                                           #
#    データを読む（全件）　　　　　　   　　　#  
#                                           #
#############################################           

sub read3 {
open(DB,"$file");
flock(DB,2);
@data=<DB>;
flock(DB,8);
close(DB);
} # end of read3

########################
#　　　　　　　　　　　　#
#　項目分解ルーチン　　　# 
#　　　　　　　　　　　　#
########################
sub bunkai  {
#  　 1       2     3  　4   　 5      6      7
# 名前、アドレス、種類、分類、登録日、備考、メール送信許可

($name,$email,$syurui,$bunrui,$tymd,$biko,$mailok) = split(/\t/,$bundt);

# 内容の改行を元に戻す
$biko =~ s/&k/\n/g;
# 表示用に変換する
$biko2 = $biko;
$biko2 =~ s/\n/<BR>/g;

} # end of bunkai

#############################################
#                                           #
#    最初に処理するルーチン　　　　　  　　　#  
#                                           #
#############################################           

sub first {
# 初期値セット
$in{'page'}=1;
# 内容は全件
$in{'bunrui'}=9;
# 表示は明細
$in{'hyoji'}=3;
$in{'gyosu'}=10 ;
# 初期値は名前の昇順
$in{'sortkb'}=$narabi;

&main;

} # end of first

#############################################
#                                           #
#    メイン処理画面を表示する         　　　#  
#                                           #
#############################################           

sub main {

# 表示用変数
$page = $in{'page'};
$bunrui_f = $in{'bunrui'} ;
$hyoji = $in{'hyoji'} ;
$gyosu = $in{'gyosu'} ;
$sortkb = $in{'sortkb'} ;
# ソート区分セーブ
$sortkb_sv=$sortkb;

&read;

# ページ数計算
if ($hyoji == 2)  { $page_max = ($cnt /(2*$gyosu)) + 1;}
else { $page_max = ($cnt / $gyosu) + 1;}
# 整数部をとりだす
($page_max,$dummy)=split(/\./,$page_max);

# 表示出力処理
print "Content-type: text/html\n\n";
print <<EOM;
<HTML>
<HEAD><TITLE>アドレス帳の保守</TITLE></HEAD>
<BODY BGCOLOR="#ffffff" BACKGROUND="http://www0.kumagaya.or.jp/~chichibu/gazo/bg1.gif">
EOM

print '<TABLE BORDER="1">';
print '<TR><TD COLSPAN="2">';
print '<FONT SIZE=3 COLOR=#0000FF>'."\n";
print 'アドレス帳の保守'."\n";
print '</FONT></TD>'; 
print '<TD>　　　</TD>';

print "<TH>登録件数</TH><TH><FONT COLOR=#0000FF>表示頁</FONT></TH><TH>最終頁</TH></TR>\n";

print '<TR><TD ALIGN="CENTER">';
print '<form method="post" action="' . $reload . '">' . "\n";
print '<input type=hidden name="action" value="kinyu">' . "\n";
print '<input type=submit value="　登録画面へ　">' . "\n";
&hidpara;
print '</FORM>';
print '</TD><TD>　'."\n";
print '</TD><TD>'."\n";

print '<form method="get" action="' . $bkhmpg . '">' . "\n";
print '<input type=submit value="最初に戻る">' . "\n";
print '</form>' . "\n";
print '</TD>';

print "<TD ALIGN=\"right\"><FONT COLOR=#AA0000>$cnt</FONT></TD><TD ALIGN=\"right\"><FONT COLOR=#0000FF>$page</FONT></TD>\n";
print "<TD ALIGN=\"right\"><FONT COLOR=#AA0000>$page_max</FONT></TD>\n";
print '</TR></TABLE>'."\n";

# 前頁表示

# ボタンを並べる
# 上段
print '<TABLE BGCOLOR="#ffffCC">';
print '<TR VALIGN="BOTTOM">';

# 前頁表示
print '<TD>';
if ($page == 1)  { print '　'; }
else  { 
print '<form method="post" action="' . $reload . '">' . "\n";
print '<input type=hidden name="action" value="back">' . "\n";
&hidpara;
print '<input type=submit value="前頁">' . "\n";
print '</FORM>';
} # end of if

print '</TD>';
print '<TD>　　</TD>';
# 次頁表示
print '<TD>';
if ($page == $page_max)  { print '　'; }
else  { 
print '<form method="post" action="' . $reload . '">' . "\n";
print '<input type=hidden name="action" value="next">' . "\n";
&hidpara;
print '<input type=submit value="次頁">' . "\n";
print '</FORM>'. "\n";
} # end of if
print '</TD>';
print '<TD>　　</TD>';

print '<TD>';
print '<form method="post" action="' . $reload . '">' . "\n";
print '<input type=hidden name="action" value="main">'."\n";
print '<input type=hidden name="page" value="'.$page.'">' . "\n";
print '<input type=hidden name="sortkb" value="'.$in{'sortkb'}.'">' . "\n";

print '<input type=submit value="表示変更">' . "\n";

print '</TD><TD>　　　</TD><TD>';
$sels1="";$sels2="";$sels3="";$sels4="";$sels9="";
if ($bunrui_f == 9)  {$sels9 = "SELECTED";} 
elsif  ($bunrui_f == 1) {$sels1 = "SELECTED"; }
elsif  ($bunrui_f == 2) {$sels2 = "SELECTED"; }
elsif  ($bunrui_f == 3) {$sels3 = "SELECTED"; }
elsif  ($bunrui_f == 4) {$sels4 = "SELECTED"; }
else {$sels9 = "SELECTED"; }
print '<SELECT NAME="bunrui">'. "\n";
print '<OPTION  $sels9 VALUE="9">全件'. "\n";
print "<OPTION  $sels1 VALUE=\"1\">$bunruimei[1]\n";
print "<OPTION  $sels2 VALUE=\"2\">$bunruimei[2]\n";
print "<OPTION  $sels3 VALUE=\"3\">$bunruimei[3]\n";
print "<OPTION  $sels4 VALUE=\"4\">$bunruimei[4]\n";

print '</SELECT>'. "\n";
print '</TD><TD>　　　</TD><TD>';
$selh1="";$selh2="";$selh3="";
if ($hyoji == 1)  {$selh1 = "SELECTED";} 
elsif  ($hyoji == 2) {$selh2 = "SELECTED"; }
else {$selh3 = "SELECTED"; }
print '<SELECT NAME="hyoji">'. "\n";
print "<OPTION  $selh3 VALUE=\"3\">詳細\n";
print "<OPTION  $selh1 VALUE=\"1\">１列\n";
print "<OPTION  $selh2 VALUE=\"2\">２列\n"; 
print '</SELECT>'. "\n";
print '</TD><TD>　　　</TD><TD>';
$sel5="";$sel10="";$sel30="";$sel40="";$sel50="";
if ($gyosu == 5)  {$sel5 = "SELECTED";} 
elsif  ($gyosu == 10) {$sel10 = "SELECTED"; }
elsif  ($gyosu == 30) {$sel30 = "SELECTED"; }
elsif  ($gyosu == 40) {$sel40 = "SELECTED"; }
elsif  ($gyosu == 50) {$sel50 = "SELECTED"; }
else {$sel20 = "SELECTED"; }

print '<SELECT NAME="gyosu">'. "\n";
print "<OPTION  $sel5   VALUE=\"5\">　５行単位\n";
print "<OPTION  $sel10  VALUE=\"10\">１０行単位\n";
print "<OPTION  $sel20  VALUE=\"20\">２０行単位\n"; 
print "<OPTION  $sel30  VALUE=\"30\">３０行単位\n"; 
print "<OPTION  $sel40  VALUE=\"40\">４０行単位\n"; 
print "<OPTION  $sel50  VALUE=\"50\">５０行単位\n"; 
print '</SELECT>'. "\n";

print '</TD><TD>　　　</TD>';
print '</TR></TABLE>'."\n";
print '</FORM>'. "\n";

# 該当データが０件の場合
if ($cnt == 0)  {
print '<BR><BR><FONT size=5 color="blue">';
print '<CENTER>該当データは０件です、選択内容を変えてご覧ください</CENTER></FONT>'."\n";
return } # end of if

# 最初は詳細形式を表示する
if  ($hyoji == 1)  { &disp1; }
elsif  ($hyoji == 2)  { &disp2; }
else  { &disp3; }

} # end of main

#################################
#   hiddenパラメータ共通項目　　#
#################################
sub  hidpara  {
print '<input type=hidden name="page" value="'.$page.'">'."\n";
print '<input type=hidden name="bunrui" value="'.$in{'bunrui'}.'">' . "\n";
print '<input type=hidden name="hyoji" value="'.$in{'hyoji'}.'">' . "\n";
print '<input type=hidden name="gyosu" value="'.$in{'gyosu'}.'">' . "\n";
print '<input type=hidden name="sortkb" value="'.$in{'sortkb'}.'">' . "\n";
} # end of hidpara

##########################
#　　　　　　　　　　　　#
#　　詳細表示ルーチン　　# 
#　　　　　　　　　　　　#
##########################
sub disp3  {

# 表示順序
#  1-2　 3-4       5-6   7-8         9-10       11-12
# 名前、アドレス、種類、グループ、メール送信許可、登録日

$act="main";

print "<TABLE BORDER=\"1\" WIDTH=\"100%\" >\n";
print "<TR><TH>��</TH>\n";

# 名前
&th_name;

# アドレス
&th_email;

# 種類
&th_syurui;

# グループ
&th_bunrui;

# 送信許可
&th_mailok;

# 登録日
&th_tymd;

print "<TH>備考</TH></TR>\n";

# 行数分だけ繰り返す
for($i=1; $i<=$gyosu; $i++) {

# １列目はページカウンタ＊行数＋＄ｉ

$lno=$gyosu * ($page - 1) + $i;
#$no=$lno-1;

# 項目分解処理
$bundt=$data[$lno-1];
&bunkai;

# 分類別色
$iro=$buncol[$bunrui];

print '<TR>';
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>';
$act="meisai";
# $noは実行��
$no=$datano[$lno-1];
print '<A HREF = "'.$reload.'?action='.$act.'&tbno='.$no.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$lno.'</A>';
print '</FONT><BR>'."\n";
if ($test eq "on") { print '<BR>'.$bundt.''."\n"; } # テスト表示
print '</TD>'."\n";

print '<TD ALIGN="left" NOWRAP><FONT COLOR='.$iro.'>'.$name.'</FONT></TD>';
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$email.'</FONT></TD>'."\n";

print '</TD>'."\n";
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$syuruimei[$syurui].'</FONT></TD>'."\n";
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$bunruimei[$bunrui].'</FONT></TD>'."\n";
# 送信許可
print '<TD ALIGN="center"><FONT COLOR='.$iro.'>'.$mailokmsg[$mailok].'</FONT></TD>'."\n";

$tymd1=substr($tymd,0,8); #年月日
$tymd2=substr($tymd,8,4); #時分　（秒まではいらない）
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$tymd1.'<BR>'.$tymd2.'</FONT></TD>'."\n";
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$biko2.'</FONT></TD>'."\n";

print '</TR>'."\n";

# 最終データを表示したら抜ける
if ($lno >= $cnt)  { last }

} # end of for

print '</TABLE>';
print "</BODY></HTML>\n";

} # end of disp3


##############################
#　　　　　　　　　　　      　#
#　　見だし表示共通ルーチン　　# 
#　　　　　　　　　　　      　#
##############################
# ソート区分が１なら降順の２にする、それ以外は昇順の１にする
sub th_name {
if ($sortkb_sv == 1)  { $sortkb = 2; $sortkbn = "名前<FONT size=2 color=\"red\">↓</FONT>"; }
elsif ($sortkb_sv == 2)  { $sortkb = 1; $sortkbn = "名前<FONT size=2 color=\"mazenda\">↑</FONT>"; }
else { $sortkb = 1; $sortkbn = "名前"; }
print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$sortkbn.'</A></TH>'. "\n";
} 

# ソート区分が３なら降順の４にする、それ以外は昇順の３にする
sub th_email {
if ($sortkb_sv == 3)  { $sortkb = 4; $sortkbn = "アドレス<FONT size=2 color=\"red\">↓</FONT>"; }
elsif ($sortkb_sv == 4)  { $sortkb = 3; $sortkbn = "アドレス<FONT size=2 color=\"mazenda\">↑</FONT>"; }
else  { $sortkb = 3; $sortkbn = "アドレス"; }
print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$sortkbn.'</A></TH>'. "\n";
}

# ソート区分が５なら降順の６にする、それ以外は昇順の５にする
sub th_syurui {
if ($sortkb_sv == 5)  { $sortkb = 6; $sortkbn = "種類<FONT size=2 color=\"red\">↓</FONT>"; }
elsif ($sortkb_sv == 6)  { $sortkb = 5; $sortkbn = "種類<FONT size=2 color=\"mazenda\">↑</FONT>"; }
else  { $sortkb = 5; $sortkbn = "種類"; }
print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$sortkbn.'</A></TH>'. "\n";
}

# ソート区分が７なら降順の８にする、それ以外は昇順の７にする
sub th_bunrui {
if ($sortkb_sv == 7)  { $sortkb = 8; $sortkbn = "グループ<FONT size=2 color=\"red\">↓</FONT>"; }
elsif ($sortkb_sv == 8)  { $sortkb = 7; $sortkbn = "グループ<FONT size=2 color=\"mazenda\">↑</FONT>"; }
else  { $sortkb = 7; $sortkbn = "グループ"; }
print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$sortkbn.'</A></TH>'. "\n";
}

# ソート区分が９なら降順の１０にする、それ以外は昇順の９にする
sub th_mailok {
if ($sortkb_sv == 9)  { $sortkb = 10; $sortkbn = "送信許可<FONT size=2 color=\"red\">↓</FONT>"; }
elsif ($sortkb_sv == 10)  { $sortkb = 9; $sortkbn = "送信許可<FONT size=2 color=\"mazenda\">↑</FONT>"; }
else  { $sortkb = 9; $sortkbn = "送信許可"; }
print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$sortkbn.'</A></TH>'. "\n";
}

# ソート区分が１１なら降順の１２にする、それ以外は昇順の１１にする
sub th_tymd {
if ($sortkb_sv == 11)  { $sortkb = 12; $sortkbn = "登録日<FONT size=2 color=\"red\">↓</FONT>"; }
elsif ($sortkb_sv == 12)  { $sortkb = 11; $sortkbn = "登録日<FONT size=2 color=\"mazenda\">↑</FONT>"; }
else  { $sortkb = 11; $sortkbn = "登録日"; }
print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$sortkbn.'</A></TH>'. "\n";
} # th_name

##########################
#　　　　　　　　　　　　#
#　　１列表示ルーチン　　# 
#　　　　　　　　　　　　#
##########################
sub disp1  {

$act="main";

print "<TABLE BORDER=\"1\" WIDTH=\"100%\" >\n";
print "<TR><TH>��</TH>\n";

# 名前
&th_name;

# アドレス
&th_email;

# 種類
&th_syurui;


# 行数分だけ繰り返す
for($i=1; $i<=$gyosu; $i++) {

# 項目分解処理

# １列目はページカウンタ＊行数＋＄ｉ

$lno=$gyosu * ($page - 1) + $i;
$no=$lno-1;

# 項目分解処理
$bundt=$data[$no];
&bunkai;

# 分類別色
$iro=$buncol[$bunrui];
# $noは実行��
$no=$datano[$lno-1];

print '<TR>';
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>';
$act="meisai";
print '<A HREF = "'.$reload.'?action='.$act.'&tbno='.$no.'&page='.$page.'&syurui='.$bunrui.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$lno.'</A>';
print '</FONT><BR>'."\n";

print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$name.'</FONT></TD>'."\n";
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$email.'</FONT></TD>'."\n";
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$syuruimei[$syurui].'</FONT></TD>'."\n";
print '</TR>';

# 最終データを表示したら抜ける
if ($lno >= $cnt)  { last }

} # end of for


print '</TABLE>';
print "</BODY></HTML>\n";

} # end of disp1

##########################
#　　　　　　　　　　　　#
#　　２列表示ルーチン　　# 
#　　　　　　　　　　　　#
##########################
sub disp2  {
$act="main";

print "<TABLE BORDER=\"1\" WIDTH=\"100%\" >\n";
print "<TR><TH>��</TH>\n";

# ソート区分が１なら降順の２にする、それ以外は昇順の１にする
if ($sortkb_sv == 1)  { $sortkba = 2; $sortkbna = "名前<FONT size=2 color=\"red\">↓</FONT>"; }
elsif ($sortkb_sv == 2)  { $sortkba = 1; $sortkbna = "名前<FONT size=2 color=\"mazenda\">↑</FONT>"; }
else { $sortkba = 1; $sortkbna = "名前"; }

print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkba.'">'.$sortkbna.'</A></TH>'. "\n";

# ソート区分が３なら降順の４にする、それ以外は昇順の３にする
if ($sortkb_sv == 3)  { $sortkb = 4; $sortkbn = "アドレス<FONT size=2 color=\"red\">↓</FONT>"; }
elsif ($sortkb_sv == 4)  { $sortkb = 3; $sortkbn = "アドレス<FONT size=2 color=\"mazenda\">↑</FONT>"; }
else  { $sortkb = 3; $sortkbn = "アドレス"; }

print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$sortkbn.'</A></TH>'. "\n";
# 右側
print "<TH>��</TH>\n";

print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkba.'">'.$sortkbna.'</A></TH>'. "\n";

print '<TH><A HREF = "'.$reload.'?action='.$act.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$sortkbn.'</A></TH>'. "\n";

print "</TR>\n";

# 行数分だけ繰り返す
for($i=1; $i<=$gyosu; $i++) {

# １列目はページカウンタ＊２＊行数＋＄ｉ

$lno=2 * $gyosu * ($page - 1) + $i;
$no=$lno-1;
# 項目分解処理
$bundt=$data[$no];
&bunkai;
# $noは実行��
$no=$datano[$lno-1];

# 分類別色
$iro=$buncol[$bunrui];
print '<TR>';
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>';

$act="meisai";
# $noは実行��
$no=$datano[$lno-1];
print '<A HREF = "'.$reload.'?action='.$act.'&tbno='.$no.'&page='.$page.'&bunrui='.$bunrui_f.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$lno.'</A>';

print '</FONT><BR>'."\n";

print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$name.'</FONT></TD>'."\n";
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$email.'</FONT></TD>'."\n";

# ２列目は１列目＋行数
$rno=$lno + $gyosu;

if  ($rno <= $cnt)  { 

$no=$rno-1;
# 項目分解処理
$bundt=$data[$no];
&bunkai;
# $noは実行��
$no=$datano[$rno-1];

print '<TD ALIGN="left"><FONT COLOR='.$iro.'>';
$act="meisai";
print '<A HREF = "'.$reload.'?action='.$act.'&tbno='.$no.'&page='.$page.'&syurui='.$bunrui.'&hyoji='.$hyoji.'&gyosu='.$gyosu.'&sortkb='.$sortkb.'">'.$rno.'</A>';
print '</FONT><BR>'."\n";

print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$name.'</FONT></TD>'."\n";
print '<TD ALIGN="left"><FONT COLOR='.$iro.'>'.$email.'</FONT></TD>'."\n";

print '</TR>';
} # end of if
# 最終データを表示したら抜ける
if ($lno >= $cnt)  { last }

} # end of for

print '</TABLE>';
print "</BODY></HTML>\n";

} # end of disp2

#######################################
#                                     #
#    新規記入処理　　　　　　   　　　#  
#                                     #
#######################################    

sub kinyu {

print "Content-type: text/html\n\n";

print <<EOM;
<HTML>
<HEAD><TITLE>アドレス帳の新規登録</TITLE></HEAD>
<BODY BGCOLOR="#ffffff" BACKGROUND="http://www0.kumagaya.or.jp/~chichibu/gazo/bg1.gif">
<H2>アドレス帳の新規登録</H2>
EOM

print '<form method="post" action="' . $reload . '">' . "\n";
print '<input type=hidden name="action" value="check">' . "\n";

print 'グループ　<SELECT NAME="bunrui">'. "\n";
print "<OPTION  SELECTED VALUE=\"1\">$bunruimei[1]\n";
print "<OPTION  VALUE=\"2\">$bunruimei[2]\n";
print "<OPTION  VALUE=\"3\">$bunruimei[3]\n"; 
print "<OPTION  VALUE=\"4\">$bunruimei[4]\n"; 
print '</SELECT>'. "\n";
print '<BR><BR>';

print '名前　<input type=text name="name" size="20" MAXLENGTH="20"><br>' . "\n";
print '<BR>';

print 'E-mail　<input type=text name="email" size="30" MAXLENGTH="30"><br>' . "\n";
print '<BR>';

print '種類はなんですか？　<SELECT NAME="syurui">'. "\n";
print "<OPTION  SELECTED VALUE=\"1\">$syuruimei[1]\n";
print "<OPTION  VALUE=\"2\">$syuruimei[2]\n";
print "<OPTION  VALUE=\"3\">$syuruimei[3]\n"; 
print '</SELECT>'. "\n";
print '<BR><BR>';

print 'メール送信するならチェック　<INPUT TYPE="checkbox" name="mailok" value="1">';
print '<BR><BR>';

print '備考（漢字の場合１００文字以内）';
print '<BR>';
print '<TEXTAREA NAME="biko" COLS=80 ROWS=5></TEXTAREA>' . "\n";
print '<BR>';

# パスワードを設定した場合のみ表示する
if ($pwd ne "")  {
print '<BR>';
print '追加登録パスワード　<input type=text name="passwd" size="10" MAXLENGTH="10">' . "\n";
print '<BR>';
print '<FONT COLOR=#AA0000>';
print '＊この内容を登録するのに必要です。';
print '</FONT>';
print '<BR><BR>';
} # end of if

print '<CENTER>';
print '<input type=submit value="入力終了">　　<input type=reset value="入力内容取消">' . "\n";
print '</CENTER>';
# 共通データ渡し
&hidpara;

# 登録日時セット
&nichiji;

print '<input type=hidden name="tymd" value="'.$tymd.'">' . "\n";

print '</FORM>'. "\n";

# 戻る
print '<BR>';
print '<form method="post" action="' . $reload . '">' . "\n";
print '<input type=hidden name="action" value="main">' . "\n";
&hidpara;
print '<input type=submit value="登録せずに戻る">' . "\n";
print '</FORM>'. "\n";

print '</BODY></HTML>'. "\n";
} # end of kinyu

############################
# 登録日時セットルーチン    #
############################
sub nichiji  {
($byo,$fun,$ji,$dd,$mm,$yy,$yobi) = localtime;
$mm++;
# ２桁化
$mm = sprintf("%.2d",$mm);
$dd = sprintf("%.2d",$dd);
$ji = sprintf("%.2d",$ji);
$fun = sprintf("%.2d",$fun);
$byo = sprintf("%.2d",$byo);
# 西暦４桁処理

$yy = $yy + 1900;
# 登録日時
$tymd=$yy.$mm.$dd.$ji.$fun.$byo;
} # end of sub
##########################################
#                                        #
#  入力されたデータのチェックルーチン    #
#                                        #
##########################################

sub check {

# 名前の入力がない場合
if ($in{'name'} eq "") { &error(1); }

# ｅｍａｉｌの入力がない場合
if ($in{'email'} eq "") { &error(2); }

# パスワードチェック
if ($pwd ne ""  &&  $in{'passwd'} ne $pwd) { &error(3); }

} # end of check
#############################################
#                                           #
#    入力データ登録確認画面ルーチン 　　　　#  
#                                           #
#############################################

sub kakunin {

print "Content-type: text/html\n\n";

print <<EOM;
<HTML>
<HEAD><TITLE>アドレス帳入力データの確認</TITLE></HEAD>
<BODY BGCOLOR="#ffffff">
<H2>アドレス帳入力データの確認</H2>
<BR>
EOM

# フォームからの入力データ

# 時刻表示用
#$jikan="$yy年$mm月$dd日$ji時$fun分$byo秒";

# フォーム入力データ
&form_data;

print '<TABLE BORDER="1" CELLPADDING="2" WIDTH="80%">';

print "<TR><TH ALIGN=\"left\">グループ</TH><TD>$bunruimei[$bunrui]</TD></TR>"."\n";
print "<TR><TH ALIGN=\"left\">名前</TH><TD>$name</TD></TR>"."\n";
print "<TR><TH ALIGN=\"left\">メールアドレス</TH><TD>$email</TD></TR>"."\n";
print "<TR><TH ALIGN=\"left\">種類</TH><TD>$syuruimei[$syurui]</TD></TR>"."\n";
# 送信許可
if ($mailok eq "1") {$a="メール送信ＯＫです" } else { $a="メール送信できません" }
print "<TR><TH ALIGN=\"left\">送信許可</TH><TD>$a</TD></TR>"."\n";

# 表示用に改行コードを＜ＢＲ＞タグにする
$biko2 = $biko;
$biko2 =~ s/&k/<BR>/g;
print "<TR><TH ALIGN=\"left\">備考</TH><TD>$biko2</TD></TR>"."\n";
print "<TR><TH ALIGN=\"left\">登録日</TH><TD>$tymd</TD></TR>"."\n";

print "</TABLE>"."\n";

# 確認
print '<form method="post" action="' . $reload . '">' . "\n";
print '<input type=hidden name="action" value="main">' . "\n";

# データ追加
$value = "$name\t$email\t$syurui\t$bunrui\t$tymd\t$biko\t$mailok\n";

if ($test eq "on") { print "追加データ＝$value\n"; }

&update;

print '<CENTER>';
print '<INPUT TYPE="submit" value="確認したらここをクリック">'."\n";
print '</CENTER>'."\n";

# 新規登録後は全件表示
$in{'bunrui'}=9;
# 新規登録後は登録時刻順に表示させて１行目に出す
$in{'sortkb'}=12;

&hidpara;

print "</FORM>\n";
print "</BODY>\n";
print "</HTML>\n";

} # end of kakunin

#############################################
#                                           #
#    フォーム入力データセットルーチン　 　　#  
#                                           #
#############################################
sub form_data  {

$name=$in{'name'};
$email=$in{'email'};
$syurui=$in{'syurui'};
$bunrui=$in{'bunrui'};
$tymd=$in{'tymd'};
$biko=$in{'biko'};
# mailokは１とそれ以外なので、１でないなら０にする
if ($in{'mailok'} ne "1") {$in{'mailok'}=0}
$mailok=$in{'mailok'};

# 空行を１行までは許す
$biko=~s/\n\n\n*/\n\n/g;
# textarea処理
$biko=~ s/\015\012/\n/g;
$biko=~ s/\015/\n/g;
# 改行をいったん＆ｋに置きかえる
$biko =~ s/\n/&k/g;
# 文字数チェック
if (length($biko) > $mojisu)  { $biko = substr($biko,0,$mojisu); }

# タグの無効化
$ckdt=$name ; &tagck ; $name=$ckdt;
$ckdt=$email ; &tagck ; $email=$ckdt;
$ckdt=$hymd ; &tagck ; $hymd=$ckdt;
$ckdt=$biko ; &tagck ; $biko=$ckdt;
} # end of form_data

###############################
#  タグの無効化サブルーチン
###############################
sub tagck  {
$ckdt =~ s/</&lt;/ig;
$ckdt =~ s/>/&gt;/ig;
$ckdt =~ s/<!--.*-->//ig;
$ckdt =~ s/\,//g;
}

##########################################
#                                        #
#  次ページ表示処理　　　　　　　　      #
#                                        #
##########################################

sub next {
$in{'page'}++;
&main;
} # end of sub

##########################################
#                                        #
#  前ページ表示処理　　　　　　　　      #
#                                        #
##########################################

sub back {
if ($page  > 1)  { $in{'page'}-- }
&main;
} # end of sub

#####################
#  ファイル登録
#####################
sub update  {

# 登録済みデータを読み配列にセットする
&read3; 
unshift(@data,$value);

# ファイル登録
if (!open(WRITE,">$file")) { &error(0); }
flock(WRITE,2);
print WRITE @data;
flock(WRITE,8);
close (WRITE);

} # end of update

#############################################
#                                           #
#    チェックエラー表示画面ルーチン   　　　#  
#                                           #
#############################################

sub error {

#  &error(xx); で呼び出されたルーチンは、()内の数字が $error に代入される。

$error = $_[0];

if    ($error eq "0") { $error_msg = 'ファイルがない、またはＯＰＥＮできない。'; }

elsif    ($error eq "1") { $error_msg = '名前を入力してください。'; }

elsif    ($error eq "2") { $error_msg = 'メールアドレスを入力してください。'; }

elsif    ($error eq "3") { $error_msg = 'パスワード不一致のため訂正できません'; }
   
print "Content-type: text/html\n\n";

print '<html><head><title>アドレス帳の登録エラー</title></head>' . "\n";
print '<body bgcolor="#ff66ff" text="#000000" LINK="#0000ff" VLINK="#ff8888" ALINK="#FF0000">' . "\n";
print '<h2>アドレス帳の登録入力で下記のエラーが発生しました</h2>' . "\n";
print '<BR><BR>';
print "<i>$error_msg</i>\n";
print '<BR><BR>';

# リロードでもどると入力データが消えてしまうので
print 'ブラウザ画面の戻るをクリックする'."\n";;
print '</body></html>' . "\n";
# サブルーチンからプログラムを抜けるので
exit;
}

#############################################
#                                           #
#    明細データの訂正・削除ルーチン   　　　#  
#                                           #
#############################################           

sub meisai {

# ソート区分
$sortkb=$in{'sortkb'};

&read2;
# キー
# 配列番号（次前データ移動用）
$tbno=$in{'tbno'};

# 項目分解処理
$bundt=$idxdt{$tbno};

&bunkai;

&meisai_display;

} # end of meisai
#############################################
#                                           #
#    明細データの共通表示ルーチン　   　　　#  
#                                           #
#############################################           
sub meisai_display  {
# 明細表示データ�ｂﾍ配列�ａ{１
$mno=$tbno+1;

print "Content-type: text/html\n\n";
print <<EOM;
<HTML>
<HEAD><TITLE>アドレス帳の詳細</TITLE></HEAD>
<BODY BGCOLOR="#ffffff" BACKGROUND="http://www0.kumagaya.or.jp/~chichibu/gazo/bg1.gif">
<H2>アドレス帳の詳細</H2>
EOM

print "<H5 align=\"right\"><U>�ａ@$mno　／　$cnt</U></H5>\n";

print '<form method="post" action="' . $reload . '">' . "\n";

if ($bunrui == 2)  {$sel2 = "SELECTED";} 
elsif  ($bunrui == 3) {$sel3 = "SELECTED"; }
elsif  ($bunrui == 4) {$sel4 = "SELECTED"; }
else {$sel1 = "SELECTED"; }
print 'グループ　<SELECT NAME="bunrui">'. "\n";
print "<OPTION  $sel1 VALUE=\"1\">$bunruimei[1]\n";
print "<OPTION  $sel2 VALUE=\"2\">$bunruimei[2]\n";
print "<OPTION  $sel3 VALUE=\"3\">$bunruimei[3]\n"; 
print "<OPTION  $sel4 VALUE=\"4\">$bunruimei[4]\n"; 
print '</SELECT>'. "\n";
print '<BR><BR>';

print '名前　<input type=text name="name" size="20" MAXLENGTH="20" value="'.$name.'"><br>' . "\n";
print '<BR>';
print 'メールアドレス　<input type=text name="email" size="30" MAXLENGTH="30" value="'.$email.'"><br>' . "\n";
print '<BR>';

if ($syurui == 2)  {$sel2 = "SELECTED";} 
elsif  ($syurui == 3) {$sel3 = "SELECTED"; }
else {$sel1 = "SELECTED"; }
print '種類　<SELECT NAME="syurui">'. "\n";
print "<OPTION  $sel1 VALUE=\"1\">$syuruimei[1]\n";
print "<OPTION  $sel2 VALUE=\"2\">$syuruimei[2]\n";
print "<OPTION  $sel3 VALUE=\"3\">$syuruimei[3]\n"; 
print '</SELECT>'. "\n";
print '<BR><BR>';

if ($mailok eq "1") {$chked="checked"} else {$chked=""}
print 'メール送信するならチェック　<INPUT TYPE="checkbox" '.$chked.' name="mailok" value="1">';
print '<BR><BR>';

print '備考';
print '<BR>';
print '<TEXTAREA NAME="biko" COLS=80 ROWS=5>'.$biko.'</TEXTAREA>' . "\n";
print '<BR><BR>';

print '<BR>';
# パスワードを設定した場合のみ表示する
if ($pwd ne "")  {
print '訂正削除パスワード　<input type=text name="passwd" size="10" MAXLENGTH="10">' . "\n";
print '<BR>';
print '<FONT COLOR=#AA0000>';
print '＊訂正又は削除する場合に必要です。';
print '</FONT>';
print '<BR><BR>';
} # end of if

# 訂正か削除か選択する
print '<TABLE BGCOLOR="#ffffCC">';
print '<TR><TD>';
print '<input type="radio" name="syori" value ="0" checked>訂正削除なし' . "\n";
print '</TD><TD>　　　</TD><TD>';
print '<input type="radio" name="syori" value ="1">訂正します' . "\n";
print '</TD><TD>　　　</TD><TD>';
print '<input type="radio" name="syori" value ="2">削除します' . "\n";
print '</TD><TD>　　　</TD><TD>';
print '<input type=hidden name="action" value="teisei">'."\n";
print '<input type=hidden name="tbno" value="'.$tbno.'">'."\n";
&hidpara;
# 訂正ではもとの表示順で表示させる
$in{'sortkb'}=$sortkb;

print '<input type=submit value="訂正削除の実行">' . "\n";
print '</TD></TR></TABLE>'."\n";

print '</FORM>'. "\n";


# ボタンを並べる

print '<TABLE BGCOLOR="#ffffCC">';
print '<TR VALIGN="BOTTOM">';
# 戻る
print '<TD>';
print '<form method="post" action="' . $reload . '">' . "\n";
print '<input type=hidden name="action" value="main">' . "\n";
&hidpara;
print '<input type=submit value="戻る">' . "\n";
print '</FORM>'. "\n";
print '</TD>';
print '</TR></TABLE>'."\n";

print '</BODY></HTML>'. "\n";
} # end of meisai
#####################
#  データ訂正
#####################
sub teisei  {
# 訂正削除なしの場合
if (($in{'action'} eq 'teisei') && ($in{'syori'} == 0))  { return }
# 入力項目チェックへ
&check;

# フォーム入力データ
&form_data;
&read2;
# キー
$tbno=$in{'tbno'};

# 削除の場合
if (($in{'action'} eq 'teisei') && ($in{'syori'} == 2))  { &sakujo; return }

# ここからは訂正選択時処理

# 登録日時セット
&nichiji;
# 全項目を上書きする
$value = "$name\t$email\t$syurui\t$bunrui\t$tymd\t$biko\t$mailok\n";

$idxdt{$tbno}=$value;
&file_write;

# 訂正後は登録時刻順に表示させて１行目に出す
$in{'sortkb'}=12;

# 訂正後は全件表示
$in{'bunrui'}=9;

} # end of teisei

#####################
#  データ削除
#####################
sub sakujo  {

# データ削除
delete $idxdt{$tbno};
&file_write;

# 削除後は全件表示
$in{'bunrui'}=9;

} # end of sakujo


##########################
#  ファイル登録共通処理　#
##########################
sub file_write  {

# 連想配列のキーの配列@keyから、ファイル登録用@newを作る
@new=();
@key=keys(%idxdt);
foreach (@key){ 
push(@new,$idxdt{$_});
} # end of foreach


# ファイル登録
if (!open(WRITE,">$file")) { &error(0); }
flock(WRITE,2);
print WRITE @new;
flock(WRITE,8);
close (WRITE);

} # end of write
####################################
#                                  #
#   キーを昇順にソートする　　　　   #
#                                  #
####################################
sub by_date { $a cmp $b }
####################################
#                                  #
#   キーを昇順にソートする　　　　   #
#                                  #
####################################
sub by_shojun { $a cmp $b }
####################################
#                                  #
#   キーを降順にソートする　　　　   #
#                                  #
####################################
sub by_koujun { $b cmp $a }

################ end of script ###################