Linux vps-4302913.novaexata.com.br 3.10.0-1160.119.1.el7.tuxcare.els19.x86_64 #1 SMP Mon Mar 31 17:29:00 UTC 2025 x86_64
Apache
: 162.214.88.42 | : 216.73.216.99
166 Domain
7.3.33
wwnova
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
lib /
rpm /
[ HOME SHELL ]
Name
Size
Permission
Action
fileattrs
[ DIR ]
drwxr-xr-x
macros.d
[ DIR ]
drwxr-xr-x
platform
[ DIR ]
drwxr-xr-x
redhat
[ DIR ]
drwxr-xr-x
appdata.prov
333
B
-rwxr-xr-x
brp-compress
1.41
KB
-rwxr-xr-x
brp-java-gcjcompile
1.38
KB
-rwxr-xr-x
brp-python-bytecompile
2.96
KB
-rwxr-xr-x
brp-python-hardlink
658
B
-rwxr-xr-x
brp-scl-compress
1.77
KB
-rwxr-xr-x
brp-scl-python-bytecompile
3.04
KB
-rwxr-xr-x
brp-strip
509
B
-rwxr-xr-x
brp-strip-comment-note
741
B
-rwxr-xr-x
brp-strip-shared
706
B
-rwxr-xr-x
brp-strip-static-archive
411
B
-rwxr-xr-x
check-buildroot
1.21
KB
-rwxr-xr-x
check-files
1.02
KB
-rwxr-xr-x
check-prereqs
418
B
-rwxr-xr-x
check-rpaths
1.01
KB
-rwxr-xr-x
check-rpaths-worker
4.93
KB
-rwxr-xr-x
config.guess
44.24
KB
-rwxr-xr-x
config.sub
34.62
KB
-rwxr-xr-x
debugedit
33.01
KB
-rwxr-xr-x
desktop-file.prov
602
B
-rwxr-xr-x
elfdeps
15.31
KB
-rwxr-xr-x
find-debuginfo.sh
14.42
KB
-rwxr-xr-x
find-lang.sh
5.77
KB
-rwxr-xr-x
find-provides
1.52
KB
-rwxr-xr-x
find-requires
3.43
KB
-rwxr-xr-x
fontconfig.prov
489
B
-rwxr-xr-x
kabi.sh
428
B
-rwxr-xr-x
libtooldeps.sh
718
B
-rwxr-xr-x
macros
37.33
KB
-rw-r--r--
macros.perl
473
B
-rw-r--r--
macros.php
192
B
-rw-r--r--
macros.python
906
B
-rw-r--r--
mkinstalldirs
3.41
KB
-rwxr-xr-x
mono-find-provides
1.08
KB
-rwxr-xr-x
mono-find-requires
1.87
KB
-rwxr-xr-x
ocaml-find-provides.sh
1.62
KB
-rwxr-xr-x
ocaml-find-requires.sh
2.08
KB
-rwxr-xr-x
osgideps.pl
10.33
KB
-rwxr-xr-x
perl.prov
5.72
KB
-rwxr-xr-x
perl.req
11.48
KB
-rwxr-xr-x
perldeps.pl
32.13
KB
-rw-r--r--
pkgconfigdeps.sh
1.25
KB
-rwxr-xr-x
pythondeps.sh
875
B
-rwxr-xr-x
rpm.daily
296
B
-rw-r--r--
rpm.log
61
B
-rw-r--r--
rpm.supp
688
B
-rw-r--r--
rpm2cpio.sh
1.3
KB
-rwxr-xr-x
rpmdb_dump
15.33
KB
-rwxr-xr-x
rpmdb_load
27.51
KB
-rwxr-xr-x
rpmdb_loadcvt
1.43
KB
-rwxr-xr-x
rpmdb_recover
11.33
KB
-rwxr-xr-x
rpmdb_stat
15.26
KB
-rwxr-xr-x
rpmdb_upgrade
11.23
KB
-rwxr-xr-x
rpmdb_verify
11.25
KB
-rwxr-xr-x
rpmdeps
11.52
KB
-rwxr-xr-x
rpmpopt-4.11.3
9.51
KB
-rw-r--r--
rpmrc
15.01
KB
-rw-r--r--
scldeps.sh
179
B
-rwxr-xr-x
script.req
322
B
-rwxr-xr-x
sepdebugcrcfix
15.24
KB
-rwxr-xr-x
tcl.req
2.02
KB
-rwxr-xr-x
tgpg
929
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : tcl.req
#!/usr/bin/perl # tcl.req - a simple makedepends like script for tcl. # I plan to rewrite this in C so that perl is not required by RPM at # build time. # by Ken Estes Mail.com kestes@staff.mail.com use File::Basename; if ("@ARGV") { foreach (@ARGV) { process_file($_); } } else { # notice we are passed a list of filenames NOT as common in unix the # contents of the file. foreach (<>) { process_file($_); } } foreach $module (sort keys %require) { print "tcl($module)\n"; } exit 0; sub process_file { my ($file) = @_; chomp $file; open(FILE, "<$file")|| die("$0: Could not open file: '$file' : $!\n"); while (<FILE>) { # Each keyword can appear multiple times. Don't # bother with datastructures to store these strings, # if we need to print it print it now. if ( m/^\s*\$RPM_Requires\s*=\s*["'](.*)['"]/i) { foreach $_ (spit(/\s+/, $1)) { print "$_\n"; } } s/\#.*//; # Each keyword can appear multiple times. Don't # bother with datastructures to store these strings, # if we need to print it print it now. if ( m/^\s*\$RPM_Requires\s*=\s*["'](.*)['"]/i) { foreach $_ (spit(/\s+/, $1)) print "$_\n"; } # we wish to capture these source statements: # source "$PATH/lib/util.tcl" # source "comconf.tcl" # if {[catch {source $env(CONTROL_PANEL_LIB_DIR)/bindings.tcl}] != 0} { # quick check to see if the complex regexps could possibly match. # This should speed things up. (m/source/) || next; # note we include parethesis and '$' and '\' in the pattern if ( (m!source\s+([\'\"])?([0-9A-Za-z/._\-\\\(\)\$]+)!) ) { my ($module) = $2; # If there is some interpolation of variables, # see if taking the basename will give us the filename. ($module =~ m/\$/) && ($module = basename($module)); ($module =~ m/\$/) || ($require{$module}=1); } } close(FILE)|| die("$0: Could not close file: '$file' : $!\n"); return ; }
Close
