Gossamer Forum: General: Perl Programming: Error 500, but why?

Jul 28, 2003, 5:12 AM

Andy

Veteran / Moderator (18441 posts)

Jul 28, 2003, 5:12 AM

Post #1 of 5

Shortcut

Error 500, but why?

Can anyone see anything wrong with the below code?

Code:
sub ShowDate { 

 # setup all the variables etc... 
  my ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; 
  $year = $year + 1900; 
  my $Date = "Date: $year-$month-$day"; 

  print "Content-type: text/html \n\n"; 
  print $Date; 

}

I've tried everything I can (including commenting out the date grabbing part, and manually populating the values).

fatalsToBrowser doesn't seem to be showing anything either.. which really has me puzled (I don't have an error log I can access, before you ask Paul Wink

)

TIA.

Andy (mod)
andy@ultranerds.co.uk

Jul 28, 2003, 5:55 AM

hellman

New User (1 post)

Jul 28, 2003, 5:55 AM

Post #2 of 5

Shortcut

Re: [Andy] Error 500, but why? In reply to

If you use strict mode you must declare all vars.
But var '$month' doesn't declared.
You fetch $mon var via localtime, but not $month

Jul 28, 2003, 6:41 AM

Andy

Veteran / Moderator (18441 posts)

Jul 28, 2003, 6:41 AM

Post #3 of 5

Shortcut

Re: [hellman] Error 500, but why? In reply to

True about the $month and $mon variables... but even after changing that, it still produces a 500 IS Error Unsure

The whole script is;

Code:
#!/usr/bin/perl 

  use CGI::Carp qw(fatalsToBrowser);    

eval { 
  &ShowDate; 
}; 

if ($@) { 
  print "Content-type: text/html \n\n"; 
  print "Error: $@"; 
  exit; 
} 

sub ShowDate { 

 # setup all the variables etc... 
  my ($sec,$min,$hour,$mday,$month,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; 
  $year = $year + 1900; 
  my $Date = "Date: $year-$month-$day"; 

  print "Content-type: text/html \n\n"; 
  print $Date; 

}