home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 6
/
AACD06.ISO
/
AACD
/
Online
/
Apache
/
cgi-bin
/
finger.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-11-11
|
729b
|
35 lines
/* 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