/usr/share/doc/libhtml-mason-perl-doc/examples/masontest.html is in libhtml-mason-perl-doc 1:1.52-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | %# -- start test component-- you should not see this line output
<html>
<head>
<title>Mason test</title>
</head>
<body>
<h1> Mason test </h1>
% if ($r->auth_type) {
<p> Hello, "<% $r->connection->user %>" (<% $r->auth_name %>) </p>
% }
% for my $t (@$myvar) {
<p> <% $t %> </p>
% }
<hr>
<p> This test compoent accessed <%$counter%> times so far </p>
<address> <%$r->server->server_hostname%>:<%$r->server->port%> </address>
</body>
</html>
<%init>
my $myvar = ["hello world", "welcome to the test mason component"];
# No, this is not a good example of how to implement a counter.
my $counter = $m->cache->get("counter");
if (!$counter) {
$m->cache->set("counter", $counter = 1, "1h");
}
else {
$m->cache->set("counter", ++$counter, "1h");
}
</%init>
%# -- end test component-- you should not see this line output
|