#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use CGI::Carp qw/warningsToBrowser fatalsToBrowser/;
use Data::Dumper;

use Widget::Date;

my $q = CGI->new;
my $wdgt = Widget::Date->new(name => 'date');
my $message = '';

if ($q->param('action') eq 'submit') {
    $wdgt->from_cgi($q);
    $message = "invalid date!" unless $wdgt->is_valid;
    
} else {
    $wdgt->set_today;
}

print   $q->header, $q->start_html, $q->h1($wdgt->as_text), $q->h2($message),
        $q->start_form, $wdgt->as_form, 
        $q->submit(-name => "action", -value => "submit"),
        $q->end_form, $q->end_html;