scripts/review - pub/scm/linux/kernel/git/bwh/linux-stable-queue - Git at Google


            
            #!/usr/bin/perl


            # Generate an mbox of mail from the applied quilt series in the proper

            
            # format for a -stable kernel review.


            use strict;

            
            use warnings;


            use File::Basename;

            
            use lib File::Basename::dirname($0);

            
            use LinuxStableQueue qw($MAIL_FROM $MAIL_REVIEW_TO $MAIL_REVIEW_COVER_CC

            
            			$MAIL_REVIEW_CC $STABLE_RC_URL

            
            			base_version last_update common_mail_header

            
            			mime_entity_to_mbox print_signature parse_mailbox_addr

            
            			mailbox_addr_to_addr_spec make_mailbox_addr

            
            			parse_mailbox_list quilt_dir_from_git_dir);

            
            use FileHandle;

            
            use MIME::Parser ();

            
            use MIME::Words qw(decode_mimewords);

            
            use Mail::Field::AddrList ();

            
            use POSIX qw(getcwd strftime);


            sub quilt_shortlog {

            
                my ($dir, $series, $log_fh) = @_;

            
                my %patches;

            
                my $parser = new MIME::Parser;

            
                $parser->output_to_core(1);


                for my $patch_name (@$series) {

            
            	my $message = $parser->parse_open("$dir/$patch_name") or return 0;


            	# Extract author and subject

            
            	$message->head->unfold();

            
            	my ($author) =

            
            	    Mail::Field->new('From',

            
            			     scalar(decode_mimewords($message->head->get('From'))))

            
            	    ->names();

            
            	my $subject = scalar(decode_mimewords($message->head->get('Subject')));

            
            	chomp $subject;

            
            	if (!defined($author) || !defined($subject)) {

            
            	    print STDERR "E: Author and subject not found in $patch_name\n";

            
            	    return 0;

            
            	}


            	# Extract upstream commit hash

            
            	my $body = $message->bodyhandle->open('r');

            
            	my $upstream;

            
            	for (<$body>) {

            
            	    if (/^commit (.*) upstream\.\n/m) {

            
            		$upstream = $1;

            
            	    } elsif (/^\[ Upstream commit (.*) \]\n/m) {

            
            		$upstream = $1;

            
            	    } elsif (/^\(cherry picked from commit (.*)\)\n/m) {

            
            		$upstream = $1;

            
            	    }

            
            	}

            
            	if (!defined($upstream)) {

            
            	    # non-fatal; sometimes there is a good reason for this

            
            	    print STDERR "W: Upstream commit hash not found in $patch_name\n";

            
            	    $upstream = 'not upstream';

            
            	}


            	$patches{$author} ||= {};

            
            	$patches{$author}->{$subject} = $upstream;

            
                }


                # Group and list ASCIIbetically by author and then subject

            
                for my $author (sort(keys(%patches))) {

            
            	printf $log_fh "%s (%d):\n", $author, scalar(keys(%{$patches{$author}}));

            
            	for my $subject (sort(keys(%{$patches{$author}}))) {

            
            	    my $upstream = $patches{$author}->{$subject};

            
            	    printf $log_fh "      %s\n         [%s]\n", $subject, $upstream;

            
            	}

            
            	printf $log_fh "\n";

            
                }


                return 1;

            
            }


            my $update_rc_ver = `make kernelversion`;

            
            chomp $update_rc_ver;

            
            my $update_ver = $update_rc_ver;

            
            $update_ver =~ s/-rc\d+$//;

            
            my $last_update_ver = last_update($update_ver);

            
            my $base_ver = base_version($update_ver);


            my $DATE = strftime('%a %b %d %H:%M:%S UTC %Y', gmtime(time() + 2 * 86400));


            if ($update_rc_ver eq $update_ver) {

            
                print STDERR "Makefile says the version is ${update_rc_ver}, did you forget to set the -rc version?\n";

            
                exit 1;

            
            }


            my $MBOX = "linux-$update_rc_ver.mbox";


            print "Creating the mailbox for kernel release ${update_rc_ver}\n";


            my $mbox_fh = new FileHandle($MBOX, 'w');


            my $quilt_dir = quilt_dir_from_git_dir(getcwd()) or die "Where are you?";

            
            my $series_fh = new FileHandle('quilt series |') or die "$!";

            
            my @series = <$series_fh> or die "$!";

            
            chomp @series;


            my $NUM_PATCHES = scalar(@series);

            
            my $patch_num_fmt = '%0' . length($NUM_PATCHES) . 'd';


            my $cover = MIME::Entity->build(

            
                From => $MAIL_FROM,

            
                To => $MAIL_REVIEW_TO,

            
                Cc => "$MAIL_REVIEW_COVER_CC, $MAIL_REVIEW_CC",

            
                common_mail_header(),

            
                Subject => sprintf(

            
            	"[PATCH $base_ver $patch_num_fmt/$NUM_PATCHES] $update_rc_ver review", 0),

            
                Type => 'text/plain',

            
                Charset => 'UTF-8',

            
                Encoding => '8bit',

            
                Data => '');


            my $body_fh = $cover->open('w');

            
            print $body_fh

            
            "This is the start of the stable review cycle for the ${update_ver} release.

            
            There are ${NUM_PATCHES} patches in this series, which will be posted as responses

            
            to this one.  If anyone has any issues with these being applied, please

            
            let me know.


            Responses should be made by ${DATE}.

            
            Anything received after that time might be too late.


            All the patches have also been committed to the linux-${base_ver}.y-rc branch of

            
            ${STABLE_RC_URL} .

            
            A shortlog and diffstat can be found below.


            Ben.


            -------------


            ";

            
            quilt_shortlog($quilt_dir, \@series, $body_fh) or exit 1;

            
            print $body_fh `git diff --stat v$last_update_ver`;

            
            print_signature($body_fh);

            
            close $body_fh;


            # XXX I want to attach the combined patch, but I also want to sign it.

            
            # And I don't want to have to load all the messages into a mailer.  So

            
            # this will have to wait for GPG integration.


            mime_entity_to_mbox($cover, $mbox_fh);


            my $parser = new MIME::Parser;


            for my $i (1..@series) {

            
                my $patch_name = $series[$i - 1];


                # Extract what we need

            
                my $patch = $parser->parse_open("$quilt_dir/$patch_name");

            
                my $from = MIME::Words::decode_mimewords($patch->head->get('From'));

            
                my $subject = $patch->head->get('Subject');

            
                my $body_text = $patch->bodyhandle->as_string;

            
                my %extra_cc;


                # Remove temporary files

            
                $patch->purge;


                # Add the author and everyone mentioned in the commit message to

            
                # the Cc list.  De-dupe, and fix quoting of names.

            
                my ($name, $addr_spec) = parse_mailbox_addr($patch->head->get('From'));

            
                $extra_cc{$addr_spec} = make_mailbox_addr($name, $addr_spec);

            
                while ($body_text =~ /^(?:Signed-off-by|Acked-by|Suggested-by|Reviewed-by|Requested-by|Reported-by|Tested-by|Cc):\s*(.*>|\S*)/gim) {

            
            	($name, $addr_spec) = parse_mailbox_addr($1);

            
            	$extra_cc{$addr_spec} ||= make_mailbox_addr($name, $addr_spec);

            
                }


                # Also remove recipients that are on the fixed address list

            
                for ($MAIL_FROM, parse_mailbox_list($MAIL_REVIEW_TO),

            
            	 parse_mailbox_list($MAIL_REVIEW_CC)) {

            
            	delete $extra_cc{mailbox_addr_to_addr_spec($_)};

            
                }


                # Build a new message

            
                $patch = MIME::Entity->build(

            
            	From => $MAIL_FROM,

            
            	To => $MAIL_REVIEW_TO,

            
            	Cc => join(', ', $MAIL_REVIEW_CC, values(%extra_cc)),

            
            	common_mail_header(),

            
            	Subject => sprintf("[PATCH $base_ver $patch_num_fmt/$NUM_PATCHES] %s",

            
            			   $i, $subject),

            
            	Type => 'text/plain',

            
            	Charset => 'UTF-8',

            
            	Encoding => '8bit',

            
            	Data => '');


                # Make it a reply to the cover

            
                $patch->head->add('In-Reply-To' => $cover->head->get('Message-Id'));


                my $body_fh = $patch->open('w');

            
                print $body_fh

            
            "$update_rc_ver review patch.  If anyone has any objections, please let me know.


            ------------------


            From: $from

            
            ";

            
                print $body_fh $body_text;

            
                close $body_fh;


                mime_entity_to_mbox($patch, $mbox_fh);

            
            }


            print "mbox is now in ${MBOX}\n";
	#!/usr/bin/perl

	# Generate an mbox of mail from the applied quilt series in the proper
	# format for a -stable kernel review.

	use strict;
	use warnings;

	use File::Basename;
	use lib File::Basename::dirname($0);
	use LinuxStableQueue qw($MAIL_FROM $MAIL_REVIEW_TO $MAIL_REVIEW_COVER_CC
	$MAIL_REVIEW_CC $STABLE_RC_URL
	base_version last_update common_mail_header
	mime_entity_to_mbox print_signature parse_mailbox_addr
	mailbox_addr_to_addr_spec make_mailbox_addr
	parse_mailbox_list quilt_dir_from_git_dir);
	use FileHandle;
	use MIME::Parser ();
	use MIME::Words qw(decode_mimewords);
	use Mail::Field::AddrList ();
	use POSIX qw(getcwd strftime);

	sub quilt_shortlog {
	my ($dir, $series, $log_fh) = @_;
	my %patches;
	my $parser = new MIME::Parser;
	$parser->output_to_core(1);

	for my $patch_name (@$series) {
	my $message = $parser->parse_open("$dir/$patch_name") or return 0;

	# Extract author and subject
	$message->head->unfold();
	my ($author) =
	Mail::Field->new('From',
	scalar(decode_mimewords($message->head->get('From'))))
	->names();
	my $subject = scalar(decode_mimewords($message->head->get('Subject')));
	chomp $subject;
	if (!defined($author) \|\| !defined($subject)) {
	print STDERR "E: Author and subject not found in $patch_name\n";
	return 0;
	}

	# Extract upstream commit hash
	my $body = $message->bodyhandle->open('r');
	my $upstream;
	for (<$body>) {
	if (/^commit (.*) upstream\.\n/m) {
	$upstream = $1;
	} elsif (/^\[ Upstream commit (.*) \]\n/m) {
	$upstream = $1;
	} elsif (/^\(cherry picked from commit (.*)\)\n/m) {
	$upstream = $1;
	}
	}
	if (!defined($upstream)) {
	# non-fatal; sometimes there is a good reason for this
	print STDERR "W: Upstream commit hash not found in $patch_name\n";
	$upstream = 'not upstream';
	}

	$patches{$author} \|\|= {};
	$patches{$author}->{$subject} = $upstream;
	}

	# Group and list ASCIIbetically by author and then subject
	for my $author (sort(keys(%patches))) {
	printf $log_fh "%s (%d):\n", $author, scalar(keys(%{$patches{$author}}));
	for my $subject (sort(keys(%{$patches{$author}}))) {
	my $upstream = $patches{$author}->{$subject};
	printf $log_fh " %s\n [%s]\n", $subject, $upstream;
	}
	printf $log_fh "\n";
	}

	return 1;
	}

	my $update_rc_ver = `make kernelversion`;
	chomp $update_rc_ver;
	my $update_ver = $update_rc_ver;
	$update_ver =~ s/-rc\d+$//;
	my $last_update_ver = last_update($update_ver);
	my $base_ver = base_version($update_ver);

	my $DATE = strftime('%a %b %d %H:%M:%S UTC %Y', gmtime(time() + 2 * 86400));

	if ($update_rc_ver eq $update_ver) {
	print STDERR "Makefile says the version is ${update_rc_ver}, did you forget to set the -rc version?\n";
	exit 1;
	}

	my $MBOX = "linux-$update_rc_ver.mbox";

	print "Creating the mailbox for kernel release ${update_rc_ver}\n";

	my $mbox_fh = new FileHandle($MBOX, 'w');

	my $quilt_dir = quilt_dir_from_git_dir(getcwd()) or die "Where are you?";
	my $series_fh = new FileHandle('quilt series \|') or die "$!";
	my @series = <$series_fh> or die "$!";
	chomp @series;

	my $NUM_PATCHES = scalar(@series);
	my $patch_num_fmt = '%0' . length($NUM_PATCHES) . 'd';

	my $cover = MIME::Entity->build(
	From => $MAIL_FROM,
	To => $MAIL_REVIEW_TO,
	Cc => "$MAIL_REVIEW_COVER_CC, $MAIL_REVIEW_CC",
	common_mail_header(),
	Subject => sprintf(
	"[PATCH $base_ver $patch_num_fmt/$NUM_PATCHES] $update_rc_ver review", 0),
	Type => 'text/plain',
	Charset => 'UTF-8',
	Encoding => '8bit',
	Data => '');

	my $body_fh = $cover->open('w');
	print $body_fh
	"This is the start of the stable review cycle for the ${update_ver} release.
	There are ${NUM_PATCHES} patches in this series, which will be posted as responses
	to this one. If anyone has any issues with these being applied, please
	let me know.

	Responses should be made by ${DATE}.
	Anything received after that time might be too late.

	All the patches have also been committed to the linux-${base_ver}.y-rc branch of
	${STABLE_RC_URL} .
	A shortlog and diffstat can be found below.

	Ben.

	-------------

	";
	quilt_shortlog($quilt_dir, \@series, $body_fh) or exit 1;
	print $body_fh `git diff --stat v$last_update_ver`;
	print_signature($body_fh);
	close $body_fh;

	# XXX I want to attach the combined patch, but I also want to sign it.
	# And I don't want to have to load all the messages into a mailer. So
	# this will have to wait for GPG integration.

	mime_entity_to_mbox($cover, $mbox_fh);

	my $parser = new MIME::Parser;

	for my $i (1..@series) {
	my $patch_name = $series[$i - 1];

	# Extract what we need
	my $patch = $parser->parse_open("$quilt_dir/$patch_name");
	my $from = MIME::Words::decode_mimewords($patch->head->get('From'));
	my $subject = $patch->head->get('Subject');
	my $body_text = $patch->bodyhandle->as_string;
	my %extra_cc;

	# Remove temporary files
	$patch->purge;

	# Add the author and everyone mentioned in the commit message to
	# the Cc list. De-dupe, and fix quoting of names.
	my ($name, $addr_spec) = parse_mailbox_addr($patch->head->get('From'));
	$extra_cc{$addr_spec} = make_mailbox_addr($name, $addr_spec);
	while ($body_text =~ /^(?:Signed-off-by\|Acked-by\|Suggested-by\|Reviewed-by\|Requested-by\|Reported-by\|Tested-by\|Cc):\s(.>\|\S*)/gim) {
	($name, $addr_spec) = parse_mailbox_addr($1);
	$extra_cc{$addr_spec} \|\|= make_mailbox_addr($name, $addr_spec);
	}

	# Also remove recipients that are on the fixed address list
	for ($MAIL_FROM, parse_mailbox_list($MAIL_REVIEW_TO),
	parse_mailbox_list($MAIL_REVIEW_CC)) {
	delete $extra_cc{mailbox_addr_to_addr_spec($_)};
	}

	# Build a new message
	$patch = MIME::Entity->build(
	From => $MAIL_FROM,
	To => $MAIL_REVIEW_TO,
	Cc => join(', ', $MAIL_REVIEW_CC, values(%extra_cc)),
	common_mail_header(),
	Subject => sprintf("[PATCH $base_ver $patch_num_fmt/$NUM_PATCHES] %s",
	$i, $subject),
	Type => 'text/plain',
	Charset => 'UTF-8',
	Encoding => '8bit',
	Data => '');

	# Make it a reply to the cover
	$patch->head->add('In-Reply-To' => $cover->head->get('Message-Id'));

	my $body_fh = $patch->open('w');
	print $body_fh
	"$update_rc_ver review patch. If anyone has any objections, please let me know.

	------------------

	From: $from
	";
	print $body_fh $body_text;
	close $body_fh;

	mime_entity_to_mbox($patch, $mbox_fh);
	}

	print "mbox is now in ${MBOX}\n";