diff options
Diffstat (limited to 'FS/FS/Misc/DateTime.pm')
-rw-r--r-- | FS/FS/Misc/DateTime.pm | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/FS/FS/Misc/DateTime.pm b/FS/FS/Misc/DateTime.pm deleted file mode 100644 index a32c15a..0000000 --- a/FS/FS/Misc/DateTime.pm +++ /dev/null @@ -1,64 +0,0 @@ -package FS::Misc::DateTime; - -use base qw( Exporter ); -use vars qw( @EXPORT_OK ); -use Carp; -use Date::Parse; -use DateTime::Format::Natural; -use FS::Conf; - -@EXPORT_OK = qw( parse_datetime ); - -=head1 NAME - -FS::Misc::DateTime - Date and time subroutines - -=head1 SYNOPSIS - -use FS::Misc::DateTime qw( parse_datetime ); - -=head1 SUBROUTINES - -=over 4 - -=item parse_datetime STRING - -Parses a date (and possibly time) from the supplied string and returns -the date as an integer UNIX timestamp. - -=cut - -sub parse_datetime { - my $string = shift; - return '' unless $string =~ /\S/; - - my $conf = new FS::Conf; - my $format = $conf->config('date_format') || '%m/%d/%Y'; - - if ( $format eq '%d/%m/%Y' ) { # =~ /\%d.*\%m/ ) { - #$format =~ s/\%//g; - my $parser = DateTime::Format::Natural->new( 'time_zone' => 'local', - #'format'=>'d/m/y',#lc($format) - ); - $dt = $parser->parse_datetime($string); - if ( $parser->success ) { - return $dt->epoch; - } else { - #carp "WARNING: can't parse date: ". $parser->error; - #return ''; - #huh, very common, we still need the "partially" (fully enough for our purposes) parsed date. - $dt->epoch; - } - } else { - return str2time($string); - } - -} - -=back - -=head1 BUGS - -=cut - -1; |