From: Oleg Broytman <phd@phdru.name>
Date: Sat, 1 Feb 2020 07:31:45 +0000 (+0300)
Subject: Feat(svn/get-authors): Add perl-based parser
X-Git-Url: https://git.phdru.name/?p=git-scripts.git;a=commitdiff_plain;h=bb5244f29a9bb6c7ce90d4abe8a43b0ad21228ce

Feat(svn/get-authors): Add perl-based parser
---

diff --git a/svn/get-authors b/svn/get-authors
index c80f0b2..9cd849a 100755
--- a/svn/get-authors
+++ b/svn/get-authors
@@ -7,9 +7,12 @@ fi
 
 url="$1"
 
-#svn log -q "$url" |
-#   awk -F '|' '/^r/ {sub("^ ", "", $2); sub(" $", "", $2); print $2" = "$2" <"$2">"}' |
-#   sort -u >>authors.txt
+svn log -q "$url" |
+   awk -F '|' '/^r/ {sub("^ ", "", $2); sub(" $", "", $2); print $2" = "$2" <"$2">"}' |
+   sort -u >>authors.txt
 
-svn log --xml "$url" | grep -F author | sort -u |
-   sed 's/^<[^>]\+>\(.\+\)<.\+>$/\1 = /' >>authors.txt
+#svn log --xml "$url" | grep -F author | sort -u |
+#   sed 's/^<[^>]\+>\(.\+\)<.\+>$/\1 = /' >>authors.txt
+
+#svn log --xml "$url" | grep author | sort -u |
+#   perl -pe 's/.>(.?)<./$1 = /' >authors.txt