Home Files
Adminer
Execute Command
PHP Eval
Symlink
File Upload
Owner :
www-data
PHP Version
5.6.40-0+deb8u12
Disk Space
40.99 GB
Server Addr
19-www4
Your IP
10.10.10.40
Edit File
File:
#!/usr/bin/perl # Delete several mail aliases require './sendmail-lib.pl'; require './aliases-lib.pl'; &ReadParse(); &error_setup($text{'adelete_err'}); $access{'amode'} > 0 || &error($text{'asave_ecannot2'}); $conf = &get_sendmailcf(); $afile = &aliases_file($conf); # Find and validate @d = split(/\0/, $in{'d'}); @d || &error($text{'adelete_enone'}); @aliases = &list_aliases($afile); foreach $d (@d) { ($alias) = grep { $_->{'name'} eq $d } @aliases; if ($alias) { &can_edit_alias($alias) || &error(&text('adelete_ecannot', $d)); push(@delaliases, $alias); } } # Delete the aliases &lock_alias_files($afile); foreach $alias (@delaliases) { &delete_alias($alias); } &unlock_alias_files($afile); &webmin_log("delete", "aliases", scalar(@delaliases)); &redirect("list_aliases.cgi");