On date Monday 2023-11-06 18:41:54 +0000, ffmpeg-devel Mailing List wrote:
> Signed-off-by: Cosmin Stejerean <cos...@cosmin.at>
> ---
> tools/general_assembly.pl | 43 +++++++++++++++++++++++++++++++++++++--
> 1 file changed, 41 insertions(+), 2 deletions(-)
>
> diff --git a/tools/general_assembly.pl b/tools/general_assembly.pl
> index 898a6262ef..8204d89794 100644
> --- a/tools/general_assembly.pl
> +++ b/tools/general_assembly.pl
> @@ -6,9 +6,41 @@ use strict;
> use POSIX qw(strftime);
> use Encode qw(decode);
> use Data::Dumper;
> +use Getopt::Long;
> +
> +binmode(STDOUT, ":utf8");
>
> sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };
>
> +sub print_help {
> + print "Usage: $0 [options]\n";
> + print "Options:\n";
> + print " --names Print only the names\n";
> + print " --emails Print only the email addresses\n";
> + print " --full Print both names and email addresses
> (default)\n";
> + print " -h, --help Show this help message\n";
> + exit;
while at it:
use Pod::Usage;
...
Getopt::Long::Configure ("bundling");
...
'help|usage|h' => sub { pod2usage( -verbose => 1, -exitval => 0) },
> +}
> +
> +my $print_full = 1;
> +my $print_names = 0;
> +my $print_emails = 0;
> +my $help = 0;
> +
> +GetOptions(
> + "full" => \$print_full,
> + "names" => \$print_names,
> + "emails" => \$print_emails,
> + "help" => \$help,
> + "h" => \$help,
> +);
> +
> +print_help() if $help;
> +
> +if ($print_names || $print_emails) {
> + $print_full = 0;
> +}
> +
> 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 = ();
>
> @@ -35,6 +67,13 @@ foreach my $line (@shortlog) {
> }
>
> 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);
> +foreach my $name (sort keys %assembly) {
> + my $email = $assembly{$name};
> + if ($print_full) {
> + printf("%s <%s>\n", $name, $email);
> + } elsif ($print_names) {
> + printf("%s\n", $name);
> + } elsif ($print_emails) {
> + printf("%s\n", $email);
> + }
LGTM anyway.
_______________________________________________
ffmpeg-devel mailing list
ffmpeg-devel@ffmpeg.org
https://ffmpeg.org/mailman/listinfo/ffmpeg-devel
To unsubscribe, visit link above, or email
ffmpeg-devel-requ...@ffmpeg.org with subject "unsubscribe".
