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

use strict;
use uselib;
use defnsopath_shop;
use NsoVersionPC 1.00;

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

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

my $shop_index    = $ConfigSystem{html_tmpl_name}{shop_index};

print "Location: $shop_index\n\n";