#!/usr/bin/perl
#
#
##########################################################
#					網絡小廚房 商店系統
#					Net Kitchen SHOP
##########################################################
#首頁代碼
##########################################################

####################################################################################
#前端預處理
####################################################################################
use FindBin qw($Bin);
use lib "$Bin/library";
use iLcatlib;
use strict;
use vars qw(%FORM %CON %COOKIE $LIB $sth $row @userdata);

#獲得系統參數
tie %CON, 'IniFiles', ( -file => "$Bin/nkshop.ini" );

#構造新對象
$LIB=iLcatlib->new(ttmlpath=>"$CON{path}{ttmlpath}");

#獲得COOKIE
%COOKIE=$LIB->ReadCookie();

#獲得提交內容
%FORM=$LIB->ReadParse();

#連接數據庫
$LIB->MySQL_Connect(
	database=>"$CON{database}{database}",
	dbhost=>"$CON{database}{dbhost}",
	dbuser=>"$CON{database}{dbuser}",
	dbpwd=>"$CON{database}{dbpwd}"
);

#用戶檢測
#@userdata=$LIB->key_proc("$COOKIE{'key'}","$CON{parameter}{timeout}");

if ($FORM{'act'} eq 'reg') {®}
else {&diy;}

sub diy
{
my $text={
			cgiurl	=>	$CON{path}{cgiurl},
			imgurl	=>	$CON{path}{webimg},
			htmurl	=>	$CON{path}{htmurl},
};

print $LIB->Parse("diy_1.htm",$text);

exit;
}

sub reg
{
my ($msg);
my $time=time();
	if ($FORM{'reg_email'} eq '') {print "Content-type: text/html\n\n";print "沒有填寫郵箱";exit;}
	if ($FORM{'mod'} eq '0') {
		$msg = qq~
			<pre>
			自定義圖片注意：
						1、圖片清晰
						2、圖片大小在28厘米X20厘米之內
			為了保證對您的服務，請將自定義圖片通過電子郵件發到hoowa\@163.com，并在主題寫上此DIY單編號$time
			</pre>
			~;
	}

my $all_price = 70 * $FORM{'count'};

#####格式化發給用戶的郵件
my $mail_user = qq~

	編號:$time
	圖片：$FORM{'mod'}
	圖片：$FORM{'mod_size'}
	顏色：$FORM{'color'}
	數量：$FORM{'count'}
	尺寸：$FORM{'size'}
	總價值(不含郵費):$all_price

	=======================================
	訂購人：$FORM{'reg_id'}
	信箱：$FORM{'reg_email'}
	其他聯系：$FORM{'reg_contact'}
	支付方式：$FORM{'pay'}

	~;

&_sendmail($FORM{'reg_email'},$FORM{'reg_email'},$CON{syscon}{support_from},"一封DIY訂購Mail",$mail_user);

my $text={
			cgiurl	=>	$CON{path}{cgiurl},
			imgurl	=>	$CON{path}{webimg},
			htmurl	=>	$CON{path}{htmurl},
			notic	=>	$msg,
			all_price	=>	$all_price,
			info	=>	"圖片：$FORM{'mod'} $FORM{'mod_size'}<br>顏色:$FORM{'color'}<br>數量:$FORM{'count'}<br>尺寸:$FORM{'size'}<br>總價:$all_price",
			mail	=>	$CON{syscon}{servicemail},
};

print $LIB->Parse("diy_2.htm",$text);

exit;
}


sub _sendmail
{
my ($from,$replay,$to,$subject,$text)=@_;

#SendMail System
 open( MAIL, "| $CON{path}{sendmail} -t" ) || die $LIB->Lost("不能給您發郵件");
 print MAIL "To: $to\n";
 print MAIL "From: $from\n";
 print MAIL "Reply-to: $replay\n";
 print MAIL "Subject: $subject\n\n";
 print MAIL "$text","\n\n";
 close MAIL;

return();
}