[clinton/bobotpp.git] / examples / scripts / uptime

;;; -*- Scheme -*-
(use-modules (ice-9 popen)
	     (ice-9 rdelim))

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

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