You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by jm...@apache.org on 2005/11/12 04:35:38 UTC
svn commit: r332725 - in /spamassassin/trunk: lib/Mail/SpamAssassin/Util.pm
masses/corpora/mk-corpus-link-farm
Author: jm
Date: Fri Nov 11 19:35:37 2005
New Revision: 332725
URL: http://svn.apache.org/viewcvs?rev=332725&view=rev
Log:
turn off debug; also, cache local_tz() instead of calling time(), gmtime() and localtime() all the time
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm
spamassassin/trunk/masses/corpora/mk-corpus-link-farm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm?rev=332725&r1=332724&r2=332725&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm Fri Nov 11 19:35:37 2005
@@ -350,13 +350,18 @@
my %MONTH = (jan => 1, feb => 2, mar => 3, apr => 4, may => 5, jun => 6,
jul => 7, aug => 8, sep => 9, oct => 10, nov => 11, dec => 12);
+my $LOCALTZ;
+
sub local_tz {
+ return $LOCALTZ if defined($LOCALTZ);
+
# standard method for determining local timezone
my $time = time;
my @g = gmtime($time);
my @t = localtime($time);
my $z = $t[1]-$g[1]+($t[2]-$g[2])*60+($t[7]-$g[7])*1440+($t[5]-$g[5])*525600;
- return sprintf("%+.2d%.2d", $z/60, $z%60);
+ $LOCALTZ = sprintf("%+.2d%.2d", $z/60, $z%60);
+ return $LOCALTZ;
}
sub parse_rfc822_date {
Modified: spamassassin/trunk/masses/corpora/mk-corpus-link-farm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/corpora/mk-corpus-link-farm?rev=332725&r1=332724&r2=332725&view=diff
==============================================================================
--- spamassassin/trunk/masses/corpora/mk-corpus-link-farm (original)
+++ spamassassin/trunk/masses/corpora/mk-corpus-link-farm Fri Nov 11 19:35:37 2005
@@ -54,7 +54,7 @@
use SDBM_File;
use Fcntl;
-my $DEBUG; $DEBUG=1;
+my $DEBUG; # $DEBUG=1;
my @classes = qw(ham spam);
my $srcs = [ ];
@@ -575,6 +575,7 @@
my %TZ;
my %MONTH;
+my $LOCALTZ;
sub tz_init {
@@ -647,12 +648,15 @@
}
sub local_tz {
+ return $LOCALTZ if defined($LOCALTZ);
+
# standard method for determining local timezone
my $time = time;
my @g = gmtime($time);
my @t = localtime($time);
my $z = $t[1]-$g[1]+($t[2]-$g[2])*60+($t[7]-$g[7])*1440+($t[5]-$g[5])*525600;
- return sprintf("%+.2d%.2d", $z/60, $z%60);
+ $LOCALTZ = sprintf("%+.2d%.2d", $z/60, $z%60);
+ return $LOCALTZ;
}
sub parse_rfc822_date {