NL = '0a'x
call addlib("libs:rexxarplib.library", 0, -30, 0)
call addlib("libs:rexxsupport.library", 0, -30, 0)
call addlib("libs:rexxreqtools.library", 0, -30, 0)
fingeruser = getenv(nodename)
fingerhost = "post.demon.co.uk"
Address AREXX "'call createhost(fingerguiport, fingerguimessageport, Workbench)'"
address command "waitforport " fingerguiport
Win=openwindow(fingerguiport, 0, 100, 600, 150, "GADGETUP" "GADGETDOWN" "CLOSEWINDOW" "REFRESHWINDOW", ,
"WINDOWCLOSE" "ACTIVATE" "WINDOWDRAG", "AmiTCP Finger GUI © M.C.Hunt 1995")
call windowtext(fingerguiport, "\\\User Name\\\\Host")
textgad1 =addgadget(fingerguiport, 150, 45, Finger_User, fingeruser, "User: %g", 400, "RIDGEBORDER")
textgad2 =addgadget(fingerguiport, 150, 80, Finger_host, fingerhost, "Host: %g", 400, "RIDGEBORDER")
textgad = addgadget(fingerguiport, 20, 120, finger_START, "FINGER", "GO_finger")
textgad = addgadget(fingerguiport, 520, 120, finger_CANCEL, "CANCEL", "GO_CANCEL")
call openport(fingerguimessageport)
quitflag = 0
do forever until quitflag
call waitpkt(fingerguimessageport)
p = getpkt(fingerguimessageport)
if p ~== NULL() then
do
thisarg = getarg(p)
t = reply(p, 0)
if thisarg == 'CLOSEWINDOW' then do
call CloseWindow(fingerguiport)
quitflag = 1
end
if thisarg == 'GO_CANCEL' then do
call CloseWindow(fingerguiport)
quitflag = 1
end
if word(thisarg, 1) == 'User:' then fingeruser = word(thisarg, 2)
if word(thisarg, 1) == 'Host:' then fingerhost = word(thisarg, 2)
if thisarg == 'GO_finger' then do
call closewindow(fingerguiport)
time$=right(time(),2)
fingerparams = compress(fingeruser,1) || "@" || compress(fingerhost)
fingercommand = "finger "||fingerparams||" >t:finger-"||time$
address command fingercommand
viewcommand = "ed t:finger-"||time$
address command viewcommand
quitflag = 1
end
end
end