cardfortress merchant deletion (disabling)
[freeside.git] / FS / FS / Misc / DateTime.pm
1 package FS::Misc::DateTime;
2
3 use base qw( Exporter );
4 use vars qw( @EXPORT_OK );
5 use Carp;
6 use Time::Local;
7 use Date::Parse;
8 use DateTime::Format::Natural;
9 use FS::Conf;
10
11 @EXPORT_OK = qw( parse_datetime day_end );
12
13 =head1 NAME
14
15 FS::Misc::DateTime - Date and time subroutines
16
17 =head1 SYNOPSIS
18
19 use FS::Misc::DateTime qw( parse_datetime );
20
21 =head1 SUBROUTINES
22
23 =over 4
24
25 =item parse_datetime STRING
26
27 Parses a date (and possibly time) from the supplied string and returns
28 the date as an integer UNIX timestamp.
29
30 =cut
31
32 sub parse_datetime {
33   my $string = shift;
34   return '' unless $string =~ /\S/;
35   my $tz = shift || 'local';
36
37   my $conf = new FS::Conf;
38   my $format = $conf->config('date_format') || '%m/%d/%Y';
39
40   if ( $format eq '%d/%m/%Y' ) { #  =~ /\%d.*\%m/ ) {
41     #$format =~ s/\%//g;
42     my $parser = DateTime::Format::Natural->new( 'time_zone' => $tz,
43                                                  #'format'=>'d/m/y',#lc($format)
44                                                );
45     $dt = $parser->parse_datetime($string);
46     if ( $parser->success ) {
47       return $dt->epoch;
48     } else {
49       #carp "WARNING: can't parse date: ". $parser->error;
50       #return '';
51       #huh, very common, we still need the "partially" (fully enough for our purposes) parsed date.
52       return $dt->epoch;
53     }
54   } else {
55     return str2time($string, $tz);
56   }
57   
58 }
59
60 =item day_end TIME
61
62 Parses TIME as an integer UNIX timestamp and returns a new timestamp with the
63 same date but 23:59:59 for the time.
64
65 =cut
66
67 sub day_end {
68     my $time = shift;
69
70     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
71         localtime($time);
72     timelocal(59,59,23,$mday,$mon,$year);
73 }
74
75 =back
76
77 =head1 BUGS
78
79 =cut
80
81 1;