﻿⍝ Solution to SA2 Exercise 5
)load conga
]load c:\devt\conga-apl\v3\Client -target=Conga
]load c:\Users\mkrom\Dropbox\Dyalog17\SA2\Solutions\PrimeServerSecure
⍝ Insert stop in onReceive
)ed PrimeServerSecure
srv←Conga.Srv 8123 PrimeServerSecure
srv.Start

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

gc←Conga.Clt 'localhost' 8123
gc.certificate←geoff
gc.Connect
gc.SendRecv 'CountPrimes' (0 100)

jc←Conga.Clt 'localhost' 8123
jc.certificate←john
jc.Connect
jc.SendRecv 'CountPrimes' (0 100)