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;