diff options
| -rwxr-xr-x | .ikiwiki/IkiWiki/Plugin/pandoc.pm | 28 |
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 |