FS/FS/Misc/DateTime.pm

   1 package FS::Misc::DateTime;
   2
   3 use base qw( Exporter );
   4 use vars qw( @EXPORT_OK );
   5 use Carp;
   6 use Time::Local;
   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       return $dt->epoch;
  53     }
  54   } else {
  55     return str2time($string, $tz);
  56   }
  57
  58 }
  59
  60 =item day_end TIME
  61
  62 Parses TIME as an integer UNIX timestamp and returns a new timestamp with the
  63 same date but 23:59:59 for the time.
  64
  65 =cut
  66
  67 sub day_end {
  68     my $time = shift;
  69
  70     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
  71         localtime($time);
  72     timelocal(59,59,23,$mday,$mon,$year);
  73 }
  74
  75 =back
  76
  77 =head1 BUGS
  78
  79 =cut
  80
  81 1;