[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]
[tor-commits] [builders/tor-browser-build] 03/32: Bug 40414: Remove tools/update/format_changelog.pl
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@xxxxxxxxxxxxxx>
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.
_______________________________________________
tor-commits mailing list
tor-commits@xxxxxxxxxxxxxxxxxxxx
https://lists.torproject.org/cgi-bin/mailman/listinfo/tor-commits