($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =  gmtime(time);
my $gm_time = timegm($sec,$min,$hour,$mday,$mon,$year,$wday,$yday);
my $server_time = $gm_time -  (5*3600);
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $time) = gmti
+me($server_time);
printf("%4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d", $year + 1900, $mon + 1, $m
+day, $hour, $min, $sec);
[download]

The servers are on Eastern time

That means nothing to me. Eastern what?

But reading your code it seems you're in GMT-5, so you probably mean the Eastern US and just expect everyone in the world to realise that :-)

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =  gmtime(time);
my $gm_time = timegm($sec,$min,$hour,$mday,$mon,$year,$wday,$yday);
[download]

Those two lines seem to just be the inverse of each other and can be replaced with:

my $gm_time = time;
[download]

In fact I think you are struggling towards

use POSIX 'strftime';
print strftime '%Y-%m-%d %H:%M:%S', gmtime time - (5 * 3600);
[download]

Fletch points out that it's the 5 that is wrong. For the next couple of weeks, it should be 4. Which is why it's easier to ensure that your system's Olson database is up to date and use "localtime" instead.

Update: See, DST _is_ confusing. The difference between the East Coast of the US and the UK goes back to 5 hours in a few weeks time. But as ikegami points out the difference between the East Coast of the US and GMT will stay at 4 hours for quite a bit longer.

--


<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg

For the next couple of weeks, it should be 4

It's a stretch to call some date in November a "couple of weeks" away.

You're manually converting a GMT epoch seconds to local incorrectly. During DST US/Eastern is GMT-4, not -5. If you'd use localtime this would be handled for you.