<!--
=head1 NAME
dump_vars.wmk - dump all WebMake variables and content items
=head1 LOADING
< use plugin="dump_vars" />
=head1 CONTENT ITEMS
$ {DumpVars_names}
$ {DumpVars_full}
=head1 DESCRIPTION
Some debugging help. If you include this file in your WebMake file, it will
define these content items:
=over 4
=item $ {DumpVars_names}
This content contains a list of the names of all content items defined.
=item $ {DumpVars_full}
This content contains a dump of all content items defined, including their
names and their values. It excludes $ {DumpVars_full} and
$ {DumpVars_names}.
=back
=cut
<wmmeta name="Title" value="dump_vars.wmk" />
<wmmeta name="Abstract" value="dump all WebMake variables and content items" />
-->
<!-- we use the make_safe() function from this. -->
<include file="${WebMake.PerlLib}/safe_tag.wmk" />
<!-- ----------------------------------------------------------------- -->
<content name=DumpVars_names>
<{perl
$_ = '<ol>';
my @names = content_matching ("*");
foreach my $name (sort @names) {
$_ .= "<li>Content: <strong>\"$name\"</strong>".
"</li>\n";
}
$_ .= '</ol>';
$_;
}>
</content>
<!-- ----------------------------------------------------------------- -->
<content name=DumpVars_full>
<{perl
$_ = '<ol>';
my @names = content_matching ("*");
foreach my $name (sort @names) {
next if ($name =~ /DumpVars_/);
$_ .= "<li>Content: <strong>\"$name\"</strong><br />".
"<blockquote>\n".
make_safe (get_content($name))."\n".
"</blockquote></li><hr />\n";
}
$_ .= '</ol>';
$_;
}>
</content>
<!-- ----------------------------------------------------------------- -->