Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Show time of connection start
authorunc0rr
Fri, 07 Nov 2008 16:42:10 +0000
changeset 1481 f741afa7dbf3
parent 1480 aec44e91f2d1
child 1482 8af42b3f93d2
Show time of connection start
netserver/hedgewars-server.hs file | annotate | diff | comparison | revisions 
--- a/netserver/hedgewars-server.hs	Fri Nov 07 16:33:23 2008 +0000
+++ b/netserver/hedgewars-server.hs	Fri Nov 07 16:42:10 2008 +0000
@@ -31,8 +31,8 @@
 acceptLoop :: Socket -> TChan ClientInfo -> IO ()
 acceptLoop servSock acceptChan = Control.Exception.handle (const $ putStrLn "exception on connect" >> acceptLoop servSock acceptChan) $ do
 	(cHandle, host, _) <- accept servSock
-	putStrLn $ "new client: " ++ host
 	currentTime <- getCurrentTime
+	putStrLn $ (show currentTime) ++ " new client: " ++ host
 	cChan <- atomically newTChan
 	forkIO $ clientLoop cHandle cChan
 	atomically $ writeTChan acceptChan (ClientInfo cChan cHandle host currentTime"" 0 "" False False False)
hedgewars