Forum Home
Press F1
Thread ID: 18098	2002-04-17 15:15:00	Help with fixing date problem in CGI/Perl	Guest (0)	Press F1

Post ID	Timestamp	Content	User
44342	2002-04-17 15:15:00	Here's the script: sub get_date { @days = ('Sunday','Monday','Tuesday','Wednesday', 'Thursday','Friday','Saturday'); @months = ('January','February','March','April','May','June' ,'July', 'August','September','October','November','Decembe r'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $time = sprintf('%02d:%02d:%02d',$hour + 16,$min,$sec); $year += 1900; $date = '$days[$wday], $months[$mon] $mday, $year at $time'; I have added + 16 to the hours because this is how much the server is off by but this didn't work quite as intended as it now displays times above 24 hours. I have no experience in CGI/Perl and have found no information regarding this. Is there a way to say if hours is greater than 24 then minus 24 and add one day? Don't know if that will work but if there's a way to do it could you please help me out. TIA Doc Flash	Guest (0)
1