|
|
@ -1,7 +1,7 @@ |
|
|
|
{ |
|
|
|
{ |
|
|
|
use esmith::DomainsDB; |
|
|
|
use esmith::DomainsDB; |
|
|
|
my $d = esmith::DomainsDB->open_ro or die "Couldn't open DomainsDB\n"; |
|
|
|
my $d = esmith::DomainsDB->open_ro or die "Couldn't open DomainsDB\n"; |
|
|
|
foreach my $dom ($d->domains,$d->get_all_by_prop('type=>'vhost')){ |
|
|
|
foreach my $dom ($d->domains,$d->get_all_by_prop(type=>'vhost')){ |
|
|
|
my $stats = $dom->prop('Stats') || 'disabled'; |
|
|
|
my $stats = $dom->prop('Stats') || 'disabled'; |
|
|
|
next unless ($stats eq 'enabled'); |
|
|
|
next unless ($stats eq 'enabled'); |
|
|
|
my $name = $dom->key; |
|
|
|
my $name = $dom->key; |
|
|
|