Merge branch 'master' of ssh://vps2.jankratochvil.net/var/lib/git/nethome

[nethome.git] / bin / changelogget

diff --git a/bin/changelogget b/bin/changelogget
index 59cc4e7..578f1d5 100755 (executable)
--- a/bin/changelogget
+++ b/bin/changelogget
@@ -15,10 +15,13 @@ fi
 function formatpatch
 {
        # --- src/gdb/ChangeLog   2008/04/24 08:46:17     1.9308
-       diffdecvs | if [ -z "$changelog" ];then perl -p -e '$c=1 if s{^(?:---|\Q+++\E)(?= \S+/ChangeLog\t)}{###};s{^@@}{##} if $c;'; else cat; fi
+       diffdecvs | if [ -z "$changelog" ];then perl -p -e '$r=qr/^(?:---|\Q+++\E) /o;$c=0 if m{$r}o;$c=1 if s{$r(?=\S+/ChangeLog(?:\t|$))}{### }o;s{^@@}{##} if $c;'; else cat; fi
 }
 
-for arg in "$@";do
+if [ "$*" = "-f" ];then
+       formatpatch
+else for arg in "$@";do
+       arg="$(echo "$arg"|sed 's/^https:/http:/')"
        # 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/}"
@@ -27,7 +30,7 @@ for arg in "$@";do
                echo >&2 -n '+'
                echo "$arg"
                echo
-               changelogget -q $changelog $(wget -q -O - "$arg" | sed -n -e 's/&amp;/\&/g' -e 's#^<a \+href="\(.*\)">\1</a>$#\1#p')
+               changelogget -q $changelog $(wget -q -O - "$arg" | sed -n -e 's/&amp;/\&/g' -e 's#^<a \+\(rel="nofollow"\)\? *href="\(.*\)">\2</a>$#\2#p')
        elif [ "$arg" != "${arg#http://gcc.gnu.org/viewcvs[?]view=revision&revision=}" ];then
                echo >&2 -n '+'
                echo "$arg"
@@ -53,7 +56,7 @@ for arg in "$@";do
                echo >&2 "Invalid URL: $arg"
                exit 1
        fi
-done
+done;fi
 if $v;then
        echo >&2 OK
 fi