AnonSec Shell
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 :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ HOME ]     

Current File : /www/server/pure-ftpd/sbin/pure-config.pl
#! /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: $!";


Anon7 - 2022
AnonSec Team