home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / comm / cnet / cnet_who.lha / who / Loader < prev    next >
Text File  |  1997-01-25  |  1KB  |  17 lines
  1. /**************************************************************************\
  2.             $VER: CNet WHO Loader, v2.68 (25-Jan-97) by Dotoran!
  3. \**************************************************************************/
  4. options results;a=sourceline(2);parse var a . . . . ", "ver" ("vdate")" .
  5. parse source . . fp .;dp=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
  6. gu 39;ban="mail:users/"result"/_Banners";gu 38;who=result;a=getclip('IdleWhoB0')
  7. if a="" then do;call open(f1,dp"IdlePorts","r");a=word(readln(f1),1)
  8.   do i=1 to a ; b=readln(f1) ; parse var b p'|'info
  9.   call setclip('IdleWhoB'p,info) ; end i ; call close(f1) ; end
  10. if exists(ban) then do ; call open(f1,ban,'r')
  11.   do i=1 to 9 ; w.i=readln(f1) ; end i ; call close(f1)
  12.   setobject w.1 ; putuser 38 ; call open(f1,ban,'w')
  13.   do i=2 to 9 ; call writeln(f1,w.i) ; end i ; call writeln(f1,who)
  14.   call close(f1) ; end
  15. /**************************************************************************\
  16. \****************************************** Frontiers BBS (716)/823-9892 **/
  17.