Revision 469 (by ahitrov, 2014/12/24 13:57:26) Moving Contenido to Apache 2

 
<%ONCE>
	use Contenido::Captcha;
</%ONCE>

<%ARGS>
	$cid => undef;
</%ARGS>

<%INIT>
	$m->clear_and_abort(404) unless $cid;

	my $captcha = Contenido::Captcha->new($keeper);
	my $img = $captcha->create_image($cid);
	$m->clear_and_abort(404) unless $img;

	$r->content_type('image/png');
	return $m->out($$img);
</%INIT>