From owner-freebsd-stable Wed Dec 29 11:39: 7 1999 Delivered-To: freebsd-stable@freebsd.org Received: from anarcat.dyndns.org (phobos.IRO.UMontreal.CA [132.204.20.20]) by hub.freebsd.org (Postfix) with ESMTP id EA797150DC for ; Wed, 29 Dec 1999 11:39:01 -0800 (PST) (envelope-from spidey@anarcat.dyndns.org) Received: by anarcat.dyndns.org (Postfix, from userid 1000) id 3A7A41BD4; Wed, 29 Dec 1999 12:00:53 -0500 (EST) From: Spidey MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Message-ID: <14442.15940.371472.189793@anarcat.dyndns.org> Date: Wed, 29 Dec 1999 12:00:52 -0500 (EST) To: John Reynolds~ Cc: stable@FreeBSD.ORG Subject: Re: Seeing log messages associated with CVSup updates References: <13641.991004@McFlySr.Kurgan.Ru> <199910071621.JAA47057@vashon.polstra.com> <37FDC033.F3B549A6@newsguy.com> <14334.5160.352292.773239@hip186.ch.intel.com> X-Mailer: VM 6.72 under 21.1 (patch 8) "Bryce Canyon" XEmacs Lucid Reply-To: beaupran@iro.umontreal.ca Sender: owner-freebsd-stable@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.ORG Ok... I know this has been __a while ago__ but I am still interested. First, is this in the ports? It should be. :) Second, I can't run it. :) $ ./cvsup.check.pl /root/cvsup/logs/ports-19991228 /ports/audio/timidity++-emacs/pkg/COMMENT/: nested *?+ in regexp at ./cvsup.check.pl line 71, chunk 147. $ I don't understand. Thanks a lot! --- Big Brother told John Reynolds~ to write, at 08:56 of October 8: > > [ On Friday, October 8, Daniel C. Sobral wrote: ] > > > > This script is really cool, but it is still a little bit lacking. If > > we could have a link to the diff between the version you have and > > the latest version, that would be much better. It seems feasible, > > isn't it? > > > > Yes, most of the above seems feasible. There would be a little guesswork and > heuristics on the "linking to the diff" part, but the rest is pretty much done > by the following. The idea for this script, of course, was gleaned from the > original awk script posted by John Polstra yesterday. > > Use at will, modify to suit your needs :) > > #!/usr/bin/perl > # > # Copyright (c) 1999 John C. Reynolds > # All rights reserved. > # > # Redistribution and use in source and binary forms, with or without > # modification, are permitted provided that the following conditions > # are met: > # 1. Redistributions of source code must retain the above copyright > # notice, this list of conditions, and the following disclaimer, > # without modification, immediately at the beginning of the file. > # 2. The name of the author may not be used to endorse or promote products > # derived from this software without specific prior written permission. > # > # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND > # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE > # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE > # ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR > # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL > # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS > # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) > # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT > # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY > # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF > # SUCH DAMAGE. > # > # > # Quickie script to reformat CVSup (16) log files into HTML. Links > # references to files, deltas, and committers to the CVS web CGI program > # and the FreeBSD web site. > # > # The idea for this program originated from an 'awk' script created by > # , with other ideas and patches submitted > # by Marcel Moolenaar . > # > require 'ctime.pl'; > > $url = 'http://www.freebsd.org/cgi/cvsweb.cgi'; > > if ($ARGV[0] eq '') { > print "Usage: $0 cvsup-log-file > cvsup-log-file.html\n"; > exit 1; > } > > # Grab date from file if not coming in from stdin > # > $date = ''; > unless ($ARGV[0] eq '-') { > ($dev, $ino, $mode, $nlink, $uid, $gid, > $rdev, $size, $atime, $mtime, @junk) = stat ($ARGV[0]); > > $date = ctime ($mtime); > chomp ($date); > $date = '(' . $date . ')'; > } > > if (! open (IN, $ARGV[0])) { > print (STDERR "Could not open '$ARGV[0]' for reading - $!\n"); > exit 2; > } > > while () { > if (/Parsing\s+supfile\s+"(.*?)"/) { > $file = $1; > s#$file#$file#; > } > > if (/(Edit|Checkout)\s+(\S+)/) { > $file = $2; > ($realfile = $file) =~ s/,v$//; > s#$file#$file#; > } > > if (/Add\s+delta\s+(\S+).*?(\S+)\s*$/) { > $rev = $1; > $committer = $2; > > s#$rev#$rev#; > s#$committer#$committer#; > } > > if (/Updating\s+collection\s+(\S+)/) { > $collection = $1; > } > > push (@lines, $_); > > } > > close (IN); > > print "\n\n"; > print "CVSup log for '$collection' ${date}\n\n"; > print "\n
\n\n";
> foreach (@lines) {
>     print;
> }
> print "
\n\n\n\n"; > > > > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > | John Reynolds CEG, CCE, Next Generation Flows, HLA | > | Intel Corporation MS: CH6-210 Phone: 480-554-9092 pgr: 868-6512 | > | jreynold@sedona.ch.intel.com http://www-aec.ch.intel.com/~jreynold/ | > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > > To Unsubscribe: send mail to majordomo@FreeBSD.org > with "unsubscribe freebsd-stable" in the body of the message -- Si l'image donne l'illusion de savoir C'est que l'adage pretend que pour croire, L'important ne serait que de voir Lofofora To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-stable" in the body of the message