X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=bin%2Fchangelogget;h=e71f02ba29fd3bb58ca129aaf1223e3127cc9dbe;hb=ff3d62a8ef4da31debdf1e7391b425ac1957bbf6;hp=a80ad7e5beacc3a5a3f082f17c421d6ad5b668d2;hpb=aef35f955a866d2bd0bc822c3481c01b26e0229b;p=nethome.git

diff --git a/bin/changelogget b/bin/changelogget
index a80ad7e..e71f02b 100755
--- a/bin/changelogget
+++ b/bin/changelogget
@@ -8,6 +8,9 @@ if [ "$1" = "-n" ];then
 fi
 for arg in "$@";do
 	# http://sourceware.org/ml/gdb-cvs/2099-99/msg99999.html
+	if [ "$arg" != "${arg#http://sources.redhat.com/}" ];then
+		arg="http://sourceware.org/${arg#http://sources.redhat.com/}"
+	fi
 	if [ "$arg" != "${arg#http://sourceware.org/ml/}" -a "$arg" != "${arg%.html}" ];then
 		echo >&2 -n '*'
 		echo "$arg"
@@ -16,7 +19,7 @@ for arg in "$@";do
 	elif [ "$arg" != "${arg#http://sourceware.org/cgi-bin/cvsweb.cgi/src/}" ];then
 		echo >&2 -n '.'
 		# --- src/gdb/ChangeLog   2008/04/24 08:46:17     1.9308
-		wget -q -O - "$arg" | diffdecvs | perl -p -e 's{^(?:---|\Q+++\E)(?= \S+/ChangeLog\t)}{###}'
+		wget -q -O - "$arg" | diffdecvs | perl -p -e '$c=1 if s{^(?:---|\Q+++\E)(?= \S+/ChangeLog\t)}{###};s{^@@}{##} if $c;'
 	else
 		echo >&2 "Invalid URL: $arg"
 		exit 1