#!/usr/bin/perl -w

#Darryl Barnhart
#darryl@dbarnhart.ca
#April 2009

use strict;
use CGI qw(:standard);

print header, start_html("Birthday!"), h1("Age is a virtue");

my $bday=param("birthday");
if($bday) {
    print p("Your birthday is $bday\n");
} else {
    print hr, start_form(-id=>"myForm", -method=>"GET");
    print "Enter your birthday: ", textfield("birthday"), br;
    print submit("bday", "Submit to bday.cgi");
    print submit("Params", "Submit to Params.cgi");
    print end_form, hr,"\n";
    print <<"    SCRIPT";
        <script type="text/javascript" language="javascript">
            var form=document.getElementById("myForm");
            form.elements.namedItem("bday").onclick=function(){ form.action="bday.cgi" };
            form.elements.namedItem("Params").onclick=function(){ form.action="Params.cgi" };
        </script>
    SCRIPT
}

print end_html;