#!/usr/local/bin/perl
#
######################################################################
###
###
###  CGIリンク集管理システム T-Bookmark Ver.1.10
###     [2/4] ユーザ登録 (tbregist.cgi)
###                                 (c) 1996-2000 Takahiro Nishida
###                                 http://www.mytools.net/
###
###
######################################################################
#

require './tblib.pl';

&main;

sub main{
	&tblib'lock;
	&init_variables;
	&open_datafile;
	&check_input;
	&check_urlinfo;
	&add_data;
	&show_html;
	&tblib'unlock;
}



########## 変数の初期化
sub init_variables{
	$basedir = $tblib'basedir;
	
	$datafile = "$basedir/tbdata.txt";
	$newfile = "$basedir/tbnew.txt";
	$tpfile = "$basedir/tb_regist.html";
}



########## 入力のチェック
sub check_input{
	&tblib'parseform;
	
	$utype = $tblib'F{'utype'};
	$mode = $tblib'F{'mode'} || "top";
	$checked = $tblib'F{'checked'};
}



########## データファイルのオープン
sub open_datafile{
	&tblib'openfile($datafile, *datas);
	&tblib'openfile($newfile, *news);
	&tblib'openfile($tpfile, *tps);
	
	&tblib'set_genre;
}



########## 入力データの形式チェック
sub check_urlinfo{
	($utype) || return;
	
	### 入力の受け取り
	$uid    = $tblib'F{'uid'};
	$umail  = &tblib'decode($tblib'F{'umail'});
	$uname  = &tblib'decode($tblib'F{'uname'});
	$utitle = &tblib'decode($tblib'F{'utitle'});
	$uurl   = &tblib'decode($tblib'F{'uurl'});
	$ukeys  = &tblib'decode($tblib'F{'ukeys'});
	$ugcode = &tblib'decode($tblib'F{'gcode'});
	$ucom   = &tblib'decode($tblib'F{'ucom'});
	$udate  = &tblib'decode($tblib'F{'udate'});
	
	### 不正チェック
	(!$uid) || ($uid =~ /^\d+$/)
		|| &regist_error("ＩＤが不正です。");
	($umail =~ /^[\w\-\+\.]+\@[\w\-\+\.]+$/)
		|| &regist_error("メールアドレスが入力されていないかが不正です。");
	(!$uurl) || ($uurl =~ /^http:\/\//)
		|| &regist_error("ＵＲＬが入力されていないか不正です。");
	(!$ugcode) || ($ugcode =~ /^(\w\w:)+$/)
		|| &regist_error("ジャンルが一つも選択されていないか不正です。");
	
	### 新規
	if($utype eq 'new'){
		$udate = "###";
		$uid = "";
		($uname && $utitle && $uurl)
			|| &regist_error("入力がされていない項目があります。★の項目は必須です。$uname, $utitle, $uurl");
	}
	### 修正、削除
	else{
		### 日付を変更する
		($udate == 1) && ($udate = "UUU");
		### ＩＤの存在チェック
		($uid) || &regist_error("ＩＤが指定されていません。");
		push(@datas, $uid);
		for($i = 0; $i <= $#datas; $i++){
			($datas[$i] =~ /^$uid/) && last;
		}
		($i == $#datas)
			&& &regist_error("ID No.$uid は存在しません。");
		
		### 古いデータと新しいデータをマージ
		$oldline = $datas[$i];
		($oid, $ogcode, $odate, $ourl, $otitle, $ocom, $okey, $oname, $omail) = split("\t", $oldline);
		($omail eq $umail) || &regist_error("メールアドレスが登録時のものと一致しません。");
		($ugcode) || (($ugcode) = ($ogcode =~ m|^:(.+)|));
		($udate)  || ($udate = $odate);
		($uurl)   || ($uurl = $ourl);
		($utitle) || ($utitle = $otitle);
		($ucom)   || ($ucom = $ocom);
		($ukeys)  || ($ukeys = $okey);
		($uname)  || ($uname = $oname);
	}
	
	($checked && $utype eq 'new') && ($uid = &tblib'make_new_id);
	$newline = "$utype\t$uid\t:$ugcode\t$udate\t$uurl\t$utitle\t$ucom\t$ukeys\t$uname\t$umail\t$ENV{'REMOTE_HOST'}\t\n";
}



########## ファイルを更新する
sub add_data{
	($utype && $checked) || return;
	
	### 同じＩＤに関する登録があった場合は古いものを消す
	for $i(0..$#news){
		($news[$i] =~ /\t$uid\t/) && splice(@news, $i, 1);
	}
	
	push(@news, $newline);
	&tblib'updatefile($newfile, *news);
}



########## 表示
sub show_html{
	local($htmlbuf, $listbuf);
	
	if($utype){
		$C{'title'} = $T{$utype};
		$listbuf = &html_urlinfo;
		if($checked){
		### 登録完了
			$msg = "<FONT COLOR=\"#0000BB\">【登録完了】</FONT> 以下のように仮登録されました。この内容は管理者のチェック後に本登録されます。";
			$form = "[<A HREF=\"./tbookmark.cgi\">検索ページへ戻る</A>]";
		}
		else{
		### 申請内容確認
			$msg = "<FONT COLOR=\"#FF0000\">【登録確認】</FONT> 以下のように登録します。内容を確認し「仮登録実行」を押してください。";
			$form = &html_registbutton;
		}
	}
	else{
		### 初期画面
		$C{'ugcode'} = &tblib'make_genre_form("");
	}
	
	print "Content-type: text/html\n\n";
	
	$tpfrag = 1;
	foreach (@tps){
		(/^<TEMPLATE TYPE="(\w+)">/) && ($1 ne $mode) && ($tpfrag = 0); 
		(/^<\/TEMPLATE>/) && ($tpfrag = 1);
		($tpfrag) || next;
		
		s/#MESSAGE#/$msg/g;
		s/#LIST#/$listbuf/g;
		s/#FORM#/$form/g;
		s/#CHK:(\w+)#/$C{$1}/g;
		
		$htmlbuf .= $_;
	}
	print $htmlbuf;
}



########## 登録依頼内容の確認表示
sub html_urlinfo{
	local($htmlbuf, @uls, $type, $page);
	
	### 各作業のタイトル
	$T{'new'} = "新規登録";
	$T{'fix'} = "修正";
	$T{'del'} = "削除";
	
	### 新しく登録されたデータ
	@uls = split("\t", $newline);
	($type) = shift(@uls);
	$page = &tblib'glance_page(@uls);
	$htmlbuf = "
	<CENTER><FONT SIZE=\"5\">◆ [申\請内容] --- <B>$T{$type} ◆</B></FONT></CENTER><P>
	$page
	";
}



########## 登録依頼内容の確認表示
sub html_registbutton{
	"
	<INPUT TYPE=\"hidden\" NAME=\"utype\" VALUE=\"$utype\">
	<INPUT TYPE=\"hidden\" NAME=\"uid\" VALUE=\"$uid\">
	<INPUT TYPE=\"hidden\" NAME=\"gcode\" VALUE=\"$ugcode\">
	<INPUT TYPE=\"hidden\" NAME=\"udate\" VALUE=\"$udate\">
	<INPUT TYPE=\"hidden\" NAME=\"uurl\" VALUE=\"$uurl\">
	<INPUT TYPE=\"hidden\" NAME=\"utitle\" VALUE=\"$utitle\">
	<INPUT TYPE=\"hidden\" NAME=\"ucom\" VALUE=\"$ucom\">
	<INPUT TYPE=\"hidden\" NAME=\"ukeys\" VALUE=\"$ukeys\">
	<INPUT TYPE=\"hidden\" NAME=\"uname\" VALUE=\"$uname\">
	<INPUT TYPE=\"hidden\" NAME=\"umail\" VALUE=\"$umail\">
	
	<INPUT TYPE=\"submit\" NAME=\"checked\" VALUE=\"仮登録実行\">
	";
}



##### 登録特有のエラー
sub regist_error{
	local($remsg) = @_;
	
	print "Content-type: text/html\n\n";
	
	print "
	<HTML><HEAD><TITLE>T-Bookmark - Registration Error!!</TITLE></HEAD>
	<BODY BGCOLOR=\"#CCCCFF\">
	<FONT SIZE=\"4\"><B>登録エラー.</B></FONT><P>
	<FONT SIZE=\"3\"><B>$remsg</B></FONT><P>
	<FONT SIZE=\"3\">ブラウザのBackで戻ってください。</FONT><HR>
	</BODY></HTML>
	";
	
	&tblib'lock_check(1);
	
	exit;
}