#lang racket/base
(require irc/core irc/bot irc/db
         racket/match racket/string
         db sql)
(provide (all-defined-out))

; Power levels
; 0 untrusted
; 1 trusted
; 2 admin

(define (user-power user)
  (or (query-maybe-value (current-database)
        (select power #:from users #:where (= name ,user)))
      0))

(define (is-untrusted? user) (= 0 (user-power user)))
(define (is-trusted? user) (= 1 (user-power user)))
(define (is-admin? user) (= 2 (user-power user)))

; Do VERSION, wait for reply
; Store CASEMAPPING in network storage
; Implement case mapping, dependent on that value, with fallback

; TODO This can leak on repeated timeouts
(define (is-identified? user)
  (send (msg 'WHO '() user))
  (define ch (make-channel))
  (on (command-is '|352|)
      (match-define
        (list-rest own-nick channel _user host
                   server nick mode suffix) (params))
      (when (string=? nick user)
        (channel-put ch (string-contains? mode "r"))
        hook-abort))
  (sync/timeout 15 ch))