Perl

REST Auto Reconnect for Multiple Requests (dev.markitondemand.com)

See more REST Examples

Demonstrates how the autoReconnect argument to the Connect method is used. Perl

use chilkat();

$success = 0;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$rest = chilkat::CkRest->new();

# This example demonstrates the usage of the autoReconnect argument to the Connect method.
# When autoReconnect is on, subsequent REST method calls will automatically re-connect
# if necessary, using the same information (domain/IP address, port number, and TLS).
$bTls = 0;
$port = 80;
$bAutoReconnect = 1;
$success = $rest->Connect("dev.markitondemand.com",$port,$bTls,$bAutoReconnect);

# Get a stock quote:
$success = $rest->AddQueryParam("symbol","AAPL");
$responseXml = $rest->fullRequestNoBody("GET","/MODApis/Api/v2/Quote");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$xml = chilkat::CkXml->new();
$success = $xml->LoadXml($responseXml);
print "AAPL LastPrice: " . $xml->getChildContent("LastPrice") . "\r\n";

# Get another stock quote.  If a new HTTP connection is required,
# the REST object will automatically connect using the same parameters.
$success = $rest->AddQueryParam("symbol","AMZN");
$responseXml = $rest->fullRequestNoBody("GET","/MODApis/Api/v2/Quote");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$success = $xml->LoadXml($responseXml);
print "AMZN LastPrice: " . $xml->getChildContent("LastPrice") . "\r\n";