tools: add general_assembly.pl

This script generates the current general assembly voters according to
the criteria of '20 commits in the last 36 months'.

Signed-off-by: J. Dekker <jdek@itanimul.li>
Signed-off-by: Anton Khirnov <anton@khirnov.net>
This commit is contained in:
J. Dekker 2022-02-16 02:49:29 +01:00 committed by Anton Khirnov
parent 2b4273072d
commit 926059dbf3
2 changed files with 43 additions and 0 deletions

View File

@ -25,6 +25,9 @@ proposal by a member of the General Assembly.
They are part of the GA for two years, after which they need a confirmation by
the GA.
A script to generate the current members of the general assembly (minus members
voted in) can be found in `tools/general_assembly.pl`.
## Voting
Voting is done using a ranked voting system, currently running on https://vote.ffmpeg.org/ .

40
tools/general_assembly.pl Normal file
View File

@ -0,0 +1,40 @@
#!/usr/bin/env perl
use warnings;
use strict;
use POSIX qw(strftime);
use Encode qw(decode);
use Data::Dumper;
sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };
my @shortlog = split /\n/, decode('UTF-8', `git log --pretty=format:"%aN <%aE>" --since="last 36 months" | sort | uniq -c | sort -r`, Encode::FB_CROAK);
my %assembly = ();
foreach my $line (@shortlog) {
my ($count, $name, $email) = $line =~ m/^ *(\d+) *(.*?) <(.*?)>/;
if ($count < 20) {
next;
}
$name = trim $name;
if ($count < 50) {
my $true = 0;
my @commits = split /(^|\n)commit [a-z0-9]{40}(\n|$)/, decode('UTF-8', `git log --name-only --use-mailmap --author="$email" --since="last 36 months"`, Encode::FB_CROAK);
foreach my $commit (@commits) {
$true++; # if ($commit =~ /\n[\w\/]+\.(c|h|S|asm|texi)/);
}
if ($true < 20) {
next;
}
}
$assembly{$name} = $email;
}
printf("# %s %s", strftime("%Y-%m-%d", localtime), decode('UTF-8', `git rev-parse HEAD`, Encode::FB_CROAK));
foreach my $email (sort values %assembly) {
printf("%s\n", $email);
}