summaryrefslogtreecommitdiffstats
path: root/.ikiwiki
diff options
context:
space:
mode:
Diffstat (limited to '.ikiwiki')
-rwxr-xr-x.ikiwiki/IkiWiki/Plugin/pandoc.pm28
1 files changed, 15 insertions, 13 deletions
diff --git a/.ikiwiki/IkiWiki/Plugin/pandoc.pm b/.ikiwiki/IkiWiki/Plugin/pandoc.pm
index b208b9a..4a7eb31 100755
--- a/.ikiwiki/IkiWiki/Plugin/pandoc.pm
+++ b/.ikiwiki/IkiWiki/Plugin/pandoc.pm
@@ -419,17 +419,14 @@ sub htmlize ($@) {
$fnm = sprintf "%s.%.1d.%s", $fnm_pfx, $m++, "params";
open($fh, '>', $fnm) or die "Could not";
$Data::Dumper::Indent = 2;
- print $fh Dumper(%params), "\n";
+ print $fh Data::Dumper->Dump([\%params], ["params"]), "\n";
close $fh;
# END
# DEBUG Print half way pagestate pagestate
$fnm = sprintf "%s.%.1d.%s", $fnm_pfx, $m++, "early-pagestate";
open($fh, '>>', $fnm);
- my %pagestate_dumper = (
- $page => $pagestate{$page},
- );
- print $fh Data::Dumper->Dump([\%pagestate_dumper], [qw("pagestate")]), "\n";
+ print $fh Data::Dumper->Dump([$pagestate{$page}], ['pagestate']), "\n";
close $fh;
# END
@@ -714,10 +711,7 @@ sub htmlize ($@) {
# DEBUG Print pagestate again
$fnm = sprintf "%s.%.1d.%s", $fnm_pfx, $m++, "return-pagestate";
open($fh, '>>', $fnm);
- %pagestate_dumper = (
- $page => $pagestate{$page},
- );
- print $fh Data::Dumper->Dump([\%pagestate_dumper], [qw("pagestate")]), "\n";
+ print $fh Data::Dumper->Dump([$pagestate{$page}], ['pagestate']), "\n";
close $fh;
# END
@@ -758,11 +752,19 @@ sub pagetemplate (@) {
# DEBUG Print pagetemplate data
my $fnm_pfx = debug_get_filename_prefix ("pagetemplate", $page);
my $m = 0;
- my $fnm = sprintf "%s.%s.%.1d.%s", $fnm_pfx, $filenamebase, $m++, "data";
+ my $fnm = sprintf "%s.%s.%.1d.%s", $fnm_pfx, $filenamebase, $m++, "template";
open($fh, '>', $fnm) or die "Could not";
- my @keys = keys $template->%*;
- print $fh Data::Dumper->Dump([$template], [qw(teplate)]), "\n";
- # print $fh Data::Dumper->Dump([%params], [qw(params)]), "\n";
+ print $fh Data::Dumper->Dump([$template->{'mtime'}], ["mtime"]), "\n";
+ print $fh Data::Dumper->Dump([$template->{'options'}], ['options']), "\n";
+ print $fh Data::Dumper->Dump(
+ [$template->{'param_map'}], ['param_map']), "\n";
+ print $fh Data::Dumper->Dump(
+ [$template->{'parse_stack'}], ['parse_stack']),"\n";
+ close $fh;
+
+ $fnm = sprintf "%s.%s.%.1d.%s", $fnm_pfx, $filenamebase, $m++, "output";
+ open($fh, '>', $fnm) or die "Could not";
+ print $fh $template->output();
close $fh;
# END