Language Java Nosugar Comms Code Timestable.pl

# !/usr/local/bin/perl
#
require 'www_lib.pl';
###################################################
$number_field="number";
$count_field="count";
%FIELD_DATA=&GET_FIELDS();
###################################################
sub main
{
 local (@fields,$n_fields);
 local ($num, $count, $i, $result);
 @fields = keys %FIELD_DATA;
 $n_fields = @fields;
 
 #---------------------------------------------------------------
 # use particular button names to decide action
 #---------------------------------------------------------------
 print "Content-type: text/plain\n\n";
 if ( $n_fields == 0 )
 {
 print "No fields detected - this does not have a forms interface\n";
 }
 elsif ( $FIELD_DATA{$number_field} && $FIELD_DATA{$count_field})
 {
 $num = $FIELD_DATA{$number_field};
 $count = $FIELD_DATA{$count_field};
 if (($num =~ /^[0-9]*$/) && ($count =~ /^[0-9]*$/))
 {
 for ( $i=1; $i <= $count; $i++)
 {
	$result = $num * $i;
 print "$i times $num = $result\n";
 }
 }
 else
 {
 print "program only wants integers -\n\tgo back and try again\n";
 }
 }
 else
 {
 print "incomplete data detected -\n\tyou havent filled in all the fields\n";
 }
}
&main;

.