Index: openacs-4/packages/captcha/tcl/test/captcha-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/captcha/tcl/test/Attic/captcha-procs.tcl,v diff -u -N -r1.1.2.4 -r1.1.2.5 --- openacs-4/packages/captcha/tcl/test/captcha-procs.tcl 29 Jan 2024 17:21:48 -0000 1.1.2.4 +++ openacs-4/packages/captcha/tcl/test/captcha-procs.tcl 4 Mar 2024 14:10:21 -0000 1.1.2.5 @@ -167,13 +167,27 @@ set text [dict get $captcha text] # + # We introduce the space entity for Safari, but convert will + # not like it, so now we clean it up... + # + set svg_path [dict get $captcha path] + set rfd [open $svg_path r] + set svg [read $rfd] + close $rfd + regsub -all {\ } $svg { } svg + set wfd [open $svg_path w] + puts $wfd $svg + close $wfd + ## + + # # It may be unfair to test tesseract on the raw svg. We try # various rescalings in png format. # close [ad_opentmpfile png_path .png] ::exec [::util::which convert] \ -size $size \ - [dict get $captcha path] \ + $svg_path \ $png_path set ocr ""