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
(Classic ASP) Xero API through an SSH TunnelThis example demonstrates connecting through an SSH Tunnel w/ 2-legged OAuth for a Xero private application. This example requires Chilkat v9.5.0.64 or later
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires Chilkat v9.5.0.64 or later set tunnel = Server.CreateObject("Chilkat_9_5_0.Socket") sshHostname = "www.my-ssh-server.com" sshPort = 22 ' Connect to an SSH server and establish the SSH tunnel: success = tunnel.SshOpenTunnel(sshHostname,sshPort) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( tunnel.LastErrorText) & "</pre>" Response.End End If ' Authenticate with the SSH server via a login/password ' or with a public key. ' This example demonstrates SSH password authentication. success = tunnel.SshAuthenticatePw("mySshLogin","mySshPassword") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( tunnel.LastErrorText) & "</pre>" Response.End End If ' OK, the SSH tunnel is setup. Now open a channel within the tunnel. ' (Any number of channels may be created from the same SSH tunnel. ' Multiple channels may coexist at the same time.) ' 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. set rest = Server.CreateObject("Chilkat_9_5_0.Rest") bTls = 1 port = 443 maxWaitMs = 7000 ' This returns a socket object that is a single channel within the SSH tunnel. ' channel is a Chilkat_9_5_0.Socket Set channel = tunnel.SshOpenChannel("api.xero.com",port,bTls,maxWaitMs) If (tunnel.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( tunnel.LastErrorText) & "</pre>" Response.End End If ' Use the connection. (This connection is a TLS running on an SSH channel through an SSH tunnel. ' In other words, TLS is wrapped within the SSH tunnel.) success = rest.UseConnection(channel,1) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' OK, we're connected. ' ----------------------------------------------------------------- ' 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. set pfx = Server.CreateObject("Chilkat_9_5_0.Pfx") success = pfx.LoadPfxFile("qa_data/certs/xero_private_app/public_privatekey.pfx","PFX_PASSWORD") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>" Response.End End If ' privKeyFromPfx is a Chilkat_9_5_0.PrivateKey Set privKeyFromPfx = pfx.GetPrivateKey(0) If (pfx.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>" Response.End End If ' Or we can load from a PEM.. set privKeyFromPem = Server.CreateObject("Chilkat_9_5_0.PrivateKey") success = privKeyFromPem.LoadPemFile("qa_data/certs/xero_private_app/privatekey.pem") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( privKeyFromPem.LastErrorText) & "</pre>" Response.End End If ' Note: There are many other means for loading a private key, including ' from other formats and directly from memory (i.e. not file-based). set oauth1 = Server.CreateObject("Chilkat_9_5_0.OAuth1") oauth1.ConsumerKey = consumerKey oauth1.ConsumerSecret = consumerSecret oauth1.Token = consumerKey oauth1.TokenSecret = consumerSecret oauth1.SignatureMethod = "RSA-SHA1" success = oauth1.SetRsaKey(privKeyFromPfx) ' Install the OAuth1 authenticator. success = rest.SetAuthOAuth1(oauth1,0) Response.Write "<pre>" & Server.HTMLEncode( "OK, the Xero OAuth1 is initialized and the REST object is ready to make REST API calls..") & "</pre>" ' ----------------------------------------------------------------- ' Make a call to verify that OAuth1 through an HTTP proxy works.. ' Get the full list of contacts. set sbXml = Server.CreateObject("Chilkat_9_5_0.StringBuilder") success = rest.FullRequestNoBodySb("GET","/api.xro/2.0/Contacts",sbXml) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' A 200 response is expected for actual success. If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( sbXml.GetAsString()) & "</pre>" Response.End End If ' Iterate over the contacts.. bAutoTrim = 0 set xml = Server.CreateObject("Chilkat_9_5_0.Xml") success = xml.LoadSb(sbXml,bAutoTrim) success = xml.SaveXml("qa_cache/xero_contacts.xml") ' How many records exist? recordCount = xml.NumChildrenAt("Contacts") Response.Write "<pre>" & Server.HTMLEncode( "numRecords = " & recordCount) & "</pre>" i = 0 Do While i < recordCount xml.I = i Response.Write "<pre>" & Server.HTMLEncode( "ContactID: " & xml.GetChildContent("Contacts|Contact[i]|ContactID")) & "</pre>" i = i + 1 Loop %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.