#!/usr/bin/perl use strict; use Template; use Captcha::reCAPTCHA; use vars qw( $template_dir $captcha_pubkey ); require "$ENV{BFConfDir}/BuildFarmWeb.pl"; my $c = Captcha::reCAPTCHA->new; my $captcha = $c->get_html($captcha_pubkey); my $template_opts = { INCLUDE_PATH => $template_dir }; my $template = new Template($template_opts); print "Content-Type: text/html\n\n"; $template->process('register-form.tt',{captcha => $captcha});