Uname:Linux ip-10-0-5-176 6.8.0-1057-aws #60~22.04.1-Ubuntu SMP Wed May 27 08:16:59 UTC 2026 x86_64

403WebShell
403Webshell
Server IP : 3.111.61.48  /  Your IP : 216.73.216.67
Web Server : Apache
System : Linux ip-10-0-5-176 6.8.0-1057-aws #60~22.04.1-Ubuntu SMP Wed May 27 08:16:59 UTC 2026 x86_64
User : ubuntu ( 1000)
PHP Version : 8.2.31
Disable Function : exec,passthru,shell_exec,system
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /lib/blt2.5/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /lib/blt2.5/pkgIndex.tcl
# Tcl package index file, version 1.0

proc LoadBLT25 { version dir } {

    set prefix "lib"
    set suffix [info sharedlibextension]
    regsub {\.} $version {} version_no_dots
    set versuf $version$suffix

    # Determine whether to load the full BLT library or
    # the "lite" tcl-only version.
    
   if {[package vcompare [info tclversion] 8.2] < 0} {
        set taillib ${versuf}.8.0
    } elseif {[package vcompare [info tclversion] 8.3] < 0} {
        set taillib ${versuf}.8.2
    } elseif {[package vcompare [info tclversion] 8.4] < 0} {
        set taillib ${versuf}.8.3
    } elseif {[package vcompare [info tclversion] 8.5] < 0} {
        set taillib ${versuf}.8.4
    } elseif {[package vcompare [info tclversion] 8.6] < 0} {
        set taillib ${versuf}.8.5
    } else {
        set taillib ${versuf}.8.6
    }

    if { [info commands tk] == "tk" } {
        set name1 ${prefix}BLT.${taillib}
        set name2 ${prefix}BLT${version_no_dots}${suffix}
    } else {
        set name1 ${prefix}BLTlite.${taillib}
        set name2 ${prefix}BLTlite${version_no_dots}${suffix}
    }
    
    global tcl_platform
    foreach name [list $name1 $name2] {
        if { $tcl_platform(platform) == "unix" } {
	    set library [file join $dir $name]
	    if { ![file exists $library] } {
	        # Try the parent directory.
	        set library [file join [file dirname $dir] $name]
	    }
	    if { ![file exists $library] } {
	        # Default to the path generated at compilation.
	        set library [file join "/usr/lib" $name]
	    }
        } else {
	    set library $name
        }
	if { ![file exists $library] } continue
        load $library BLT
	break
    }
}

set version "2.5"
set patchlevel "2.5.3"

package ifneeded BLT $patchlevel [list LoadBLT25 $version $dir]

# End of package index file

Youez - 2016 - github.com/yon3zu
LinuXploit