add script to delete pastes

filter-pastes.rkt

@@ -0,0 +1,63 @@
+#lang racket
+(require redis)
+
+;; delete all non-hash vals (ie, not pastes)
+(define (delete-nonpastes #:trial? [trial? #f])
+  (for ([k (KEYS "*")])
+    ; delete non-hashes
+    (unless (string=? (TYPE k) "hash")
+      (printf "deleting non-hash key: ~a\n" k)
+      (unless trial? (DEL k)))
+    ; delete hashes that are not pastes
+    (unless (HEXISTS k 'code)
+      (printf "deleting non-paste hash key: ~a\n" k)
+      (unless trial? (DEL k)))))
+
+; deletes pastes satisfying the given regexp pattern
+(define (delete-pastes/pat pat #:trial? [trial? #f])
+  (define count 0)
+  (printf "searching for pastes with pattern: ~a" pat)
+  (when trial? (printf " (trial)"))
+  (printf "\n")
+  (for ([k (KEYS "*")])
+    (when (and (string=? (TYPE k) "hash") (HEXISTS k 'code)) ; valid paste
+      (define paste-contents (HGET/str k 'code))
+      (define paste-dir (build-path "tmp" (bytes->path k)))
+      (when (regexp-match pat paste-contents)
+        (printf "deleting paste: ~a\n" k)
+;        (displayln paste-contents)
+        (when (directory-exists? paste-dir)
+          (printf "... and deleting directory: ~a\n" paste-dir))
+        (unless trial?
+          (DEL k)
+          (when (directory-exists? paste-dir)
+            (delete-directory/files paste-dir)))
+        (set! count (add1 count)))))
+  (printf "deleted ~a pastes matching pattern ~a\n" count pat))
+
+(define pats
+  '("[Aa]mex"
+    "[Vv]isa"
+    "[Mm]astercard"
+    "[Dd]iscover"
+    "rapidgator"
+    "turbobit"
+    "[Bb]itcoin"
+    "[Pp]ay[Pp]al"
+    "Western Union"
+    "Money Gram"
+    "[Ww][Mm][Zz]"
+    "[Cc][Vv][Vv]"
+    "Web Money"
+    "Perfect Money"))
+
+(module+ main
+  (define args (current-command-line-arguments))
+  (cond
+    [(= 1 (vector-length args))
+     (define pat (vector-ref args 0))
+     (delete-pastes/pat pat)]
+    [else
+     (displayln "no args, using default")
+     (for ([p pats])
+       (delete-pastes/pat p))]))