/prog/ - Telnet chat server

Name: Anonymous 2011-02-16 17:39

telnet 98.255.132.66 9099

Come join the fun!

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.

Name: Anonymous 2011-11-28 7:25

<!DOCTYPE html>
<html lang="en">
<head>
<title>nowjs test</title>
<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.5.1/jquery.min.js"></script>
<script src="/nowjs/now.js"></script>

<script>
$(document).ready(function(){

now.receiveMessage = function(name, message){
    $("#messages").append("<br>" + name + ": " + message);
}

$("#send-button").click(function(){
    now.distributeMessage($("#text-input").val());
    $("#text-input").val("");
});

now.name = prompt("What's your name?", "");

});
</script>
</head>

<body>
<div id="messages"></div>
<input type="text" id="text-input">
<input type="button" value="Send" id="send-button">
</body>
</html>

Name: Anonymous 2011-11-28 7:44

>>41
Sorry, forgot where I was. Made it use nicks instead.
Also, again, 50.56.35.147 9099.

Name: Anonymous 2011-11-28 12:56

22, now with twice as many dubs

Name: Anonymous 2011-11-28 14:32

Don't use telnet you slobs, use netcat.

Name: Anonymous 2011-11-28 14:38

Don't send \r\ns you slobs, send \ns.

Name: Anonymous 2011-11-28 15:42

http://50.56.35.147:9099/

Name: Anonymous 2011-11-28 16:09

require'eventmachine';module C;@@c=[];def post_init;@@c<<self;send_data'Name: ';end;def receive_data x;@n?@@c.each{|c|c.send_data"<#@n> #{x}"}:@n=x.strip;end;end;(E=EventMachine)::run{E::start_server'localhost',6001,C}

Name: Anonymous 2011-11-28 17:44

>>47
That's not http, you fuckin' fucker cheeks patty!

Name: Anonymous 2013-09-01 21:04

　　　＼　　　　　　　　　　　､____　　　　　　 /　　　　／
　　　　　＼　　　　　　　　　　_ゝ､7´i-‐''7´　/　　　　／
　　　　　　　　　　 ,.. -‐ ''"´￣｀"''ｰ' ､_　　　　　／
＼　　　　　　　,. '":::::::::::::::::::::::::::::::::::::::::::::｀ヽ　　　　　　　　　／
　＼　　　　 i::::::::ゝ:::_;:ゝ=＝= - ､､ｨ:::::::::::::',　　　　　　／
　　　　　　　／ ''"´　　　　　　　　　｀''､ヽ:::!　　　
＼____)､____／/´/　　/　ﾊ　　i　　ﾊ　　 i 　ヽY　＼　　　　　　　／
　　　　　　　 i / !　 >'､/,_,| / |　/_,!イ　ﾊ　!　|　　　ヽ､__人___,／（_
　ク.　　こ　 |'　|　/ヽ !__ ﾚ'　ﾚ' ,.!-‐-､。oヽ!|　　　　/i
　ソ.　　の　 ! ./ﾚ'o '"´　｀　,　　　　､､,,! !--─ｧ　ノ　|　効　攻　あ
　チ　　ク　　＼__.ﾊ"" 　　,. -‐‐ ､　　　ﾊ!-‐'i"　ｒ'_,.イ|　か　撃　ん
　ン　 .ソ　　「 ___!,ﾍ　　 i´　　　 ',　 /　|_!_,ﾊノン_,,../　な　.な　.た
　チ　　チ　　|' ! 　i7＞.､.,ヽ.　　　ﾉ,.ｲ| ｲ'´ 　｀ヾ´.／　い　ん　.ら
　ン　　ン　　 | i,ﾍ,.!-- ､ﾍ｀=r-=i´､::ヽ!/　　　　 Y｀ヽ　の　か　の
　! !　　チ　　 |／　　　｀ヽ､　＼./ !::::ヽ_　　　　 'r____,i.　よ
　　　　ン　　　!　　　　　　 i::＼}＞o<{:::ヽ､__,,..-'"　ｒ-ﾉ　! !
　　　　! !　　　,＞　　　　 /::::::::::::/::::::::::::::Y　　　_,ゝ'ヽ.　　__
⌒y^ヽ. 　,へ(〉､,.-r-､ゝｲ:::::::::／:::::::::i::::::::iVヽﾍ「　　　）'´　｀Y´｀ヽ.
／　　＼!　 /｀　　　'ﾊ/::}>o<{:::::::::::l::::::::!　　　　　＼
　　　　　 .／　　　　　/ﾍ:::::::/:::::::::::::::::::::::ｲゝ､_　　　　＼

Telnet chat server

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

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

42 Name: Anonymous 2011-11-28 7:25

43 Name: Anonymous 2011-11-28 7:44

44 Name: Anonymous 2011-11-28 12:56

45 Name: Anonymous 2011-11-28 14:32

46 Name: Anonymous 2011-11-28 14:38

47 Name: Anonymous 2011-11-28 15:42

48 Name: Anonymous 2011-11-28 16:09

49 Name: Anonymous 2011-11-28 17:44

50 Name: Anonymous 2013-09-01 21:04