source: temp/trunk/html/test/naka/send.php @ 7283

Revision 7283, 1.7 KB checked in by kakinaka, 20 years ago (diff)

* empty log message *

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1<?php
2
3require_once("../../require.php");
4require_once(DATA_PATH . "module/Request.php");
5
6$order_url = "http://beta.epsilon.jp/cgi-bin/order/receive_order3.cgi";
7
8$arrData = array(
9    'order_number' => '939639281111',
10    'st_code' => '10100-0000-00000',
11    'memo1' => '»î¸³ÍÑ¥ª¡¼¥À¡¼¾ðÊó',
12    'user_mail_add' => '[email protected]',
13    'item_name' => '¥×¥ê¥ó¥¿',
14    'contract_code' => '13094800',
15    'user_name' => 'naka',
16    'process_code' => '1',
17    'mission_code' => '1',
18    'item_price' => '34800',
19    'xml' => '0',       
20    'item_code' => 'abc12345',
21    'memo2' => '',
22    'user_id' => 'ktest'
23);
24
25$req = new HTTP_Request($order_url);
26$req->setMethod(HTTP_REQUEST_METHOD_POST);
27       
28$arrSendData = array();
29$req->addPostDataArray($arrData);
30
31if (!PEAR::isError($req->sendRequest())) {
32    $response = $req->getResponseBody();
33} else {
34    $response = "";
35}
36$req->clearPostData();
37
38/*
39$parser = xml_parser_create();
40xml_parser_set_option($parser,XML_OPTION_SKIP_WHITE,1);
41xml_parse_into_struct($parser,$response,$arrVal,$idx);
42xml_parser_free($parser);
43*/
44
45$arrVal = $_GET;
46
47sfprintr($arrVal);
48
49$err_code = lfGetXMLValue($arrVal,'RESULT','ERR_CODE');
50
51if($err_code != "") {
52    $err_detail = lfGetXMLValue($arrVal,'RESULT','ERR_DETAIL');
53    print($err_detail);
54} else {
55    $url = lfGetXMLValue($arrVal,'RESULT','REDIRECT');
56    header("Location: " . $url);   
57}
58
59
60function lfGetXMLValue($arrVal, $tag, $att) {
61    $ret = "";
62    foreach($arrVal as $array) {
63        if($tag == $array['tag']) {
64            if(!is_array($array['attributes'])) {
65                continue;
66            }
67            foreach($array['attributes'] as $key => $val) {
68                if($key == $att) {
69                    $ret = $val;
70                    break;
71                }
72            }           
73        }
74    }
75    $dec = urldecode($ret);
76    $enc = mb_convert_encoding($dec, 'EUC-JP', 'auto');
77    return $enc;
78}
79
80?>
Note: See TracBrowser for help on using the repository browser.