}
}
+sub register_title {
+ my ($filename, $env, $doctype, $title) = @_;
+
+ # fixme: what about other macros?
+ $title =~ s/\{pve\}/Proxmox VE/g;
+ $title =~ s!http://\S+\[(.*?)\]!$1!g;
+
+ $fileinfo->{titles}->{$env}->{$filename} = $title;
+
+ if (defined($doctype)) {
+ $fileinfo->{doctype}->{$env}->{$filename} = $doctype;
+ } else {
+ die "unable to change title (no doctype)"
+ if !defined($fileinfo->{doctype}->{$env}->{$filename});
+ }
+}
+
sub scan_adoc_file {
my ($filename) = @_;
my $title = $fileinfo->{titles}->{$e}->{$filename};
next if defined($title);
- if (($line =~ m/^=====+/) || ($line =~ m/^-----+/)) {
- $fileinfo->{titles}->{$e}->{$filename} = $env_last_line->{$e};
+ if ($line =~ m/^=====+$/) {
+ register_title($filename, $e, 0, $env_last_line->{$e});
+ } elsif ($line =~ m/^-----+$/) {
+ register_title($filename, $e, 1, $env_last_line->{$e});
+ } elsif ($line =~ m/^= +(\S.*?)( +=)?$/) {
+ register_title($filename, $e, 0, $1);
+ } elsif ($line =~ m/^== +(\S.*?)( +==)?$/) {
+ register_title($filename, $e, 1, $1);
}
+
$env_last_line->{$e} = $line;
chomp $env_last_line->{$e};
}
if !defined($title);
$fileinfo->{toplevel}->{$e}->{$filename} = 1;
}
+ } elsif ($key eq 'title') {
+ foreach my $e (@{$env_stack->[-1]}) {
+ register_title($filename, $e, undef, $value);
+ }
}
}
my $fn = resolve_link_target($e, $blockid_hash->{$blockid});
if ($e eq 'wiki') {
my $title = $fileinfo->{titles}->{$e}->{$fn};
- $title =~ s/\{pve\}/Proxmox VE/g;
$title =~ s/\s/_/g;
die "found not title for '$fn' in env '$e'" if !$title;
$fileinfo->{blockid_target}->{$e}->{$blockid} = "link:/wiki/$title#$blockid";