1 package FS::Misc::DateTime;
3 use base qw( Exporter );
4 use vars qw( @EXPORT_OK );
8 use DateTime::Format::Natural;
12 @EXPORT_OK = qw( parse_datetime day_end iso8601 );
16 FS::Misc::DateTime - Date and time subroutines
20 use FS::Misc::DateTime qw( parse_datetime );
26 =item parse_datetime STRING
28 Parses a date (and possibly time) from the supplied string and returns
29 the date as an integer UNIX timestamp.
35 return '' unless $string =~ /\S/;
36 my $tz = shift || 'local';
38 my $conf = new FS::Conf;
39 my $format = $conf->config('date_format') || '%m/%d/%Y';
41 if ( $format eq '%d/%m/%Y' ) { # =~ /\%d.*\%m/ ) {
43 my $parser = DateTime::Format::Natural->new( 'time_zone' => $tz,
44 #'format'=>'d/m/y',#lc($format)
46 $dt = $parser->parse_datetime($string);
47 if ( $parser->success ) {
50 #carp "WARNING: can't parse date: ". $parser->error;
52 #huh, very common, we still need the "partially" (fully enough for our purposes) parsed date.
56 return str2time($string, $tz);
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.
71 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
73 timelocal(59,59,23,$mday,$mon,$year);
78 Parses time as an integer UNIX timestamp and returns the ISO 8601 formatted
84 time2str('%Y-%m-%dT%T', shift);