$!++
$! Creation date: 17-MAY-2003
$!
$! Author: Ruslan R. Laishev
$!--
$
$       ENV     = F$ENVIRONMENT("PROCEDURE")
$       HOME    = F$PARSE("Z.Z;", ENV,,,) - "Z.Z;"
$
$       PHPWASD$QUERIES :== 1
$       SET DEFAULT 'HOME'
$       RUN CGI-BIN:[000000]PHPWASD.EXE