Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Perl) Xero API through an SOCKS ProxyThis example demonstrates connecting through a SOCKS proxy w/ 2-legged OAuth for a Xero private application. This example requires Chilkat v9.5.0.64 or later
use chilkat(); # This example requires Chilkat v9.5.0.64 or later # This sample code would typically be placed in a subroutine or function # where the rest object is passed by reference. # It does the OAuth1 setup and makes the initial connection. $rest = chilkat::CkRest->new(); # Connect to the Xero server through an HTTP proxy, and then tell the REST object # to use the socket connection. $socket = chilkat::CkSocket->new(); # Set the SOCKS proxy domain or IP address, port, and SOCKS version number (4 or 5) $socket->put_SocksHostname("192.168.1.100"); $socket->put_SocksPort(1080); $socket->put_SocksVersion(5); # Other properties exist for specifying a SOCKS proxy login and password, # but these are not used in this example. # Connect through the SOCKS proxy.. $bTls = 1; $port = 443; $maxWaitMs = 5000; $success = $socket->Connect("api.xero.com",$port,$bTls,$maxWaitMs); if ($success != 1) { print "Connect Failure Error Code: " . $socket->get_ConnectFailReason() . "\r\n"; print $socket->lastErrorText() . "\r\n"; exit; } # Use the SOCKS proxied TLS connection: $success = $rest->UseConnection($socket,1); if ($success != 1) { print $rest->lastErrorText() . "\r\n"; exit; } # OK, we're connected. # The UseConnection method has an internal reference to the underlying/internal socket. # The application can does not need to keep its socket object in existence. # ----------------------------------------------------------------- # Now setup the OAuth1 authenticator.. $consumerKey = "XERO_PRIVATE_APP_KEY"; $consumerSecret = "XERO_PRIVATE_APP_SECRET"; # Let's get our private key from our PFX (password protected), or the PEM (unprotected). # You can decide which to use. Either is OK, although I would recommend keeping your # private keys in a PFX and not in an unprotected PEM. $pfx = chilkat::CkPfx->new(); $success = $pfx->LoadPfxFile("qa_data/certs/xero_private_app/public_privatekey.pfx","PFX_PASSWORD"); if ($success != 1) { print $pfx->lastErrorText() . "\r\n"; exit; } # privKeyFromPfx is a PrivateKey $privKeyFromPfx = $pfx->GetPrivateKey(0); if ($pfx->get_LastMethodSuccess() != 1) { print $pfx->lastErrorText() . "\r\n"; exit; } # Or we can load from a PEM.. $privKeyFromPem = chilkat::CkPrivateKey->new(); $success = $privKeyFromPem->LoadPemFile("qa_data/certs/xero_private_app/privatekey.pem"); if ($success != 1) { print $privKeyFromPem->lastErrorText() . "\r\n"; exit; } # Note: There are many other means for loading a private key, including # from other formats and directly from memory (i.e. not file-based). $oauth1 = chilkat::CkOAuth1->new(); $oauth1->put_ConsumerKey($consumerKey); $oauth1->put_ConsumerSecret($consumerSecret); $oauth1->put_Token($consumerKey); $oauth1->put_TokenSecret($consumerSecret); $oauth1->put_SignatureMethod("RSA-SHA1"); $oauth1->SetRsaKey($privKeyFromPfx); # Install the OAuth1 authenticator. $rest->SetAuthOAuth1($oauth1,0); print "OK, the Xero OAuth1 is initialized and the REST object is ready to make REST API calls.." . "\r\n"; # ----------------------------------------------------------------- # Make a call to verify that OAuth1 through an HTTP proxy works.. # Get the full list of contacts. $sbXml = chilkat::CkStringBuilder->new(); $success = $rest->FullRequestNoBodySb("GET","/api.xro/2.0/Contacts",$sbXml); if ($success != 1) { print $rest->lastErrorText() . "\r\n"; exit; } # A 200 response is expected for actual success. if ($rest->get_ResponseStatusCode() != 200) { print $sbXml->getAsString() . "\r\n"; exit; } # Iterate over the contacts.. $bAutoTrim = 0; $xml = chilkat::CkXml->new(); $xml->LoadSb($sbXml,$bAutoTrim); $xml->SaveXml("qa_cache/xero_contacts.xml"); # How many records exist? $recordCount = $xml->NumChildrenAt("Contacts"); print "numRecords = " . $recordCount . "\r\n"; $i = 0; while ($i < $recordCount) { $xml->put_I($i); print "ContactID: " . $xml->getChildContent("Contacts|Contact[i]|ContactID") . "\r\n"; $i = $i + 1; } |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.