home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / irclient / !IRClient / Scripts / Modules / Identd (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1997-03-20  |  1.2 KB  |  46 lines
  1.  >Identd
  2.  Provide Identd support for IRClient
  3.  TheMoog, extracted by Gerph
  4.  0,"This is an IRClient script and cannot be run."
  5. InitialiseModule
  6.  Initialise MOTD buffer and listen
  7. StartupStatus("Initialising IdentD...")
  8. .IdentSocket = 
  9. Listen(113,"IdentServer",0)
  10. IdentBuffer = 
  11. NewBuffer
  12. Identing    = 
  13.  IdentSocket=0 
  14. Notify("Unable to start IdentD server")
  15.  Pass on to other modules
  16.  Give ourselves a sensible name
  17. Overload_ScriptInfo(num)
  18.  ret$
  19.  num=0 
  20. " ret$="Identd v1.00 (TheMoog)"
  21.  ret$=
  22. @(num-1)
  23.     =ret$
  24. IdentServer(i1,eqhandle)
  25.  socket
  26.  Identing 
  27. !4    socket = 
  28. Accept(eqhandle,"","IDIncoming",0)
  29.     Identing = 
  30. IDIncoming(i1,eqhandle)
  31.  numbytes,str$
  32. (.  numbytes = 
  33. ReadToStaticBuffer(eqhandle)
  34. BufferAdd(IdentBuffer,
  35. StaticBufferAddr,numbytes)
  36. **  str$=
  37. GetLineFromBuffer(IdentBuffer)
  38.  str$<>"" 
  39. ,G    
  40. SendString(eqhandle,str$+" : USERID : RISCOS : "+
  41. GetUsername)
  42. -8    
  43. DisplayCTCP("Ident received for '"+str$+"'","")
  44. Close(eqhandle)
  45.     Identing = 
  46.