/* This Script will send an OLM to the user (If he is online) telling them */
/* of the talk request. You Must have the OLM program in your path  */
/* By Brian Gunn and MustangVR 03/01/95 */

options results
parse arg caller callee
message="You have been requested for an Internet-Talk from the Internet user  "||caller||" (type Talk "||caller||") To enter Chat mode!"

gs=getscratch;gu=getuser
ADDRESS CNETREXX0
gu 2225094;high=result
say 'high: ' || high
do i=0 to high
        getportid i
        id=result

        if id>-1 then do
                loadscratch id
                savescratch (-id)
                gs 1300546
                uucp=result
                if uucp=callee then do
                        address COMMAND 'olm 'i message
                end;
        end;

end;