[clinton/bobotpp.git] / scripts / uname

(use-modules (ice-9 popen))

(define (uname c)
  (let* ((p (open-input-pipe "/bin/uname -a"))
         (s (read-line p)))
  (close-pipe p)
  (bot:say c s)))

(bot:addcommand "uname" uname #t 0 1)
Commit	Line	Data
cb21075d	1	(use-modules (ice-9 popen))
	2
	3	(define (uname c)
	4	(let* ((p (open-input-pipe "/bin/uname -a"))
	5	(s (read-line p)))
	6	(close-pipe p)
439869bf	7	(bot:say c s)))
cb21075d	8
439869bf	9	(bot:addcommand "uname" uname #t 0 1)