undo reorganization
[buildfarm-server.git] / 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