FS/FS/Misc/DateTime.pm

   1 package FS::Misc::DateTime;
   2
   3 use base qw( Exporter );
   4 use vars qw( @EXPORT_OK );
   5 use POSIX;
   6 use Carp;
   7 use Date::Parse;
   8 use DateTime::Format::Natural;
   9 use FS::Conf;
  10
  11 @EXPORT_OK = qw( parse_datetime day_end );
  12
  13 =head1 NAME
  14
  15 FS::Misc::DateTime - Date and time subroutines
  16
  17 =head1 SYNOPSIS
  18
  19 use FS::Misc::DateTime qw( parse_datetime );
  20
  21 =head1 SUBROUTINES
  22
  23 =over 4
  24
  25 =item parse_datetime STRING
  26
  27 Parses a date (and possibly time) from the supplied string and returns
  28 the date as an integer UNIX timestamp.
  29
  30 =cut
  31
  32 sub parse_datetime {
  33   my $string = shift;
  34   return '' unless $string =~ /\S/;
  35   my $tz = shift || 'local';
  36
  37   my $conf = new FS::Conf;
  38   my $format = $conf->config('date_format') || '%m/%d/%Y';
  39
  40   if ( $format eq '%d/%m/%Y' ) { #  =~ /\%d.*\%m/ ) {
  41     #$format =~ s/\%//g;
  42     my $parser = DateTime::Format::Natural->new( 'time_zone' => $tz,
  43                                                  #'format'=>'d/m/y',#lc($format)
  44                                                );
  45     $dt = $parser->parse_datetime($string);
  46     if ( $parser->success ) {
  47       return $dt->epoch;
  48     } else {
  49       #carp "WARNING: can't parse date: ". $parser->error;
  50       #return '';
  51       #huh, very common, we still need the "partially" (fully enough for our purposes) parsed date.
  52       $dt->epoch;
  53     }
  54   } else {
  55     return str2time($string, $tz);
  56   }
  57
  58 }
  59
  60 =item day_end TIME
  61
  62 If the next-bill-ignore-time configuration setting is turned off, just
  63 returns the passed-in value.
  64
  65 If the next-bill-ignore-time configuration setting is turned on, parses TIME
  66 as an integer UNIX timestamp and returns a new timestamp with the same date but
  67 23:59:59 for the time.
  68
  69 =cut
  70
  71 sub day_end {
  72     my $time = shift;
  73
  74     my $conf = new FS::Conf;
  75     return $time unless $conf->exists('next-bill-ignore-time');
  76
  77     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
  78         localtime($time);
  79     mktime(59,59,23,$mday,$mon,$year,$wday,$yday,$isdst);
  80 }
  81
  82 =back
  83
  84 =head1 BUGS
  85
  86 =cut
  87
  88 1;