summaryrefslogtreecommitdiffstats
path: root/contrib/amd/scripts/lostaltmail.in
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/amd/scripts/lostaltmail.in')
-rwxr-xr-xcontrib/amd/scripts/lostaltmail.in5
1 files changed, 3 insertions, 2 deletions
diff --git a/contrib/amd/scripts/lostaltmail.in b/contrib/amd/scripts/lostaltmail.in
index 5ba454c..8d1e6ec 100755
--- a/contrib/amd/scripts/lostaltmail.in
+++ b/contrib/amd/scripts/lostaltmail.in
@@ -331,7 +331,8 @@ sub Splice_in_resent_headers {
$month=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$utctime[4]];
- $date=sprintf("%s, %d %s %d %s UTC", $weekday, $utctime[3], $month, (($utctime[5] < 93 ? 20 : 19).$utctime[5]), $time);
+ # Ensure Y2K format
+ $date=sprintf("%s, %d %s %d %s UTC", $weekday, $utctime[3], $month, $utctime[5]+1900, $time);
$current_msg .= "$RESENT_DATE" . $date . "\n";
@@ -602,7 +603,7 @@ if ( ! $noverify ) {
printf("SMTP: address: %s port: $port\n",
join ('.',unpack('C4',$addr))) if ($debug);
- $sockaddr = pack('n2C4x8',2, $port ,unpack('C4',$addr));
+ $sockaddr = sockaddr_in($port, $addr);
printf("Sockaddr: %s\n", join (' ',unpack('C14',$sockaddr))) if ($debug);
OpenPOWER on IntegriCloud