[tbb-commits] [builders/tor-browser-build] 03/32: Bug 40414: Remove tools/update/format_changelog.pl

[gitolite role]

This is an automated email from the git hooks/post-receive script.

boklm pushed a commit to branch maint-11.0
in repository builders/tor-browser-build.

commit 5b7e8d17a55d3ff2525e8705efd6dd9122a71021
Author: Nicolas Vigier <boklm at 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\">Bug $bug</a>:$3</li>";
-        } else {
-            $description =~ /(.*)\[([a-z-]*)\]$/;
-            my $project = "tpo/applications/$2/$bug" // "$bug";
-            $line.="<li><a href=\"https://bugs.torproject.org/$project\">Bug $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";
-}

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.