!C99Shell v.2.1 [PHP 7 Update] [1.12.2019]!

Software: Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips PHP/5.4.16. PHP/5.4.16 

uname -a: Linux roko-bkp 3.10.0-1160.102.1.el7.x86_64 #1 SMP Tue Oct 17 15:42:21 UTC 2023 x86_64 

uid=48(apache) gid=48(apache) groups=48(apache),1003(webmaster) 

Safe-mode: OFF (not secure)

/usr/share/doc/perl-Error-0.17020/examples/   drwxr-xr-x
Free 9.17 GB of 93.48 GB (9.81%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     example.pl (719 B)      -rw-r--r--
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |

use lib '.';
use Error qw(:try);

@Error::Bad::ISA = qw(Error);

$Error::Debug = 1; # turn on verbose stacktrace

sub abc {
    try {
    try {
        throw Error::Simple("a simple error");
    }
    catch Error::Simple with {
        my $err = shift;
        throw Error::Bad(-text => "some text");
    }
    except {
        return {
        Error::Simple => sub { warn "simple" }
        }
    }
    otherwise {
        1;
    } finally {
        warn "finally\n";
    };
    }
    catch Error::Bad with {
    1;
    };
}

sub def {
    unlink("not such file") or
    record Error::Simple("unlink: $!", $!) and return;
    1;
}

abc();


$x = prior Error;

print "--\n",$x->stacktrace;

unless(defined def()) {
    $x = prior Error 'main';
    print "--\n",0+$x,"\n",$x;
}

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 
:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c99shell v.2.1 [PHP 7 Update] [1.12.2019] maintained by KaizenLouie and updated by cermmik | C99Shell Github (MySQL update) | Generation time: 0.0047 ]--