HEX
Server: Apache
System: Linux vps-cdc32557.vps.ovh.ca 5.15.0-156-generic #166-Ubuntu SMP Sat Aug 9 00:02:46 UTC 2025 x86_64
User: hanode (1017)
PHP: 7.4.33
Disabled: pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,
Upload Files
File: //usr/share/webmin/virtual-server/edit_dnscloud.cgi
#!/usr/bin/perl
# Edit settings for cloud DNS provider

require './virtual-server-lib.pl';
&ReadParse();
&can_cloud_providers() || &error($text{'dnsclouds_ecannot'});

&ui_print_header(undef, $text{'dnscloud_title'}, "");

# Lookup the provider
@clouds = &list_dns_clouds();
($cloud) = grep { $_->{'name'} eq $in{'name'} } @clouds;
$cloud || &error($text{'dnscloud_egone'});
$sfunc = "dnscloud_".$cloud->{'name'}."_get_state";
$state = &$sfunc($p);

my $longdesc = $cloud->{'longdesc'};
if (ref($longdesc) eq 'CODE') {
	$longdesc = &$longdesc();
	}
if ($longdesc) {
	print $longdesc,"<p>\n";
	}

# First check if provider can be used
my $cfunc = "dnscloud_".$cloud->{'name'}."_check";
if (defined(&$cfunc)) {
	my $err = &$cfunc();
	if ($err) {
		print &text('dnscloud_echeck', $cloud->{'desc'}, $err),"<p>\n";
		&ui_print_footer("dnsclouds.cgi", $text{'dnsclouds_return'});
		return;
		}
	}

print &ui_form_start("save_dnscloud.cgi", "post");
print &ui_hidden("name", $in{'name'});
print &ui_table_start($text{'dnscloud_header'}, undef, 2);

# Cloud provider name
print &ui_table_row($text{'dnscloud_provider'},
		    $cloud->{'desc'});
print &ui_table_row($text{'dnscloud_url'},
		    &ui_link($cloud->{'url'}, $cloud->{'url'}, undef,
			     "target=_blank"));

# Provider options
$ifunc = "dnscloud_".$cloud->{'name'}."_show_inputs";
print &$ifunc($cloud);

# Allow use by other users?
print &ui_table_row($text{'cloud_useby'},
	&ui_checkbox("useby_reseller", 1, $text{'cloud_byreseller'},
		     $config{'dnscloud_'.$in{'name'}.'_reseller'})."\n".
	&ui_checkbox("useby_owner", 1, $text{'cloud_byowner'},
		     $config{'dnscloud_'.$in{'name'}.'_owner'}));

# Used by domains
@users = grep { &dns_uses_cloud($_, $cloud) } &list_domains();
if (@users) {
	@grid = map { &ui_link("list_records.cgi?dom=".&urlize($_->{'id'}),
			       &show_domain_name($_)) } @users;
	$utable = &ui_grid_table(\@grid, 4);
	}
else {
	$utable = $text{'dnscloud_nousers'};
	}
print &ui_table_row($text{'dnscloud_users'}, $utable);

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'save'} ],
		     $state->{'ok'} ? ( [ 'clear', $text{'dnscloud_clear'} ] )
				    : ( ) ]);

&ui_print_footer("dnsclouds.cgi", $text{'dnsclouds_return'});