#! /usr/local/bin/csi -script

(require-extension irc posix)

(define conObj (irc:connection server: "irc.freenode.org" nick: "sz0kaB"))

(define (reply-time _) (
	       irc:say conObj (seconds->string (current-seconds)) "#szdbg"))

;; Error: bad argument count - received 0 but expected 1: #<procedure (? msg)>
(define (reply-sms _) 
  (irc:say conObj
	   ;; add lamda for HTTP POST request
	   ((lambda (msg) 
		   (cond 
		    
		    ((eq? (irc:message? msg) #t) 
		     "True")
		    (else "False"))
		   )))
	   "#szdbg")

(irc:connect conObj)
(irc:join conObj "#szdbg")

(irc:add-message-handler!
 conObj reply-time
 command: "PRIVMSG" body: "sz0kaB: time")

(irc:add-message-handler!
 conObj reply-sms
 command: "PRIVMSG" body: "[sz0kaB:]{7} [sms]{3} [0-9]{12} .*")

(irc:run-message-loop conObj debug: #t)