#! /usr/local/bin/perl

require './inc-base.cgi';
require './inc-expire.cgi';
require '../jcode.pl';
GetQuery();

Expire();

if($Q{admin} ne $MASTER_PASSWORD)
{
	OutError('新規店舗登録権限がありません') if $NEW_SHOP_ADMIN;
	OutError('あなたは現在登録制限されています') if $ENV{'REMOTE_ADDR'} eq $DTblockip && $NEW_SHOP_BLOCKIP;
}

checkMaxUser();

if($Q{sname}.$Q{name}.$Q{own}.$Q{sei}.$Q{pass1}.$Q{pass2})
{
	$Q{name}=jcode'sjis($Q{name});
	$Q{sname}=jcode'sjis($Q{sname});
    $Q{own}=jcode'sjis($Q{own});

	if(($Q{sname}.$Q{name}.$Q{own}.$Q{pass1}.$Q{pass2}) =~ /([,:;\t\r\n<>&])/
	|| ($Q{pass1}.$Q{pass2}.$Q{name}) =~ /([^A-Za-z0-9_\-])/
	|| $Q{name} eq 'soldoutadmin'
	)
	{
		OutError('ＩＤ・店名・オーナー名・パスワードに使用できない'.
		         '文字が含まれています。');
	}
	if(!$Q{sname} || !$Q{name} || !$Q{own} || !$Q{sei} || !$Q{pass1} || !$Q{pass2})
	{
		OutError('ＩＤ・店名・オーナー名・性別・パスワードを入力してください。');
	}
	if($Q{pass1} ne $Q{pass2})
	{
		OutError('確認パスワードが違っています。');
	}
	if(length($Q{name})>12 || length($Q{sname})>40 || length($Q{own})>16
	|| length($Q{pass1})>12 || length($Q{pass2})>12)
	{
		OutError('名前(12文字)・店名(20文字)・オーナー名(16文字)・パスワード(12文字)の文字数が多いです。');
	}
	
	Lock();
	DataRead();
	checkMaxUser();
	OutError('既に存在するＩＤです。-> '.$Q{name}) if $name2pass{$Q{name}};
	
	foreach $idx (0..$#DT)
	{
		OutError('既に存在する店名です。-> '.$Q{sname}) if $DT[$idx]->{shopname} eq $Q{sname};
	}
	
	$idx=$DTusercount;
	$DTlasttime=time() if !$idx;
	$DT[$idx]={};
	$DT=$DT[$idx];
	$DT->{status}	    =1;
	$DT->{id}           =$DTnextid;
	$DT->{lastlogin}    =time();
	$DT->{name}         =$Q{name};
	$DT->{shopname}     =$Q{sname};
	$DT->{pass}         =$PASSWORD_CRYPT ? crypt($Q{pass1},'mu') : $Q{pass1};
	$DT->{money}        =100000;
	$DT->{time}         =time()-12*60*60;
	$DT->{rank}         =5015;
	$DT->{saleyestaday} =0;
	$DT->{saletoday}    =0;
	$DT->{costtoday}    =0;
	$DT->{costyestaday} =0;
	$DT->{paytoday}     =0;
	$DT->{payyestaday}  =0;
	$DT->{showcasecount}=1;
	$DT->{itemyestaday}	={};
	$DT->{itemtoday}	={};
	$DT->{remoteaddr}   =$ENV{'REMOTE_ADDR'};
	$DT->{rankingyestaday}=$MAX_USER;
	$DT->{own}          =$Q{own};
	$DT->{sei}          =$Q{sei};
    $DT->{rey}          =0;
	foreach $cnt (0..$DT->{showcasecount}-1)
	{
		$DT->{showcase}[$cnt]=0;
		$DT->{price}[$cnt]=0;
	}
	foreach $cnt (0..$MAX_ITEM-1)
	{
		$DT->{item}[$cnt]=0;
	}
	
	$DTblockip=$DT->{remoteaddr};
	WriteLog(1,0,0,$Q{sname}."が新装開店しました",1);
	DataWrite();
	UnLock();
	
            @seibetu = ("男","女","\不\明");
	
	OutHTML
	(
		'登録終了',
		"ＩＤ:$Q{name}<BR>店名:$Q{sname}<BR>オーナー名:$Q{own}<BR>性別:@seibetu[$Q{sei}-1]<BR>パスワード:$Q{pass1}<BR><BR>".
		"上記にて登録しました。<BR><BR>".
		"それでは、お楽しみ下さい。<BR><BR>".
		"初めての方は、メニューの<A HREF=\"help.cgi?\">「経営入門」</A>を一通りご覧下さい。<BR><BR>".
		"<A HREF=\"index.cgi?u=$Q{name}!$Q{pass1}\">ゲームスタート</A><BR><BR>".
		"※携帯端末の場合、上記リンクに移動後、ブックマークしておくとパスワード入力の手間が省けます。".
		"ただし、ブックマークにパスワード情報が記録されますので、注意してください。"
	);
	exit;
}


$disp.=<<"HTML";
<FORM ACTION=\"$MYNAME\" $METHOD>
<INPUT TYPE=HIDDEN NAME=admin VALUE="$Q{admin}">
ＩＤ <INPUT TYPE=TEXT NAME=name> 半角英数のみ<BR>
店名 <INPUT TYPE=TEXT NAME=sname> 全角OK<BR>
オーナー名 <INPUT TYPE=TEXT NAME=own> 全角OK<BR>
性別
<SELECT NAME="sei">
<OPTION VALUE="" >
<OPTION VALUE="1" >男
<OPTION VALUE="2" >女
<OPTION VALUE="3" >\不\明
</SELECT><br>
パスワード <INPUT TYPE=PASSWORD NAME=pass1> 半角英数のみ<BR>
パスワード確認のためもう一度 <INPUT TYPE=PASSWORD NAME=pass2><BR>
<INPUT TYPE=SUBMIT VALUE='登録'>
</FORM>
<hr>
<a target="_blank" href="help.cgi?p=10">ルール(必読)</a>※別ウィンドウで開きます
<hr>
<a target="_blank" href="help.cgi?p=11">セキュリティについての詳細</a>※別ウィンドウで開きます<br><br>
パスワードにはバレても構\わないモノをお使い下さい。
本ゲームのパスワード処理はセキュリティ的に非常に甘いですので、
絶対にプロバイダやメールアカウントなどの重要なパスワードと同じ物は使わないでください。
バレても本ゲーム以外には損害がないパスワードでお願いします。
HTML

OutHTML('新規店舗開店',$disp);
exit;

sub checkMaxUser
{
	if($DTusercount>=$MAX_USER)
	{
		OutError
		(
			'申し訳ありませんが、現在空き店舗がありません。<BR>'.
			'空くのをお待ちください。<BR><BR>'.
			'ちなみに、深夜0:00に空く<B>可能性</B>があります。'.
			''
		);
	}
}