Server IP : 185.86.78.101 / Your IP : 216.73.216.124 Web Server : Apache System : Linux 675867-vds-valikoshka1996.gmhost.pp.ua 5.4.0-150-generic #167-Ubuntu SMP Mon May 15 17:35:05 UTC 2023 x86_64 User : www ( 1000) PHP Version : 7.4.33 Disable Function : passthru,exec,system,putenv,chroot,chgrp,chown,shell_exec,popen,proc_open,pcntl_exec,ini_alter,ini_restore,dl,openlog,syslog,readlink,symlink,popepassthru,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_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,imap_open,apache_setenv MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : OFF Directory : /www/server/pure-ftpd/sbin/ |
Upload File : |
#! /usr/bin/perl # (C) 2001-2013 Aristotle Pagaltzis # derived from code (C) 2001-2002 Frank Denis and Matthias Andree use strict; my ($conffile, @flg) = @ARGV; my $PUREFTPD; -x && ($PUREFTPD=$_, last) for qw( ${exec_prefix}/sbin/pure-ftpd /www/server/pure-ftpd/sbin/pure-ftpd /www/server/pureftpd/sbin/pure-ftpd /www/server/sbin/pure-ftpd /usr/sbin/pure-ftpd ); my %simple_switch_for = ( IPV4Only => "-4", IPV6Only => "-6", ChrootEveryone => "-A", BrokenClientsCompatibility => "-b", Daemonize => "-B", VerboseLog => "-d", DisplayDotFiles => "-D", AnonymousOnly => "-e", NoAnonymous => "-E", DontResolve => "-H", AnonymousCanCreateDirs => "-M", NATmode => "-N", CallUploadScript => "-o", AntiWarez => "-s", AllowUserFXP => "-w", AllowAnonymousFXP => "-W", ProhibitDotFilesWrite => "-x", ProhibitDotFilesRead => "-X", AllowDotFiles => "-z", AutoRename => "-r", AnonymousCantUpload => "-i", LogPID => "-1", NoChmod => "-R", KeepAllFiles => "-K", CreateHomeDir => "-j", NoRename => "-G", CustomerProof => "-Z", NoTruncate => "-0", ); my %string_switch_for = ( FileSystemCharset => "-8", ClientCharset => "-9", SyslogFacility => "-f", FortunesFile => "-F", ForcePassiveIP => "-P", Bind => "-S", AnonymousBandwidth => "-t", UserBandwidth => "-T", TrustedIP => "-V", AltLog => "-O", PIDFile => "-g", TLSCipherSuite => "-J", CertFile => "-2", ); my %numeric_switch_for = ( MaxIdleTime => "-I", MaxDiskUsage => "-k", TrustedGID => "-a", MaxClientsNumber => "-c", MaxClientsPerIP => "-C", MaxLoad => "-m", MinUID => "-u", TLS => "-Y", ); my %numpairb_switch_for = ( LimitRecursion => "-L", PassivePortRange => "-p", AnonymousRatio => "-q", UserRatio => "-Q", ); my %numpairc_switch_for = ( Umask => "-U", Quota => "-n", PerUserLimits => "-y", ); my %auth_method_for = ( LDAPConfigFile => "ldap", MySQLConfigFile => "mysql", PGSQLConfigFile => "pgsql", PureDB => "puredb", ExtAuth => "extauth", ); my $simple_switch = qr/(@{[join "|", keys %simple_switch_for ]})\s+yes/i; my $string_switch = qr/(@{[join "|", keys %string_switch_for ]})\s+(\S+)/i; my $numeric_switch = qr/(@{[join "|", keys %numeric_switch_for ]})\s+(\d+)/i; my $numpairb_switch = qr/(@{[join "|", keys %numpairb_switch_for ]})\s+(\d+)\s+(\d+)/i; my $numpairc_switch = qr/(@{[join "|", keys %numpairc_switch_for ]})\s+(\d+):(\d+)/i; my $auth_method = qr/(@{[join "|", keys %auth_method_for ]})\s+(\S+)/i; die "Usage: pure-config.pl <configuration file> [extra options]\n" unless defined $conffile; open CONF, "< $conffile" or die "Can't open $conffile: $!\n"; !/^\s*(?:$|#)/ and (chomp, push @flg, /$simple_switch/i ? ($simple_switch_for{$1}) : /$string_switch/i ? ($string_switch_for{$1} . $2) : /$numeric_switch/i ? ($numeric_switch_for{$1} . $2) : /$numpairb_switch/i ? ($numpairb_switch_for{$1} . "$2:$3") : /$numpairc_switch/i ? ($numpairc_switch_for{$1} . "$2:$3") : /$auth_method/i ? ("-l" . "$auth_method_for{$1}:$2") : /UnixAuthentication\s+yes/i ? ("-l" . "unix") : /PAMAuthentication\s+yes/i ? ("-l" . "pam") : () ) while <CONF>; close CONF; if (-t STDOUT) { print "Running: $PUREFTPD ", join(" ", @flg), "\n"; } exec { $PUREFTPD } ($PUREFTPD, @flg) or die "cannot exec $PUREFTPD: $!";