home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / irclient / !IRClient / Scripts / Modules / Motd (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1997-03-20  |  1.9 KB  |  65 lines
  1.  >MOTDLib
  2.  Handles grabbing the MOTD from exter
  3. TheMoog, extracted by Justin Fletcher
  4.  24 Dec 1996 : JF: Added 'Connecting' call                v1.01
  5.  0,"This is an IRClient script and cannot be run."
  6. InitialiseModule
  7.  Initialise MOTD buffer and connect
  8. StartupStatus("Initialising MOTD...")
  9. MOTDBuffer=0
  10. MOTDSocket=0
  11.  Pass on to other modules
  12.  When we start connecting
  13. Connecting(server$,port)
  14.  Connect us up
  15. MOTDBuffer=
  16. NewBuffer
  17.  server$="localhost" 
  18. U MOTDSocket=
  19. Connect("localhost",80,"MOTDConnected","MOTDError","MOTDIncoming",0)
  20. [ MOTDSocket=
  21. Connect("newton.ex.ac.uk",80,"MOTDConnected","MOTDError","MOTDIncoming",0)
  22.  Pass on to other modules
  23. @(server$,port)
  24.  Give ourselves a sensible name
  25. Overload_ScriptInfo(num)
  26.  ret$
  27.  num=0 
  28. "  ret$="MOTD v1.00 (TheMoog)"
  29.  ret$=
  30. @(num-1)
  31. &    =ret$
  32.  Overloaded routine
  33. ShutdownModule(mask)
  34.  MOTDBuffer 
  35. FreeBuffer(MOTDBuffer)
  36.   MOTDBuffer=0
  37.  MOTDSocket 
  38. Close(MOTDSocket)
  39.   MOTDSocket=0
  40. @(mask)
  41. MOTDError(i1,i2,reason$)
  42. Close(MOTDSocket)
  43. FreeBuffer(MOTDBuffer)
  44.   MOTDBuffer=0
  45.   MOTDSocket=0
  46. MOTDConnected(i1,i2)
  47. KillDisplay("##MOTD##")
  48. NewDisplay("##MOTD##",12,"IRClient Message Of The Day",0)
  49. SendString(MOTDSocket,"GET /general/ug/godbolt/IRClient/NewMOTD")
  50.  PROCSendString(MOTDSocket,"User-Agent: IRClient Magrathea Motd script/1.00")
  51. SendString(MOTDSocket,"")
  52. MOTDIncoming(i1,i2)
  53.  numbytes,str$
  54. E.  numbytes=
  55. ReadToStaticBuffer(MOTDSocket)
  56. BufferAdd(MOTDBuffer,
  57. StaticBufferAddr,numbytes)
  58. G)  str$=
  59. GetLineFromBuffer(MOTDBuffer)
  60. (str$)
  61. I$    
  62. Display(str$,"","##MOTD##")
  63. J+    str$=
  64. GetLineFromBuffer(MOTDBuffer)
  65.