Server IP : 195.201.23.43 / Your IP : 13.59.203.127 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : 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, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/virtual-server/ |
Upload File : |
#!/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'});Private