scripts/get_maintainer.pl: improve --interactive UI

use strict;

my $P = $0;

my $V = '0.25';

my $V = '0.26-beta3';

use Getopt::Long qw(:config no_auto_abbrev);

my $email_git = 0;

my $email_git_all_signature_types = 0;

my $email_git_blame = 0;

my $email_git_blame_signatures = 1;

my $email_git_fallback = 1;

my $email_git_min_signatures = 1;

my $email_git_max_maintainers = 5;

my $version = 0;

my $help = 0;

my $vcs_used = 0;

my $exit = 0;

my %shortlog_buffer;

my %commit_author_hash;

my %commit_signer_hash;

my @penguin_chief = ();

push(@penguin_chief, "Linus Torvalds:torvalds\@linux-foundation.org");

push(@signature_tags, "Signed-off-by:");

push(@signature_tags, "Reviewed-by:");

push(@signature_tags, "Acked-by:");

my $signaturePattern = "\(" . join("|", @signature_tags) . "\)";

# rfc822 email address - preloaded methods go here.

my $rfc822_lwsp = "(?:(?:\\r\\n)?[ \\t])";

my %VCS_cmds_git = (

    "execute_cmd" => \&git_execute_cmd,

    "available" => '(which("git") ne "") && (-d ".git")',

    "find_signers_cmd" => "git log --no-color --since=\$email_git_since -- \$file",

    "find_commit_signers_cmd" => "git log --no-color -1 \$commit",

    "find_commit_author_cmd" => "git log -1 --format=\"%an <%ae>\" \$commit",

    "find_signers_cmd" =>

	"git log --no-color --since=\$email_git_since " .

	    '--format="GitCommit: %H%n' .

		      'GitAuthor: %an <%ae>%n' .

		      'GitDate: %aD%n' .

		      'GitSubject: %s%n' .

		      '%b%n"' .

	    " -- \$file",

    "find_commit_signers_cmd" =>

	"git log --no-color " .

	    '--format="GitCommit: %H%n' .

		      'GitAuthor: %an <%ae>%n' .

		      'GitDate: %aD%n' .

		      'GitSubject: %s%n' .

		      '%b%n"' .

	    " -1 \$commit",

    "find_commit_author_cmd" =>

	"git log --no-color " .

	    '--format="GitCommit: %H%n' .

		      'GitAuthor: %an <%ae>%n' .

		      'GitDate: %aD%n' .

		      'GitSubject: %s%n"' .

	    " -1 \$commit",

    "blame_range_cmd" => "git blame -l -L \$diff_start,+\$diff_length \$file",

    "blame_file_cmd" => "git blame -l \$file",

    "commit_pattern" => "^commit [0-9a-f]{40,40}",

    "commit_pattern" => "^GitCommit: ([0-9a-f]{40,40})",

    "blame_commit_pattern" => "^([0-9a-f]+) ",

    "shortlog_cmd" => "git log --no-color --oneline --since=\$email_git_since --author=\"\$email\" -- \$file"

    "author_pattern" => "^GitAuthor: (.*)",

    "subject_pattern" => "^GitSubject: (.*)",

);

my %VCS_cmds_hg = (

    "available" => '(which("hg") ne "") && (-d ".hg")',

    "find_signers_cmd" =>

	"hg log --date=\$email_hg_since " .

		" --template='commit {node}\\n{desc}\\n' -- \$file",

    "find_commit_signers_cmd" => "hg log --template='{desc}\\n' -r \$commit",

    "find_commit_author_cmd" => "hg log -l 1 --template='{author}\\n' -r \$commit",

	    "--template='HgCommit: {node}\\n" .

	                "HgAuthor: {author}\\n" .

			"HgSubject: {desc}\\n'" .

	    " -- \$file",

    "find_commit_signers_cmd" =>

	"hg log " .

	    "--template='HgSubject: {desc}\\n'" .

	    " -r \$commit",

    "find_commit_author_cmd" =>

	"hg log " .

	    "--template='HgCommit: {node}\\n" .

		        "HgAuthor: {author}\\n" .

			"HgSubject: {desc|firstline}\\n'" .

	    " -r \$commit",

    "blame_range_cmd" => "",		# not supported

    "blame_file_cmd" => "hg blame -c \$file",

    "commit_pattern" => "^commit [0-9a-f]{40,40}",

    "blame_file_cmd" => "hg blame -n \$file",

    "commit_pattern" => "^HgCommit: ([0-9a-f]{40,40})",

    "blame_commit_pattern" => "^([ 0-9a-f]+):",

    "shortlog_cmd" => "ht log --date=\$email_hg_since"

    "author_pattern" => "^HgAuthor: (.*)",

    "subject_pattern" => "^HgSubject: (.*)",

);

my $conf = which_conf(".get_maintainer.conf");

		'git!' => \$email_git,

		'git-all-signature-types!' => \$email_git_all_signature_types,

		'git-blame!' => \$email_git_blame,

		'git-blame-signatures!' => \$email_git_blame_signatures,

		'git-fallback!' => \$email_git_fallback,

		'git-chief-penguins!' => \$email_git_penguin_chiefs,

		'git-min-signatures=i' => \$email_git_min_signatures,

    die "$P: missing patchfile or -f file - use --help if necessary\n";

}

if ($output_separator ne ", ") {

    $output_multiline = 0;

}

if ($output_rolestats) {

    $output_roles = 1;

}

$output_multiline = 0 if ($output_separator ne ", ");

$output_rolestats = 1 if ($interactive);

$output_roles = 1 if ($output_rolestats);

if ($sections) {

    $email = 0;

	. "a linux kernel source tree.\n";

}

if ($email_git_all_signature_types) {

    $signaturePattern = "(.+?)[Bb][Yy]:";

}

## Read MAINTAINERS for type/value pairs

my @typevalue = ();

@file_emails = uniq(@file_emails);

my %email_hash_name;

my %email_hash_address;

my @email_to = ();

my %hash_list_to;

my @list_to = ();

my @scm = ();

my @web = ();

my @subsystem = ();

my @status = ();

my $signature_pattern;

my @to = get_maintainer();

@to = merge_email(@to);

output(@to) if (@to);

if ($scm) {

    @scm = uniq(@scm);

    output(@scm);

}

if ($status) {

    @status = uniq(@status);

    output(@status);

}

if ($subsystem) {

    @subsystem = uniq(@subsystem);

    output(@subsystem);

}

if ($web) {

    @web = uniq(@web);

    output(@web);

}

exit($exit);

sub get_maintainer {

    %email_hash_name = ();

    %email_hash_address = ();

    %commit_author_hash = ();

    %commit_signer_hash = ();

    @email_to = ();

    %hash_list_to = ();

    @list_to = ();

    @scm = ();

    @web = ();

    @subsystem = ();

    @status = ();

    if ($email_git_all_signature_types) {

	$signature_pattern = "(.+?)[Bb][Yy]:";

    } else {

	$signature_pattern = "\(" . join("|", @signature_tags) . "\)";

    }

    # Find responsible parties

		    }

		}

	    }

	    $tvi = $end + 1;

	}

	    }

	}

    if ($email &&

	($email_git || ($email_git_fallback && !$exact_pattern_match))) {

	if ($email && ($email_git ||

		       ($email_git_fallback && !$exact_pattern_match))) {

	    vcs_file_signoffs($file);

	}

	if ($email && $email_git_blame) {

	    vcs_file_blame($file);

	}

    if ($email && $interactive){

	vcs_file_shortlogs($file);

    }

    }

    if ($keywords) {

	}

    }

if ($email || $email_list) {

    my @to = ();

    if ($email || $email_list) {

	if ($email) {

	if ($interactive) {

	    @email_to = @{vcs_interactive_menu(\@email_to)};

	}

	    @to = (@to, @email_to);

	}

	if ($email_list) {

	    @to = (@to, @list_to);

	}

    output(merge_email(@to));

    }

if ($scm) {

    @scm = uniq(@scm);

    output(@scm);

}

if ($status) {

    @status = uniq(@status);

    output(@status);

}

    @to = interactive_get_maintainer(\@to) if ($interactive);

if ($subsystem) {

    @subsystem = uniq(@subsystem);

    output(@subsystem);

    return @to;

}

if ($web) {

    @web = uniq(@web);

    output(@web);

}

exit($exit);

sub file_match_pattern {

    my ($file, $pattern) = @_;

    if (substr($pattern, -1) eq "/") {

  --email => print email address(es) if any

    --git => include recent git \*-by: signers

    --git-all-signature-types => include signers regardless of signature type

        or use only ${signaturePattern} signers (default: $email_git_all_signature_types)

        or use only ${signature_pattern} signers (default: $email_git_all_signature_types)

    --git-fallback => use git when no exact MAINTAINERS pattern (default: $email_git_fallback)

    --git-chief-penguins => include ${penguin_chiefs}

    --git-min-signatures => number of signatures required (default: $email_git_min_signatures)

		}

		if ($list_additional =~ m/subscribers-only/) {

		    if ($email_subscriber_list) {

			push(@list_to, [$list_address, "subscriber list${list_role}"]);

			if (!$hash_list_to{$list_address}) {

			    $hash_list_to{$list_address} = 1;

			    push(@list_to, [$list_address,

					    "subscriber list${list_role}"]);

			}

		    }

		} else {

		    if ($email_list) {

			push(@list_to, [$list_address, "open list${list_role}"]);

			if (!$hash_list_to{$list_address}) {

			    $hash_list_to{$list_address} = 1;

			    push(@list_to, [$list_address,

					    "open list${list_role}"]);

			}

		    }

		}

	    } elsif ($ptype eq "M") {

    }

}

my %email_hash_name;

my %email_hash_address;

sub email_inuse {

    my ($name, $address) = @_;

    return @lines;

}

sub extract_formatted_signatures {

    my (@signature_lines) = @_;

    my @type = @signature_lines;

    s/\s*(.*):.*/$1/ for (@type);

    # cut -f2- -d":"

    s/\s*.*:\s*(.+)\s*/$1/ for (@signature_lines);

## Reformat email addresses (with names) to avoid badly written signatures

    foreach my $signer (@signature_lines) {

	my ($name, $address) = parse_email($signer);

	$signer = format_email($name, $address, 1);

    }

    return (\@type, \@signature_lines);

}

sub vcs_find_signers {

    my ($cmd) = @_;

    my @lines = ();

    my $commits;

    my @lines = ();

    my @signatures = ();

    @lines = &{$VCS_cmds{"execute_cmd"}}($cmd);

    $commits = grep(/$pattern/, @lines);	# of commits

    @lines = grep(/^[ \t]*${signaturePattern}.*\@.*$/, @lines);

    if (!$email_git_penguin_chiefs) {

	@lines = grep(!/${penguin_chiefs}/i, @lines);

    }

    @signatures = grep(/^[ \t]*${signature_pattern}.*\@.*$/, @lines);

    return (0, @lines) if !@lines;

    return (0, @signatures) if !@signatures;

    # cut -f2- -d":"

    s/.*:\s*(.+)\s*/$1/ for (@lines);

    save_commits_by_author(@lines) if ($interactive);

    save_commits_by_signer(@lines) if ($interactive);

## Reformat email addresses (with names) to avoid badly written signatures

    foreach my $line (@lines) {

	my ($name, $address) = parse_email($line);

	$line = format_email($name, $address, 1);

    if (!$email_git_penguin_chiefs) {

	@signatures = grep(!/${penguin_chiefs}/i, @signatures);

    }

    return ($commits, @lines);

    my ($types_ref, $signers_ref) = extract_formatted_signatures(@signatures);

    return ($commits, @$signers_ref);

}

sub vcs_find_author {

    return @lines if !@lines;

## Reformat email addresses (with names) to avoid badly written signatures

    my @authors = ();

    foreach my $line (@lines) {

	my ($name, $address) = parse_email($line);

	$line = format_email($name, $address, 1);

	if ($line =~ m/$VCS_cmds{"author_pattern"}/) {

	    my $author = $1;

	    my ($name, $address) = parse_email($author);

	    $author = format_email($name, $address, 1);

	    push(@authors, $author);

	}

    }

    return @lines;

    save_commits_by_author(@lines) if ($interactive);

    save_commits_by_signer(@lines) if ($interactive);

    return @authors;

}

sub vcs_save_commits {

    %VCS_cmds = %VCS_cmds_git;

    return 1 if eval $VCS_cmds{"available"};

    %VCS_cmds = %VCS_cmds_hg;

    return 1 if eval $VCS_cmds{"available"};

    return 2 if eval $VCS_cmds{"available"};

    %VCS_cmds = ();

    if (!$printed_novcs) {

	warn("$P: No supported VCS found.  Add --nogit to options?\n");

    return 0;

}

sub vcs_interactive_menu {

    my $list_ref = shift;

sub vcs_is_git {

    return $vcs_used == 1;

}

sub vcs_is_hg {

    return $vcs_used == 2;

}

sub interactive_get_maintainer {

    my ($list_ref) = @_;

    my @list = @$list_ref;

    return if (!vcs_exists());

    vcs_exists();

    my %selected;

    my %shortlog;

    my $input;

    my %authored;

    my %signed;

    my $count = 0;

    #select maintainers by default

    foreach my $entry (@list){

	my $role = $entry->[1];

	    $selected{$count} = ($role =~ /maintainer:|supporter:/);

	$selected{$count} = ($role =~ /^(maintainer|supporter|open list)/);

	$authored{$count} = 0;

	$signed{$count} = 0;

	$count++;

    }

    #menu loop

    do {

	my $count = 0;

    my $done = 0;

    my $print_options = 0;

    my $redraw = 1;

    while (!$done) {

	$count = 0;

	if ($redraw) {

	    printf STDERR "\n%1s %2s %-65sauth sign\n",

		"*", "#", "email/list and role:stats";

	    foreach my $entry (@list) {

		my $email = $entry->[0];

		my $role = $entry->[1];

	    if ($selected{$count}){

		print STDERR "* ";

	    } else {

		print STDERR "  ";

	    }

	    print STDERR "$count: $email,\t\t $role";

	    print STDERR "\n";

	    if ($shortlog{$count}){

		my $entries_ref = vcs_get_shortlog($email);

		foreach my $entry_ref (@{$entries_ref}){

		    my $filename = @{$entry_ref}[0];

		    my @shortlog = @{@{$entry_ref}[1]};

		    print STDERR "\tshortlog for $filename (authored commits: " . @shortlog . ").\n";

		    foreach my $commit (@shortlog){

			print STDERR "\t  $commit\n";

		    }

		    print STDERR "\n";

		my $sel = "";

		$sel = "*" if ($selected{$count});

		my $commit_author = $commit_author_hash{$email};

		my $commit_signer = $commit_signer_hash{$email};

		my $authored = 0;

		my $signed = 0;

		$authored++ for (@{$commit_author});

		$signed++ for (@{$commit_signer});

		printf STDERR "%1s %2d %-65s", $sel, $count + 1, $email;

		printf STDERR "%4d %4d", $authored, $signed

		    if ($authored > 0 || $signed > 0);

		printf STDERR "\n     %s\n", $role;

		if ($authored{$count}) {

		    my $commit_author = $commit_author_hash{$email};

		    foreach my $ref (@{$commit_author}) {

			print STDERR "     Author: @{$ref}[1]\n";

		    }

		}

		if ($signed{$count}) {

		    my $commit_signer = $commit_signer_hash{$email};

		    foreach my $ref (@{$commit_signer}) {

			print STDERR "     @{$ref}[2]: @{$ref}[1]\n";

		    }

		}

		$count++;

	    }

	print STDERR "\n";

	print STDERR "Choose whom to cc by entering a commaseperated list of numbers and hitting enter.\n";

	print STDERR "To show a short list of commits, precede the number by a '?',\n";

	print STDERR "A blank line indicates that you are satisfied with your choice.\n";

	$input = <STDIN>;

	}

	my $date_ref = \$email_git_since;

	$date_ref = \$email_hg_since if (vcs_is_hg());

	if ($print_options) {

	    $print_options = 0;

	    if (vcs_exists()) {

		print STDERR

"\nVersion Control options:\n" .

"g  use git history      [$email_git]\n" .

"gf use git-fallback     [$email_git_fallback]\n" .

"b  use git blame        [$email_git_blame]\n" .

"bs use blame signatures [$email_git_blame_signatures]\n" .

"c# minimum commits      [$email_git_min_signatures]\n" .

"%# min percent          [$email_git_min_percent]\n" .

"d# history to use       [$$date_ref]\n" .

"x# max maintainers      [$email_git_max_maintainers]\n" .

"t  all signature types  [$email_git_all_signature_types]\n";

	    }

	    print STDERR "\nAdditional options:\n" .

"0  toggle all\n" .

"f  emails in file       [$file_emails]\n" .

"k  keywords in file     [$keywords]\n" .

"r  remove duplicates    [$email_remove_duplicates]\n" .

"p# pattern match depth  [$pattern_depth]\n";

	}

	print STDERR

"\n#(toggle), A#(author), S#(signed) *(all), ^(none), O(options), Y(approve): ";

	my $input = <STDIN>;

	chomp($input);

	$redraw = 1;

	my $rerun = 0;

	my @wish = split(/[, ]+/, $input);

	foreach my $nr (@wish) {

		my $logtoggle = 0;

		if ($nr =~ /\?/){

			$nr =~ s/\?//;

			$logtoggle = 1;

	    $nr = lc($nr);

	    my $sel = substr($nr, 0, 1);

	    my $str = substr($nr, 1);

	    my $val = 0;

	    $val = $1 if $str =~ /^(\d+)$/;

	    if ($sel eq "y") {

		$interactive = 0;

		$done = 1;

		$output_rolestats = 0;

		$output_roles = 0;

		last;

	    } elsif ($nr =~ /^\d+$/ && $nr > 0 && $nr <= $count) {

		$selected{$nr - 1} = !$selected{$nr - 1};

	    } elsif ($sel eq "*" || $sel eq '^') {

		my $toggle = 0;

		$toggle = 1 if ($sel eq '*');

		for (my $i = 0; $i < $count; $i++) {

		    $selected{$i} = $toggle;

		}

	    } elsif ($sel eq "0") {

		for (my $i = 0; $i < $count; $i++) {

		    $selected{$i} = !$selected{$i};

		}

	    } elsif ($sel eq "a") {

		if ($val > 0 && $val <= $count) {

		    $authored{$val - 1} = !$authored{$val - 1};

		} elsif ($str eq '*' || $str eq '^') {

		    my $toggle = 0;

		    $toggle = 1 if ($str eq '*');

		    for (my $i = 0; $i < $count; $i++) {

			$authored{$i} = $toggle;

		    }

		}

	    } elsif ($sel eq "s") {

		if ($val > 0 && $val <= $count) {

		    $signed{$val - 1} = !$signed{$val - 1};

		} elsif ($str eq '*' || $str eq '^') {

		    my $toggle = 0;

		    $toggle = 1 if ($str eq '*');

		    for (my $i = 0; $i < $count; $i++) {

			$signed{$i} = $toggle;

		    }

		}

	    } elsif ($sel eq "o") {

		$print_options = 1;

		$redraw = 1;

	    } elsif ($sel eq "g") {

		if ($str eq "f") {

		    bool_invert(\$email_git_fallback);

		} else {

		    bool_invert(\$email_git);

		}

		#skip out of bounds numbers

		next unless ($nr <= $count && $nr >= 0);

		if ($logtoggle){

			$shortlog{$nr} = !$shortlog{$nr};

		$rerun = 1;

	    } elsif ($sel eq "b") {

		if ($str eq "s") {

		    bool_invert(\$email_git_blame_signatures);

		} else {

			$selected{$nr} = !$selected{$nr};

			#switch shortlog on if an entry get's selected

			if ($selected{$nr}){

				$shortlog{$nr}=1;

		    bool_invert(\$email_git_blame);

		}

		$rerun = 1;