https://t.me/RX1948
Server : Apache
System : Linux server.lienzindia.com 4.18.0-348.7.1.el8_5.x86_64 #1 SMP Wed Dec 22 13:25:12 UTC 2021 x86_64
User : plutus ( 1007)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/tic.ph
require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&__TIC_H)) {
    eval 'sub __TIC_H () {1;}' unless defined(&__TIC_H);
    if(defined(&__cplusplus)) {
    }
    require 'curses.ph';
    eval 'sub MAGIC () {0432;}' unless defined(&MAGIC);
    undef(&BYTE) if defined(&BYTE);
    eval 'sub BYTE {
        my($p,$n) = @_;
	    eval q((($p)[$n]));
    }' unless defined(&BYTE);
    eval 'sub IS_NEG1 {
        my($p) = @_;
	    eval q((( &BYTE($p,0) == 0377)  && ( &BYTE($p,1) == 0377)));
    }' unless defined(&IS_NEG1);
    eval 'sub IS_NEG2 {
        my($p) = @_;
	    eval q((( &BYTE($p,0) == 0376)  && ( &BYTE($p,1) == 0377)));
    }' unless defined(&IS_NEG2);
    eval 'sub LOW_MSB {
        my($p) = @_;
	    eval q(( &BYTE($p,0) + 256* &BYTE($p,1)));
    }' unless defined(&LOW_MSB);
    eval 'sub IS_TIC_MAGIC {
        my($p) = @_;
	    eval q(( &LOW_MSB($p) ==  &MAGIC));
    }' unless defined(&IS_TIC_MAGIC);
    eval 'sub MAX_NAME_SIZE () {512;}' unless defined(&MAX_NAME_SIZE);
    eval 'sub MAX_ENTRY_SIZE () {4096;}' unless defined(&MAX_ENTRY_SIZE);
    if((defined(&HAVE_LONG_FILE_NAMES) ? &HAVE_LONG_FILE_NAMES : undef)) {
	eval 'sub MAX_ALIAS () {32;}' unless defined(&MAX_ALIAS);
    } else {
	eval 'sub MAX_ALIAS () {14;}' unless defined(&MAX_ALIAS);
    }
    eval 'sub PRIVATE_INFO () {"%s/.terminfo";}' unless defined(&PRIVATE_INFO);
    eval 'sub MAX_DEBUG_LEVEL () {15;}' unless defined(&MAX_DEBUG_LEVEL);
    eval 'sub DEBUG_LEVEL {
        my($n) = @_;
	    eval q((($n) <<  &TRACE_SHIFT));
    }' unless defined(&DEBUG_LEVEL);
    eval 'sub set_trace_level {
        my($n) = @_;
	    eval q( &_nc_tracing &=  &DEBUG_LEVEL( &MAX_DEBUG_LEVEL),  &_nc_tracing |=  &DEBUG_LEVEL($n));
    }' unless defined(&set_trace_level);
    if(defined(&TRACE)) {
	eval 'sub DEBUG {
	    my($n, $a) = @_;
    	    eval q( &if ( &_nc_tracing >=  &DEBUG_LEVEL($n))  &_tracef $a);
	}' unless defined(&DEBUG);
    } else {
	eval 'sub DEBUG {
	    my($n, $a) = @_;
    	    eval q();
	}' unless defined(&DEBUG);
    }
    eval 'sub BOOLEAN () {0;}' unless defined(&BOOLEAN);
    eval 'sub NUMBER () {1;}' unless defined(&NUMBER);
    eval 'sub STRING () {2;}' unless defined(&STRING);
    eval 'sub CANCEL () {3;}' unless defined(&CANCEL);
    eval 'sub NAMES () {4;}' unless defined(&NAMES);
    eval 'sub UNDEF () {5;}' unless defined(&UNDEF);
    eval 'sub NO_PUSHBACK () {-1;}' unless defined(&NO_PUSHBACK);
    if((defined(&BROKEN_LINKER) ? &BROKEN_LINKER : undef)) {
	eval 'sub _nc_tinfo_fkeys () { &_nc_tinfo_fkeysf();}' unless defined(&_nc_tinfo_fkeys);
    } else {
    }
    eval 'sub NOTFOUND () {( 0);}' unless defined(&NOTFOUND);
    eval 'sub ABSENT_BOOLEAN () {(-1);}' unless defined(&ABSENT_BOOLEAN);
    eval 'sub ABSENT_NUMERIC () {(-1);}' unless defined(&ABSENT_NUMERIC);
    eval 'sub ABSENT_STRING () {0;}' unless defined(&ABSENT_STRING);
    eval 'sub CANCELLED_BOOLEAN () {(-2);}' unless defined(&CANCELLED_BOOLEAN);
    eval 'sub CANCELLED_NUMERIC () {(-2);}' unless defined(&CANCELLED_NUMERIC);
    eval 'sub CANCELLED_STRING () {(-1);}' unless defined(&CANCELLED_STRING);
    eval 'sub VALID_BOOLEAN {
        my($s) = @_;
	    eval q((($s) <= 1));
    }' unless defined(&VALID_BOOLEAN);
    eval 'sub VALID_NUMERIC {
        my($s) = @_;
	    eval q((($s) >= 0));
    }' unless defined(&VALID_NUMERIC);
    eval 'sub VALID_STRING {
        my($s) = @_;
	    eval q((($s) !=  &CANCELLED_STRING  && ($s) !=  &ABSENT_STRING));
    }' unless defined(&VALID_STRING);
    eval 'sub MAX_TERMCAP_LENGTH () {1023;}' unless defined(&MAX_TERMCAP_LENGTH);
    eval 'sub MAX_TERMINFO_LENGTH () {4096;}' unless defined(&MAX_TERMINFO_LENGTH);
    unless(defined(&TERMINFO)) {
	eval 'sub TERMINFO () {"/usr/share/terminfo";}' unless defined(&TERMINFO);
    }
    eval 'sub SYN_TERMINFO () {0;}' unless defined(&SYN_TERMINFO);
    eval 'sub SYN_TERMCAP () {1;}' unless defined(&SYN_TERMCAP);
    eval 'sub NUM_PARM () {9;}' unless defined(&NUM_PARM);
    eval("sub dbdTIC () { 0; }") unless defined(&dbdTIC);
    eval("sub dbdLAST () { 1; }") unless defined(&dbdLAST);
    if(defined(&__cplusplus)) {
    }
}
1;

https://t.me/RX1948 - 2025