From 6fafe4eca971b12e3afe0e9fcc339150547aee33 Mon Sep 17 00:00:00 2001
From: Art Cancro <ajc@citadel.org>
Date: Fri, 28 Jul 2023 00:01:06 -0400
Subject: [PATCH] fix edge cases for previous commit

---
 infanticide.pm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/infanticide.pm b/infanticide.pm
index 56072fd..3c077f1 100755
--- a/infanticide.pm
+++ b/infanticide.pm
@@ -68,6 +68,23 @@ sub infanticide_get_creation_date {
 }
 
 
+sub infanticide_get_creation_date_recursive {
+	my $domain_to_test = $_[0];
+	my $cDate = infanticide_get_creation_date($domain_to_test);
+	if ($cDate ne "") {
+		return($cDate);
+	}
+
+	$dots = ($domain_to_test =~ tr/.//);
+	if ($dots < 2) {
+		return("");
+	}
+
+	return(infanticide_get_creation_date_recursive(substr $domain_to_test, index($domain_to_test, ".")+1));
+}
+
+
+
 sub check_for_disposable_domain() {
 	$counter = $counter + 1;
 
@@ -75,7 +92,7 @@ sub check_for_disposable_domain() {
 	my $fromaddr = $pms->get("From:addr", undef);
 	my @fromarr = split('@', $fromaddr);
 	my $domain = $fromarr[1];
-	my $creationDate = infanticide_get_creation_date($domain);
+	my $creationDate = infanticide_get_creation_date_recursive($domain);
 	if ($creationDate eq "") {
 		return(0);
 	}
-- 
2.39.2