helpman.cgi

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

#!/usr/bin/perl
#
#
##########################################################
#					网络小厨房 商店系统
#					Net Kitchen SHOP
##########################################################
#首页代码
##########################################################

####################################################################################
#前端预处理
####################################################################################
use FindBin qw($Bin);
use lib "$Bin/library";
use iLcatlib;
use strict;
use vars qw(%CON %FORM $LIB);

#获得系统参数
tie %CON, 'IniFiles', ( -file => "$Bin/nkshop.ini" );

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

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

if ($FORM{'sub'} eq 'how_pay') {
print $LIB->Parse("postage_read.htm",{
									cgiurl	=>	$CON{path}{cgiurl},
									company_postcode	=>	$CON{syscon}{company_postcode},
									company_address	=>	$CON{syscon}{company_address},
									company_recuser	=>	$CON{syscon}{company_recuser},
									servicemail		=>	$CON{syscon}{servicemail},
									company_phone	=>	$CON{syscon}{company_phone},
									support_from	=>	$CON{syscon}{support_from},
								});
}
else{

print $LIB->Parse("help.htm",{
									cgiurl	=>	$CON{path}{cgiurl},
									company_postcode	=>	$CON{syscon}{company_postcode},
									company_address	=>	$CON{syscon}{company_address},
									company_recuser	=>	$CON{syscon}{company_recuser},
									servicemail		=>	$CON{syscon}{servicemail},
									company_phone	=>	$CON{syscon}{company_phone},
									support_from	=>	$CON{syscon}{support_from},
								});
}

#The END
$LIB->exit();