1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
(define-module (hidamari-blue captcha) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix build-system gnu) #:use-module ((guix licenses) #:prefix license:) #:use-module (gnu packages guile)) (define-public captcha (package (name "captcha") (version "0.1") (source (origin (method url-fetch) (uri (string-append "https://hidamari.blue/git/captcha/release/captcha-" version ".tar.bz2")) (sha256 (base32 "04f7xyrmj153i57ccyw3i4k6xn9rc8jdpd2xm75cnnkwlrffcpzb")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (delete 'configure) ;; TODO add all the autoscript nonsense that makes this actually work (delete 'build) (delete 'check) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (define out (string-append (assoc-ref %outputs "out"))) (copy-recursively "." out) #t))))) (inputs `(("guile" ,guile-2.2) ("guile-fibers" ,guile-fibers))) (synopsis "web captcha server") (description "captcha with 2hus") (home-page "http://captcha.hidamari-blue") (license license:agpl3))) captcha