smeserver-arkeia/contribs7/smeserver-arkeia-1.0-rotate.patch2

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;
1	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
2	--- smeserver-arkeia-1.0/root/etc/e-smith/events/actions/rotate-tape 2007-07-12 14:51:29.000000000 -0600
3	+++ mezzanine_patched_smeserver-arkeia-1.0/root/etc/e-smith/events/actions/rotate-tape 2007-07-12 14:51:18.000000000 -0600
4	@@ -5,6 +5,7 @@
5	use strict;
6	use esmith::ConfigDB;
7	use POSIX qw(floor);
8	+use Time::Local qw(timegm);
9
10	sub max ($$) { $_[$_[0] < $_[1]] };
11
12	@@ -26,7 +27,7 @@
13	my $quarterly = $arkeia->prop("Quarterly") \|\| 0;
14	my $yearly = $arkeia->prop("Yearly") \|\| 0;
15
16	-my $base = int(time()/86400);
17	+my $base = int(timegm(localtime)/86400);
18	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($base*86400);
19	my $y = $yearly ? max(($year-69) - ($yday <= $wday ? 1 : 0), 0) : 0;
20	my $q = $quarterly ? max(($year-70)*4 + int($mon/3) - ($mon % 3 == 0 && $mday <= $wday ? 1 : 0) + 1 - $y, 0) : 0;