Add 4.next branch

[buildfarm-server.git] / cgi-bin / register-form.pl

diff --git a/cgi-bin/register-form.pl b/cgi-bin/register-form.pl
index 3281a1f0f117fc3f6236395c822dda4c64782129..415277642d0919b208765903d3db1867dcf242d1 100755 (executable)
--- a/cgi-bin/register-form.pl
+++ b/cgi-bin/register-form.pl
@@ -1,26 +1,30 @@
 #!/usr/bin/perl
 
 #!/usr/bin/perl
 

-use strict;
-use Template;
-use Captcha::reCAPTCHA;
-
-use vars qw( $captcha_pubkey );
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
-
-
-my $c = Captcha::reCAPTCHA->new;
+=comment

 
 

-my $captcha = $c->get_html($captcha_pubkey);
+Copyright (c) 2003-2010, Andrew Dunstan

 
 

+See accompanying License file for license details

 
 

-my $template = new Template({INCLUDE_PATH => '/home/community/pgbuildfarm/templates' });
-
-print "Content-Type: text/html\n\n";
+=cut 

 
 

+use strict;
+use Template;

 
 

-$template->process('register-form.tt',{captcha => $captcha});
+use vars qw( $template_dir );

 
 

+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";

 
 

+my $template_opts = { INCLUDE_PATH => $template_dir };
+my $template = new Template($template_opts);

 
 

+print "Content-Type: text/html\n\n";

 
 

+my $argop = '+';
+$argop = '-' if time % 2;
+my $arg1 = int(rand(100));
+$arg1 += 11 if $arg1 < 12;
+my $arg2 = int(rand(10) + 1);

 
 

+$template->process('register-form.tt', {arg1 => $arg1, arg2 => $arg2, argop => $argop});