This is an automated email from the git hooks/post-receive script.
boklm pushed a commit to branch master in repository builders/tor-browser-build.
commit 1e2b74dc8220d9f0074a0c167286b1918c361906 Author: Nicolas Vigier boklm@torproject.org AuthorDate: Thu Mar 24 13:11:05 2022 +0100
Bug 40414: Remove tools/update/format_changelog.pl
This is replaced by tools/changelog-format-blog-post --- tools/update/format_changelog.pl | 64 ---------------------------------------- 1 file changed, 64 deletions(-)
diff --git a/tools/update/format_changelog.pl b/tools/update/format_changelog.pl deleted file mode 100755 index c469b37..0000000 --- a/tools/update/format_changelog.pl +++ /dev/null @@ -1,64 +0,0 @@ -#!/usr/bin/perl -w - -# Read ChangeLog.txt from stdin -# $ ./format_changelog.pl < ChangeLog.txt - -my $once = 0; -my $last_indent=0; - -sub finish { - while ($last_indent > 2) { - print "</ul>\n"; - # Every entry in the ChangeLog is indented by 2 characters - # except for the first Platform line - $last_indent -= 2 - } - exit; -} - -while (<>) { - #print "$_"; - my $line = ""; - if ($_ =~ /^Tor Browser /) { - finish() unless $once == 0; - $once = 1; - next; - } - # Skip empty lines - if ($_ =~ /^\s*$/) { - next; - } - #print ">>> $_"; - if ($_ =~ /(\s+)* Bug (\d+):(.*)$/) { - my $indentation = $1; - my $bug = $2; - my $description = $3; - my $current_indent = length($indentation); - if ($current_indent > $last_indent) { - $line = "<ul>"; - } elsif ($current_indent < $last_indent) { - $line = "</ul>"; - } - $last_indent = $current_indent; - if ($bug < 40000) { - $line.="<li><a href="https://bugs.torproject.org/$bug%5C%22%3EBug $bug</a>:$3</li>"; - } else { - $description =~ /(.*)[([a-z-]*)]$/; - my $project = "tpo/applications/$2/$bug" // "$bug"; - $line.="<li><a href="https://bugs.torproject.org/$project%5C%22%3EBug $bug</a>:$1</li>"; - } - } elsif ($_ =~ /(\s+)* (.*)$/) { - my $indentation = $1; - my $current_indent = length($indentation); - if ($current_indent > $last_indent) { - $line = "<ul>"; - } elsif ($current_indent < $last_indent) { - $line = "</ul>"; - } - $last_indent = $current_indent; - $line .= "<li>$2"; - } else { - $line = $_; - } - print "$line\n"; -}