/prog/ - Telnet chat server

Name: Anonymous 2011-11-28 7:18

import Network.Fancy

import Control.Concurrent

import Control.Monad

import Control.Exception

import System.IO



main = do hs <- newMVar []

          streamServer serverSpec { address = IPv4 "" 9099 } $ \h r ->

              modifyMVar_ hs (return . (h:))

              >> f r hs h `finally` modifyMVar_ hs (return . filter (/= h))

          sleepForever



f r hs h = do x <- hGetLine h

              putStrLn $ show r ++ " > " ++ x

              when (x /= "/quit") $ do

                  withMVar hs $ \hs' -> forM (filter (/= h) hs') $ \h' ->

                      hPutStrLn h' (show r ++ " > " ++ x) >> hFlush h'

                  f r hs h

Server at 50.56.35.147:9099, I'll leave it up like forever.

Telnet chat server

1 Name: Anonymous 2011-02-16 17:39

41 Name: Anonymous 2011-11-28 7:18

Name: Anonymous 2011-02-16 17:39

Name: Anonymous 2011-11-28 7:18