From owner-freebsd-hackers  Sun Jun 30 18:15:24 1996
Return-Path: owner-hackers
Received: (from root@localhost)
          by freefall.freebsd.org (8.7.5/8.7.3) id SAA05799
          for hackers-outgoing; Sun, 30 Jun 1996 18:15:24 -0700 (PDT)
Received: from sujal.prognet.com (root@morrison-c00.aa.net [204.157.220.132])
          by freefall.freebsd.org (8.7.5/8.7.3) with ESMTP id SAA05781
          for <freebsd-hackers@FreeBSD.org>; Sun, 30 Jun 1996 18:15:21 -0700 (PDT)
Received: from localhost (smpatel@localhost [127.0.0.1]) by sujal.prognet.com (8.7.5/8.6.12) with SMTP id SAA01794; Sun, 30 Jun 1996 18:14:56 -0700 (PDT)
Date: Sun, 30 Jun 1996 18:14:55 -0700 (PDT)
From: Sujal Patel <smpatel@umiacs.umd.edu>
X-Sender: smpatel@sujal.prognet.com
To: "Jordan K. Hubbard" <jkh@time.cdrom.com>
cc: Heikki Suonsivu <hsu@clinet.fi>, freebsd-hackers@FreeBSD.org
Subject: Re: Alternate lists for more verbose CVS commit messages? 
In-Reply-To: <13317.836105910@time.cdrom.com>
Message-ID: <Pine.NEB.3.92.960630181047.1667A-100000@sujal.prognet.com>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: owner-hackers@FreeBSD.org
X-Loop: FreeBSD.org
Precedence: bulk

On Sat, 29 Jun 1996, Jordan K. Hubbard wrote:

> > I often would like to know more about problems certain commit might fix,
> > and see what modifications were committed.  Could it be possible to create
> > alternate commit lists which would receive detailed commit messages ?
> > Getting a full CVS diff would be helpful, if nothing else.
>
> Uh, what's wrong with simply subscribing to a cvs-* list and then
> cross-referencing the revision numbers mentioned with the
> http://www.freebsd.org/cgi-bin/cvsweb CGI script to get the diffs you
> want?

Or just pipe your piece of mail from cvs-* into the attached script and
you'll get an instant diff :-)  It works 98% of the time (gets confused on
some branch commits, added files, and imports).  If someone wants to make
this really work well, that'll be cool (It's good enough for me :-)


Sujal

-- Cut --
#!/usr/bin/perl

# FreeBSD cvs-* -> diff processor
# Author: Sujal Patel <smpatel@freebsd.org>
# This program is in the Public Domain


while (<>) {
	if (/^  ([\d.]*)\s*(\+\d* \-\d*)\s*([\S\/]*)\s*/) {
		$rev = $1;
		$changes = $2;
		$path = $3;

		if ($rev =~ /((\d*\.)+)(\d*)/) {
			if ($3 == 1) {
				printf ("\n *** Can't determine previous version of %s\n", $path);
				printf (" *** Skipping File\n\n");
				next;
			}
			$oldrev = sprintf ("$1%d", $3 - 1);
		}

		$line = sprintf("GET /cgi-bin/cvsweb/$path?r1=text&tr1=$oldrev&r2=text&tr2=$rev&f=i\n");

		$af_inet = 2;
		$sock_stream = 1;
		$sockaddr = 'S n a4 x8';

		chop($hostname = `hostname`);
		($name, $aliases, $proto) = getprotobyname('tcp');
		($name, $aliases, $type, $len, $thisaddr) =
			gethostbyname($hostname);
		($name, $aliases, $type, $len, $thataddr) =
			gethostbyname("www.FreeBSD.org");
		$this = pack($sockaddr, $af_inet, 0, $thisaddr);
		$that = pack($sockaddr, $af_inet, 80, $thataddr);

		socket(SOCK, $af_inet, $sock_stream, $proto) || die $!;
		bind(SOCK, $this) || die $!;
		connect(SOCK, $that) || die $!;

		select(SOCK); $| = 1; select(STDOUT);

		print SOCK $line;

		while (<SOCK>) {
			print;
		}
	}
}