trunk/cgi-bin/register-form.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Template;
   5 use Captcha::reCAPTCHA;
   6
   7 use vars qw( $template_dir $captcha_pubkey );
   8 require "$ENV{BFConfDir}/BuildFarmWeb.pl";
   9
  10
  11 my $c = Captcha::reCAPTCHA->new;
  12
  13 my $captcha = $c->get_html($captcha_pubkey);
  14
  15 my $template_opts = { INCLUDE_PATH => $template_dir };
  16 my $template = new Template($template_opts);
  17
  18 print "Content-Type: text/html\n\n";
  19
  20
  21 $template->process('register-form.tt',{captcha => $captcha});
  22
  23
  24
  25
  26