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

Jul 28, 2003, 5:12 AM

Andy

Veteran / Moderator (17297 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

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

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 (17297 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; 

}