summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-x.ikiwiki/IkiWiki/Plugin/pandoc.pm24
1 files changed, 12 insertions, 12 deletions
diff --git a/.ikiwiki/IkiWiki/Plugin/pandoc.pm b/.ikiwiki/IkiWiki/Plugin/pandoc.pm
index adff519..dca28c5 100755
--- a/.ikiwiki/IkiWiki/Plugin/pandoc.pm
+++ b/.ikiwiki/IkiWiki/Plugin/pandoc.pm
@@ -72,7 +72,7 @@ sub debug_get_filename_prefix {
}
# DEBUG Print
-print "D: First file read.\n";
+print "D: pandoc: First file read.\n";
$fnm = debug_get_filename_prefix ("verify");
open($fh, '>', $fnm) or die "Could not";
print $fh "Hej du glade på fil\n";
@@ -84,7 +84,7 @@ close $fh;
sub import {
# DEBUG Print
- print "D: Run import.\n";
+ print "D: pandoc:import: Run.\n";
my $fnm_pfx = debug_get_filename_prefix ("import","");
my $fnm = $fnm_pfx;
open($fh, '>', $fnm) or die "Could not open $fnm .";
@@ -142,7 +142,7 @@ sub import {
sub getsetup () {
# DEBUG
- print "D: Run getsetup.\n";
+ print "D: pandoc:getsetup: Run.\n";
# END
return
@@ -430,7 +430,7 @@ sub htmlize ($@) {
my @args = ();
# DEBUG Print params
- print "D: Run htmlize for ", $page, "\n";
+ print "D: pandoc:htmlize: Run for ", $page, "\n";
my $fnm_pfx = debug_get_filename_prefix ("htmlize", $page);
my $m = 0;
$fnm = sprintf "%s.%.1d.%s", $fnm_pfx, $m++, "params";
@@ -547,7 +547,7 @@ sub htmlize ($@) {
}
# DEBUG Half way content which is plenty data
- print "D: Pandoc command: ", " ", $command, " ", '-f', " ",
+ print "D: pandoc:htmlize: Pandoc command: ", " ", $command, " ", '-f', " ",
$markdown_fmt, " ", '-t', " ", 'json', " ", @args,
"\n";
@@ -704,7 +704,7 @@ sub htmlize ($@) {
waitpid $to_html_pid, 0;
- print "D: Pandoc command: ", " ", $command, " ", '-f', " ",
+ print "D: pandoc:htmlize: Pandoc command: ", " ", $command, " ", '-f', " ",
'json', " ", '-t', $htmlformat, " ", @html_args, "\n";
$content = Encode::decode_utf8(join('', @html));
@@ -738,7 +738,7 @@ sub htmlize ($@) {
# END
# DEBUG
- print "D: Return htmlize.\n";
+ print "D: pandoc:htmlize: Return.\n";
# END
return $content;
@@ -755,7 +755,7 @@ sub pagetemplate (@) {
my $filename = $template->{'options'}{'filename'};
$filename =~ /^.*\/([a-z]*).tmpl$/;
my $filenamebase = $1;
- print "D: Run pagetemplate for $page and $filenamebase \n";
+ print "D: pandoc:pagetemplate: Run for $page and $filenamebase \n";
# END
foreach my $k (keys %{$pagestate{$page}{meta}}) {
@@ -793,7 +793,7 @@ sub pageactions {
my %args = @_;
my $page = $args{page};
- print "D: Run pageactions for ", $page, "\n";
+ print "D: pandoc:pageactions: Run for ", $page, "\n";
my @links = ();
return unless $pagestate{$page}{pandoc_extra_formats};
@@ -818,7 +818,7 @@ sub export_file {
my ($page, $ext, $json_content, $command, @args) = @_;
# DEBUG
- print "D: Run export_file for $page.\n";
+ print "D: pandoc:export_file: Run for $page.\n";
# END
my ($export_path, $export_url) = _export_file_path_and_url($page, $ext);
@@ -873,7 +873,7 @@ sub export_file {
print EXPORT $json_content;
close EXPORT or die "Could not close pipe for $ext: $!";
- print "D: Pandoc command: ", " ", $command, " ", '-f' =>
+ print "D: pandoc:export_file: Pandoc command: ", " ", $command, " ", '-f' =>
'json', " ", '-t' => $to_format, " ", '-o' =>
$tmp_export_path, " ", @args, " ", @extra_args;
@@ -918,7 +918,7 @@ sub remove_exported_file {
}
# DEBUG
- print "D: remove_exported_file: ",
+ print "D: pandoc:remove_exported_file: ",
"file removed for $page and $ext: $export_path.\n";
# END