bin/changelogget

   1 #! /bin/sh
   2 # $Id$
   3
   4 v=true
   5 if [ "$1" = "-n" ];then
   6         v=false
   7         shift
   8 fi
   9 for arg in "$@";do
  10         # http://sourceware.org/ml/gdb-cvs/2099-99/msg99999.html
  11         if [ "$arg" != "${arg#http://sourceware.org/ml/}" -a "$arg" != "${arg%.html}" ];then
  12                 echo >&2 -n '*'
  13                 echo "$arg"
  14                 echo
  15                 changelogget -n $(wget -q -O - "$arg" | sed -n -e 's/&amp;/\&/g' -e 's#^<a \+href="\(.*\)">\1</a>$#\1#p')
  16         elif [ "$arg" != "${arg#http://sourceware.org/cgi-bin/cvsweb.cgi/src/}" ];then
  17                 echo >&2 -n '.'
  18                 # --- src/gdb/ChangeLog   2008/04/24 08:46:17     1.9308
  19                 wget -q -O - "$arg" | diffdecvs | perl -p -e 's{^(?:---|\Q+++\E)(?= \S+/ChangeLog\t)}{###}'
  20         else
  21                 echo >&2 "Invalid URL: $arg"
  22                 exit 1
  23         fi
  24 done
  25 if $v;then
  26         echo >&2 OK
  27 fi