From:	64519::HOFFMAN      17-DEC-1996 15:09:13.51
To:	STAR::EVERHART
CC:	
Subj:	DCL CGI

$! Hoffman's CGI-DCL Hackery
$! Example URL:
$!   http://node.zko.dec.com:port/cgi-bin/cruel_world.com
$
$ nl[0,8] = 10
$ write sys$output "content-type: text/html" + nl
$ srvsoft = f$element(0,"/","''SERVER_SOFTWARE'")
$ srvvers = f$element(1,"/","''SERVER_SOFTWARE'")
$ write sys$output "<H1>Fun with DCL</H1>" + nl
$ write sys$output "<p>This is a DCL command procedure running under CGI...<br>" + nl
$ write sys$output "<HR>" + nl
$ write sys$output "<IMG SRC=""/images/ball.gif"">This WebServer is running " + srvsoft + " version " + srvvers + "<br>" + nl
$ write sys$output "<IMG SRC=""/images/ball.gif"">This WebServer is running on " + SERVER_NAME + "<br>" + nl
$ write sys$output "<HR>" + nl
$ write sys$output "<p>This ugliness has been brought to you by...<br>" + nl
$ write sys$output "<A HREF=""http://tsavo.zko.dec.com/vde/hoffman.html"">Stephen Hoffman</A><br>" + nl
$ write sys$output "<A HREF=""mailto:shoffman@star.enet.dec.com"">shoffman@star.enet.dec.com</A><br>" + nl
$ exit
