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