tsdiy.cgi

支持全流程的Perl+MySQL电子商务系统。完全公开代码。

#!/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();
}