| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/proftpd/ |
Upload File : |
#!/usr/bin/perl
# find_ftpaccess.cgi
# Finds all per-directory options files under the all the document roots
require './proftpd-lib.pl';
&ReadParse();
@rv = grep { -r $_ } @ftpaccess_files;
&error_setup($text{'find_err'});
if ($in{'from'}) {
# Look under the given directory
@dirs = ( $in{'dir'} );
}
else {
# Look in Anonymous sections
$conf = &get_config();
$anon = &find_directive("Anonymous", $conf);
push(@dirs, $anon) if ($anon);
foreach $v (&find_directive_struct("VirtualHost", $conf)) {
$anon = &find_directive("Anonymous", $v->{'members'});
push(@dirs, $anon) if ($anon);
}
&error($text{'find_eanon'}) if (!@dirs);
}
foreach $d (@dirs) {
if ($d =~ /^~(\S+)$/) {
local @u = getpwnam($1);
$d = $u[7];
next if (!$u[7]);
}
open(FIND, "find ".quotemeta($d)." -name .ftpaccess -print |");
while(<FIND>) {
s/\r|\n//g;
push(@rv, $_);
}
close(FIND);
}
# save results
$site{'ftpaccess'} = join(' ', &unique(@rv));
&write_file("$module_config_directory/site", \%site);
&redirect("ftpaccess.cgi");