scripts/scheme_add_user

   1 ;;; -*- guile-scheme -*-
   2 ;;; test of bot:adduser
   3
   4 ;;; test this!
   5 (define (scheme-adduser who channel level protect aop expire passwd)
   6   (let ((level (string->number level))
   7         (protect (string->number protect))
   8         (aop
   9          (if (= 1 (string->number aop))
  10            #t #f ))
  11         (expire (string->number expire)))
  12     (bot:adduser who channel level protect aop expire passwd)))
  13
  14 (bot:addcommand "sadduser" scheme-adduser #f 7 4)
  15
  16 (define (test-adduser)
  17   (bot:log "Adding lap_r_g\n")
  18   (bot:adduser "lap_r_g" "#*" 4 0 #f)
  19   (bot:log "Adding CowBot\n")
  20   (bot:adduser "CowBot" "#*" 2 0 #f "2M18H")
  21   (bot:log "Adding ZugBut\n")
  22   (bot:adduser "ZugBot" "#*" 2 0 #f "1Y" "moo")
  23   (bot:log "Done...\n"))
  24
  25 (bot:addcommand "testadduser" test-adduser #f 0 4)
  26
  27 (define (test-addshit)
  28   (bot:log "Adding root")
  29   (bot:addshit "*!root@*.*" "*" 2))
  30
  31 ;(bot:addcommand "testaddshit" test-addshit #f 0 4)