% Module permettant la génération de captcha.
% Dépend de la lib 'erlycairo', il faut que son c-node soit démarré.
% Auteur : G.Burri
% Date : 05.11.2007

-module(captcha).
-export([create/2]).

-include("../include/euphorik_defines.hrl").


% Crée un captcha de longueur L dans le dossier Dossier.
% renvoie {Mot crypté:string(), Nom du fichier:string()}
create(L, Dossier) ->
   Mot = common:generer_mot(L),
   Mot_crypt = common:crypt(Mot),
   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(),
   {Mot_crypt, Nom_fichier}.