$!-----------------------------------------------------------------------------
$! WCME_STAGING.COM
$!
$! Allow a system to switch between the Let's Encrypt staging (developers')
$! and live services.  Execute with P1 non-empty to move to the staging
$! service.  No P1 to move to the live site. 
$!
$! NOTE: Moving (either way) between the services deletes the account and
$! domain keys (PRIVKEY.PEM) as well as the certificate files contained in
$! WCME_ROOT:[SSL].  This is only to be expected as staging use is only
$! intended for development and troubleshooting.
$!
$! 10-JUL-2017  MGD  initial
$!-----------------------------------------------------------------------------
$ set noon
$ if P1 .nes. ""
$ then
$    write sys$output "Moving to Let's Encrypt staging service..."
$    define /system /executive WCME_STAGING *
$ else
$    write sys$output "Moving to Let's Encrypt live service..."
$    deassign /system /executive WCME_STAGING
$ endif
$ delete /log /noconfirm WCME_ROOT:[ETC]PRIVKEY.PEM;*
$ delete /log /noconfirm WCME_ROOT:[PRIV]PRIVKEY.PEM;*
$ delete /log /noconfirm WCME_ROOT:[SSL]*.PEM;*
$!-----------------------------------------------------------------------------