﻿⍝ Using SSH to start APL Processes

)load conga
]load c:\devt\aplssh\APLProcess.dyalog

host←'debian8'
public←'C:\Users\mkrom\Documents\SSH\MortensTest.pub'
private←'C:\Users\mkrom\Documents\SSH\MortensTest.ppk'
user←'mkrom'

deb←⎕NEW SSH.Session(host 22)
deb.Userauth_Publickey user public private''
⎕UCS 2⊃deb.Exec'uname -a'

exe←'/opt/mdyalog/16.0/64/unicode/mapl' ⍝ NB not runtime
wsid←'/home/mkrom/SA2/StartPrimeServer.dws'
opts←'MAXWS=1G PORT=8123'
ride_init←'SERVE::4502'

x←⎕NEW APLProcess (wsid opts(host user public private exe) ride_init)

((⎕UCS 13)@(=∘(⎕UCS 10))⎕UCS 2⊃deb.Exec'ps -ef|grep dyalog')

tc←(2 ⎕NQ '.' 'GetEnvironment' 'Dyalog'),'/TestCertificates'
geoff←⊃DRC.ReadCertFromFile tc,'/client/geoff-cert.pem'
geoff.KeyOrigin←'DER' (tc,'/client/geoff-key.pem')

gc←Conga.Clt 'debian8' 8123
gc.certificate←geoff
gc.Connect
gc.SendRecv 'CountPrimes' (0 1000)

⍝ That's all, really

host←'ec2-35-177-228-55.eu-west-2.compute.amazonaws.com'
amazon←⎕NEW SSH.Session(host 22)    
user←'ec2-user'

public←'C:\Users\mkrom\Documents\SSH\amazon1.pub' 
private←'C:\Users\mkrom\Documents\SSH\amazon1.openssh.ppk'
amazon.Userauth_Publickey user public private ''


 