/* testing rexx command */
address command

work = "pipe:cgi-finger-" || pragma( "ID" )

parse arg user

say "Content-type: text/html"
say ""

Finger = "/bin/finger"

if exists( Finger )
then do
	if User =  ""
	then do
		say "<TITLE>Arexx Finger Gateway running on an amiga</TITLE>"
		say ""
		say "<ISINDEX>"
		say "<p>The time is "||time('Civil')||" on "||date('Normal')||" here."
		say '<p>This is a gateway to "finger". It is written in arexx, and running on an amiga.<br>'
		say 'Type a user@host combination in your browser''s'
		say "search dialog.<P>"
	end
	else do
		say "<h1>Result of finger "||user||"</h1><hr>"
		say "<pre>"
		Finger user
		say "</pre>"
	end
end
else do
	say "Cannot find finger on this system."
end