From: levinse <levinse>
Date: Mon, 6 Jun 2011 16:02:26 +0000 (+0000)
Subject: freeside-pkg-date-midnight: docs, RT12570
X-Git-Tag: freeside_2_3_0~171
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=3969ced0aca74be9e54ae6a8a76123e088cf5076;p=freeside.git

freeside-pkg-date-midnight: docs, RT12570
---

diff --git a/FS/bin/freeside-pkg-date-midnight b/FS/bin/freeside-pkg-date-midnight
index c1dbd5d72..ad6ea59fc 100755
--- a/FS/bin/freeside-pkg-date-midnight
+++ b/FS/bin/freeside-pkg-date-midnight
@@ -5,6 +5,7 @@ use Getopt::Std;
 use FS::UID qw(adminsuidsetup);
 use FS::Record qw(qsearch qsearchs dbh);
 use Data::Dumper;
+use Date::Manip::Date;
 use POSIX;
 
 &untaint_argv;	#what it sounds like  (eww)
@@ -25,6 +26,11 @@ while ( $row = $sth->fetchrow_hashref ) {
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
         localtime($bill);
 
+    my $date = new Date::Manip::Date;
+    my $err = $date->parse($bill);
+
+    my $datefixed = $date->calc(?,1);
+
     if ( $hour != 0 || $min != 0 || $sec != 0 ) {
         $hour = 0;
         $min = 0;
@@ -71,12 +77,6 @@ freeside-pkg-date-midnight - change the time portion of next bill dates on all a
 
 user - name of an internal Freeside user
 
-=head1 BUGS
-
-Will be off by an hour when crossing DST boundaries, defeating the purpose of 
-the util. Workaround: run it a day after each DST change (so twice per year
-for time zones subject to DST).
-
 =head1 SEE ALSO
 
 L<FS::cust_pkg>