}
+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;
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);
}