都度課金

$request->addPostParameter('version', '2' );
$request->addPostParameter('contract_code', $contract_code);
$request->addPostParameter('user_id', $user_id);
$request->addPostParameter('user_name', mb_convert_encoding($user_name, "UTF-8", "auto"));
$request->addPostParameter('user_mail_add', $user_mail_add);
$request->addPostParameter('item_code', $item_code);
$request->addPostParameter('item_name', mb_convert_encoding($item_name, "UTF-8", "auto"));
$request->addPostParameter('order_number', $order_number);
$request->addPostParameter('st_code', $st_code[$st]);
$request->addPostParameter('mission_code', $mission_code);
$request->addPostParameter('item_price', $item_price);
$request->addPostParameter('process_code', $process_code);
$request->addPostParameter('memo1', $memo1);
$request->addPostParameter('memo2', $memo2);
$request->addPostParameter('xml', '1');
$request->addPostParameter('character_code', 'UTF8' );

// HTTPリクエスト実行
$response = $request->send();

  if (!PEAR::isError($response)) {
   $res_code = $response->getStatus();
   $res_content = $response->getBody();

        //xml unserializer
        $temp_xml_res = str_replace("x-sjis-cp932", "UTF-8", $res_content);
        $unserializer =& new XML_Unserializer();
        $unserializer->setOption('parseAttributes', TRUE);
        $unseriliz_st = $unserializer->unserialize($temp_xml_res);
        if ($unseriliz_st === true) {
            //xmlを解析
            $res_array = $unserializer->getUnserializedData();
            $is_xml_error = false;
            $xml_redirect_url = "";
            $xml_error_cd = "";
            $xml_error_msg = "";
            $xml_memo1_msg = "";
            $xml_memo2_msg = "";
            $result = "";
            $trans_code = "";
            foreach($res_array['result'] as $uns_k => $uns_v){
                list($result_atr_key, $result_atr_val) = each($uns_v);

                switch ($result_atr_key) {
                  case 'redirect':
                    $xml_redirect_url = rawurldecode($result_atr_val);
                    break;
                  case 'err_code':
                    $is_xml_error = true;
                    $xml_error_cd = $result_atr_val;
                    break;
                  case 'err_detail':
                    $xml_error_msg = mb_convert_encoding(urldecode($result_atr_val), "UTF-8" ,"auto");
                    break;
                  case 'memo1':
                    $xml_memo1_msg = mb_convert_encoding(urldecode($result_atr_val), "UTF-8" ,"auto");
                    break;
                  case 'memo2':
                    $xml_memo2_msg = mb_convert_encoding(urldecode($result_atr_val), "UTF-8" ,"auto");
                    break;
                  case 'result':
                    $result = mb_convert_encoding(urldecode($result_atr_val), "UTF-8" ,"auto");
                    break;
                  case 'trans_code':
                    $trans_code = mb_convert_encoding(urldecode($result_atr_val), "UTF-8" ,"auto");
                    break;
                  default:
                    break;
                }
            }

        }else{
            //xml parser error
            $err_msg = "xml parser error

";
            order_form();
            exit(1);
        }



  }else{ //http error
      $err_msg = "データの送信に失敗しました

";
      $err_msg .= "
res_statusCd=" . $request->getResponseCode();
      $err_msg .= "
res_status=" . $request->getResponseHeader('Status');
      $err_msg .= "
ErrorMessage" . $response->getMessage();
  
  order_form();
    exit(1);

  }

  if($is_xml_error){
    // データ送信結果が失敗だった場合、オーダー入力画面に戻し、エラーメッセージを表示します。
    $err_msg = "エラー : " . $xml_error_cd . $xml_error_msg;
    order_form();
    exit(1);
  }else{
    if( !empty( $xml_redirect_url ) ){
        // データ送信に成功した場合、リダイレクト先URLへリダイレクトさせてください。
        header("Location: " . $xml_redirect_url);
        exit(0);
    }elseif( !empty($trans_code ) ){
        header("Location: ".$confirm_url."?trans_code=".$trans_code);
        exit(0);
    }else{
        result_page( $result );
        exit(0);
    }
  }
}

SettlementSendInfo si = this.getSettlmentSendInfo();		
List param = new ArrayList();		
Integer processCode = si.getProcessCode();		
～		
switch (processCode){		
	case 1: case 2: // 初回/登録済み課金	
		param.add( new BasicNameValuePair("version", si.getVersion().toString()));
		param.add( new BasicNameValuePair("contract_code", this.getConfig().getContract_code() ));
		param.add( new BasicNameValuePair("user_id", si.getUserId()));
		param.add( new BasicNameValuePair("user_name", si.getUserName()));
		param.add( new BasicNameValuePair("user_mail_add", si.getUserMailAdd()));
		param.add( new BasicNameValuePair("item_code", si.getItemCode()));
		param.add( new BasicNameValuePair("item_name", si.getItemName()));
		param.add( new BasicNameValuePair("order_number", si.getOrderNumber()));
		param.add( new BasicNameValuePair("st_code",  si.getStCode()));
		param.add( new BasicNameValuePair("mission_code",si.getMissionCode().toString()));
		param.add( new BasicNameValuePair("item_price", si.getItemPrice().toString()));
		param.add( new BasicNameValuePair("process_code", si.getProcessCode().toString()));
		param.add( new BasicNameValuePair("memo1", si.getMemo1()));
		param.add( new BasicNameValuePair("memo2", si.getMemo2()));
		param.add( new BasicNameValuePair("character_code", si.getCharacterCode()));
		param.add( new BasicNameValuePair("xml", si.getXml().toString()));

// 決済情報送信
// 送信用の設定を作成
RequestConfig rc = RequestConfig.custom().setConnectTimeout(2000)
										 .setSocketTimeout(2000)										
										 .setMaxRedirects(0)										
										 .build();
// Header定義
List<Header> header = new ArrayList<Header>();
header.add( new BasicHeader("Accept-Charset","UTF-8" ))	;
header.add( new BasicHeader("User-Agent","EPSILON SAMPLE PROGRAM JAVA" ));

HttpClient client = HttpClientBuilder.create()
								.setDefaultRequestConfig(rc)
								.setDefaultHeaders(header)
								.build();

List<NameValuePair> param = this.makeSendParam();
HttpPost post = new HttpPost();
HttpResponse res = null;

try {
	post.setEntity(new UrlEncodedFormEntity(param,"UTF-8"));
	post.setURI(new URI(this.getConfig().getOrder_url()));
	res = client.execute(post);
}catch(Exception e){
	e.printStackTrace();
	return null;
}

SettlementResultInfo settleResultInfo = new SettlementResultInfo();
if( res.getStatusLine().getStatusCode() == HttpStatus.SC_OK ){
    // BODYを取得してXMLパーサー呼び出し
    try{
        String xml = EntityUtils.toString(res.getEntity());
        //x-sjis-cp932だとエンコーダの未対応でエラーとなる
        xml = xml.replace("x-sjis-cp932", "Shift_JIS");
        //System.out.println(xml);
        InputStream body = new java.io.ByteArrayInputStream(xml.getBytes());
        Document xmlDoc = DocumentBuilderFactory.newInstance().newDocumentBuilder().parse(body);
        
        NodeList resultList = xmlDoc.getElementsByTagName("result");
        for( int i = 0; i < resultList.getLength(); i++) {
            Node node = resultList.item(i);
            NamedNodeMap namedNodeMap = node.getAttributes();
            for( int j =0; j < namedNodeMap.getLength(); j++ ){
                Node attr = namedNodeMap.item(j);
                switch (attr.getNodeName()) {
                case "result":
                    settleResultInfo.setResult(attr.getNodeValue());
                    break;
                case "err_code":
                    settleResultInfo.setErrCode(attr.getNodeValue());
                    break;
                case "err_detail":
                    settleResultInfo.setErrDetail(new String(URLDecoder.decode(attr.getNodeValue(),"UTF-8").getBytes("UTF-8"),"UTF-8" ));
                    break;
                case "memo1":
                    settleResultInfo.setMemo1( new String(URLDecoder.decode(attr.getNodeValue(),"UTF-8").getBytes("UTF-8"),"UTF-8" ));
                    break;
                case "memo2":
                    settleResultInfo.setMemo2( new String(URLDecoder.decode(attr.getNodeValue(),"UTF-8").getBytes("UTF-8"),"UTF-8" ));
                    break;
                case "redirect":
                    settleResultInfo.setRedirect(new String(URLDecoder.decode(attr.getNodeValue(),"UTF-8").getBytes("UTF-8"),"UTF-8" ));
                    break;
                case "trans_code":
                    settleResultInfo.setTransCode(attr.getNodeValue());
                    break;
                }
            }
        }
    }catch ( Exception e){
    e.printStackTrace();
    return null;
}
}else{
    // 応答が200以外の場合は不明
    return null;
}

my %data = ();		
        %data = (		
            version       => "2",               # バージョン		
            contract_code => $contract_code,    # 契約コード		
            user_id       => $user_id,          # ユーザーID		
            user_name     => $user_name,        # ユーザー名		
            user_mail_add =>		
                $user_mail_add,    # ユーザーメールアドレス		
            item_code    => $item_code,              # 商品コード		
            item_name    => $item_name,              # 商品名		
            order_number => $order_number,           # 注文番号		
            st_code      => $select_st_code{$st},    # 決済区分		
            mission_code => $mission_code,           # 課金区分		
            item_price   => $item_price,             # 価格		
            process_code => $process_code,           # 処理区分		
            memo1        => $memo1,                  # 追加情報１		
            memo2        => $memo2,                  # 追加情報２		
            character_code => "UTF8",                  # 文字コード		
            xml => '1'    # 応答形式 (0:html 1:XML)		
        );

my $ua = LWP::UserAgent->new;
$ua->timeout(20);
$ua->ssl_opts( verify_hostname => 0 );
my $rq = POST $order_url, [%data];
my $res = $ua->request($rq);

if ( $res->is_success ) {		
		
    # 応答内容(XML)の解析		
    my $xml    = $res->content;		
    my $parser = new XML::DOM::Parser;		
    my $doc    = $parser->parse($xml);		
    my $nodes  = $doc->getElementsByTagName("Epsilon_result")->item(0)		
        ->getElementsByTagName("result");		
    my $n = $nodes->getLength;		
		
    for ( my $i = 0; $i < $n; $i++ ) {		
        my $node = $nodes->item($i);		
        traverse($node);		
    }		
		
    sub traverse {		
        my ($node) = @_;		
        if ( $node->getNodeType == ELEMENT_NODE ) {		
            foreach my $child ( $node->getChildNodes() ) {		
                traverse($child);		
            }		
            foreach my $at ( $node->getAttributes ) {		
		
                # 値の取得		
                my $value = $at->item(0)->getNodeValue;		
		
             # URLデコード(値はURLエンコードされています)		
                $value =~ s/\+/ /g;		
                $value =~ s/%([a-fA-F0-9]{2})/ chr(hex($1))/ge;		
		
                #          $value = Encode::decode('shiftjis',$value);		
                # 変数名と値を連想配列に格納		
                $response{ $at->item(0)->getNodeName } = $value;		
            }		
        }		
    }		
}		
else {		
    $err_msg		
        = sprintf "データの送信に失敗しました %s

",		
        $res->status_line;		
    order_form();		
    exit 1;		
}		
		
if ( !$response{'result'} ) {		
		
# データ送信結果が失敗だった場合、オーダー入力画面に戻し、エラーメッセージを表示します。		
    $err_msg = sprintf "%s:%s", $response{'err_code'},		
        $response{'err_detail'};		
    order_form();		
    exit 1;		
}

$request = new HTTP_Request2($getsales_url, HTTP_Request2::METHOD_POST);
$request->setConfig(array(
  'ssl_verify_peer' => false,
#  'ssl_verify_peer' => true,
  'ssl_cafile' => '/etc/ssl/certs/ca-bundle.crt', //ルートCA証明書ファイルを指定
));
$request->setHeader("Content-Type","application/x-www-form-urlencoded");
$request->setBody("trans_code=" . $trans_code);

$request->setAuth($user_id, $passwd,HTTP_Request2::AUTH_BASIC);
$response = $request->send();

if (PEAR::isError($response)) {		
  // インターフェイスCGIの実行に失敗した場合		
  	$err_msg = "データの送信に失敗しました

";	
  	$err_msg .= "
res_statusCd=" . $response->getStatus();	
  	$err_msg .= "
res_status=" . $response ->getHeader('Status');	
	echo $err_msg;	
    exit;		
}		
		
		
// CGIの実行に成功した場合、応答内容(XML)を解析します		
// 応答内容(XML)の解析		
		
$res_code = $response ->getStatus();		
$res_content = $response ->getBody();		
#fputs(STDERR, $res_content );		
//xml unserializer		
$temp_xml_res = $res_content;#str_replace("x-sjis-cp932", "Shift-JIS", $res_content);		
$unserializer =& new XML_Unserializer();		
$unserializer->setOption('parseAttributes', TRUE);		
$unseriliz_st = $unserializer->unserialize($temp_xml_res);		
if ($unseriliz_st === true) {		
	//xmlを解析	
	$res_array = $unserializer->getUnserializedData();	
	//error check	
	if($res_array['result']['result'] == "0"){	
		echo "処理に失敗しました

";
    	exit(1);	
	}	
		
	$res_param_array = array();	
	//pram setting	
	foreach($res_array['result'] as $uns_k => $uns_v){	
		list($result_atr_key, $result_atr_val) = each($uns_v);
		$res_param_array[$result_atr_key] =  mb_convert_encoding(urldecode($result_atr_val), "UTF-8" ,"auto");
	}	
	$debug_printj .=  "
xml_memo2_msg=" . $xml_memo2_msg;	
		
}else{		
	//xml parser error	
  	echo "xml parser error

";	
    exit(1);		
}

// 決済結果を取得する
EpsilonGetSales epsilonGetSales = new EpsilonGetSales(config);
GetSalesResultInfo salesReulstInfo = epsilonGetSales.execute(transCode);

if( salesReulstInfo == null ){	
	request.setAttribute("err_msg", "決済結果取得接続処理でエラーが発生しました");
}else{	
	request.setAttribute("resultInfo", salesReulstInfo);
}

my $ua = LWP::UserAgent->new;
$ua->ssl_opts( verify_hostname => 0 );
my $req = HTTP::Request->new(POST => $getsales_url);
$req->content_type('application/x-www-form-urlencoded');
$req->content("trans_code=$trans_code&contract_code=$user_id");
my $res = $ua->request($req);

if (! $res->is_success){	
  # インターフェイスCGIの実行に失敗した場合	
  $err_msg = sprintf "HTTPリクエストの送信に失敗しました。%s:%s",$res->code,$res->message;	
  print_html($err_msg);	
  exit;	
}	
# CGIの実行に成功した場合、応答内容(XML)を解析します	
my $xml = $res->content;	
my $parser = new XML::DOM::Parser;	
my $doc = $parser->parse($xml);	
my $nodes = $doc->getElementsByTagName ("Epsilon_result")->item(0)->getElementsByTagName("result");	
my $n = $nodes->getLength;	
for (my $i = 0; $i < $n; $i++){	
  my $node = $nodes->item ($i);	
  traverse($node);	
}	
sub traverse {	
  my($node)= @_;	
  if ($node->getNodeType == ELEMENT_NODE) {	
    foreach my $child ($node->getChildNodes()) {	
      traverse($child);	
    }	
    foreach my $at ($node->getAttributes){	
      # 値の取得	
      my $value = $at->item(0)->getNodeValue;	
      # URLデコード (値はURLエンコードされています。)	
      $value =~ s/\+/ /g;	
      $value =~ s/%([a-fA-F0-9]{2})/ chr(hex($1))/ge;	
　　　#$value = Encode::decode('shiftjis',$value);	
      # 変数名と値を連想配列に格納	
      $response{$at->item(0)->getNodeName} = $value	
    }	
	
  }