mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-23 00:43:28 +00:00
Code Issues Releases Activity

Fix broken timezone specification in the generated Date: header.

Browse Source 
PR:		32372
Submitted by:	David Wolfskill <dhw@whistle.com>
This commit is contained in:
Steve Price 2001-12-02 18:28:29 +00:00
parent cd58264681
commit 2c55da9be4
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=50876
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
mail/p5-Mail-Bulkmail/files/patch-Bulkmail.pm Normal file
View File

@ -0,0 +1,40 @@
--- Bulkmail.pm.orig Fri Sep 7 12:28:16 2001
+++ Bulkmail.pm Wed Nov 28 07:27:50 2001
@@ -704,16 +704,31 @@
my $self = shift or undef;
- my ($min, $hour, $isdst) = (localtime(time))[1,2,-1];
- my ($gmin, $ghour, $gsdst) = (gmtime(time))[1,2, -1];
+ my $now = time;
+ my ($min, $hour, $isdst) = (localtime($now))[1,2,-1];
+ my ($gmin, $ghour, $gsdst) = (gmtime($now))[1,2, -1];
- my $diffhour = $hour - $ghour;
- $diffhour = 12 - $diffhour if $diffhour > 12;
- $diffhour = 12 + $diffhour if $diffhour < -12;
+ my $diffmin = ($hour - $ghour) * 60 + ($min - $gmin);
+ my $diffhour = int($diffmin / 60);
+ $diffmin -= $diffhour * 60;
+ if ($diffhour > 12) {
+ $diffhour -= 24;
+ if ($diffmin) {
+ $diffhour += 1;
+ $diffmin -= 60;
+ }
+ } elsif ($diffhour < -12) {
+ $diffhour += 24;
+ if ($diffmin) {
+ $diffhour -= 1;
+ $diffmin += 60;
+ }
+ }
+ $diffmin = abs($diffmin);
- ($diffhour = sprintf("%03d", $hour - $ghour)) =~ s/^0/\+/;
+ ($diffhour = sprintf("%03d%02d", $diffhour, $diffmin)) =~ s/^0/\+/;
- return $diffhour . sprintf("%02d", $min - $gmin);
+ return $diffhour;
};