1 package FS::Misc::DateTime;
3 use base qw( Exporter );
4 use vars qw( @EXPORT_OK );
7 use DateTime::Format::Natural;
10 @EXPORT_OK = qw( parse_datetime );
14 FS::Misc::DateTime - Date and time subroutines
18 use FS::Misc::DateTime qw( parse_datetime );
24 =item parse_datetime STRING
26 Parses a date (and possibly time) from the supplied string and returns
27 the date as an integer UNIX timestamp.
33 return '' unless $string =~ /\S/;
35 my $conf = new FS::Conf;
36 my $format = $conf->config('date_format') || '%m/%d/%Y';
38 if ( $format eq '%d/%m/%Y' ) { # =~ /\%d.*\%m/ ) {
40 my $parser = DateTime::Format::Natural->new( 'time_zone' => 'local',
41 #'format'=>'d/m/y',#lc($format)
43 $dt = $parser->parse_datetime($string);
44 if ( $parser->success ) {
47 #carp "WARNING: can't parse date: ". $parser->error;
49 #huh, very common, we still need the "partially" (fully enough for our purposes) parsed date.
53 return str2time($string);