package FS::Misc::DateTime;

use base qw( Exporter );
use vars qw( @EXPORT_OK );
use Carp;
use Time::Local;
use Date::Parse;
use DateTime::Format::Natural;
use Date::Format;
use FS::Conf;

@EXPORT_OK = qw( parse_datetime day_end iso8601 );

=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 $tz = shift || 'local';

  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' => $tz,
                                                 #'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.
      return $dt->epoch;
    }
  } else {
    return str2time($string, $tz);
  }
  
}

=item day_end TIME

Parses TIME as an integer UNIX timestamp and returns a new timestamp with the
same date but 23:59:59 for the time.

=cut

sub day_end {
  my $time = shift;

  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
      localtime($time);
  timelocal(59,59,23,$mday,$mon,$year);
}

=item iso8601 TIME

Parses time as an integer UNIX timestamp and returns the ISO 8601 formatted
date and time.

=cut

sub iso8601 {
  time2str('%Y-%m-%dT%T', shift);
}

=back

=head1 BUGS

=cut

1;