Support sites that use the <define-tag pagetitle> construct

CVS version numbers

english/sitemap.wml: 1.38 -> 1.39

1 files changed, 6 insertions, 0 deletions

diff --git a/english/sitemap.wml b/english/sitemap.wml
index 3ec75b1b9f9..8f26e7f084d 100644
--- a/english/sitemap.wml
+++ b/english/sitemap.wml
@@ -51,6 +51,12 @@ sub title_of {
   die "$page doesn't exist!\n" unless (-f $page);
   my $title = `egrep '^#use .* title=' $page `; chomp $title;
   $title =~ s/^#use .* title="(.+?)("\s.*$|"$|"\e.*$)/$1/;
+<protect pass=2>
+  if ($title eq '<pagetitle>') {
+    $title = `egrep '^<define-tag pagetitle>.*</define-tag>' $page `; chomp $title;
+    $title =~ s/^<define-tag pagetitle>(.+?)<\/define-tag>/$1/;
+  }
+</protect>
   die "can't find a title in $page!\n" unless (($title) || ($title eq ""));
   if ($CUR_LANG eq 'Japanese') {
     $title .= "\e(B" unless $title =~ /\e\(B$/;