|
|
@ -6,9 +6,10 @@ use esmith::HostsDB; |
|
|
|
my $d = esmith::DomainsDB->open_ro || die "Couldn't open DomainsDB\n"; |
|
|
|
my $d = esmith::DomainsDB->open_ro || die "Couldn't open DomainsDB\n"; |
|
|
|
my $h = esmith::HostsDB->open_ro || die "Couldn't open HostsDB\n"; |
|
|
|
my $h = esmith::HostsDB->open_ro || die "Couldn't open HostsDB\n"; |
|
|
|
|
|
|
|
|
|
|
|
my $names = (); |
|
|
|
my @names = ( "$DomainName" ); |
|
|
|
|
|
|
|
|
|
|
|
foreach my $domain ($d->domains, $d->get_all_by_prop(type => 'vhost')){ |
|
|
|
foreach my $domain ($d->domains, $d->get_all_by_prop(type => 'vhost')){ |
|
|
|
|
|
|
|
next if ($domain->key eq $DomainName); |
|
|
|
my $le = $domain->prop('Letsencrypt') || 'enabled'; |
|
|
|
my $le = $domain->prop('Letsencrypt') || 'enabled'; |
|
|
|
push @names, $domain->key unless $le ne 'enabled'; |
|
|
|
push @names, $domain->key unless $le ne 'enabled'; |
|
|
|
} |
|
|
|
} |
|
|
|