wes
/
FAQBot
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Update database.rkt

master
Wesley Kerfoot 12 years ago
parent
0e31639456
commit
8a85a750ed
1 changed files with 2 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 4
      database.rkt

4
database.rkt
View File

@ -124,7 +124,7 @@
(define (rate-check-helper mag hN n k) (define (rate-check-helper mag hN n k)
(let ([hN (bytes->number hN)]) (let ([hN (bytes->number hN)])
(cond (cond
[(and (> k mag) (eq? hN n)) #f] [(and (> k mag) (= hN n)) #f]
[(and (< mag k) (< hN n)) (redis-hincrby "counter" "n" "1") #t] [(and (< mag k) (< hN n)) (redis-hincrby "counter" "n" "1") #t]
[else (redis-hset "counter" "n" "0") [else (redis-hset "counter" "n" "0")
(redis-hset "counter" "current" (number->string (current-inexact-milliseconds))) (redis-hset "counter" "current" (number->string (current-inexact-milliseconds)))
@ -141,4 +141,4 @@
(define allowed? (rate-check 10 (* 2 60000))) (define allowed? (rate-check 10 (* 2 60000)))
;; Admin Stuff ;; Admin Stuff
(provide (all-defined-out)) (provide (all-defined-out))

Write Preview
Loading…
Cancel
Save