MKDoc is a web site content management system that has been designed to make the creation of usable, accessible, semantically rich and valid web sites as easy as possible.
MKDoc provides different ways for the public to interact with and navigate between documents including a sitemap, search facility, Dublin Core RDF metadata for documents and printer versions of pages.
All management of an MKDoc web site, document creation, editing and organising is done via a standard web browser. This site has been created using MKDoc. The look of an MKDoc web site is controlled using templates.
Additional features of MKDoc are documented in the features section of this site.
Extensive help for users of MKDoc is available, explaining how to login, create and edit documents on an MKDoc website.
Try it
If you would like to play with MKDoc, you can sign up for an account on the testers site. If you would like to evaluate MKDoc on your own server please visit the MKDoc download site.
Buy it
Buy a hosted solution
Fully managed solutions, including domain name registration, email forwarding and template design, are available from WebArch.net.
Buy a MKDoc Server License
Once MKDoc is installed on to a server then it is possible to use the software to serve multiple discrete web sites. (Please check the basic server requirements on the MKDoc download site).
We offer 3 different licenses each of which includes email support and software upgrades for one year:
Single Web Site License - 800 Euros
10 Web Site License - 4000 Euros - installation included
CPU License (unlimited number of web sites) - 8000 Euros - installation included
If you wish to purchase a license please email solutions@mkdoc.com with your requirements.
msgid "you-are-user"
msgstr "You are user ${user}"
#- Removed msgids:
#
#- Added msgids:
# hello-this-is-a-test you-are-user "a search engine" menu-skip-nav en
# "Skip the navigation and jump straight to the page content [ Accesskey S ]"
#- Added msgids by merging file None:
#
Petal-2.25/t/data/PaxHeaders.604/eval.xml 0000644 0000000 0000000 00000000074 11714720667 014742 x ustar 00 30 atime=1398329060.024463568
30 ctime=1550088055.141412499
Petal-2.25/t/data/eval.xml 0000644 0001750 0000144 00000001061 11714720667 015515 0 ustar 00nine users 0000000 0000000
Hello
This is an eval test:
But this is going to work, however it still
should not appear in the final result because
it's within an eval that fails
$this/aint/gonna/work
Petal-2.25/t/data/PaxHeaders.604/metal_self_include.xml 0000644 0000000 0000000 00000000074 11714720667 017631 x ustar 00 30 atime=1398329060.056463568
30 ctime=1550088055.141412499
Petal-2.25/t/data/metal_self_include.xml 0000644 0001750 0000144 00000000147 11714720667 020410 0 ustar 00nine users 0000000 0000000 FooGlop
Petal-2.25/t/data/PaxHeaders.604/if.html 0000644 0000000 0000000 00000000074 11714720667 014555 x ustar 00 30 atime=1398329060.036463568
30 ctime=1550088055.141412499
Petal-2.25/t/data/if.html 0000644 0001750 0000144 00000000122 11714720667 015325 0 ustar 00nine users 0000000 0000000
1. A tag within an html tag property doesn't work, in some
cases. Works if there is no include tag above it. Does not work if
there is an include tag above it. ">Email
2. Two tags in a row will only show the first, or nothing at
all. I'm not sure why this format isn't working at all in this test
template. It does work in another of my templates. Perhaps it is
due to the error in the above tag. Commenting out the above tag
doesn't seem to make any difference, though. Do tags inside of
comments get executed?
3. Includes don't always work. Try moving one of the tags to the
top and see the results. Rather curious... If you move the footer
to the top, you'll see that it gets shown twice if you have 2
footer includes statements following it; if you remove the last one
just above the /body tag, you'll see the one after header isn't
working, but further ones do. There is apparently something in the
header.tmpl document which is causing Petal to not perform the next
includes. In fact, you can keep adding footer includes and get more
and more results as expected.
Petal-2.25/t/data/PaxHeaders.604/attribute_strip.html 0000644 0000000 0000000 00000000074 11714720667 017403 x ustar 00 30 atime=1398329059.988463569
30 ctime=1550088055.157412549
Petal-2.25/t/data/attribute_strip.html 0000644 0001750 0000144 00000000064 11714720667 020160 0 ustar 00nine users 0000000 0000000
Petal-2.25/t/data/PaxHeaders.604/oddeven.xml 0000644 0000000 0000000 00000000074 11714720667 015437 x ustar 00 30 atime=1398329060.064463568
30 ctime=1550088055.157412549
Petal-2.25/t/data/oddeven.xml 0000644 0001750 0000144 00000000437 11714720667 016220 0 ustar 00nine users 0000000 0000000
Odd itemEven item
Petal-2.25/t/data/PaxHeaders.604/delete_attribute.xml 0000644 0000000 0000000 00000000074 11714720667 017340 x ustar 00 30 atime=1398329060.004463569
30 ctime=1550088055.157412549
Petal-2.25/t/data/delete_attribute.xml 0000644 0001750 0000144 00000000170 11714720667 020113 0 ustar 00nine users 0000000 0000000
Petal-2.25/t/PaxHeaders.604/086_lang_include_diskcache.t 0000644 0000000 0000000 00000000074 11714720667 017564 x ustar 00 30 atime=1398329059.968463569
30 ctime=1550088055.137412486
Petal-2.25/t/086_lang_include_diskcache.t 0000644 0001750 0000144 00000002721 11714720667 020343 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
##############################################################################
# Tests the 'language' option (and 'lang' alias) to Petal->new.
# Uses t/data/language/*
#
# this is identical to t/052_Opt_language but with DISK_CACHE=1
use Test::More 'no_plan';
use warnings;
use lib 'lib';
use Petal;
use File::Spec;
$Petal::DISK_CACHE = 1;
$Petal::MEMORY_CACHE = 0;
my $data_dir = File::Spec->catdir('t', 'data');
my $file = 'language';
my @args = (
replace => 'Replacement Text',
content => 'Content Here',
attribute => 'An attribute',
elements => [ 'one', 'two' ],
);
# Try processing a template with a language and an include
my $template = new Petal (file => $file, base_dir => $data_dir, language => 'fr');
is($template->language, 'fr', 'correct language requested (fr)');
$@ = '';
$output = eval { $template->process(@args) };
ok(!$@, "template with language and includes successfully processed");
like($output, qr{^\s*
\s+
Bonjour,\sMonde\s\(fr\)\s+
}x, "output is correct");
# Same again but using 'lang' option alias
$template = new Petal (file => $file, base_dir => $data_dir, lang => 'fr-CA');
is($template->language, 'fr-CA', 'correct language requested (fr-CA)');
$@ = '';
$output = eval { $template->process(@args) };
ok(!$@, "template with lang and includes successfully processed");
like($output, qr{^\s*
\s+
Bonjour,\sMonde\s\(fr-CA\)\s+
}x, "output is correct");
Petal-2.25/t/PaxHeaders.604/005_If_Nested_Tag.t 0000644 0000000 0000000 00000000073 11714720667 015563 x ustar 00 29 atime=1398329059.86846357
30 ctime=1550088055.137412486
Petal-2.25/t/005_If_Nested_Tag.t 0000644 0001750 0000144 00000000613 11714720667 016341 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $template_file = 'if.xml';
my $template = new Petal ($template_file);
unlike ($template->process, qr/\/);
like ($template->process (error => 'Some error message'), qr/Some error message/);
Petal-2.25/t/PaxHeaders.604/041_Entities.t 0000644 0000000 0000000 00000000074 11714720667 014715 x ustar 00 30 atime=1398329059.932463569
30 ctime=1550088055.137412486
Petal-2.25/t/041_Entities.t 0000644 0001750 0000144 00000001413 11714720667 015471 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::DECODE_CHARSET = 'UTF-8';
$Petal::ENCODE_CHARSET = 'UTF-8';
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
$Petal::INPUT = 'XHTML';
$Petal::OUTPUT = 'XHTML';
ok (1);
if ($] > 5.007)
{
my $string = Petal->new ( 'entities.html' )->process();
my $copy = chr (169);
my $reg = chr (174);
my $nbsp = chr (160);
my $acirc = chr (194);
like ($string, qr/$copy/ => 'Copyright');
like ($string, qr/$reg/ => 'Registered');
like ($string, qr/$nbsp/ => 'Non-break space');
unlike ($string, qr/$acirc/ => 'A circumflex not present');
}
Petal-2.25/t/PaxHeaders.604/018_String_Count.t 0000644 0000000 0000000 00000000074 11714720667 015553 x ustar 00 30 atime=1398329059.896463569
30 ctime=1550088055.137412486
Petal-2.25/t/018_String_Count.t 0000644 0001750 0000144 00000001517 11714720667 016334 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
my $template_file = 'string_count.html';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
$Petal::BASE_DIR = 't/data';
my $template = new Petal ($template_file);
my $hash = {
error_message => "Kilroy was Here",
first_name => "William",
last_name => "McKee",
email => 'william@knowmad.com',
students => [ { student_id => '1',
first_name => 'William',
last_name => 'McKee',
email => 'william@knowmad.com',
},
{ student_id => '2',
first_name => 'Elizabeth',
last_name => 'McKee',
email => 'elizabeth@knowmad.com',
},
],
};
# warn $template->_code_with_line_numbers();
my $html = $template->process($hash);
like($html, '/1 - William/');
like($html, '/2 - Elizabeth/');
Petal-2.25/t/PaxHeaders.604/012_Prefix.t 0000644 0000000 0000000 00000000074 11714720667 014364 x ustar 00 30 atime=1398329059.888463569
30 ctime=1550088055.137412486
Petal-2.25/t/012_Prefix.t 0000644 0001750 0000144 00000000527 11714720667 015145 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $template = new Petal ('prefix.xml');
my $string = $template->process;
like ($string, qr//);
like ($string, qr/<\/some:stuff>/);
Petal-2.25/t/PaxHeaders.604/002_Set_Modifier.t 0000644 0000000 0000000 00000000073 11714720667 015476 x ustar 00 29 atime=1398329059.86446357
30 ctime=1550088055.137412486
Petal-2.25/t/002_Set_Modifier.t 0000644 0001750 0000144 00000000645 11714720667 016261 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/set_modifier';
$Petal::MEMORY_CACHE = 0;
$Petal::DISK_CACHE = 0;
my $petal = new Petal ('index.xml');
my $res = $petal->process (
title => '__TAG__',
settest => 'blah'
);
# test that we have __TAG__ twice
my @capture = ($res =~ /(__TAG__)/g);
is (scalar @capture,2);
1;
__END__
Petal-2.25/t/PaxHeaders.604/025_Omit_Tag.t 0000644 0000000 0000000 00000000074 11714720667 014636 x ustar 00 30 atime=1398329059.904463569
30 ctime=1550088055.137412486
Petal-2.25/t/025_Omit_Tag.t 0000644 0001750 0000144 00000001233 11714720667 015412 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
my $template_file = 'omit-tag.xml';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
$Petal::BASE_DIR = 't/data';
my $template = new Petal ($template_file);
my $string = $template->process();
like($string, '/This tag should not be omited/', "XML - XML preserve");
unlike($string, '/This tag should be omited/', "XML - XML omit");
$Petal::OUTPUT = "XHTML";
$string = $template->process();
like($string, '/This tag should not be omited/', "XML - XHTML preserve");
unlike($string, '/This tag should be omited/', "XML - XHTML omit");
1;
Petal-2.25/t/PaxHeaders.604/006_Split_Expression.t 0000644 0000000 0000000 00000000073 11714720667 016443 x ustar 00 29 atime=1398329059.87246357
30 ctime=1550088055.137412486
Petal-2.25/t/006_Split_Expression.t 0000644 0001750 0000144 00000000532 11714720667 017221 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $template_file = 'split_expression.xml';
my $template = new Petal ($template_file);
like ($template->process (foo => 1, bar => 1), qr/Hello/);
Petal-2.25/t/PaxHeaders.604/014_Interpolate.t 0000644 0000000 0000000 00000000074 11714720667 015417 x ustar 00 30 atime=1398329059.888463569
30 ctime=1550088055.137412486
Petal-2.25/t/014_Interpolate.t 0000644 0001750 0000144 00000000551 11714720667 016175 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $template = new Petal ('interpolate.xml');
my $string = $template->process ( first_name => 'Aurelia', last_name => 'Fernandez' );
unlike ($string, qr/\<\?/);
Petal-2.25/t/PaxHeaders.604/021_Canonical_Error.t 0000644 0000000 0000000 00000000074 11714720667 016167 x ustar 00 30 atime=1398329059.900463569
30 ctime=1550088055.137412486
Petal-2.25/t/021_Canonical_Error.t 0000644 0001750 0000144 00000001405 11714720667 016744 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
my $template_file = 'canonical_error.html';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
$Petal::BASE_DIR = 't/data';
my $template = new Petal ($template_file);
my $hash = {
error_message => "Kilroy was Here",
first_name => "William",
last_name => "McKee",
email => 'william@knowmad.com',
students => [
{
student_id => '1',
first_name => 'William',
last_name => 'McKee',
email => 'william@knowmad.com',
},
{
student_id => '2',
first_name => 'Elizabeth',
last_name => 'McKee',
email => 'elizabeth@knowmad.com',
},
],
};
eval { $template->process($hash) };
ok (!$@);
$Petal::OUTPUT = "HTML";
ok (!$@);
Petal-2.25/t/PaxHeaders.604/027_Eval.t 0000644 0000000 0000000 00000000074 11714720667 014024 x ustar 00 30 atime=1398329059.908463569
30 ctime=1550088055.141412499
Petal-2.25/t/027_Eval.t 0000644 0001750 0000144 00000001043 11714720667 014577 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$|=1;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $template_file = 'eval.xml';
my $template = new Petal ($template_file);
my $string = $template->process;
like( $string, qr/should\s+appear/, 'should appear (XML out)' );
like( $string, qr/booo/, 'booo (XML out)' );
unlike( $string, qr/should\s+not\s+appear/, 'should not appear (XML out)' );
__END__
Petal-2.25/t/PaxHeaders.604/054_Opt_cache.t 0000644 0000000 0000000 00000000074 11714720667 015022 x ustar 00 30 atime=1398329059.944463569
30 ctime=1550088055.141412499
Petal-2.25/t/054_Opt_cache.t 0000644 0001750 0000144 00000004633 11714720667 015605 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
##############################################################################
# Tests the 'disk_cache' and 'memory_cache' options to Petal->new.
#
use Test::More tests => 12;
use warnings;
use lib 'lib';
use Petal;
use File::Spec;
my $data_dir = File::Spec->catdir('t', 'data');
my $file = 'if.html';
# Confirm disk cache defaults to on
my $template = new Petal (file => $file, base_dir => $data_dir);
ok($template->disk_cache, "disk_cache defaults to on");
# Confirm option can disable it
$template = new Petal (file => $file, base_dir => $data_dir, disk_cache => 0);
ok(!$template->disk_cache, "disk_cache option turns it off");
# Confirm global can disable it
$Petal::DISK_CACHE = 0;
$template = new Petal (file => $file, base_dir => $data_dir);
ok(!$template->disk_cache, "\$Petal::DISK_CACHE turns it off");
# Confirm option can enable it
$template = new Petal (file => $file, base_dir => $data_dir, disk_cache => 1);
ok($template->disk_cache, "disk_cache option turns it on again");
# Confirm memory cache defaults to on
$template = new Petal (file => $file, base_dir => $data_dir);
ok($template->memory_cache, "memory_cache defaults to on");
# Confirm option can disable it
$template = new Petal (file => $file, base_dir => $data_dir, memory_cache => 0);
ok(!$template->memory_cache, "memory_cache option turns it off");
# Confirm global can disable it
$Petal::MEMORY_CACHE = 0;
$template = new Petal (file => $file, base_dir => $data_dir);
ok(!$template->memory_cache, "\$Petal::MEMORY_CACHE turns it off");
# Confirm option can enable it
$template = new Petal (file => $file, base_dir => $data_dir, memory_cache => 1);
ok($template->memory_cache, "memory_cache option turns it on again");
# Confirm cache_only defaults to off
$template = new Petal (file => $file, base_dir => $data_dir);
ok(!$template->cache_only, "cache_only defaults to off");
# Confirm option can enable it
$template = new Petal (file => $file, base_dir => $data_dir, cache_only => 1);
ok($template->cache_only, "cache_only option turns it on");
# Confirm global can enable it
$Petal::CACHE_ONLY = 1;
$template = new Petal (file => $file, base_dir => $data_dir);
ok($template->cache_only, "\$Petal::CACHE_ONLY turns it on");
# Confirm option can disable it
$template = new Petal (file => $file, base_dir => $data_dir, cache_only => 0);
ok(!$template->cache_only, "cache_only option turns it off again");
Petal-2.25/t/PaxHeaders.604/087_dollar_one.t 0000644 0000000 0000000 00000000074 11714720667 015261 x ustar 00 30 atime=1398329059.968463569
30 ctime=1550088055.141412499
Petal-2.25/t/087_dollar_one.t 0000644 0001750 0000144 00000000740 11714720667 016037 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
my $template = new Petal ('dollar-one.xml');
my $string = $template->process;
like ($string, qr|\$|);
like ($string, qr|\$\$|);
like ($string, qr|\$_|);
like ($string, qr||);
like ($string, qr||);
like ($string, qr|\$@|);
like ($string, qr|\$1|);
Petal-2.25/t/PaxHeaders.604/008_Quoted_Params.t 0000644 0000000 0000000 00000000073 11714720667 015677 x ustar 00 29 atime=1398329059.87246357
30 ctime=1550088055.141412499
Petal-2.25/t/008_Quoted_Params.t 0000644 0001750 0000144 00000000670 11714720667 016460 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
package Foo;
sub param { return $_[1] };
package main;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $template = new Petal ('quoted_params.xml');
my $cgi = bless {}, 'Foo';
eval {
my $string = $template->process ( cgi => $cgi );
};
ok(! (defined $@ and $@), "ran") || diag $@;
Petal-2.25/t/PaxHeaders.604/004_Misc_Tests.t 0000644 0000000 0000000 00000000073 11714720667 015204 x ustar 00 29 atime=1398329059.86846357
30 ctime=1550088055.141412499
Petal-2.25/t/004_Misc_Tests.t 0000644 0001750 0000144 00000001076 11714720667 015766 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/multiple_includes/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $template_file = 'test.tmpl';
my $template = new Petal ($template_file);
my $hash = {
first_name => "William",
last_name => "McKee",
last => "Boo",
email => 'william@knowmad.com',
};
like ($template->process ($hash), qr/william\@knowmad.com/);
unlike ($template->process ($hash), qr/Boo/);
unlike ($template->process ($hash), qr/McKee_opposite/);
Petal-2.25/t/PaxHeaders.604/001_Include.t 0000644 0000000 0000000 00000000073 11714720667 014507 x ustar 00 29 atime=1398329059.86046357
30 ctime=1550088055.141412499
Petal-2.25/t/001_Include.t 0000644 0001750 0000144 00000002371 11714720667 015270 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More tests => 8;
use Petal;
sub nowarnings {
$Petal::MEMORY_CACHE &&
$Petal::DISK_CACHE
};
$Petal::BASE_DIR = './t/data/include';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
my $petal = new Petal ('index.xml');
unlike(${$petal->_canonicalize()}, '/World""/', "canonicalise");
like($petal->process, '/__INCLUDED__/', "find marker");
unlike($petal->process, '/__INCLUDED__\s+<\/body>/', "find marker and tag");
like($petal->process, '/Hello, "World"/', "find hello");
{
$Petal::OUTPUT = "XML";
$petal = new Petal ('index_xinclude.xml');
like($petal->process, '/__INCLUDED__/', "MTB - XML find included");
$Petal::OUTPUT = "XHTML";
$petal = new Petal ('index_xinclude.xml');
like($petal->process, '/__INCLUDED__/', "MTB - XHTML find included");
}
$Petal::BASE_DIR = './t/data/include/deep';
eval {
$Petal::OUTPUT = "XML";
$petal = new Petal ('index.xml');
$petal->process;
};
like($@, '/Cannot go above base directory/', "correct error");
$Petal::BASE_DIR = './t/data/include';
{
$Petal::OUTPUT = "XML";
$petal = new Petal ('deep/index.xml');
like($petal->process, '/__INCLUDED__/', "deep find included");
}
1;
__END__
Petal-2.25/t/PaxHeaders.604/052_Opt_language.t 0000644 0000000 0000000 00000000074 11714720667 015540 x ustar 00 30 atime=1398329059.940463569
30 ctime=1550088055.141412499
Petal-2.25/t/052_Opt_language.t 0000644 0001750 0000144 00000003551 11714720667 016321 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
##############################################################################
# Tests the 'language' option (and 'lang' alias) to Petal->new.
# Uses t/data/language/*
#
use Test::More tests => 9;
use warnings;
use lib 'lib';
use Petal;
use File::Spec;
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
my $data_dir = File::Spec->catdir('t', 'data');
my $file = 'language';
my @args = (
replace => 'Replacement Text',
content => 'Content Here',
attribute => 'An attribute',
elements => [ 'one', 'two' ],
);
# Try processing a template with a language and an include
my $template = new Petal (file => $file, base_dir => $data_dir, language => 'fr');
is($template->language, 'fr', 'correct language requested (fr)');
$@ = '';
$output = eval { $template->process(@args) };
ok(!$@, "template with language and includes successfully processed");
like($output, qr{^\s*
\s+
Bonjour,\sMonde\s\(fr\)\s+
}x, "output is correct");
# Same again but using 'lang' option alias
$template = new Petal (file => $file, base_dir => $data_dir, lang => 'fr-CA');
is($template->language, 'fr-CA', 'correct language requested (fr-CA)');
$@ = '';
$output = eval { $template->process(@args) };
ok(!$@, "template with lang and includes successfully processed");
like($output, qr{^\s*
\s+
Bonjour,\sMonde\s\(fr-CA\)\s+
}x, "output is correct");
# Change default language and try requesting a non-existant language
$Petal::LANGUAGE = 'fr';
$template = new Petal (file => $file, base_dir => $data_dir, lang => 'zh');
is($template->language, 'zh', 'correct language requested (zh)');
$@ = '';
$output = eval { $template->process(@args) };
ok(!$@, "default language successfully used to select template");
like($output, qr{^\s*
\s+
Bonjour,\sMonde\s\(fr\)\s+
}x, "output is correct");
Petal-2.25/t/PaxHeaders.604/028_Infinite_Includes.t 0000644 0000000 0000000 00000000074 11714720667 016531 x ustar 00 30 atime=1398329059.908463569
30 ctime=1550088055.141412499
Petal-2.25/t/028_Infinite_Includes.t 0000644 0001750 0000144 00000000534 11714720667 017310 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
my $template_file = 'infinite_includes.xml';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
$Petal::BASE_DIR = 't/data';
my $template = new Petal ($template_file);
my $string = $template->process();
like ($string => qr/ERROR/);
Petal-2.25/t/PaxHeaders.604/026_Broken_Loop.t 0000644 0000000 0000000 00000000074 11714720667 015345 x ustar 00 30 atime=1398329059.904463569
30 ctime=1550088055.141412499
Petal-2.25/t/026_Broken_Loop.t 0000644 0001750 0000144 00000002233 11714720667 016122 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $data_dir = 't/data';
my $file = 'children.xml';
my $child1 = {
dir => 'ltr',
lang => 'en',
'xml:lang' => 'en',
uri => 'foo/',
direction => 'ltr',
title => 'Foo'
};
my $child2 = {
dir => 'ltr',
lang => 'en',
'xml:lang' => 'en',
uri => 'bar/',
direction => 'ltr',
title => 'Bar'
};
my $child3 = {
dir => 'ltr',
lang => 'en',
'xml:lang' => 'en',
uri => 'baz/',
direction => 'ltr',
title => 'Baz'
};
my @args = (
self => {
children => [ $child1, $child2, $child3 ]
}
);
my $template = new Petal (base_dir => $data_dir, file => $file);
my $result = $template->process (@args);
like ($result, qr/foo/ => 'contains foo');
like ($result, qr/bar/ => 'contains bar');
like ($result, qr/baz/ => 'contains baz');
like ($result, qr/Foo/ => 'contains Foo');
like ($result, qr/Bar/ => 'contains Bar');
like ($result, qr/Baz/ => 'contains Baz');
Petal-2.25/t/PaxHeaders.604/029_Test_NS_Attributes.t 0000644 0000000 0000000 00000000074 11714720667 016664 x ustar 00 30 atime=1398329059.908463569
30 ctime=1550088055.141412499
Petal-2.25/t/029_Test_NS_Attributes.t 0000644 0001750 0000144 00000004725 11714720667 017451 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
$Petal::BASE_DIR = './t/data/test_ns_attributes/';
my $template;
#####
$Petal::NS = "petal";
$template = new Petal('test_rightWayOfDoing.xml');
my $string = $template->process (baz_value => 'baz_value');
like ($string => qr/baz_value/);
#####
$Petal::NS = "petal";
$template = new Petal('test_ns_attributes1.xml');
$string = $template->process (
baz_value => 'Replaced baz',
buzz_value => 'Replaced buzz'
);
like ($string => qr/Replaced baz/);
like ($string => qr/Replaced buzz/);
#####
$template = new Petal('test_ns_attributes2.xml');
$string = $template->process(
baz_value => 'Replaced baz',
buzz_value => 'Replaced buzz'
);
like ($string => qr/Replaced baz/);
like ($string => qr/Replaced buzz/);
#####
$Petal::NS = "petal-temp";
$template = new Petal('test_ns_attributes3.xml');
$string = $template->process (
baz_value => 'Replaced baz',
buzz_value => 'Replaced buzz'
);
like ($string => qr/Replaced baz/);
like ($string => qr/Replaced buzz/);
#####
$Petal::NS = "petal_temp";
$Petal::NS_URI = "urn:pepsdesign.com:petal:temp";
$template = new Petal('test_ns_attributes4.xml');
$string = $template->process(baz_value => 'baz_value');
like ($string => qr/baz_value/);
#####
$Petal::NS = "petal-temp";
$Petal::NS_URI = "urn:pepsdesign.com:petal:temp";
$template = new Petal('test_ns_attributes5.xml');
$string = $template->process(baz_value => 'baz_value');
like ($string => qr/baz_value/);
# Replacing multiple attributes...
$Petal::NS = "petal_temp";
$Petal::NS_URI = "urn:pepsdesign.com:petal:temp";
$template = new Petal ('test_ns_attributes6.xml');
$string = $template->process (
baz_data => 'baz_value',
buzz_data => 'buzz_value',
quxx_data => 'quxx_value',
SC => ';'
);
like ($string => qr/baz_value/);
like ($string => qr/buzz_value/);
like ($string => qr/quxx_value/);
like ($string => qr/;/);
# Replacing multiple attributes...
$Petal::NS = "petal-temp";
$Petal::NS_URI = "urn:pepsdesign.com:petal:temp";
$template = new Petal('test_ns_attributes7.xml');
$string = $template->process (
baz_data => 'baz_value',
buzz_data => 'buzz_value',
quxx_data => 'quxx_value',
SC => ';'
);
like ($string => qr/baz_value/);
like ($string => qr/buzz_value/);
like ($string => qr/quxx_value/);
like ($string => qr/;/);
1;
__END__
Petal-2.25/t/PaxHeaders.604/055_Opt_maxinc.t 0000644 0000000 0000000 00000000074 11714720667 015237 x ustar 00 30 atime=1398329059.944463569
30 ctime=1550088055.141412499
Petal-2.25/t/055_Opt_maxinc.t 0000644 0001750 0000144 00000005065 11714720667 016022 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
##############################################################################
# Tests the 'max_includes' option to Petal->new.
#
use Test::More tests => 10;
use warnings;
use lib 'lib';
use Petal;
use File::Spec;
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
my $data_dir = File::Spec->catdir('t', 'data');
my $file = 'if.xml';
my @args = (
error => 'Altitude too low!',
);
# Confirm max_includes defaults to 30
my $template = new Petal (file => $file, base_dir => $data_dir);
is($template->max_includes, 30, "max_includes defaults to 30");
# Confirm option can change it
$template = new Petal (file => $file, base_dir => $data_dir, max_includes => 5);
is($template->max_includes, 5, "max_includes option changes it");
# Confirm global also changes it
$Petal::MAX_INCLUDES = 20;
$template = new Petal (file => $file, base_dir => $data_dir);
is($template->max_includes, 20, "\$Petal::MAX_INCLUDES changes it too");
# Confirm option can override changed global
$template = new Petal (file => $file, base_dir => $data_dir, max_includes => 0);
is($template->max_includes, 0, "max_includes option overrides changed global");
=cut
# Check the value passed to included templates
my $options = $template->include_opts;
my $ref = eval "my \$hashref = { $options }";
ok(!$@, "extracted params for included template");
is($ref->{max_includes}, -1, "correct value for max_includes option");
=cut
# Confirm that template with no includes is processed
$@ = '';
$output = eval {
$template->process(@args);
};
is($@, '', "template with no includes processed successfully");
like($output, qr{^\s*
\s*
Altitude\stoo\slow!\s*
}x, "output is correct");
# Process a template with includes
$data_dir = File::Spec->catdir('t', 'data', 'include');
$file = 'index_xinclude.xml';
@args = ();
$template = new Petal (file => $file, base_dir => $data_dir, max_includes => 1, input => 'XML', output => 'XML');
$@ = '';
$output = eval { $template->process(@args) };
ok(!$@, "Template with includes successfully processed");
like($output, qr{^\s*
\s+
\s+
__INCLUDED__
\s+
__INCLUDED__
\s+
\s+
\s+
}x, "Output is correct");
# Try again but with reduced max_includes setting
$template = new Petal (file => $file, base_dir => $data_dir, max_includes => 0,
input => 'XML', output => 'XML');
$@ = '';
$output = eval { $template->process(@args) };
ok(!$@, "Template with includes successfully processed");
like($output, qr{ERROR:\s+MAX_INCLUDES}x, "Output is correct");
Petal-2.25/t/PaxHeaders.604/017_Entities.t 0000644 0000000 0000000 00000000074 11714720667 014720 x ustar 00 30 atime=1398329059.892463569
30 ctime=1550088055.141412499
Petal-2.25/t/017_Entities.t 0000644 0001750 0000144 00000000457 11714720667 015503 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $template = new Petal ('entities.xml');
my $string = $template->process;
like ($string, qr/\<\;/);
Petal-2.25/t/PaxHeaders.604/050_Opt_base_dir.t 0000644 0000000 0000000 00000000074 11714720667 015523 x ustar 00 30 atime=1398329059.940463569
30 ctime=1550088055.141412499
Petal-2.25/t/050_Opt_base_dir.t 0000644 0001750 0000144 00000006322 11714720667 016303 0 ustar 00nine users 0000000 0000000 #!/usr/bin/perl
##############################################################################
# Tests the 'data_dir' option to Petal->new and related functionality.
# Uses t/data/namespaces.xml and t/data/include/index_xinclude.xml
#
use Test::More tests => 16;
use warnings;
use lib 'lib';
use Petal;
use File::Spec;
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
my $data_dir = File::Spec->catdir('t', 'data');
my $file = 'namespaces.xml';
my @args = (
replace => 'Replacement Text',
content => 'Content Here',
attribute => 'An attribute',
elements => [ 'one', 'two' ],
);
# Test template not found if path not specified
my $template = new Petal (file => $file);
is_deeply([ $template->base_dir ], [ '.' ],
"\@Petal::BASE_DIR is used as default base_dir");
$@ = '';
my $output = eval {
$template->process(@args);
};
ok($@, "Template not found (as expected)");
like($@, qr{
Cannot\sfind\snamespaces\.xml\sin
}x, "Error message is correct");
# Confirm $Petal::BASE_DIR used as default if defined
{
local($Petal::BASE_DIR) = 'dummy_dir';
$template = new Petal (file => $file);
ok (1);
# is_deeply([ $template->base_dir ], [ 'dummy_dir', '.' ],
# "\$Petal::BASE_DIR is in default base_dir");
$@ = '';
$output = eval {
$template->process(@args);
};
ok($@, "Template still not found (as expected)");
like($@, qr{
Cannot\sfind\snamespaces\.xml\sin
}x, "Error message is correct");
}
# Confirm base_dir option as arrayref works
$template = new Petal (file => $file, base_dir => ['dummy1', 'dummy2']);
is_deeply([ $template->base_dir ], [ 'dummy1', 'dummy2' ],
"base_dir option specified as arrayref works");
$@ = '';
$output = eval {
$template->process(@args);
};
ok($@, "Template still not found (as expected)");
like($@, qr{
Cannot\sfind\snamespaces\.xml\sin
}x, "Error message is correct");
# Confirm base_dir option as scalar works
$template = new Petal (file => $file, base_dir => 'dummy');
is_deeply([ $template->base_dir ], [ 'dummy' ],
"base_dir option specified as scalar works");
$@ = '';
$output = eval {
$template->process(@args);
};
ok($@, "Template still not found (as expected)");
like($@, qr{
Cannot\sfind\snamespaces\.xml\sin
}x, "Error message is correct");
# Now specify a valid base_dir option and process a template
$template = new Petal (file => $file, base_dir => $data_dir);
$@ = '';
$output = eval {
$template->process(@args);
};
ok(!$@, "Template was found");
like($output, qr{^\s*
\s+
Replacement\sText\s+
Content\sHere\s+
yo\s+
\s*
one
\s*
two
\s*
\s+
}x, "Output is correct");
# Try processing a template with an include (data_dir is required for included
# template too).
$data_dir = File::Spec->catdir('t', 'data', 'include');
$file = 'index_xinclude.xml';
$template = new Petal (file => $file, base_dir => $data_dir);
$@ = '';
$output = eval {
$template->process(@args);
};
ok(!$@, "Template with includes successfully processed");
like($output, qr{^\s*
