Sub AppStart (Args() As String)
Dim client As ABACMEClient
' needs to be the 'entry point' in your webserver (NOT your B4X app). In my case it was var/www/html and not var/www/)
' MUST be accessible on port 80
client.Initialize("./html/")
Dim domains As List
domains.Initialize
domains.Add("banano.always-busy.com")
' to prevent the code to run when compiling on release. args can be anything when you run it from your server
If Args.Length > 0 Then
' will print whatever you have added
Log(Args(0))
' using the real Let's Encrypt production server
Log(client.fetchCertificate(domains, "keystore", "01234", "56789", True))
Else
' using the developers server of Let's Encrypt
Log(client.fetchCertificate(domains, "keystore", "01234", "56789", False))
End If
End Sub