2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.3 2003/02/09 16:15:51 joko |
6 |
|
## + minor update regarding module namespace refactoring |
7 |
|
## |
8 |
|
## Revision 1.2 2002/12/23 13:44:53 joko |
9 |
|
## + sub stripDayName |
10 |
|
## |
11 |
## Revision 1.1 2002/12/22 14:15:59 joko |
## Revision 1.1 2002/12/22 14:15:59 joko |
12 |
## + initial check-in |
## + initial check-in |
13 |
## |
## |
23 |
our @ISA = qw( Exporter ); |
our @ISA = qw( Exporter ); |
24 |
our @EXPORT_OK = qw( |
our @EXPORT_OK = qw( |
25 |
mergeDayAndTime |
mergeDayAndTime |
26 |
|
stripDayName |
27 |
); |
); |
28 |
|
|
29 |
|
|
30 |
use Date::Manip; |
use Date::Manip; |
31 |
use libp qw( today ); |
use shortcuts qw( today ); |
32 |
|
|
33 |
|
|
34 |
sub mergeDayAndTime { |
sub mergeDayAndTime { |
65 |
|
|
66 |
} |
} |
67 |
|
|
68 |
|
sub stripDayName { |
69 |
|
|
70 |
|
my $date_raw = shift; |
71 |
|
$date_raw =~ s/[^\d|-]//g; |
72 |
|
|
73 |
|
my $date_parsed = ParseDate($date_raw); |
74 |
|
|
75 |
|
my $date_full = UnixDate($date_parsed, '%Y-%m-%d %H:%M:%S'); |
76 |
|
|
77 |
|
return $date_full; |
78 |
|
|
79 |
|
} |
80 |
|
|
81 |
1; |
1; |