my $outfile;
- GetOptions ("outfile=s" => \$outfile,
- "keep-artifacts" => \$keep_artifacts,
- "verbose" => \$verbose) or
- die("Error in command line arguments\n");
+ GetOptions (
+ "outfile=s" => \$outfile,
+ "keep-artifacts" => \$keep_artifacts,
+ "verbose" => \$verbose
+ ) or die("Error in command line arguments\n");
- my $infile = shift(@ARGV) or
- die "no input file specified\n";
-
- scalar(@ARGV) == 0 or
- die "too many arguments...\n";
+ my $infile = shift(@ARGV) or die "no input file specified\n";
+ scalar(@ARGV) == 0 or die "too many arguments...\n";
my $outfilemap = $fileinfo->{outfile}->{$env}->{$infile} ||
die "no output file mapping for '$infile' ($env)";
}
if (defined($outfile)) {
- die "wrong output file name '$outfile != $outfilemap' ($env)"
- if $outfile ne $outfilemap;
+ die "wrong output file name '$outfile != $outfilemap' ($env)" if $outfile ne $outfilemap;
} else {
$outfile = $outfilemap;
}
- defined($fileinfo->{titles}->{$env}) ||
- die "unknown environment '$env'";
+ defined($fileinfo->{titles}->{$env}) || die "unknown environment '$env'";
my $title = $fileinfo->{titles}->{$env}->{$infile} or
die "unable to get title for '$infile'$env\n";
# section like footnotes, so we cannot use a2x.
# We use xmlto instead.
- my $cmd = ['asciidoc', '-dmanpage', '-bdocbook',
- '-f', "$adoc_source_dir/asciidoc/asciidoc-pve.conf",
- '-a', 'docinfo1'];
+ my $cmd = [
+ 'asciidoc',
+ '-dmanpage',
+ '-bdocbook',
+ '-f', "$adoc_source_dir/asciidoc/asciidoc-pve.conf",
+ '-a', 'docinfo1',
+ ];
foreach my $key (keys %$attributes) {
my $value = $attributes->{$key};
debug("run " . join(' ', @$cmd));
- system(@$cmd) == 0 or
- die "aciidoc error";
+ system(@$cmd) == 0 or die "aciidoc error";
$cmd = ['xmlto', 'man', $tmpxmlfile];
debug("run " . join(' ', @$cmd));
- system(@$cmd) == 0 or
- die "xmlto error";
+ system(@$cmd) == 0 or die "xmlto error";
} else {
$attributes->{icons} = undef;
$attributes->{'data-uri'} = undef;
- my $cmd = ['asciidoc',
- '-f', "$adoc_source_dir/asciidoc/asciidoc-pve.conf",
- ];
+ my $cmd = [ 'asciidoc', '-f', "$adoc_source_dir/asciidoc/asciidoc-pve.conf" ];
if (($env eq 'wiki') ||
(($env eq 'manvolnum') && ($man_target eq 'wiki'))) {
debug("run " . join(' ', @$cmd));
- system(@$cmd) == 0 or
- die "aciidoc error";
+ system(@$cmd) == 0 or die "aciidoc error";
}
}
debug("scan-extjs $filename");
while(defined(my $line = <$fh>)) {
- if ($line =~ m/\s+onlineHelp:\s*[\'\"](.*?)[\'\"]/) {
+ if ($line =~ m/\s+onlineHelp:\s*[\'\"]([^{}\[\]\'\"]+)[\'\"]/) {
my $blockid = $1;
my $link = $fileinfo->{blockid_target}->{default}->{$blockid};
die "undefined blockid '$blockid' ($filename, line $.)\n"
my $data_str = to_json($res_data, { pretty => 1, canonical => 1 });
chomp $data_str;
- print "var pveOnlineHelpInfo = ${data_str};\n";
+ print "const pveOnlineHelpInfo = ${data_str};\n";
} elsif ($clicmd eq 'chapter-table') {
-
+
print '[width="100%",options="header"]' . "\n";
print "|====\n";
print "|Title|Link\n";
-
+
my $filelist = $fileinfo->{outfile}->{default};
foreach my $sourcefile (sort keys %$filelist) {
my $target = $filelist->{$sourcefile};
die "not title for '$sourcefile'";
print "|$title|link:$target\[\]\n";
}
-
+
print "|====\n";
} elsif ($clicmd =~ m/^man([158])page-table$/) {
-
+
my $section = $1;
print '[width="100%",cols="5*d",options="header"]' . "\n";
print "|====\n";
print "|Name 3+|Title|Link\n";
-
+
my $filelist = $fileinfo->{outfile}->{manvolnum};
foreach my $manpage (sort keys %$filelist) {
next if $section ne $fileinfo->{mansection}->{manvolnum}->{$manpage};
my $target = $filelist->{$manpage};
print "|$mantitle 3+|$title|link:$target.html\[$target\]\n";
- }
-
+ }
+
print "|====\n";
} else {