smeserver-mailstats/contribs7/smeserver-mailstats-0.0.3-reworkDateManip.patch

--- smeserver-mailstats-0.0.3/root/usr/bin/spamfilter-stats-7.pl.reworkDateManip        2008-10-03 18:38:07.000000000 +0200
+++ smeserver-mailstats-0.0.3/root/usr/bin/spamfilter-stats-7.pl        2008-10-03 19:02:12.000000000 +0200
@@ -272,7 +272,7 @@
 use Pod::Usage;
 use POSIX qw/strftime floor/;
 use Time::Local;
-use Date::Manip;
+use Date::Parse;
 use Time::TAI64;
 use esmith::ConfigDB;
 use esmith::DomainsDB;
@@ -305,8 +306,6 @@
     timezone => `date +%z`,
 );
 
-Date_Init("TZ=$opt{'timezone'}");
-
 my $FetchmailIP = '127.0.0.200';       #Apparent Ip address of fetchmail deliveries
 my $WebmailIP = '127.0.0.1';           #Apparent Ip of Webmail sender
 my $localhost = 'localhost';           #Apparent sender for webmail
@@ -1126,8 +1125,9 @@
       };
       $time = timelocal($sec,$min,$hour,$mday,$mon,$year)
     }
-    my $start = UnixDate( $startdate, "%s" );
-    my $end   = $enddate ? UnixDate( $enddate,   "%s" ) :
+    
+    my $start = str2time( $startdate );
+    my $end   = $enddate ? str2time( $enddate ) :
        $startdate ? $start + $secsininterval : $time;
     $start = $startdate ? $start : $end - $secsininterval;
     return ( $start > $end ) ? ( $end, $start ) : ( $start, $end );
1	--- smeserver-mailstats-0.0.3/root/usr/bin/spamfilter-stats-7.pl.reworkDateManip 2008-10-03 18:38:07.000000000 +0200
2	+++ smeserver-mailstats-0.0.3/root/usr/bin/spamfilter-stats-7.pl 2008-10-03 19:02:12.000000000 +0200
3	@@ -272,7 +272,7 @@
4	use Pod::Usage;
5	use POSIX qw/strftime floor/;
6	use Time::Local;
7	-use Date::Manip;
8	+use Date::Parse;
9	use Time::TAI64;
10	use esmith::ConfigDB;
11	use esmith::DomainsDB;
12	@@ -305,8 +306,6 @@
13	timezone => `date +%z`,
14	);
15
16	-Date_Init("TZ=$opt{'timezone'}");
17	-
18	my $FetchmailIP = '127.0.0.200'; #Apparent Ip address of fetchmail deliveries
19	my $WebmailIP = '127.0.0.1'; #Apparent Ip of Webmail sender
20	my $localhost = 'localhost'; #Apparent sender for webmail
21	@@ -1126,8 +1125,9 @@
22	};
23	$time = timelocal($sec,$min,$hour,$mday,$mon,$year)
24	}
25	- my $start = UnixDate( $startdate, "%s" );
26	- my $end = $enddate ? UnixDate( $enddate, "%s" ) :
27	+
28	+ my $start = str2time( $startdate );
29	+ my $end = $enddate ? str2time( $enddate ) :
30	$startdate ? $start + $secsininterval : $time;
31	$start = $startdate ? $start : $end - $secsininterval;
32	return ( $start > $end ) ? ( $end, $start ) : ( $start, $end );