Linux web0273.sh.tyo1 4.18.0-553.141.2.lve.el7h.x86_64 #1 SMP Wed Jul 8 17:20:31 UTC 2026 x86_64
Apache
: 127.0.0.1 | : 216.73.216.151
Cant Read [ /etc/named.conf ]
8.3.31
r2745769
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
lib64 /
perl5 /
vendor_perl /
Tk /
[ HOME SHELL ]
Name
Size
Permission
Action
DragDrop
[ DIR ]
drwxr-xr-x
Event
[ DIR ]
drwxr-xr-x
Menu
[ DIR ]
drwxr-xr-x
TableMatrix
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
pTk
[ DIR ]
drwxr-xr-x
804delta.pod
2.65
KB
-rw-r--r--
Adjuster.pm
10.91
KB
-rw-r--r--
Adjuster.pod
6.92
KB
-rw-r--r--
After.pm
1.9
KB
-rw-r--r--
Animation.pm
4.91
KB
-rw-r--r--
Animation.pod
2.84
KB
-rw-r--r--
Balloon.pm
20.7
KB
-rw-r--r--
Balloon.pod
9.96
KB
-rw-r--r--
Bitmap.pm
225
B
-rw-r--r--
Bitmap.pod
2.88
KB
-rw-r--r--
BrowseEntry.pm
13.32
KB
-rw-r--r--
BrowseEntry.pod
5.07
KB
-rw-r--r--
Button.pm
5.95
KB
-rw-r--r--
Button.pod
7.62
KB
-rw-r--r--
Camel.xpm
1.3
KB
-rw-r--r--
Canvas.pm
28.22
KB
-rw-r--r--
Canvas.pod
86.71
KB
-rw-r--r--
Checkbutton.pm
997
B
-rw-r--r--
Checkbutton.pod
11.08
KB
-rw-r--r--
Clipboard.pm
1.83
KB
-rw-r--r--
Clipboard.pod
2.83
KB
-rw-r--r--
CmdLine.pm
15.82
KB
-rw-r--r--
CmdLine.pod
14.12
KB
-rw-r--r--
ColorEdit.xpm
2.62
KB
-rw-r--r--
ColorEditor.pm
22.8
KB
-rw-r--r--
ColorEditor.pod
3.67
KB
-rw-r--r--
Common.pod
266
B
-rw-r--r--
Compound.pm
712
B
-rw-r--r--
Compound.pod
8.61
KB
-rw-r--r--
Config.pm
414
B
-rw-r--r--
ConfigSpecs.pod
7.94
KB
-rw-r--r--
Configure.pm
1.21
KB
-rw-r--r--
Credits
149
B
-rw-r--r--
DItem.pod
11.98
KB
-rw-r--r--
Derived.pm
11.83
KB
-rw-r--r--
Derived.pod
2.2
KB
-rw-r--r--
Dialog.pm
1.66
KB
-rw-r--r--
Dialog.pod
2.82
KB
-rw-r--r--
DialogBox.pm
4.54
KB
-rw-r--r--
DialogBox.pod
4.39
KB
-rw-r--r--
DirTree.pm
6.47
KB
-rw-r--r--
DirTree.pod
4.14
KB
-rw-r--r--
Dirlist.pm
1.89
KB
-rw-r--r--
DragDrop.pm
7.18
KB
-rw-r--r--
DropSite.pm
4.96
KB
-rw-r--r--
DropSite.pod
641
B
-rw-r--r--
DummyEncode.pm
729
B
-rw-r--r--
English.pm
9.63
KB
-rw-r--r--
Entry.pm
15.56
KB
-rw-r--r--
Entry.pod
22.23
KB
-rw-r--r--
Error.pod
4.98
KB
-rw-r--r--
ErrorDialog.pm
3.39
KB
-rw-r--r--
Event.pm
458
B
-rw-r--r--
Eventloop.pod
1.18
KB
-rw-r--r--
FBox.pm
29.84
KB
-rw-r--r--
FBox.pod
1.59
KB
-rw-r--r--
FileSelect.pm
14.76
KB
-rw-r--r--
FileSelect.pod
4.44
KB
-rw-r--r--
FloatEntry.pm
1.99
KB
-rw-r--r--
Font.pm
2.8
KB
-rw-r--r--
Font.pod
15.2
KB
-rw-r--r--
Frame.pm
7.99
KB
-rw-r--r--
Frame.pod
3.99
KB
-rw-r--r--
HList.pm
13.34
KB
-rw-r--r--
HList.pod
35.38
KB
-rw-r--r--
IO.pm
2.97
KB
-rw-r--r--
IO.pod
1.21
KB
-rw-r--r--
IconList.pm
19.2
KB
-rw-r--r--
IconList.pod
1.36
KB
-rw-r--r--
Image.pm
1.48
KB
-rw-r--r--
Image.pod
4.07
KB
-rw-r--r--
InputO.pm
275
B
-rw-r--r--
InputO.pod
1.27
KB
-rw-r--r--
Internals.pod
5.62
KB
-rw-r--r--
ItemStyle.pm
703
B
-rw-r--r--
JPEG.pm
926
B
-rw-r--r--
LabEntry.pm
773
B
-rw-r--r--
LabFrame.pm
3.47
KB
-rw-r--r--
LabFrame.pod
2.34
KB
-rw-r--r--
LabRadio.pm
1.6
KB
-rw-r--r--
Label.pm
386
B
-rw-r--r--
Label.pod
3.57
KB
-rw-r--r--
Labelframe.pm
292
B
-rw-r--r--
Labelframe.pod
5.87
KB
-rw-r--r--
Listbox.pm
22.07
KB
-rw-r--r--
Listbox.pod
26.01
KB
-rw-r--r--
MMtry.pm
1.61
KB
-rw-r--r--
MMutil.pm
13.13
KB
-rw-r--r--
MainWindow.pm
5.6
KB
-rw-r--r--
MainWindow.pod
2.2
KB
-rw-r--r--
MakeDepend.pm
5.52
KB
-rw-r--r--
Menu.pm
29.71
KB
-rw-r--r--
Menu.pod
32.08
KB
-rw-r--r--
Menubar.pm
382
B
-rw-r--r--
Menubutton.pm
10.66
KB
-rw-r--r--
Menubutton.pod
8.16
KB
-rw-r--r--
Message.pm
419
B
-rw-r--r--
Message.pod
5.13
KB
-rw-r--r--
MsgBox.pm
18.05
KB
-rw-r--r--
MsgBox.pod
1.48
KB
-rw-r--r--
Mwm.pm
311
B
-rw-r--r--
Mwm.pod
3.28
KB
-rw-r--r--
NBFrame.pm
368
B
-rw-r--r--
NoteBook.pm
10.27
KB
-rw-r--r--
NoteBook.pod
5.75
KB
-rw-r--r--
Optionmenu.pm
2.9
KB
-rw-r--r--
Optionmenu.pod
1.94
KB
-rw-r--r--
PNG.pm
726
B
-rw-r--r--
Pane.pm
12.9
KB
-rw-r--r--
Panedwindow.pm
5.03
KB
-rw-r--r--
Panedwindow.pod
10.56
KB
-rw-r--r--
Photo.pm
415
B
-rw-r--r--
Photo.pod
18.08
KB
-rw-r--r--
Pixmap.pm
266
B
-rw-r--r--
Pixmap.pod
1.81
KB
-rw-r--r--
Popup.pod
3.07
KB
-rw-r--r--
Pretty.pm
1.74
KB
-rw-r--r--
ProgressBar.pm
11.52
KB
-rw-r--r--
README.Adjust
3.28
KB
-rw-r--r--
ROText.pm
1.06
KB
-rw-r--r--
ROText.pod
725
B
-rw-r--r--
Radiobutton.pm
1.03
KB
-rw-r--r--
Radiobutton.pod
10.69
KB
-rw-r--r--
Region.pm
2.95
KB
-rw-r--r--
Reindex.pm
5.19
KB
-rw-r--r--
ReindexedROText.pm
255
B
-rw-r--r--
ReindexedText.pm
245
B
-rw-r--r--
Scale.pm
6.68
KB
-rw-r--r--
Scale.pod
10.05
KB
-rw-r--r--
Scrollbar.pm
9.97
KB
-rw-r--r--
Scrollbar.pod
13.71
KB
-rw-r--r--
Scrolled.pod
1.86
KB
-rw-r--r--
Spinbox.pm
2.26
KB
-rw-r--r--
Spinbox.pod
25.74
KB
-rw-r--r--
Stats.pm
407
B
-rw-r--r--
Submethods.pm
744
B
-rw-r--r--
Submethods.pod
662
B
-rw-r--r--
SunConst.pod
405
B
-rw-r--r--
TList.pm
7.1
KB
-rw-r--r--
TList.pod
18.48
KB
-rw-r--r--
Table.pm
11.69
KB
-rw-r--r--
Table.pod
2.41
KB
-rw-r--r--
TableMatrix.pm
26.1
KB
-rw-r--r--
TableMatrix.pod
56.32
KB
-rw-r--r--
Tcl-perl.pod
5.16
KB
-rw-r--r--
Text.pm
43.07
KB
-rw-r--r--
Text.pod
79.41
KB
-rw-r--r--
TextEdit.pm
14.06
KB
-rw-r--r--
TextList.pm
25.78
KB
-rw-r--r--
TextUndo.pm
24.76
KB
-rw-r--r--
TextUndo.pod
1.59
KB
-rw-r--r--
Tiler.pm
4.07
KB
-rw-r--r--
Tiler.pod
689
B
-rw-r--r--
TixGrid.pm
28.23
KB
-rw-r--r--
TixGrid.pod
15.77
KB
-rw-r--r--
Tk.xbm
3.07
KB
-rw-r--r--
Tk.xpm
1.29
KB
-rw-r--r--
TkXSUB.def
3.09
KB
-rw-r--r--
Toplevel.pm
5.15
KB
-rw-r--r--
Toplevel.pod
5.66
KB
-rw-r--r--
Trace.pm
12.21
KB
-rw-r--r--
Tree.pm
5.9
KB
-rw-r--r--
Tree.pod
7.87
KB
-rw-r--r--
UserGuide.pod
19.43
KB
-rw-r--r--
Widget.pm
42.71
KB
-rw-r--r--
Widget.pod
25.06
KB
-rw-r--r--
WidgetDemo.pod
1.7
KB
-rw-r--r--
WinPhoto.pm
1.28
KB
-rw-r--r--
Wm.pm
3.75
KB
-rw-r--r--
Wm.pod
29.5
KB
-rw-r--r--
X.pm
5.73
KB
-rw-r--r--
X.pod
5.37
KB
-rw-r--r--
X11Font.pm
3.04
KB
-rw-r--r--
X11Font.pod
1.6
KB
-rw-r--r--
Xcamel.gif
4.09
KB
-rw-r--r--
Xlib.pm
276
B
-rw-r--r--
Xrm.pm
121
B
-rw-r--r--
Xrm.pod
1.06
KB
-rw-r--r--
act_folder.xbm
227
B
-rw-r--r--
act_folder.xpm
438
B
-rw-r--r--
after.pod
6
KB
-rw-r--r--
anim.gif
2.47
KB
-rw-r--r--
arrowdownwin.xbm
234
B
-rw-r--r--
balArrow.xbm
123
B
-rw-r--r--
bind.pod
21.88
KB
-rw-r--r--
bindtags.pod
4.09
KB
-rw-r--r--
callbacks.pod
2.91
KB
-rw-r--r--
cbxarrow.xbm
263
B
-rw-r--r--
chooseColor.pod
1.81
KB
-rw-r--r--
chooseDirectory.pod
2.79
KB
-rw-r--r--
composite.pod
5.01
KB
-rw-r--r--
event.pod
14.93
KB
-rw-r--r--
exit.pod
974
B
-rw-r--r--
file.xbm
233
B
-rw-r--r--
file.xpm
298
B
-rw-r--r--
fileevent.pod
4.61
KB
-rw-r--r--
focus.pod
6.22
KB
-rw-r--r--
folder.xbm
215
B
-rw-r--r--
folder.xpm
414
B
-rw-r--r--
form.pod
13.05
KB
-rw-r--r--
getOpenFile.pod
6.86
KB
-rw-r--r--
grab.pod
4.86
KB
-rw-r--r--
grid.pod
16.43
KB
-rw-r--r--
icon.gif
1.88
KB
-rw-r--r--
install.pm
764
B
-rw-r--r--
license.terms
1.75
KB
-rw-r--r--
mega.pod
10.61
KB
-rw-r--r--
messageBox.pod
1.89
KB
-rw-r--r--
openfile.xbm
245
B
-rw-r--r--
openfolder.xbm
227
B
-rw-r--r--
openfolder.xpm
418
B
-rw-r--r--
option.pod
8.4
KB
-rw-r--r--
options.pod
24.28
KB
-rw-r--r--
overview.pod
4.55
KB
-rw-r--r--
pTk.pod
16.81
KB
-rw-r--r--
pack.pod
10.31
KB
-rw-r--r--
palette.pod
3.3
KB
-rw-r--r--
place.pod
10.46
KB
-rw-r--r--
prolog.ps
9.32
KB
-rw-r--r--
selection.pod
6.79
KB
-rw-r--r--
send.pod
4.35
KB
-rw-r--r--
srcfile.xpm
302
B
-rw-r--r--
textfile.xpm
310
B
-rw-r--r--
tixWm.pod
1.95
KB
-rw-r--r--
tkGlue.def
2.38
KB
-rw-r--r--
tkGlue.h
2.34
KB
-rw-r--r--
tkGlue.m
1.46
KB
-rw-r--r--
tkGlue.t
2.3
KB
-rw-r--r--
tkGlue_f.h
341
B
-rw-r--r--
tkvars.pod
3.52
KB
-rw-r--r--
tranicon.gif
1.68
KB
-rw-r--r--
typemap
1.61
KB
-rw-r--r--
vtab.def
4.04
KB
-rw-r--r--
widgets.pm
309
B
-rw-r--r--
widgets.pod
286
B
-rw-r--r--
win.xbm
284
B
-rw-r--r--
winfolder.xpm
719
B
-rw-r--r--
wintext.xpm
743
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : MakeDepend.pm
package Tk::MakeDepend; use strict; use vars qw(%define); use Config; my @include; use Carp; $SIG{__DIE__} = \&Carp::confess; use vars qw($VERSION); #$VERSION = sprintf '4.%03d', q$Revision: #13 $ =~ /\D(\d+)\s*$/; $VERSION = '4.014'; sub scan_file; sub do_include { my ($inc,$dep,@include) = @_; foreach my $dir (@include) { my $path = "$dir/$inc"; if (-f $path) { scan_file($path,$dep) unless exists $dep->{$path}; return; } } warn "Cannot find '$inc' assume made\n"; $dep->{$inc} = 1; } sub remove_comment { s#^\s*/\*.*?\*/\s*##g; } sub term { remove_comment(); return !term() if s/^\s*!//; return exists($define{$1}) if s/^\s*defined\s*\(([_A-Za-z][_\w]*)\s*\)//; return exists($define{$1}) if s/^\s*defined\s*([_A-Za-z][_\w]*)//; return eval "$1" if s/^\s*(0x[0-9a-f]+)L?//i; return $1 if s/^\s*(\d+)L?//; return $define{$1} || 0 if s/^\s*([_A-Za-z][_\w]*)//; if (s/^\s*\(//) { my $val = expression(0); warn "Missing ')'\n" unless s/^\s*\)//; return $val; } warn "Invalid term:$_"; return undef; } my %pri = ( '&&' => 4, '||' => 3, '>=' => 2, '<=' => 2, '<' => 2, '>' => 2, '==' => 1, '!=' => 1 ); sub expression { my $pri = shift; # printf STDERR "%d# expr . $_\n"; my $invert = 0; my $lhs = term() || 0; remove_comment(); while (/^\s*(&&|\|\||>=?|<=?|==|!=)/) { my $op = $1; last unless ($pri{$op} >= $pri); s/^\s*\Q$op\E//; # printf STDERR "%d# $lhs $op . $_\n"; my $rhs = expression($pri{$op}) || 0; my $e = "$lhs $op $rhs"; $lhs = eval "$e" || 0; die "'$e' $@" if $@; remove_comment(); } return $lhs; } sub do_if { my ($key,$expr) = @_; chomp($expr); if ($key eq 'ifdef' || $key eq 'ifndef') { if ($expr =~ /^\s*(\w+)/) { my $val = exists $define{$1}; $val = !$val if ($key eq 'ifndef'); # printf STDERR "%d from $key $expr\n",$val; return $val; } } else { local $_ = $expr; my $val = expression(0) != 0; warn "trailing: $_" if /\S/; #printf STDERR "%d from $key $expr\n",$val; return $val; } } sub scan_file { no strict 'refs'; my ($file,$dep) = @_; open($file,"<$file") || die "Cannot open $file:$!"; local $_; my ($srcdir) = $file =~ m#^(.*)[\\/][^\\/]*$#; $srcdir = '.' unless defined $srcdir; my $live = 1; $dep->{$file} = 1; my @stack; while (<$file>) { $_ .= <$file> while (s/\\\n/ /); if (/^\s*#\s*(\w+)\s*(.*?)\s*$/) { my $ol = $live; my $key = $1; my $rest = $2; if ($key =~ /^if(.*)$/) { push(@stack,$live); $live &&= do_if($key,$rest); } elsif ($key eq 'elif') { $live = ($live) ? 0 : $stack[-1]; $live &&= do_if('if',$rest); } elsif ($key eq 'else') { $live = ($live) ? 0 : $stack[-1]; } elsif ($key eq 'endif') { if (@stack) { $live = pop(@stack); } else { die "$file:$.: Mismatched #endif\n"; } } elsif ($live) { if ($key eq 'include') { do_include($1,$dep,$srcdir,@include) if $rest =~ /^"(.*)"/; } elsif ($key eq 'define') { if ($rest =~ /^\s*([_A-Za-z][\w_]*)\s*(.*)$/) { my $sym = $1; my $val = $2 || 1; $val =~ s#\s*/\*.*?\*/\s*# #g; $define{$sym} = $val; } else { warn "ignore '$key $rest'\n"; } } elsif ($key eq 'undef') { if ($rest =~ /^\s*([_A-Za-z][\w_]*)/) { delete $define{$1}; } } elsif ($key =~ /^(line|pragma)$/) { } else { warn "ignore '$key $rest'\n"; } } # printf STDERR "$file:$.: %d $key $rest\n",$live if ($ol != $live); } else { # print if $live; } } close($file); if (@stack) { warn "$file:$.: unclosed #if\n"; } } sub command_line { @include = (); local %define = ('__STDC__' => 1 ); my $data = ''; my @files; while (@_ && $_[-1] !~ /^-/) { unshift(@files,pop(@_)); } my $flags = $Config{ccflags}; $flags =~ s/^\s+|\s+$//g; my @opt = (@_, split(/\s+/,$flags)); while (@opt) { local $_ = shift(@opt); if (/^-I(.*)$/) { push @include,$1; } elsif (/^-D([^=]+)(?:=(.*))?$/) { $define{$1} = $2 || 1; } elsif (/^-U(.*)$/) { delete $define{$1}; } elsif (/^(-.*)$/) { # Some option if ($opt[0] !~ /^-/) { # next arg does not start with '-' assume it # belongs to this option and discard it silently shift(@opt); } } else { # We got confused warn "Ignoring $1\n"; } } # force /usr/include to be last element of @include push @include, $Config{'usrinc'} if (defined $Config{'usrinc'} and $Config{'usrinc'} ne ''); # warn "Include:@include\n"; while (@files) { local $_ = shift(@files); unless (/^(.*)\.[^\.]+$/) { warn "Skip $_"; next; } local %define = %define; my $base = $1; my $file = $_; my %dep; warn "Finding dependencies for $file\n"; scan_file($_,\%dep); my $str = "\n$base\$(OBJ_EXT) : $base.c"; delete $dep{$file}; my @dep = (sort(keys %dep)); while (@dep) { my $dep = shift(@dep); $dep =~ s#^\./##; if (length($str)+length($dep) > 70) { $data .= "$str \\\n"; $str = ' '; } else { $str .= ' '; } $str .= $dep; } $data .= "$str\n"; } return $data; } 1; __END__
Close
