From 8789cce4b995551405d701d8403a0cbc955dd82f Mon Sep 17 00:00:00 2001 From: Gustav Eek Date: Sat, 14 Dec 2019 15:01:48 +0100 Subject: In pandoc.pm update Debug printing to file --- .ikiwiki/IkiWiki/Plugin/pandoc.pm | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) (limited to '.ikiwiki/IkiWiki') 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 -- cgit v1.2.3