Viewing file:  dnsclouds.cgi (1.24 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show a list of Cloud DNS providers
require './virtual-server-lib.pl';
&ReadParse();
&can_cloud_providers() || &error($text{'dnsclouds_ecannot'});
&ui_print_header(undef, $text{'dnsclouds_title'}, "", "dnsclouds");
@clouds = &list_dns_clouds();
@doms = &list_domains();
&dnsclouds_pro_tip();
print &ui_columns_start([ $text{'dnsclouds_name'},
$text{'dnsclouds_url'},
$text{'dnsclouds_state'},
$text{'dnsclouds_users'} ]);
foreach my $c (@clouds) {
@users = grep { &dns_uses_cloud($_, $c) } @doms;
$users = @users ? &text('dnsclouds_nusers', scalar(@users))
: $text{'dnsclouds_nousers'};
$sfunc = "dnscloud_".$c->{'name'}."_get_state";
$state = &$sfunc($c);
print &ui_columns_row([
&ui_link("edit_dnscloud.cgi?name=$c->{'name'}", $c->{'desc'}),
&ui_link($c->{'url'}, $c->{'url'}, undef, "target=_blank"),
$state->{'ok'} ? $state->{'desc'} : $text{'clouds_unconf'},
$users ]);
$any++ if ($state->{'ok'});
}
print &ui_columns_end();
if ($any) {
print "<p>",&text('dnsclouds_tmpl',
"edit_tmpl.cgi?id=0&editmode=dns"),"</p>\n";
}
&ui_print_footer("", $text{'index_return'});
|