virtualenv/FFmpeg
1
0
Fork 0
mirror of https://github.com/FFmpeg/FFmpeg.git synced 2024-12-23 12:43:46 +02:00
Code Issues Releases Activity

tools/general_assembly: implement extra GA members

Browse Source
This commit is contained in:
Anton Khirnov 2023-11-22 20:33:02 +01:00
parent e7111ba44a
commit 56a8b34b64
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tools/general_assembly.pl
View File

@ -13,6 +13,12 @@ use utf8;
use DateTime; use DateTime;
use DateTime::Format::ISO8601; use DateTime::Format::ISO8601;
my @extra_members = (
# entries should be of the format
# [ <name>, <email>, <date elected> ],
# ['Foo Bar', 'foo@bar', DateTime->new(year => 8613, month => 5, day => 22)],
);
sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s }; sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };
sub print_help { sub print_help {
@ -29,7 +35,7 @@ sub print_help {
my $print_full = 1; my $print_full = 1;
my $print_names = 0; my $print_names = 0;
my $print_emails = 0; my $print_emails = 0;
my $date = DateTime->now()->iso8601; my $date_str = DateTime->now()->iso8601;
my $help = 0; my $help = 0;
GetOptions( GetOptions(
@ -37,7 +43,7 @@ GetOptions(
"names" => \$print_names, "names" => \$print_names,
"emails" => \$print_emails, "emails" => \$print_emails,
"help" => \$help, "help" => \$help,
"date=s" => \$date, "date=s" => \$date_str,
"h" => \$help, "h" => \$help,
); );
@ -76,7 +82,8 @@ sub get_date_range {
return ($date_since, $date_until); return ($date_since, $date_until);
} }
my ($since, $until) = get_date_range(DateTime::Format::ISO8601->parse_datetime($date)); my $date = DateTime::Format::ISO8601->parse_datetime($date_str);
my ($since, $until) = get_date_range($date);
my @shortlog = split /\n/, decode('UTF-8', my @shortlog = split /\n/, decode('UTF-8',
`git log --pretty=format:"%aN <%aE>" --since="$since" --until="$until" | sort | uniq -c | sort -r`, `git log --pretty=format:"%aN <%aE>" --since="$since" --until="$until" | sort | uniq -c | sort -r`,
@ -108,6 +115,13 @@ foreach my $line (@shortlog) {
$assembly{$name} = $email; $assembly{$name} = $email;
} }
foreach my $entry (@extra_members) {
my $elected = $entry->[2];
if ($date->is_between($elected, $elected->clone()->set_year($elected->year + 2))) {
$assembly{$entry->[0]} = $entry->[1];
}
}
# generate the output string # generate the output string
my @out_lines; my @out_lines;
foreach my $name (sort keys %assembly) { foreach my $name (sort keys %assembly) {