#use wml::debian::common_tags #use wml::debian::links.tags #use wml::debian::template title="" BARETITLE=true #include "$(ENGLISHDIR)/releases/info" #include "$(ENGLISHDIR)/MailingLists/mklist.tags" # Don't translate this file, it will only make you look stupid. # title_of return values contain tags processed during pass 2, # and ePerl will fail if double quotes are in expanded text. # For this reason, tag content must be protected \ %body\ sub title_of { my ($page) = @_; # special cases if ($page eq "https://lists.debian.org/") { return "" } if ($page eq "https://lists.debian.org/users.html") { return "" } if ($page eq "https://lists.debian.org/devel.html") { return "" } if ($page eq "https://lists.debian.org/i18n.html") { return "" } if ($page eq "https://lists.debian.org/ports.html") { return "" } if ($page eq "https://lists.debian.org/bugs.html") { return "" } if ($page eq "https://lists.debian.org/misc.html") { return "" } if ($page eq "$(SEARCH)") { return "" } if ($page eq "https://db.debian.org/") { return "" } if ($page eq "News/weekly/") { return "" } if ($page eq "News/project/") { return "" } if ($page eq "doc/manuals/debian-faq/") { return "" } if ($page eq "doc/debian-policy/") { return "" } if ($page eq "doc/manuals/developers-reference/") { return "" } if ($page eq "doc/manuals/maint-guide/") { return "" } if ($page eq "https://bugs.debian.org/release-critical/") { return "" } if ($page eq "MailingLists/subscribe") { return "" } if ($page eq "MailingLists/unsubscribe") { return "" } if ($page eq "https://wiki.debian.org/DebianEdu") { return "" } if ($page eq "https://salsa.debian.org/") { return "" } if ($page eq "https://qa.debian.org/") { return "" } if ($page eq "https://packages.qa.debian.org/") { return "" } if ($page eq "https://qa.debian.org/developer.php") { return "" } $page =~ s/^(.+)#(.+)$/$1/; # remove anchors (will handle this later) $page =~ s,/stable/,//,; $page =~ s,/testing/,//,; if ($page =~ /\/$/) { $page .= "index.wml" } else { $page .= ".wml" }; # print STDERR "page: $page\n"; return; $page = "$ENGLISHDIR/$page" unless (-f $page); die "$page doesn't exist!\n" unless (-f $page); my $title = `egrep '^#use .* title=' $page `; chomp $title; $title =~ s/^#use .* title="(.+?)("\s.*$|"$|"\e.*$)/$1/; if ($title eq '') { $title = `egrep '^.*' $page `; chomp $title; $title =~ s/^(.+?)<\/define-tag>/$1/; } die "can't find a title in $page!\n" unless (($title) || ($title eq "")); return $title; } <:= title_of("%0") :>

#