diff -Nur -x '*.orig' -x '*.rej' smeserver-arkeia-1.0/root/etc/e-smith/events/actions/rotate-tape mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/rotate-tape
--- smeserver-arkeia-1.0/root/etc/e-smith/events/actions/rotate-tape	2007-07-12 14:51:29.000000000 -0600
+++ mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/rotate-tape	2007-07-12 14:51:18.000000000 -0600
@@ -5,6 +5,7 @@
 use strict;
 use esmith::ConfigDB;
 use POSIX qw(floor);
+use Time::Local qw(timegm);
 
 sub max ($$) { $_[$_[0] < $_[1]] };
 
@@ -26,7 +27,7 @@
 my $quarterly = $arkeia->prop("Quarterly") || 0;
 my $yearly = $arkeia->prop("Yearly") || 0;
 
-my $base = int(time()/86400);
+my $base = int(timegm(localtime)/86400);
 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($base*86400);
 my $y = $yearly ? max(($year-69) - ($yday <= $wday ? 1 : 0), 0) : 0;
 my $q = $quarterly ? max(($year-70)*4 + int($mon/3) - ($mon % 3 == 0 && $mday <= $wday ? 1 : 0) + 1 - $y, 0) : 0;