X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=cloogle.icl;h=f1249255ed5c0f518e5a1f7124893a1a186f388a;hp=27001f1da5106c67d92401a2c4c420c56f28f179;hb=6fb569170aca43bf17a5e223544c0a5ef0b42fb6;hpb=8b7012942d09004336c8dc64d6a00d320d42220e

diff --git a/cloogle.icl b/cloogle.icl
index 27001f1..f124925 100644
--- a/cloogle.icl
+++ b/cloogle.icl
@@ -52,14 +52,21 @@ process io chan w
 	#! io =  io <<< ("Received command: " +++ printToString cmd +++ "\n")
 	# toSend = case cmd of
 		["stop":_] = Nothing
-		["ping":_] = Just [msg "pong"]
-		["help":_] = Just [msg "not implemented yet"]
+		["ping":xs] = Just [msg $ "pong " +++ join " " xs]
+		["help"] = Just 
+			[msg "type !help cmd for command specific help"
+			,msg "available commands: help, ping"]
+		["help":c:_] = case c of
+			"help" = Just [msg "help [CMD] - I will print general help or the help of CMD"] 
+			"ping" = Just [msg "ping [TXT] - I will reply with pong and the optionar TXT"] 
+			_ = Just [msg "Unknown command"]
 		[c:_] = Just [msg $ join " " ["unknown command: " , c, ",  type !help to get help"]]
 	| isNothing toSend = (io, chan, w)
 	# (chan, w) = send (map toString $ fromJust toSend) chan w
 	= process io chan w
 | indexOf "PING :" resp > 0
 	# cmd = rtrim $ subString (indexOf "PING :" resp + size "PING :") (size resp) resp
+	#! io <<< (toString $ PONG cmd Nothing) <<< "\n"
 	# (chan, w) = send [toString $ PONG cmd Nothing] chan w
 	= process io chan w
 = process io chan w