[dynamic] Use dvipng instead of ImageMagick

1 files changed, 5 insertions, 7 deletions

diff --git a/haunt/jakob/dynamic/captcha.scm b/haunt/jakob/dynamic/captcha.scm
index b71bb23..d8b3d56 100644
--- a/haunt/jakob/dynamic/captcha.scm
+++ b/haunt/jakob/dynamic/captcha.scm
@@ -203,13 +203,11 @@ internally-defined `time-to-live-seconds'."
 \\end{varwidth}
 \\end{document}
 " src)))
-    (unless (eqv? 0 (status:exit-val (system "pdflatex formula.tex")))
-      (error "Cannot generate PDF" #f))
-    (let* ((port (open-input-pipe "convert -density 300 formula.pdf -quality 90 png:-"))
-           (data (get-bytevector-all port)))
-      (unless (eqv? 0 (status:exit-val (close-pipe port)))
-          (error "Cannot generate PNG" #f))
-      data)))
+    (unless (eqv? 0 (status:exit-val (system "latex formula.tex")))
+      (error "Cannot generate DVI" #f))
+    (unless (eqv? 0 (status:exit-val (system "dvipng -D 300 formula.dvi")))
+      (error "Cannot generate PNG" #f))
+    (call-with-input-file "formula1.png" get-bytevector-all)))
 
 (define (new-captcha!)
   (let* ((lower-bound (random 10))