ADD un README pour expliquer le projet et ses fichiers/dossiers

[euphorik.git] / modules / erl / captcha.erl

diff --git a/modules/erl/captcha.erl b/modules/erl/captcha.erl
deleted file mode 100755 (executable)
index e885239..0000000
--- a/modules/erl/captcha.erl
+++ /dev/null
@@ -1,31 +0,0 @@
-% Module permettant la génération de captcha.\r
-% Dépend de la lib 'erlycairo', il faut que son c-node soit démarré.\r
-% Auteur : G.Burri\r
-% Date : 05.11.2007\r
-\r
--module(captcha).
--export([create/2]).
-\r
--include("../include/euphorik_defines.hrl").\r
-\r
-
-% Crée un captcha de longueur L dans le dossier Dossier.\r
-% renvoie {Mot crypté:string(), Nom du fichier:string()}
-create(L, Dossier) ->\r
-   Mot = common:generer_mot(L),\r
-   Mot_crypt = common:crypt(Mot),\r
-   Nom_fichier = Mot_crypt ++ ".png",
-   erlycairo:new_image_blank(length(Mot) * 8, 14),
-   erlycairo:set_source_rgba(0, 0, 0, 1),
-   erlycairo:select_font_face("Courier", 0, 1),
-   erlycairo:set_font_size(12),
-   erlycairo:move_to(2, 10),
-   erlycairo:show_text(Mot),
-   erlycairo:move_to(2, 10),
-   erlycairo:line_to(length(Mot) * 8 - 2, 10),
-   erlycairo:set_line_width(1),
-   erlycairo:stroke(),
-   erlycairo:write_to_png(Dossier ++ "/" ++ Nom_fichier),
-   erlycairo:close_image(),\r
-   {Mot_crypt, Nom_fichier}.\r
-   
\ No newline at end of file