Store : Webshell.Store

Linux lhcp3406.webapps.net 3.10.0-962.3.2.lve1.5.82.el7.x86_64 #1 SMP Tue Oct 31 10:15:24 UTC 2023 x86_64

Apache

81.88.53.156 | Your IP: 216.73.216.127

Cant read [ /etc/named.conf ]

[ drwxr-xr-x ]

/ usr / lib64 / tcl8.5 / tclx8.4 /

Home Upload Info Server

Server Info

Operating System	:	Linux lhcp3406.webapps.net 3.10.0-962.3.2.lve1.5.82.el7.x86_64 #1 SMP Tue Oct 31 10:15:24 UTC 2023 x86_64
User / Group	:	1190[c43ut3hs] / 1192[c43ut3hs]
PHP Version	:	5.6.40
IP Server	:	81.88.53.156
Your IP	:	216.73.216.127
Storage	:	Total = 1.05 TB, Free = 314.33 GB [29%]
Domains	:	Cant read [ /etc/named.conf ]
Software	:	Apache
Disable Functions	:	All function is accessible
Useful Functions	:	gcc, lcc, cc, ld, make, php, perl, python, ruby, tar, gzip, bzip, bzialfa2, nc, locate, suidperl, git, docker, ssh
Downloader	:	wget, fetch, lynx, links, curl, get, lwp-mirror
CURL : ON \| SSH2 : OFF \| Magic Quotes : ON \| MySQL : ON \| MSSQL : OFF \| PostgreSQL : OFF \| Oracle : OFF
Safe Mode : OFF \| Open Basedir : NONE \| Safe Mode Exec Dir : NONE \| Safe Mode Include Dir : NONE

arrayprocs.tcl

#
# arrayprocs.tcl --
#
# Extended Tcl array procedures.
# 
#------------------------------------------------------------------------------
# Copyright 1992-1999 Karl Lehenbauer and Mark Diekhans.
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted, provided
# that the above copyright notice appear in all copies.  Karl Lehenbauer and
# Mark Diekhans make no representations about the suitability of this
# software for any purpose.  It is provided "as is" without express or
# implied warranty.
#------------------------------------------------------------------------------
# $Id: arrayprocs.tcl,v 1.2 2002/04/02 03:00:14 hobbs Exp $
#------------------------------------------------------------------------------
#

#@package: TclX-ArrayProcedures for_array_keys

proc for_array_keys {varName arrayName codeFragment} {
    upvar $varName enumVar $arrayName enumArray

if {![array exists enumArray]} {
	return -code error "\"$arrayName\" isn't an array"
    }

set code 0
    set result {}
    set searchId [array startsearch enumArray]
    while {[array anymore enumArray $searchId]} {
	set enumVar [array nextelement enumArray $searchId]
        set code [catch {uplevel 1 $codeFragment} result]
        if {$code != 0 && $code != 4} break
    }
    array donesearch enumArray $searchId

if {$code == 0 || $code == 3 || $code == 4} {
        return $result
    }
    if {$code == 1} {
        global errorCode errorInfo
        return -code $code -errorcode $errorCode -errorinfo $errorInfo $result
    }
    return -code $code $result
}

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	drwxr-xr-x	2019-07-25 07:38:24
..	dir	-	root/root	drwxr-xr-x	2019-07-25 07:38:24
arrayprocs.tcl	file	1.6 KB	root/root	-rw-r--r--	2002-04-02 03:00:14
autoload.tcl	file	2.22 KB	root/root	-rw-r--r--	2002-04-02 03:00:14
buildhelp.tcl	file	15.61 KB	root/root	-rw-r--r--	2005-03-25 07:32:48
compat.tcl	file	9.8 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
convlib.tcl	file	3.86 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
edprocs.tcl	file	1.95 KB	root/root	-rw-r--r--	2004-11-23 12:35:20
events.tcl	file	1.03 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
fmath.tcl	file	2.19 KB	root/root	-rw-r--r--	2002-04-02 03:00:14
forfile.tcl	file	1.4 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
globrecur.tcl	file	3.11 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
help.tcl	file	10.36 KB	root/root	-rw-r--r--	2004-11-23 05:54:15
libtclx8.4.so	file	155.52 KB	root/root	-rwxr-xr-x	2014-09-18 11:11:36
pkgIndex.tcl	file	77 B	root/root	-rw-r--r--	2014-09-18 11:11:35
profrep.tcl	file	5.1 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
pushd.tcl	file	1.83 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
setfuncs.tcl	file	2.92 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
showproc.tcl	file	1.46 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
stringfile.tcl	file	1.38 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
tcllib.tcl	file	4.32 KB	root/root	-rw-r--r--	2001-10-24 11:31:48
tclx.tcl	file	2.05 KB	root/root	-rw-r--r--	2005-11-21 06:37:58