#!/usr/bin/perl -w
#########################################
# bsheader.cgi v1.2
# BadStore.net 用カートヘッダープログラム
#########################################
use utf8;
use CGI qw(:standard);
use MIME::Base64;
binmode(STDOUT, ':encoding(UTF-8)');
### CartID Cookie を読み込む ###
$ctemp=cookie('CartID');
@c_cookievalue=split(":", ("$ctemp"));
$id=shift(@c_cookievalue);
$items=shift(@c_cookievalue);
$cost=shift(@c_cookievalue);
$price='$' . sprintf("%.2f", $cost);
### SSOid Cookie を読み込む ###
$stemp=cookie('SSOid');
$stemp=decode_base64($stemp);
@s_cookievalue=split(":", ("$stemp"));
$email=shift(@s_cookievalue);
$passwd=shift(@s_cookievalue);
$fullname=shift(@s_cookievalue);
if ($fullname eq '') {
$fullname="{未登録ユーザー}";
}
if ($items eq '') {
$items="0";
}
print "Content-type: text/html; charset=UTF-8\n\n";
print "ようこそ $fullname さん - カートには $price 分の $items 個の商品が入っています\n";