File Manager

003 File Manager

Current Path: /usr/local/bin

usr / local / bin /

📁 ..
📄 2to3-3.8(101 B)
📄 ab(50.54 KB)
📄 addftinfo(63.84 KB)
📄 afmtodit(161.91 KB)
📄 apr-1-config(6.77 KB)
📄 apu-1-config(6.17 KB)
📄 argon2(43.3 KB)
📄 bash(918.65 KB)
📄 bashbug(6.65 KB)
📄 chardetect(972 B)
📄 chardetect-3.8(972 B)
📄 chem(28.51 KB)
📄 corelist(15.02 KB)
📄 cpan(8.17 KB)
📄 curl(163.47 KB)
📄 curl-config(7.33 KB)
📄 curve_keygen(5.88 KB)
📁 db5
📄 db_archive-5(9.28 KB)
📄 db_archive-5.3(9.28 KB)
📄 db_checkpoint-5(10.94 KB)
📄 db_checkpoint-5.3(10.94 KB)
📄 db_deadlock-5(11.12 KB)
📄 db_deadlock-5.3(11.12 KB)
📄 db_dump-5(13.95 KB)
📄 db_dump-5.3(13.95 KB)
📄 db_dump185-5(8.61 KB)
📄 db_dump185-5.3(8.61 KB)
📄 db_hotbackup-5(14.74 KB)
📄 db_hotbackup-5.3(14.74 KB)
📄 db_load-5(25.35 KB)
📄 db_load-5.3(25.35 KB)
📄 db_log_verify-5(12.36 KB)
📄 db_log_verify-5.3(12.36 KB)
📄 db_printlog-5(31.88 KB)
📄 db_printlog-5.3(31.88 KB)
📄 db_recover-5(10.81 KB)
📄 db_recover-5.3(10.81 KB)
📄 db_replicate-5(11.78 KB)
📄 db_replicate-5.3(11.78 KB)
📄 db_stat-5(11.89 KB)
📄 db_stat-5.3(11.89 KB)
📄 db_tuner-5(17.47 KB)
📄 db_tuner-5.3(17.47 KB)
📄 db_upgrade-5(9.81 KB)
📄 db_upgrade-5.3(9.81 KB)
📄 db_verify-5(10.36 KB)
📄 db_verify-5.3(10.36 KB)
📄 dehydrated(80.89 KB)
📄 distro(961 B)
📄 distro-3.8(961 B)
📄 enc2xs(40.78 KB)
📄 encguess(3.01 KB)
📄 envsubst(35.84 KB)
📄 epsffit(11.11 KB)
📄 eqn(181.15 KB)
📄 eqn2graph(3.16 KB)
📄 event_rpcgen.py(53.66 KB)
📄 extractres(2.69 KB)
📄 fixdlsrps(1.53 KB)
📄 fixfmps(605 B)
📄 fixmacps(2.11 KB)
📄 fixpsditps(700 B)
📄 fixpspps(1.28 KB)
📄 fixscribeps(485 B)
📄 fixtpps(705 B)
📄 fixwfwps(863 B)
📄 fixwpps(738 B)
📄 fixwwps(433 B)
📄 ftpasswd(37.06 KB)
📄 ftpcount(46.63 KB)
📄 ftpdctl(328.72 KB)
📄 ftpmail(13.63 KB)
📄 ftpquota(32.21 KB)
📄 ftptop(65.33 KB)
📄 ftpwho(133.71 KB)
📄 gdbm_dump(19.02 KB)
📄 gdbm_load(22.2 KB)
📄 gdbmtool(115.9 KB)
📄 gdiffmk(7.51 KB)
📄 getafm(6.18 KB)
📄 gettext(36.32 KB)
📄 gettext.sh(5.07 KB)
📄 glilypond(18.01 KB)
📄 gperl(6.5 KB)
📄 gpinyin(5.03 KB)
📄 grap2graph(3.08 KB)
📄 grn(118.4 KB)
📄 grodvi(150.01 KB)
📄 groff(130.26 KB)
📄 groffer(8.06 KB)
📄 grog(2.73 KB)
📄 grolbp(149.57 KB)
📄 grolj4(144.72 KB)
📄 gropdf(70.41 KB)
📄 grops(192.28 KB)
📄 grotty(145.68 KB)
📄 h2ph(28.55 KB)
📄 h2xs(59.51 KB)
📄 hpftodit(158.4 KB)
📄 htdbm(18.69 KB)
📄 htdigest(10.75 KB)
📄 htpasswd(17.62 KB)
📄 httxt2dbm(10.3 KB)
📄 iconv(25.27 KB)
📄 idle3.8(99 B)
📄 includeres(1.44 KB)
📄 indexinfo(10.87 KB)
📄 indxbib(73.84 KB)
📄 innochecksum(3.44 MB)
📄 instmodsh(4.2 KB)
📄 json_pp(4.88 KB)
📄 ldapadd(67.1 KB)
📄 ldapcompare(56.88 KB)
📄 ldapdelete(58.27 KB)
📄 ldapexop(57.43 KB)
📄 ldapmodify(67.1 KB)
📄 ldapmodrdn(56.87 KB)
📄 ldappasswd(57.66 KB)
📄 ldapsearch(78.48 KB)
📄 ldapurl(18.74 KB)
📄 ldapwhoami(55.38 KB)
📄 libnetcfg(15.42 KB)
📄 lkbib(80.95 KB)
📄 logresolve(10.15 KB)
📄 lookbib(81.07 KB)
📄 lz4(68.09 KB)
📄 lz4_decompress(7.7 KB)
📄 lz4c(68.09 KB)
📄 lz4cat(68.09 KB)
📄 mmroff(3.75 KB)
📄 my_print_defaults(3.4 MB)
📄 myisam_ftdump(3.63 MB)
📄 myisamchk(3.73 MB)
📄 myisamlog(3.61 MB)
📄 myisampack(3.66 MB)
📄 mysql(3.66 MB)
📄 mysql_config(5.05 KB)
📄 mysql_config_editor(3.4 MB)
📄 mysql_install_db(4.96 MB)
📄 mysql_plugin(3.41 MB)
📄 mysql_secure_installation(3.56 MB)
📄 mysql_ssl_rsa_setup(3.44 MB)
📄 mysql_tzinfo_to_sql(3.37 MB)
📄 mysql_upgrade(4.16 MB)
📄 mysqladmin(3.56 MB)
📄 mysqlbinlog(3.78 MB)
📄 mysqlcheck(3.57 MB)
📄 mysqld_multi(26.39 KB)
📄 mysqld_safe(27.21 KB)
📄 mysqldump(3.63 MB)
📄 mysqldumpslow(7.67 KB)
📄 mysqlimport(3.55 MB)
📄 mysqlpump(3.92 MB)
📄 mysqlshow(3.55 MB)
📄 mysqlslap(3.57 MB)
📄 mysqltest(3.85 MB)
📄 mysqlxtest(4.2 MB)
📄 neqn(919 B)
📄 ngettext(35.89 KB)
📄 nroff(3.21 KB)
📄 paperconf(10.55 KB)
📄 pcre-config(2.31 KB)
📄 pcre2-config(2.13 KB)
📄 pcre2grep(46.03 KB)
📄 pcre2test(166.76 KB)
📄 pcregrep(35.81 KB)
📄 pcretest(103.81 KB)
📄 pdfmom(3.03 KB)
📄 pdfroff(20.96 KB)
📄 perl(7.41 KB)
📄 perl5.32.1(7.41 KB)
📄 perlbug(44.21 KB)
📄 perldoc(274 B)
📄 perlivp(10.58 KB)
📄 perlthanks(44.21 KB)
📄 perror(3.53 MB)
📄 pfbtops(53.68 KB)
📄 php(5.31 MB)
📄 php-cgi(5.24 MB)
📄 php-config(3.16 KB)
📄 phpize(4.42 KB)
📄 pic(231.69 KB)
📄 pic2graph(3.66 KB)
📄 piconv(8.17 KB)
📄 pl2pm(4.44 KB)
📄 pod2html(4.05 KB)
📄 pod2man(14.69 KB)
📄 pod2text(10.56 KB)
📄 pod2usage(3.86 KB)
📄 podchecker(3.58 KB)
📄 post-grohtml(247.92 KB)
📄 pre-grohtml(129.52 KB)
📄 preconv(78.54 KB)
📄 protoc(13.9 KB)
📄 prove(13.35 KB)
📄 prxs(9.25 KB)
📄 psbook(16.39 KB)
📄 psmerge(1.97 KB)
📄 psnup(24.64 KB)
📄 psresize(22.61 KB)
📄 psselect(17.91 KB)
📄 pstops(23.34 KB)
📄 ptar(3.48 KB)
📄 ptardiff(2.58 KB)
📄 ptargrep(4.3 KB)
📄 pybabel(960 B)
📄 pybabel-3.8(960 B)
📄 pydoc3.8(84 B)
📄 python3.8(5.13 KB)
📄 python3.8-config(3.09 KB)
📄 rbash(918.65 KB)
📄 refer(161.39 KB)
📄 replace(3.38 MB)
📄 resolve_stack_dump(3.4 MB)
📄 resolveip(3.4 MB)
📄 roff2dvi(5.58 KB)
📄 roff2html(5.58 KB)
📄 roff2pdf(5.58 KB)
📄 roff2ps(5.58 KB)
📄 roff2text(5.58 KB)
📄 roff2x(5.58 KB)
📄 salt(948 B)
📄 salt-api(956 B)
📄 salt-call(958 B)
📄 salt-cloud(960 B)
📄 salt-cp(954 B)
📄 salt-key(956 B)
📄 salt-master(962 B)
📄 salt-minion(962 B)
📄 salt-proxy(972 B)
📄 salt-run(956 B)
📄 salt-ssh(956 B)
📄 salt-syndic(962 B)
📄 salt-unity(960 B)
📄 screen(435.05 KB)
📄 setvhost.sh(3.05 KB)
📄 shasum(9.75 KB)
📄 showchar(2.51 KB)
📄 soelim(66.83 KB)
📄 splain(18.97 KB)
📄 spm(946 B)
📄 streamzip(5.4 KB)
📄 tbl(149.71 KB)
📄 tfmtodit(68.05 KB)
📄 troff(577.19 KB)
📄 uchardet(8.03 KB)
📄 unlz4(68.09 KB)
📄 xml2-config(1.79 KB)
📄 xmlcatalog(15.22 KB)
📄 xmllint(61.66 KB)
📄 xmlwf(31.56 KB)
📄 xsubpp(5.05 KB)
📄 zipdetails(50.05 KB)
📄 zlib_decompress(7.56 KB)

Editing: perlivp

#!/usr/local/bin/perl
    eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
        if $running_under_some_shell;

# perlivp v5.32.1

BEGIN { pop @INC if $INC[-1] eq '.' }

sub usage {
    warn "@_\n" if @_;
    print << "    EOUSAGE";
Usage:

$0 [-p] [-v] | [-h]

-p Print a preface before each test telling what it will test.
    -v Verbose mode in which extra information about test results
       is printed.  Test failures always print out some extra information
       regardless of whether or not this switch is set.
    -h Prints this help message.
    EOUSAGE
    exit;
}

use vars qw(%opt); # allow testing with older versions (do not use our)

@opt{ qw/? H h P p V v/ } = qw(0 0 0 0 0 0 0);

while ($ARGV[0] =~ /^-/) {
    $ARGV[0] =~ s/^-//; 
    for my $flag (split(//,$ARGV[0])) {
        usage() if '?' =~ /\Q$flag/;
        usage() if 'h' =~ /\Q$flag/;
        usage() if 'H' =~ /\Q$flag/;
        usage("unknown flag: '$flag'") unless 'HhPpVv' =~ /\Q$flag/;
        warn "$0: '$flag' flag already set\n" if $opt{$flag}++;
    } 
    shift;
}

$opt{p}++ if $opt{P};
$opt{v}++ if $opt{V};

my $pass__total = 0;
my $error_total = 0;
my $tests_total = 0;

my $perlpath = '/usr/local/bin/perl';
my $useithreads = 'define';

print "## Checking Perl binary via variable '\$perlpath' = $perlpath.\n" if $opt{'p'};

my $label = 'Executable perl binary';

if (-x $perlpath) {
    print "## Perl binary '$perlpath' appears executable.\n" if $opt{'v'};
    print "ok 1 $label\n";
    $pass__total++;
}
else {
    print "# Perl binary '$perlpath' does not appear executable.\n";
    print "not ok 1 $label\n";
    $error_total++;
}
$tests_total++;

print "## Checking Perl version via variable '\$]'.\n" if $opt{'p'};

my $ivp_VERSION = "5.032001";

$label = 'Perl version correct';
if ($ivp_VERSION eq $]) {
    print "## Perl version '$]' appears installed as expected.\n" if $opt{'v'};
    print "ok 2 $label\n";
    $pass__total++;
}
else {
    print "# Perl version '$]' installed, expected $ivp_VERSION.\n";
    print "not ok 2 $label\n";
    $error_total++;
}
$tests_total++;

# We have the right perl and version, so now reset @INC so we ignore
# PERL5LIB and '.'
{
    local $ENV{PERL5LIB};
    my $perl_V = qx($perlpath -V);
    $perl_V =~ s{.*\@INC:\n}{}ms;
    @INC = grep { length && $_ ne '.' } split ' ', $perl_V;
}

print "## Checking roots of the Perl library directory tree via variable '\@INC'.\n" if $opt{'p'};

my $INC_total = 0;
my $INC_there = 0;
foreach (@INC) {
    next if $_ eq '.'; # skip -d test here
    if (-d $_) {
        print "## Perl \@INC directory '$_' exists.\n" if $opt{'v'};
        $INC_there++;
    }
    else {
        print "# Perl \@INC directory '$_' does not appear to exist.\n";
    }
    $INC_total++;
}

$label = '@INC directories exist';
if ($INC_total == $INC_there) {
    print "ok 3 $label\n";
    $pass__total++;
}
else {
    print "not ok 3 $label\n";
    $error_total++;
}
$tests_total++;

print "## Checking installations of modules necessary for ivp.\n" if $opt{'p'};

my $needed_total = 0;
my $needed_there = 0;
foreach (qw(Config.pm ExtUtils/Installed.pm)) {
    $@ = undef;
    $needed_total++;
    eval "require \"$_\";";
    if (!$@) {
        print "## Module '$_' appears to be installed.\n" if $opt{'v'};
        $needed_there++;
    }
    else {
        print "# Needed module '$_' does not appear to be properly installed.\n";
    }
    $@ = undef;
}
$label = 'Modules needed for rest of perlivp exist';
if ($needed_total == $needed_there) {
    print "ok 4 $label\n";
    $pass__total++;
}
else {
    print "not ok 4 $label\n";
    $error_total++;
}
$tests_total++;

print "## Checking installations of extensions built with perl.\n" if $opt{'p'};

use Config;

my $extensions_total = 0;
my $extensions_there = 0;
if (defined($Config{'extensions'})) {
    my @extensions = split(/\s+/,$Config{'extensions'});
    foreach (@extensions) {
        next if ($_ eq '');
        if ( $useithreads !~ /define/i ) {
            next if ($_ eq 'threads');
            next if ($_ eq 'threads/shared');
        }
        # that's a distribution name, not a module name
        next if $_ eq 'IO/Compress';
        next if $_ eq 'Devel/DProf';
        next if $_ eq 'libnet';
        next if $_ eq 'Locale/Codes';
        next if $_ eq 'podlators';
        next if $_ eq 'perlfaq';
        # test modules
        next if $_ eq 'XS/APItest';
        next if $_ eq 'XS/Typemap';
           # VMS$ perl  -e "eval ""require \""Devel/DProf.pm\"";"" print $@"
           # \NT> perl  -e "eval \"require './Devel/DProf.pm'\"; print $@"
           # DProf: run perl with -d to use DProf.
           # Compilation failed in require at (eval 1) line 1.
        eval " require \"$_.pm\"; ";
        if (!$@) {
            print "## Module '$_' appears to be installed.\n" if $opt{'v'};
            $extensions_there++;
        }
        else {
            print "# Required module '$_' does not appear to be properly installed.\n";
            $@ = undef;
        }
        $extensions_total++;
    }

# A silly name for a module (that hopefully won't ever exist).
    # Note that this test serves more as a check of the validity of the
    # actual required module tests above.
    my $unnecessary = 'bLuRfle';

if (!grep(/$unnecessary/, @extensions)) {
        $@ = undef;
        eval " require \"$unnecessary.pm\"; ";
        if ($@) {
            print "## Unnecessary module '$unnecessary' does not appear to be installed.\n" if $opt{'v'};
        }
        else {
            print "# Unnecessary module '$unnecessary' appears to be installed.\n";
            $extensions_there++;
        }
    }
    $@ = undef;
}
$label = 'All (and only) expected extensions installed';
if ($extensions_total == $extensions_there) {
    print "ok 5 $label\n";
    $pass__total++;
}
else {
    print "not ok 5 $label\n";
    $error_total++;
}
$tests_total++;

print "## Checking installations of later additional extensions.\n" if $opt{'p'};

use ExtUtils::Installed;

my $installed_total = 0;
my $installed_there = 0;
my $version_check = 0;
my $installed = ExtUtils::Installed -> new();
my @modules = $installed -> modules();
my @missing = ();
my $version = undef;
for (@modules) {
    $installed_total++;
    # Consider it there if it contains one or more files,
    # and has zero missing files,
    # and has a defined version
    $version = undef;
    $version = $installed -> version($_);
    if ($version) {
        print "## $_; $version\n" if $opt{'v'};
        $version_check++;
    }
    else {
        print "# $_; NO VERSION\n" if $opt{'v'};
    }
    $version = undef;
    @missing = ();
    @missing = $installed -> validate($_);

# .bs files are optional
    @missing = grep { ! /\.bs$/ } @missing;
    # man files are often compressed
    @missing = grep { ! ( -s "$_.gz" || -s "$_.bz2" ) } @missing;

if ($#missing >= 0) {
        print "# file",+($#missing == 0) ? '' : 's'," missing from installation:\n";
        print '# ',join(' ',@missing),"\n";
    }
    elsif ($#missing == -1) {
        $installed_there++;
    }
    @missing = ();
}
$label = 'Module files correctly installed';
if (($installed_total == $installed_there) && 
    ($installed_total == $version_check)) {
    print "ok 6 $label\n";
    $pass__total++;
}
else {
    print "not ok 6 $label\n";
    $error_total++;
}
$tests_total++;

# Final report (rather than feed ousrselves to Test::Harness::runtests()
# we simply format some output on our own to keep things simple and
# easier to "fix" - at least for now.

if ($error_total == 0 && $tests_total) {
    print "All tests successful.\n";
} elsif ($tests_total==0){
        die "FAILED--no tests were run for some reason.\n";
} else {
    my $rate = 0.0;
    if ($tests_total > 0) { $rate = sprintf "%.2f", 100.0 * ($pass__total / $tests_total); }
    printf " %d/%d subtests failed, %.2f%% okay.\n",
                              $error_total, $tests_total, $rate;
}

=head1 NAME

perlivp - Perl Installation Verification Procedure

=head1 SYNOPSIS

B<perlivp> [B<-p>] [B<-v>] [B<-h>]

=head1 DESCRIPTION

The B<perlivp> program is set up at Perl source code build time to test the
Perl version it was built under.  It can be used after running:

make install

(or your platform's equivalent procedure) to verify that B<perl> and its
libraries have been installed correctly.  A correct installation is verified
by output that looks like:

ok 1
    ok 2

etc.

=head1 OPTIONS

=over 5

=item B<-h> help

Prints out a brief help message.

=item B<-p> print preface

Gives a description of each test prior to performing it.

=item B<-v> verbose

Gives more detailed information about each test, after it has been performed.
Note that any failed tests ought to print out some extra information whether
or not -v is thrown.

=back

=head1 DIAGNOSTICS

=over 4

=item * print "# Perl binary '$perlpath' does not appear executable.\n";

Likely to occur for a perl binary that was not properly installed.
Correct by conducting a proper installation.

=item * print "# Perl version '$]' installed, expected $ivp_VERSION.\n";

Likely to occur for a perl that was not properly installed.
Correct by conducting a proper installation.

=item * print "# Perl \@INC directory '$_' does not appear to exist.\n";

Likely to occur for a perl library tree that was not properly installed.
Correct by conducting a proper installation.

=item * print "# Needed module '$_' does not appear to be properly installed.\n";

One of the two modules that is used by perlivp was not present in the 
installation.  This is a serious error since it adversely affects perlivp's
ability to function.  You may be able to correct this by performing a
proper perl installation.

=item * print "# Required module '$_' does not appear to be properly installed.\n";

An attempt to C<eval "require $module"> failed, even though the list of 
extensions indicated that it should succeed.  Correct by conducting a proper 
installation.

=item * print "# Unnecessary module 'bLuRfle' appears to be installed.\n";

This test not coming out ok could indicate that you have in fact installed 
a bLuRfle.pm module or that the C<eval " require \"$module_name.pm\"; ">
test may give misleading results with your installation of perl.  If yours
is the latter case then please let the author know.

=item * print "# file",+($#missing == 0) ? '' : 's'," missing from installation:\n";

One or more files turned up missing according to a run of 
C<ExtUtils::Installed -E<gt> validate()> over your installation.
Correct by conducting a proper installation.

=back

For further information on how to conduct a proper installation consult the 
INSTALL file that comes with the perl source and the README file for your 
platform.

=head1 AUTHOR

Peter Prymmer

=cut

003 File Manager

Editing: perlivp

Upload File

Create Folder