#!/usr/bin/perl
#--NetShopOwner-CGI-version:5.0.2.0--

;#
;# m_shop_index.cgi
;# [携帯]トップページ
;# (C) 2012 株式会社ジャストシステム
;#
;# last modified YYYY/MM/DD
;#

use strict;
use uselib;
use defnsopath_shopm;
use NsoVersionMB 1.00;
use Lib::SiteStatus;
use NsoUserAgent;
use NsoMobileAffiliate;

&ReadParse();
my %in    = %main::in;
my %incfn = %main::incfn;
my %inct  = %main::inct;

# インスタンス定義
my $objConfigSystem = Config::NsoSystem->newShop();
my $objConfigMaster = Config::NsoMaster->new();
my $NsoMisc       = NsoMisc->new();
my $NsoUserAgent  = NsoUserAgent->new();

# HTTP_USER_AGENT検査
$NsoUserAgent->Check({ Type=>'M', URL=>"shop_index.cgi" });

# コンフィグレーションのキャッシュ
my %ConfigSystem = $objConfigSystem->cache_config();
my %ConfigMaster = $objConfigMaster->cache_config();

my $status_err;

FUNC:{
	my $func = $in{func} || 'main';
	my %function = (
		main       => \&main,
	);
	
	&check_closing();
	
	if ($function{$func}){
		$function{$func}->();
	}else{
		&main();
	}
}
exit();

;#
;# 開店・閉店状態検査
;#
sub check_closing {
	my $SiteStatus = Lib::SiteStatus->new({ ConfigSystem=>\%ConfigSystem });
	$SiteStatus->CheckMobileShop();
	$SiteStatus->CheckMClosing({ IgnoreFlag=>1 });
}

;#
;# メイン処理
;#
sub main {

	# テンプレート置換
	my $html_templ_dir   = "./";
	my $html_templ_kind  = "nsoDB/templ/";
	my $Data = "m_shop_index.htmp";

	my %Text = ();
	# BasketSessionID保持
	if($in{BasketSessionID} ne "") {
		# HTMLエンコード
		my $enc_BasketSessionID = $NsoMisc->html_encode($in{BasketSessionID});
		$Text{BasketSessionID} = qq(<input type="hidden" name="BasketSessionID" value="$enc_BasketSessionID">) ;
		$Text{BasketSessionID_Val} = $enc_BasketSessionID;
	}

	# アフィリエイトパラメータ保持
	my $NsoMobileAffiliate = NsoMobileAffiliate->new({ ConfigSystem=>\%ConfigSystem, ConfigMaster=>\%ConfigMaster });
	$Text{MobileAffiliateParam} = $NsoMobileAffiliate->make_post_query_string(\%in);
	$Text{MobileAffiliateParam_Val} = $NsoMobileAffiliate->make_get_query_string(\%in, 1);	# HTMLエンコードあり

	# テンプレート置換
	my $NsoTempl = NsoTempl->new({ DataDir=>$html_templ_dir, DirKind=>$html_templ_kind, Data=>$Data });
	my %replace_templ = (
		Text => \%Text,
	);
	print $NsoMisc->print_header_m();
	print $NsoTempl->replace_templ_m(\%replace_templ);

	exit();
}