git://git.exim.org
/
buildfarm-server.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sponsor compiler_version
[buildfarm-server.git]
/
cgi-bin
/
register-form.pl
diff --git
a/cgi-bin/register-form.pl
b/cgi-bin/register-form.pl
index 91d0826a02d0b506a53b5bb1f9358bcf64f1299c..415277642d0919b208765903d3db1867dcf242d1 100755
(executable)
--- a/
cgi-bin/register-form.pl
+++ b/
cgi-bin/register-form.pl
@@
-10,25
+10,21
@@
See accompanying License file for license details
use strict;
use Template;
use strict;
use Template;
-use Captcha::reCAPTCHA;
-use vars qw( $template_dir $captcha_pubkey );
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+use vars qw( $template_dir );
-
-my $c = Captcha::reCAPTCHA->new;
-
-my $captcha = $c->get_html($captcha_pubkey);
+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 $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',{captcha => $captcha});
-
-
-
-
-
+$template->process('register-form.tt', {arg1 => $arg1, arg2 => $arg2, argop => $argop});