diff options
author | levinse <levinse> | 2011-06-06 16:02:26 +0000 |
---|---|---|
committer | levinse <levinse> | 2011-06-06 16:02:26 +0000 |
commit | 3969ced0aca74be9e54ae6a8a76123e088cf5076 (patch) | |
tree | 172009a4126f0a0465517dc591773d492871b1f7 /FS/bin/freeside-pkg-date-midnight | |
parent | e507c01547e88861603826344c0982f5a6afdcd0 (diff) |
freeside-pkg-date-midnight: docs, RT12570
Diffstat (limited to 'FS/bin/freeside-pkg-date-midnight')
-rwxr-xr-x | FS/bin/freeside-pkg-date-midnight | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/FS/bin/freeside-pkg-date-midnight b/FS/bin/freeside-pkg-date-midnight index c1dbd5d..ad6ea59 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> |