bin/changelogget

   1 #! /bin/sh
   2 # $Id$
   3
   4 v=true
   5 if [ "$1" = "-q" ];then
   6         v=false
   7         shift
   8 fi
   9 changelog=""
  10 if [ "$1" = "-n" ];then
  11         changelog="$1"
  12         shift
  13 fi
  14 for arg in "$@";do
  15         # http://sourceware.org/ml/gdb-cvs/2099-99/msg99999.html
  16         if [ "$arg" != "${arg#http://sources.redhat.com/}" ];then
  17                 arg="http://sourceware.org/${arg#http://sources.redhat.com/}"
  18         fi
  19         if [ "$arg" != "${arg#http://sourceware.org/ml/}" -a "$arg" != "${arg%.html}" ];then
  20                 echo >&2 -n '*'
  21                 echo "$arg"
  22                 raw="$(wget -q -O - "$arg" | sed -n 's#^.*<a href="\(/cgi-bin/get-raw-msg[?][^"]*\)">Raw text</a>.*$#\1#p')"
  23                 if [ -z "$raw" ];then
  24                         echo >&2 -n '+'
  25                         echo
  26                         changelogget -q $changelog $(wget -q -O - "$arg" | sed -n -e 's/&amp;/\&/g' -e 's#^<a \+href="\(.*\)">\1</a>$#\1#p')
  27                 else
  28                         echo >&2 -n '#'
  29                         wget -q -O - "http://sourceware.org$raw" | sed -n -e '/^Subject:/p' -e '/^$/,$p'
  30                 fi
  31         elif [ "$arg" != "${arg#http://sourceware.org/cgi-bin/cvsweb.cgi/src/}" ];then
  32                 echo >&2 -n '.'
  33                 # --- src/gdb/ChangeLog   2008/04/24 08:46:17     1.9308
  34                 wget -q -O - "$arg" | diffdecvs | if [ -z "$changelog" ];then perl -p -e '$c=1 if s{^(?:---|\Q+++\E)(?= \S+/ChangeLog\t)}{###};s{^@@}{##} if $c;'; else cat; fi
  35         else
  36                 echo >&2 "Invalid URL: $arg"
  37                 exit 1
  38         fi
  39 done
  40 if $v;then
  41         echo >&2 OK
  42 fi