Developing (v7+)

HTTP Post in Canada Post Custom Shipping Type

Permalink July 19, 2011 at 10:52 AM

Hello,

It was suggested that I post this here in addition to the eCommerce Questions & Discussions section, sorry if there is an even better place than "Building in Concrete5" for this discussion:

I think us Canucks may be a few short steps away from having a Concrete5 shipping type. If anybody knows how I might set up an HTTP Post in a custom shipping type, the actual modifiers are calculated at canadapost.ca as per a registered SellOnline client's shipping profile.

What I need to do is post some product .xml data as per their .dtd (attached in .txt) and then receive a string of variables to display as options to the consumer. There is support on their end as well to help get this right, but I thought I would start here to see if somebody could help me get started. Here is a piece of code I found floating around on the web that somebody used to post data to SellOnline:

//extract data from the post
extract($_POST);
//set POST variables
$url = 'http://domain.com/get-post.php';
$fields = array(
            'lname'=>urlencode($last_name),
            'fname'=>urlencode($first_name),
            'title'=>urlencode($title),
            'company'=>urlencode($institution),
            'age'=>urlencode($age),
            'email'=>urlencode($email),
            'phone'=>urlencode($phone)
        );
//url-ify the data for the POST
foreach($fields as $key=>$value) { $fields_string .= $key.'='.$value.'&'; }

Viewing 15 lines of 50 lines. View entire code block.

 
//extract data from the post
extract($_POST);
 
//set POST variables
$url = 'http://domain.com/get-post.php';
$fields = array(
            'lname'=>urlencode($last_name),
            'fname'=>urlencode($first_name),
            'title'=>urlencode($title),
            'company'=>urlencode($institution),
            'age'=>urlencode($age),
            'email'=>urlencode($email),
            'phone'=>urlencode($phone)
        );
 
//url-ify the data for the POST
foreach($fields as $key=>$value) { $fields_string .= $key.'='.$value.'&'; }
rtrim($fields_string,'&');
 
//open connection
$ch = curl_init();
 
//set the url, number of POST vars, POST data
curl_setopt($ch,CURLOPT_URL,$url);
curl_setopt($ch,CURLOPT_POST,count($fields));
curl_setopt($ch,CURLOPT_POSTFIELDS,$fields_string);
 
//execute post
$result = curl_exec($ch);
 
//close connection
curl_close($ch);
 
 
<?php 
function do_post_request($url,$data,$optional_headers = NULL) {
 
                set_time_limit(10);
                $ch = curl_init("sellonline.canadapost.ca:30000");
                curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
                curl_setopt($ch, CURLOPT_URL, "sellonline.canadapost.ca:30000");
                curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);
                curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 0);
 
                curl_setopt($ch, CURLOPT_DNS_CACHE_TIMEOUT, 2678400);
                curl_setopt( $ch, CURLOPT_HEADER, 0 );
 
                //curl_setopt($ch, CURLOPT_IPRESOLVE, CURL_IPRESOLVE_V4);
                curl_setopt($ch, CURLOPT_POSTFIELDS, $data);
                curl_setopt( $ch, CURLOPT_RETURNTRANSFER, 1 );
                $buf = "";
                $buf = curl_exec($ch);
 
                curl_close( $ch );
    //    echo $buf;                
       if($buf == ""){
          $buf = '<?xml version="1.0" ?><eparcel><error><statusMessage>Cannot reach Canada Post Server. You may refresh this page (Press F5) to try again.</statusMessage></error></eparcel>'; 
       }
        // echo "<pre>";
        // print_r($params["http"]["content"]);
        return $buf;
} ?>

1 Attachment

Forums

Developing (v7+)

HTTP Post in Canada Post Custom Shipping Type

Code

Post Reply

Delete Post

Mark Post as Spam

Destroy Spammer

Sign In?