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