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

Revision 7280, 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' => '1',       
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
47$err_code = lfGetXMLValue($arrVal,'RESULT','ERR_CODE');
48
49if($err_code != "") {
50    $err_detail = lfGetXMLValue($arrVal,'RESULT','ERR_DETAIL');
51    print($err_detail);
52} else {
53    $url = lfGetXMLValue($arrVal,'RESULT','REDIRECT');
54    header("Location: " . $url);   
55}
56
57
58function lfGetXMLValue($arrVal, $tag, $att) {
59    $ret = "";
60    foreach($arrVal as $array) {
61        if($tag == $array['tag']) {
62            if(!is_array($array['attributes'])) {
63                continue;
64            }
65            foreach($array['attributes'] as $key => $val) {
66                if($key == $att) {
67                    $ret = $val;
68                    break;
69                }
70            }           
71        }       
72    }
73    $dec = urldecode($ret);
74    $enc = mb_convert_encoding($dec, 'EUC-JP', 'auto');
75    return $enc;
76}
77
78?>
Note: See TracBrowser for help on using the repository browser.