#!/usr/bin/perl -w
# Michael John Wensley

# we use common gateway interface
use strict;
use POSIX;
use Socket qw(:DEFAULT :crlf);
use CGI qw/:standard/;

(my $sysname, my $nodename, my $release, my $version, my $machine) = POSIX::uname();

my $example = uc($sysname);

print header(-expires=>'+2s'),
start_html(-style=>{-src=>'http://www.wensley.org.uk/style8.css'}, 
-lang=>"", -dtd=>"-//W3C//DTD XHTML 1.1//EN\"\r\n\"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd",
-title=>'Add values together');
print h1('Add values together'), $CRLF,
start_form, p("String? ", textfield(-name=>'text', -value=>"GNU $example"), submit(-value=>'Submit')), $CRLF,
end_form, $CRLF;

if (param()) {
    my $v = 0;
    my $nn=param('text');
    for (my $i = 0;$i < length($nn);$i++) {
	my $c = substr($nn, $i, 1);
	$v = $v + ord($c);
    }
    print "Sum of character ordinals is $v $CRLF";
}

print p("This adds the numerical values of the characters in a string together and displays the result"), $CRLF;
print p(a({-href=>'/number.perl'}, "The source")), $CRLF;
print p(a({-href=>'http://validator.w3.org/check/referer'}, "Validate")), $CRLF;
print end_html, $CRLF;