Linux dpw.dpwebtech.com 3.10.0-1160.88.1.el7.x86_64 #1 SMP Tue Mar 7 15:41:52 UTC 2023 x86_64
Apache
: 192.232.243.69 | : 3.15.150.219
54 Domain
7.3.33
dpclient
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
/
.cpanplus /
5.16.3 /
build /
HTML-Tree-5.07 /
t /
[ HOME SHELL ]
Name
Size
Permission
Action
00-all_prereqs.t
2.71
KB
-rw-r--r--
00system.t
1007
B
-rw-r--r--
assubs.t
1.1
KB
-rw-r--r--
attributes.t
1.12
KB
-rw-r--r--
body.t
3.17
KB
-rw-r--r--
building.t
5.1
KB
-rw-r--r--
children.t
873
B
-rw-r--r--
clonei.t
516
B
-rw-r--r--
comment.t
417
B
-rw-r--r--
construct_tree.t
4.5
KB
-rw-r--r--
doctype.t
979
B
-rw-r--r--
escape.t
2.37
KB
-rw-r--r--
leaktest.t
5.66
KB
-rw-r--r--
oldparse.html
727
B
-rw-r--r--
oldparse.t
1.83
KB
-rw-r--r--
parents.t
2.57
KB
-rw-r--r--
parse.t
5.76
KB
-rw-r--r--
parsefile.t
1.87
KB
-rw-r--r--
refloop.t
2.05
KB
-rw-r--r--
sample.txt
37
B
-rw-r--r--
split.t
2.45
KB
-rw-r--r--
subclass.t
608
B
-rw-r--r--
tag-rendering.t
1.83
KB
-rw-r--r--
unicode.t
3.61
KB
-rw-r--r--
whitespace.t
983
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : doctype.t
#!/usr/bin/perl -T use warnings; use strict; use Test::More tests => 4; use HTML::TreeBuilder; my $html = <<'EOHTML'; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> </head> <body> blah blah </body> </html> EOHTML WITH_DECLARATION: { # Check default state my $tree = HTML::TreeBuilder->new; isa_ok( $tree, "HTML::TreeBuilder" ); $tree->parse($html); $tree->eof; my @lines = split( "\n", $tree->as_HTML( undef, " " ) ); like( $lines[0], qr/DOCTYPE/, "DOCTYPE is in the first line" ); } WITHOUT_DECLARATION: { my $tree = HTML::TreeBuilder->new; isa_ok( $tree, "HTML::TreeBuilder" ); $tree->store_declarations(0); $tree->parse($html); $tree->eof; my @lines = split( "\n", $tree->as_HTML( undef, " " ) ); unlike( $lines[0], qr/DOCTYPE/, "DOCTYPE is NOT in the first line" ); }
Close