From 383056bdf2be149db6710c7c034bfc9abfc9f0ee Mon Sep 17 00:00:00 2001
From: x2000palatin <x2000palatin>
Date: Tue, 23 Nov 2004 19:32:33 +0000
Subject: [PATCH] Merge prod version

---
 scripts/cron/stats/pflogsumm-betaD-x.org.pl | 4 ++++
 scripts/cron/stats/pflogsumm-betaN-x.org.pl | 4 ++++
 scripts/cron/stats/pflogsumm-betaR-x.org.pl | 4 ++++
 3 files changed, 12 insertions(+)

diff --git a/scripts/cron/stats/pflogsumm-betaD-x.org.pl b/scripts/cron/stats/pflogsumm-betaD-x.org.pl
index de22133..0fc21cc 100755
--- a/scripts/cron/stats/pflogsumm-betaD-x.org.pl
+++ b/scripts/cron/stats/pflogsumm-betaD-x.org.pl
@@ -342,6 +342,10 @@ while(<>) {
 		push(@{$msgDetail{$qid}}, $addr) if($opts{'e'});
 	    } elsif($status eq 'deferred') {
 		my ($deferredReas) = /, status=deferred \(([^\)]+)/o;
+		if (!defined($deferredReas)) 
+			{
+			$deferredReas = "---[0.0.0.0] connect to 0.0.0.0";
+			}
 		unless(defined($opts{'verbMsgDetail'})) {
 		    $deferredReas = said_string_trimmer($deferredReas, 65);
 		    $deferredReas =~ s/^[0-9]{3} //o;
diff --git a/scripts/cron/stats/pflogsumm-betaN-x.org.pl b/scripts/cron/stats/pflogsumm-betaN-x.org.pl
index 181a857..2dd3d07 100755
--- a/scripts/cron/stats/pflogsumm-betaN-x.org.pl
+++ b/scripts/cron/stats/pflogsumm-betaN-x.org.pl
@@ -342,6 +342,10 @@ while(<>) {
 		push(@{$msgDetail{$qid}}, $addr) if($opts{'e'});
 	    } elsif($status eq 'deferred') {
 		my ($deferredReas) = /, status=deferred \(([^\)]+)/o;
+		if (!defined($deferredReas)) 
+			{
+			$deferredReas = "---[0.0.0.0] connect to 0.0.0.0";
+			}
 		unless(defined($opts{'verbMsgDetail'})) {
 		    $deferredReas = said_string_trimmer($deferredReas, 65);
 		    $deferredReas =~ s/^[0-9]{3} //o;
diff --git a/scripts/cron/stats/pflogsumm-betaR-x.org.pl b/scripts/cron/stats/pflogsumm-betaR-x.org.pl
index 551bb82..e98a737 100755
--- a/scripts/cron/stats/pflogsumm-betaR-x.org.pl
+++ b/scripts/cron/stats/pflogsumm-betaR-x.org.pl
@@ -342,6 +342,10 @@ while(<>) {
 		push(@{$msgDetail{$qid}}, $addr) if($opts{'e'});
 	    } elsif($status eq 'deferred') {
 		my ($deferredReas) = /, status=deferred \(([^\)]+)/o;
+		if (!defined($deferredReas)) 
+			{
+			$deferredReas = "---[0.0.0.0] connect to 0.0.0.0";
+			}
 		unless(defined($opts{'verbMsgDetail'})) {
 		    $deferredReas = said_string_trimmer($deferredReas, 65);
 		    $deferredReas =~ s/^[0-9]{3} //o;
-- 
2.1.4