Difuse/luci
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

build: add script to find commits suitable for cherry picking

Browse source 
Signed-off-by: Jo-Philipp Wich <jo@mein.io>
(cherry picked from commit 0ead87320bade6f924991f4310271582a760edb4)
This commit is contained in:
Jo-Philipp Wich 2021-07-01 21:10:53 +02:00
parent 7d5318b9ae
commit 8504470ad8
1 changed files with 44 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
build/find-cherry-pick-candidates.pl Executable file
View file

@ -0,0 +1,44 @@
#!/usr/bin/env perl
use strict;
sub git {
my $res = undef;
if (open my $git, '-|', 'git', @_) {
{
local $/;
$res = readline $git;
}
chomp $res;
close $git;
}
return $res;
}
my $release_branch = git(qw(rev-parse --abbrev-ref HEAD));
my $default_branch = system(qw(git show-ref --verify --quiet refs/heads/main)) ? 'master' : 'main';
if ($release_branch eq $default_branch) {
printf STDERR "Please execute from a non-default branch\n";
exit 1;
}
open my $cherry, '-|', 'git', 'cherry', '-v', $release_branch, $default_branch;
while (defined(my $line = readline $cherry)) {
my ($id, $subject) = $line =~ m!^\+ ([a-f0-9]+) (.*)$!;
next unless $id;
my $found = git('log', '-1', '-E', "--grep=(backported|cherry picked) from commit $id");
next if $found;
my @files = split /\n/, git('show', '--pretty=format:', '--name-only', $id);
next unless grep { !/\.pot?$/ } @files;
print "$id $subject\n";
}
close $cherry;