Robin Norwood wrote:
> "Gregg O'Donnell" <[EMAIL PROTECTED]> writes:
>
>> Hey - I'm receciving syntax and global package errors in lines 540-550 of
>> this script, which is running on WinNT. One error I receive is for not
>> defining my hash "%counties" which is, in fact, defined. So, I'm baffled
>> and stuck. Any insight is greatly appreciated!!
>
> Looks like line 60 is missing a semicolon:
>
> '
> my $logger_info = {
> logger_info => {
> optional =>
> [ qw( name_landowner phone_landowner) ],
> required =>
> [ qw( name_logger address1_logger city_logger state zipcode phone_logger
> email_logger county location logging_start acres) ],
> constraints =>
> {
> email_logger => "email",
> phone_logger => "american_phone",
> zipcode => '/^\s*\d{5}(?:[-]\d{4})?\s*$/',
> state => "state",
>
> },
> }, #<----should be ';'
>
>
1. he is also lacking a } so }, should actually be:
}};
2. line 558:
my $county_abbrev = $counties{$query->param('County')}->{Abbrev} || '';
} #-- end of block
and then in line 563:
my $conf_number = "I-$county_abbrev-$random-$log_date";
in line 558, you are creating a local variable($county_abbrev) tagged with
'my' so when the block exit, your $county_abbrev will be destoried. so line
563 is bad since it tries to reference something that doesn't exist.
3. line 619:
print $message ;
tries to reference the $message variable that doesn't exist. another error.
there might be more of those... didn't check the whole script...
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
