diff options
Diffstat (limited to 'gnu/usr.bin/cvs/contrib/checklog.pl')
-rw-r--r-- | gnu/usr.bin/cvs/contrib/checklog.pl | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/gnu/usr.bin/cvs/contrib/checklog.pl b/gnu/usr.bin/cvs/contrib/checklog.pl deleted file mode 100644 index fab1c8f..0000000 --- a/gnu/usr.bin/cvs/contrib/checklog.pl +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl -# Copyright (c) Wolfram Schneider <wosch@freebsd.org>. June 1996, Berlin. -# -# checklog - extract your commits from commitlogs archive -# -# checklog username /a/cvs/CVSROOT/commitlogs/*[a-y] -# zcat /a/cvs/CVSROOT/commitlogs/*.gz | checklog [username] -# -# $Id: checklog.pl,v 1.2 1996/06/27 12:54:25 wosch Exp $ - -# your name or first argument -if ($ARGV[0]) { - $name = $ARGV[0]; shift @ARGV; - warn "Is this really a username: `$name' ?\n" - unless $name =~ /^[a-z0-9]+$/; -} else { - $name = `whoami`; chop $name; -} - -# date string 96/02/18 10:44:59 -$date = '[0-9][0-9]/[0-9][0-9]/[0-9][0-9] [0-9][0-9]:[0-9][0-9]:[0-9][0-9]'; - -$flag = 0; -while(<>) { - if (/^[a-z]/) { # start of a commit - if (m%^$name\s+$date$%o) { # it's *your* commit - $flag = 1; - } else { - $flag = 0; - } - } - - print if $flag; -} |