$! Procedure to hook into Lets Encrypt automation process
$!
$! P1 - name of this procedure
$! P2 - method; begin, done, failed
$! P3 - type; dns-01, tls-alpn-01, http-01
$! P4 - ident; whatever.org
$! P5 - token; string
$! P6 - auth; string
$!
$ if f$trnlnm("WUCME_VERBOSE") .nes. "" then show symbol p%
$!(the hook requires a 0 to indicate success which DCL doesn't support so...)
$ exit0 = "exit 2928"  !%SYSTEM-W-FISH
$ if p3 .eqs. "dns-01"
$ then
$    if p2 .eqs. "begin"
$    then
$       write sys$output "*** begin ***"
$    endif
$    if p2 .eqs. "done"
$    then
$       write sys$output "*** done ***"
$    endif
$    if p2 .eqs. "failed"
$    then
$       write sys$output "*** failed ***"
$    endif
$    set message /nofac /noident /nosev /notext
$    exit0
$ endif
$ set message /nofac /noident /nosev /notext
$ exit 2