summaryrefslogtreecommitdiff
path: root/FS/FS/Misc/DateTime.pm
diff options
context:
space:
mode:
Diffstat (limited to 'FS/FS/Misc/DateTime.pm')
-rw-r--r--FS/FS/Misc/DateTime.pm64
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;