tizoc · March 3, 2014 18:28
diff --git a/agora.cgi b/agora.cgi
 #!/usr/bin/perl
 use CGI qw/:standard -debug/;

 my $value = param("B1");

 print "HTTP/1.0 200 OK\n";
 print "Content-type: text/html\n\n";
 print <<HTML;
 <html>
 <head>
  <title>Pledge</title>
 </head>
 <body>
  <form action="store-details.cgi" method="POST">
    <p align="center"><H1>Thanks for your pledge to $value </strong></H1></p>

    <p>Name: <input type="text" size="50" name="name"></p>

    <p>Email: <input type="text" size="50" name="email"></p>

    <p>Amount: £<!--webbot bot="Validation"
    s-data-type="Number" s-number-separators="x." --><input
    type="text" size="5" name="cash"></p>

    <p><input type="submit" name="send" value="Submit"></p>
  </form>

 </body>
 </html>
 HTML
 
 exit;
	#!/usr/bin/perl
	use CGI qw/:standard -debug/;

	my $value = param("B1");

	print "HTTP/1.0 200 OK\n";
	print "Content-type: text/html\n\n";
	print <<HTML;
	<html>
	<head>
	<title>Pledge</title>
	</head>
	<body>
	<form action="store-details.cgi" method="POST">
	<p align="center"><H1>Thanks for your pledge to $value </strong></H1></p>

	<p>Name: <input type="text" size="50" name="name"></p>

	<p>Email: <input type="text" size="50" name="email"></p>

	<p>Amount: £<!--webbot bot="Validation"
	s-data-type="Number" s-number-separators="x." --><input
	type="text" size="5" name="cash"></p>

	<p><input type="submit" name="send" value="Submit"></p>
	</form>

	</body>
	</html>
	HTML

	exit;