| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,mail,shell_exec,system,proc_open,popen,ini_alter,dl,proc_close,curl_exec,curl_multi_exec,readfile,parse_ini_file,escapeshellarg,escapeshellcmd,show_source,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,mail,php_uname,phpinfo MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/dhcpd/ |
Upload File : |
#!/usr/bin/perl
# delete_all.cgi
# Delete a subnet, shared network or host
require './dhcpd-lib.pl';
require './params-lib.pl';
&ReadParse();
if ($in{'cancel'}) {
&redirect("");
exit;
}
&lock_all_files();
$par = &get_parent_config();
foreach $i ($in{'sidx'}, $in{'uidx'}) {
if ($i ne "") {
$par = $par->{'members'}->[$i];
}
}
$parconf = $par->{'members'};
$to_del = $parconf->[$in{'idx'}];
@host = &find("host", $to_del->{'members'});
@group = &find("group", $to_del->{'members'});
@subn = &find("subnet", $to_del->{'members'});
# check acls
%access = &get_module_acl();
&error_setup($text{'eacl_aviol'});
if ($to_del->{'name'} eq "group") {
&error("$text{'eacl_np'} $text{'eacl_pdg'}")
if !&can('rw', \%access, $to_del, 1);
}
elsif ($to_del->{'name'} eq "subnet") {
$type = 'sub';
&error("$text{'eacl_np'} $text{'eacl_pds'}")
if !&can('rw', \%access, $to_del, 1);
foreach $g (@group) {
&error("$text{'eacl_np'} $text{'eacl_pdg'}")
if !&can('rw', \%access, $g, 1);
}
}
elsif ($to_del->{'name'} eq "shared-network") {
&error("$text{'eacl_np'} $text{'eacl_pdn'}")
if !&can('rw', \%access, $to_del, 1);
foreach $s (@subn) {
&error("$text{'eacl_np'} $text{'eacl_pds'}")
if !&can('rw', \%access, $s, 1);
}
foreach $g (@group) {
&error("$text{'eacl_np'} $text{'eacl_pdg'}")
if !&can('rw', \%access, $g, 1);
}
}
else {
&error($text{'cdel_eunknown'});
}
foreach $h (@host) {
&error("$text{'eacl_np'} $text{'eacl_pdh'}")
if !&can('rw', \%access, $h, 1);
}
if ($type) {
&drop_dhcpd_acl($type, \%access, $to_del);
}
&save_directive($par, [ $to_del ], [ ], 0);
&flush_file_lines();
&unlock_all_files();
if ($to_del->{'name'} eq "group") {
@count = &find("host", $group->{'members'});
&webmin_log('delete', 'group', join(",", map { $_->{'values'}->[0] } @count), \%in);
}
elsif ($to_del->{'name'} eq "subnet") {
&webmin_log('delete', 'subnet', "$sub->{'values'}->[0]/$sub->{'values'}->[2]", \%in);
}
elsif ($to_del->{'name'} eq "shared") {
&webmin_log('delete', 'shared', $sha->{'values'}->[0], \%in);
}
&redirect("");