Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: Chat / IM

From: ryanc:iesco-dms at: 18-May-2001 13:43

Here is my 15 minute implementation--I couldnt resist. Directory driven, needs a cleanup routine to delete users after a period of inactivity or if they say bye. Other than that, seems to work. At least it gives you something you can out do ;0 ) --Ryan rebol[] cgi: make object! decode-cgi system/options/cgi/query-string change-dir %msg ; this is where the messages are stored if in cgi 'user [ if not exists? to-file dirize cgi/user [ make-dir to-file cgi/user ] ] if all [ in cgi 'say in cgi 'user ] [ foreach folder read %./ [ write to-file rejoin [folder cgi/user] cgi/say ] ] change-dir to-file dirize cgi/user ; go into where this users messages are stored prin "Content-type: text/html^(0A)^(0A)" foreach msg read %./ [ from: to-string msg print rejoin [ from {: } mold read msg ] delete msg ]