cgi-bin/register-form.pl

   1 #!/usr/bin/perl
   2
   3 =comment
   4
   5 Copyright (c) 2003-2010, Andrew Dunstan
   6
   7 See accompanying License file for license details
   8
   9 =cut
  10
  11 use strict;
  12 use Template;
  13 use Captcha::reCAPTCHA;
  14
  15 use vars qw( $template_dir $captcha_pubkey );
  16 require "$ENV{BFConfDir}/BuildFarmWeb.pl";
  17
  18
  19 my $c = Captcha::reCAPTCHA->new;
  20
  21 my $captcha = $c->get_html($captcha_pubkey);
  22
  23 my $template_opts = { INCLUDE_PATH => $template_dir };
  24 my $template = new Template($template_opts);
  25
  26 print "Content-Type: text/html\n\n";
  27
  28
  29 $template->process('register-form.tt',{captcha => $captcha});
  30
  31
  32
  33
  34