[r935]: / trunk / mqttsparkplug / mqttsparkplug-example / Scenario / svnobj  Maximize  Restore  History

Download this file

5 lines (5 with data), 6.6 kB

Gx_l°!0…jüo?΍ž¶Iø¯‹MSystem.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument	L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagTextscenario();InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94} PROGRAM ScenarioVAR_INPUT0    TestScenario : UINT;END_VARVAR_OUTPUT.    ServerUrl : STRING;,    ServerPort : UINT;*    KeepAlive : UINT;B    CleanSession : BOOL := FALSE;:    Username : WSTRING := "";:    Password : WSTRING := "";6    UseTLS : BOOL := FALSE;œ    hCert : SysTypes.RTS_IEC_HANDLE := SysTypes.RTS_INVALID_HANDLE; // Handle to the client certificate (optional) only used if UseTLS is TRUE Ž    publishPeriod : UINT := 500; //  milliseconds interval so 1000 = 1s!V    wsCSRorClientCertOut : WSTRING( 2048 );"VAR#¬    //Encapsulates all the data neccessaray to handle/check  encrypted tcp connections$ˆ    //Static initialization, as shown in the following code snippet;%&    //VAR'V    //    commonName : STRING := 'MyRasPi';(¸    //    ciCertInfo : NBS.CERT_INFO := (psInfo:=ADR(commonName), udiSize:=LEN(commonName));)X    //    myTLSContext : NBS.TLSContext := (*`    //        ePurpose:=NBS.PURPOSE.CLIENT_SIDE,+L    //        sUseCaseName:='NBSTest',,B    //        sTLSVersion:='1.3',-J    //        ciCertInfo:=ciCertInfo,.H    //        udiVerificationMode:=2/    //    );0    //END_VAR1J    commonName : STRING := 'MyRasPi';2ò    ciCertInfo : Sparkplug.MQTT.NBS.CERT_INFO := (psInfo := ADR( commonName ), udiSize := TO_UDINT( LEN( commonName ) ));34    sUseCaseName : STRING;4T    ePurpose : Sparkplug.MQTT.NBS.PURPOSE;5X    sHostname : Sparkplug.MQTT.NBS.HOSTNAME;6@    udiVerificationMode : UDINT;7˜    myTLS : Sparkplug.MQTT.NBS.TLSContext := ( sUseCaseName := sUseCaseName,8Š                                                ePurpose := ePurpose,9Ž                                                sHostname := sHostname,:º                                                udiVerificationMode := udiVerificationMode );;f    ItfTLSContext : Sparkplug.MQTT.NBS.ITLSContext;<   =Œ    //These are specific for registering certificates at test.mqtt.org>X    getClientCert : Sparkplug.GetClientCert;?N    RegisterCSR : Web_Client.WebClient;@4    countClientCert : INT;A>    httpPost : WSTRING( 2048 );BR    StillGettingClientCertificate : BOOL;Cr    WaitForTheServerToRegisterCert : TON := (PT := T#1S);D E"UniqueIdGeneratorF90GPOULevelHL{8e575c5b-1d37-49c6-941b-5c0ec7874787}IStandardJ ChildObjectGuidsK8System.Collections.ArrayListL,AddAttributeSubsequentMboolÐÐ-ÐÐ	E
ÐÐ
­	ÚÐ-ÐÐ	E
5ÐÐ
­ÚÐ-ÐÐ
­WÚÐ-ÐÐ
­XÚÐ-ÐÐ
­YÚÐ-ÐÐ
­ÚÐ-ÐÐ
­:ÚÐ-ÐÐ
­;ÚÐ-ÐÐ
­<ÚÐ-ÐÐ
­=ÚÐ-ÐÐ
­>ÚÐ-ÐÐ
­?ÚÐ-ÐÐ
­3ÚÐ-ÐÐ
­AÚÐ-ÐÐ
­@ÚÐ- ÐÐ
­VÚÐ-!ÐÐ
­TÚÐ-ÐÐ
­ÚÐ-"ÐÐ
­ÚÐ-#ÐÐ
­ÚÐ-$ÐÐ
­ÚÐ-%ÐÐ
­ÚÐ-&ÐÐ
­ÚÐ-'ÐÐ
­ÚÐ-(ÐÐ
­ÚÐ-)ÐÐ
­ÚÐ-*ÐÐ
­ÚÐ-+ÐÐ
­ÚÐ-,ÐÐ
­ÚÐ--ÐÐ
­ÚÐ-.ÐÐ
­ ÚÐ-/ÐÐ
­!ÚÐ-0ÐÐ
­"ÚÐ-1ÐÐ
­#ÚÐ-2ÐÐ
­$ÚÐ-3ÐÐ
­%ÚÐ-4ÐÐ
­&ÚÐ-5ÐÐ
­'ÚÐ-6ÐÐ
­(ÚÐ-7ÐÐ
­)ÚÐ-8ÐÐ
­*ÚÐ-9ÐÐ
­+ÚÐ-:ÐÐ
­
ÚÐ-;ÐÐ
­0ÚÐ-%ÐÐ
­CÚÐ-<ÐÐ
­DÚÐ-=ÐÐ
­NÚÐ->ÐÐ
­OÚÐ-?ÐÐ
­PÚÐ-@ÐÐ
­QÚÐ-AÐÐ
­RÚÐ-BÐÐ
­SÚÐ-CÐÐ
­BÚÐ-DÐÐ
­ÚÐ-ÐE-FÐGH-IJKÐLM­