11 lines
347 B
Plaintext
11 lines
347 B
Plaintext
{
|
|
use esmith::DomainsDB;
|
|
my $d = esmith::DomainsDB->open_ro or die "Couldn't open DomainsDB\n";
|
|
foreach my $dom ($d->domains){
|
|
my $stats = $dom->prop('Stats') || 'disabled';
|
|
next unless ($stats eq 'enabled');
|
|
my $name = $dom->key;
|
|
$OUT .= "<a href=\"https://stats.$DomainName/cgi-bin/awstats.pl?config=$name\">$name</a><p>\n";
|
|
}
|
|
}
|