my $env_stack = [];
my $env_skip = 0;
+sub debug {
+ my $msg = shift;
+
+ return if !$verbose;
+
+ print STDERR "asciidoc-pve: $msg\n";
+}
+
sub push_environment {
my ($env, $skip) = @_;
return $prepared_files->{$filename} if defined($prepared_files->{$filename});
- print "PREPARE $filename\n";
+ debug("prepare $filename");
my $dirname = dirname($filename);
my $basename = basename($filename);
if ($line =~ m/^include::(\S+)(\[.*\]\s*)$/) {
my ($fn, $rest) = ($1, $2);
- print "INCLUDE: $fn\n";
+ debug("include $fn");
my $new_fn = prepare_adoc_file($target_env, $fn, $attributes);
print $outfh "include::${new_fn}$rest\n";
my $title = $fileinfo->{titles}->{$env}->{$infile} or
die "unable to get title for '$infile'$env\n";
- print "compile: $title\n";
+ debug("compile $title");
my $leveloffset = 0;
push @$cmd, $new_infile;
- print "RUN " . join(' ', @$cmd) . "\n";
+ debug("run " . join(' ', @$cmd));
system(@$cmd) == 0 or
die "aciidoc error";
push @$cmd, '-v' if $verbose;
- print "RUN " . join(' ', @$cmd) . "\n";
+ debug("run " . join(' ', @$cmd));
system(@$cmd) == 0 or
die "xmlto error";
push @$cmd, $new_infile;
- print "RUN " . join(' ', @$cmd) . "\n";
+ debug("run " . join(' ', @$cmd));
system(@$cmd) == 0 or
die "aciidoc error";