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});