Revision 8 (by ahitrov@rambler.ru, 2010/03/29 11:46:38) Contenido UTF-8 core files
 
<%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>