view release on metacpan or  search on metacpan

lib/IDS/DataSource/HTTP/Date.pm  view on Meta::CPAN

# Check basic assumptions about the date.  This function could be made
# more accurate by checking the days actually in the month as the max
sub validate_date {
    my $self  = shift;
    my ($type, $weekday, $day, $month,
	$year, $hour, $minute, $second, $TZ) = @_;
    my $level = 0;
    my $name = *parse{PACKAGE} . "::validate_date";
    # Timezones from http://www.timeanddate.com/library/abbreviations/timezones/
    my @timezones = qw(ACDT ACST ADT AEDT AEST AKDT AKST AST AWST BST
                       CDT CDT CEST CET CST CST CXT EDT EDT EEST EET EST
                       EST GMT HAA HAC HADT HAE HAP HAR HAST HAT HAY HNA
                       HNC HNE HNP HNR HNT HNY IST MDT MESZ MEZ MST NDT
                       NFT NST PDT PST UTC WEST WET WST
    );

    my $OK = 1; # assume valid

    map {$OK &= defined($_)} ($type, $weekday, $day, $month, $year, $hour, $minute, $second);
    # verify still OK
    unless ($OK) {