[interchange-cvs] [SCM] Interchange branch, master, updated. 2ced36a3c2e651194bdb1a352727f834eeae8fee
Peter Ajamian
interchange-cvs at icdevgroup.org
Sun Sep 13 21:17:45 UTC 2009
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Interchange".
The branch, master has been updated
via 2ced36a3c2e651194bdb1a352727f834eeae8fee (commit)
from b0f731a99f5a22136c0b1520b11f02ec74777cf9 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 2ced36a3c2e651194bdb1a352727f834eeae8fee
Author: Peter Ajamian <peter at pajamian.dhs.org>
Date: Sun Sep 13 13:49:50 2009 -0700
Remove bloat that duplicates %z functionality.
On 09/12/2009 09:26 PM, Mike Heins wrote:
> Quoting Peter (peter at pajamian.dhs.org):
>> Incidentally why the mess of code in Util.pm to get the same result that
>> %z would give anyways?
>
> Probably because I was stupid when I wrote it, and didn't understand what
> %z did. Or I did it before %z became standard.
>
> It should be changed.
-----------------------------------------------------------------------
Summary of changes and diff:
lib/Vend/Util.pm | 23 +----------------------
1 files changed, 1 insertions(+), 22 deletions(-)
diff --git a/lib/Vend/Util.pm b/lib/Vend/Util.pm
index f3bee42..201453e 100644
--- a/lib/Vend/Util.pm
+++ b/lib/Vend/Util.pm
@@ -206,30 +206,9 @@ sub tabbed {
} @_);
}
-# Finds common-log-style offset
-# Unproven, authoratative code welcome
-my $Offset;
-FINDOFFSET: {
- my $now = time;
- my ($gm,$gh,$gd,$gy) = (gmtime($now))[1,2,5,7];
- my ($lm,$lh,$ld,$ly) = (localtime($now))[1,2,5,7];
- if($gy != $ly) {
- $gy < $ly ? $lh += 24 : $gh += 24;
- }
- elsif($gd != $ld) {
- $gd < $ld ? $lh += 24 : $gh += 24;
- }
- $gh *= 100;
- $lh *= 100;
- $gh += $gm;
- $lh += $lm;
- $Offset = sprintf("%05d", $lh - $gh);
- $Offset =~ s/0(\d\d\d\d)/+$1/;
-}
-
# Returns time in HTTP common log format
sub logtime {
- return POSIX::strftime("[%d/%B/%Y:%H:%M:%S $Offset]", localtime());
+ return POSIX::strftime("[%d/%B/%Y:%H:%M:%S %z]", localtime());
}
sub format_log_msg {
hooks/post-receive
--
Interchange
More information about the interchange-cvs
mailing list