From 9aadefa5b031fe4cef4e8d8716b1cee05929b8b0 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <xramtsov@gmail.com>
Date: Fri, 13 Mar 2009 16:38:28 +0000
Subject: [PATCH] * tools/captcha.sh: sample CAPTCHA script.

SVN Revision: 1993
---
 ChangeLog        |  1 +
 tools/captcha.sh | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100755 tools/captcha.sh

diff --git a/ChangeLog b/ChangeLog
index bacf412c7..5de163e8f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,7 @@
 	* src/web/ejabberd_http.erl: likewise.
 	* src/mod_muc/mod_muc_room.erl: CAPTCHA support.
 	* src/mod_muc/mod_muc_room.hrl: likewise.
+	* tools/captcha.sh: sample CAPTCHA script.
 
 2009-03-10  Badlop  <badlop@process-one.net>
 
diff --git a/tools/captcha.sh b/tools/captcha.sh
new file mode 100755
index 000000000..2b18d93ad
--- /dev/null
+++ b/tools/captcha.sh
@@ -0,0 +1,21 @@
+#!/bin/sh
+
+SIGN=$(($RANDOM % 2))
+
+R1=$(($RANDOM % 20))
+R2=$(($RANDOM % 10 + 40))
+
+if [ $SIGN -eq "0" ]; then
+    S1=$(( -1*($RANDOM % 20 + 50) ))
+    S2=$(( $RANDOM % 20 + 50 ))
+else
+    S2=$(( -1*($RANDOM % 20 + 50) ))
+    S1=$(( $RANDOM % 20 + 50 ))
+fi
+
+convert -size 140x60 xc:white \
+    -pointsize 30 -draw "text 20,30 '$1'" \
+    -roll -$R2+$R1 -swirl $S1 \
+    -roll +$R2-$R1 -swirl $S2 \
+    +repage -resize 120x60 \
+    -quality 90 -depth 8 png:-