scripts/scheme_add_user

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