Conservancy/gpl-compliance-tools
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Began work on script to build list of commit ids

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-04-28 12:51:58 -07:00
parent 4c7c0775bd
commit 248dd5bcd9
1 changed files with 45 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
commit-id-list-matching-regex.plx Executable file
View file

@ -0,0 +1,45 @@
#!/usr/bin/perl -w
# commit-id-list-matching-regex.plx -*- Perl -*-
#
# Copyright (C) 2016 Bradley M. Kuhn <bkuhn@ebb.org>
#
# This software's license gives you freedom; you can copy, convey,
# propogate, redistribute and/or modify this program under the terms of
# the GNU General Public License (GPL) as published by the Free
# Software Foundation (FSF), either version 3 of the License, or (at your
# option) any later version of the GPL published by the FSF.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program in a file in the toplevel directory called
# "GPLv3". If not, see <http://www.gnu.org/licenses/>.
#
# Motivation for this script:
# The goal in this script is to take a large Git repostiory and find a
# simple list of all commit ids that match certain criteria, specifically,
# either an Author: field or
# The initial implementation looks
use Git::Repository 'Log';
if (@ARGV != 2) {
print "usage: $0 <GIT_REPOSITORY_PATH> ", "<NAME_REGEX>\n";
exit 1;
}
my($GIT_REPOSITORY_PATH, $NAME_REGEX) = @ARGV;
my $gitRepository = Git::Repository->new(git_dir => $GIT_REPOSITORY_PATH);
my $logIterator = $gitRepository->log();
while ( my $gitLog = $logIterator->next() ) {
print ref $gitLog, "\n";
}