Drop 4.next
[buildfarm-server.git] / 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
14 use vars qw( $template_dir );
15
16 use FindBin qw($RealBin);
17 require "$RealBin/../BuildFarmWeb.pl";
18
19 my $template_opts = { INCLUDE_PATH => $template_dir };
20 my $template = new Template($template_opts);
21
22 print "Content-Type: text/html\n\n";
23
24 my $argop = '+';
25 $argop = '-' if time % 2;
26 my $arg1 = int(rand(100));
27 $arg1 += 11 if $arg1 < 12;
28 my $arg2 = int(rand(10) + 1);
29
30 $template->process('register-form.tt', {arg1 => $arg1, arg2 => $arg2, argop => $argop});