~ubuntu-branches/ubuntu/intrepid/git-core/intrepid-updates

use Term::ANSIColor;

$SIG{INT} = sub { print color("reset"), "\n"; exit };

 

   --cc-cmd       Specify a command to execute per file which adds

                  per file specific cc address entries

 

   --compose      Use \$GIT_EDITOR, core.editor, \$EDITOR, or \$VISUAL to edit

                  an introductory message for the patch series.

   --signed-off-cc Automatically add email addresses that appear in

                 Signed-off-by: or Cc: lines to the cc: list. Defaults to on.

                  appears in a From: line. Defaults to off.

 

   --thread       Specify that the "In-Reply-To:" header should be set on all

                  emails. Defaults to on.

        $initial_reply_to,$initial_subject,@files,$author,$sender,$compose,$time);

# Behavior modification variables

my ($quiet, $dry_run) = (0, 0);

 

# Variables with corresponding config settings

my ($thread, $chain_reply_to, $suppress_from, $signed_off_cc, $cc_cmd);

 

my %config_settings = (

    "thread" => [\$thread, 1],

    "chainreplyto" => [\$chain_reply_to, 1],

    "suppressfrom" => [\$suppress_from, 0],

    "signedoffcc" => [\$signed_off_cc, 1],

    "cccmd" => [\$cc_cmd, ""],

);

 

foreach my $setting (keys %config_settings) {

    my $config = $repo->config_bool("sendemail.$setting");

    ${$config_settings{$setting}->[0]} = (defined $config) ? $config : $config_settings{$setting}->[1];

my $rc = GetOptions("sender|from=s" => \$sender,

                    "cc-cmd=s" => \$cc_cmd,

                    "suppress-from!" => \$suppress_from,

                    "signed-off-cc|signed-off-by-cc!" => \$signed_off_cc,

                    "thread!" => \$thread,

my ($repoauthor) = $repo->ident_person('author');

my ($repocommitter) = $repo->ident_person('committer');

                if (/^(\S+)\t.*\t(.*)$/) {

($sender) = expand_aliases($sender) if defined $sender;

 

if (!defined $sender) {

        $sender = $repoauthor || $repocommitter;

                $_ = $term->readline("Who should the emails appear to be from? [$sender] ");

        $sender = $_ if ($_);

        print "Emails will be sent from: ", $sender, "\n";

@to = (map { sanitize_address($_) } @to);

if ($thread && !defined $initial_reply_to && $prompting) {

        $initial_reply_to =~ s/^\s+<?/</;

        $initial_reply_to =~ s/>?\s+$/>/;

        print C "From $sender # This line is ignored.\n";

        my $editor = $ENV{GIT_EDITOR} || $repo->config("core.editor") || $ENV{VISUAL} || $ENV{EDITOR} || "vi";

        $address =~ s/^\s*<(.*)>\s*$/$1/;

my ($message_id_stamp, $message_id_serial);

        my $uniq;

        if (!defined $message_id_stamp) {

                $message_id_stamp = sprintf("%s-%s", time, $$);

                $message_id_serial = 0;

        }

        $message_id_serial++;

        $uniq = "$message_id_stamp-$message_id_serial";

 

        my $du_part;

        for ($sender, $repocommitter, $repoauthor) {

                $du_part = extract_valid_address(sanitize_address($_));

                last if (defined $du_part and $du_part ne '');

        }

        if (not defined $du_part or $du_part eq '') {

                use Sys::Hostname qw();

                $du_part = 'user@' . Sys::Hostname::hostname();

        }

        my $message_id_template = "<%s-git-send-email-%s>";

        $message_id = sprintf($message_id_template, $uniq, $du_part);

# use the simplest quoting being able to handle the recipient

sub sanitize_address

        my ($recipient_name, $recipient_addr) = ($recipient =~ /^(.*?)\s*(<.*)/);

 

        if (not $recipient_name) {

                return "$recipient";

        }

 

        # if recipient_name is already quoted, do nothing

        if ($recipient_name =~ /^(".*"|=\?utf-8\?q\?.*\?=)$/) {

                return $recipient;

        }

 

        # rfc2047 is needed if a non-ascii char is included

        if ($recipient_name =~ /[^[:ascii:]]/) {

                $recipient_name =~ s/([^-a-zA-Z0-9!*+\/])/sprintf("=%02X", ord($1))/eg;

                $recipient_name =~ s/(.*)/=\?utf-8\?q\?$1\?=/;

        }

 

        # double quotes are needed if specials or CTLs are included

        elsif ($recipient_name =~ /[][()<>@,;:\\".\000-\037\177]/) {

                $recipient_name =~ s/(["\\\r])/\\$1/;

                $recipient_name = "\"$recipient_name\"";

        }

 

        return "$recipient_name $recipient_addr";

 

        @cc = (map { sanitize_address($_) } @cc);

        my $sanitized_sender = sanitize_address($sender);

        make_message_id();

 

        my $header = "From: $sanitized_sender

        if ($thread && $reply_to) {

        my $raw_from = $sanitized_sender;

                print "From: $sanitized_sender\nSubject: $subject\nCc: $cc\nTo: $to\n\n";

        my $author = undef;

                                        if (unquote_rfc2047($2) eq $sender) {

                                                $author = unquote_rfc2047($2);

                        if (/^(Signed-off-by|Cc): (.*)$/i && $signed_off_cc) {

 

        if ($cc_cmd ne "") {

                open(F, "$cc_cmd $t |")

                        or die "(cc-cmd) Could not execute '$cc_cmd'";

                while(<F>) {

                        my $c = $_;

                        $c =~ s/^\s*//g;

                        $c =~ s/\n$//g;

                        push @cc, $c;

                        printf("(cc-cmd) Adding cc: %s from: '%s'\n",

                                $c, $cc_cmd) unless $quiet;

                }

                close F

                        or die "(cc-cmd) failed to close pipe to '$cc_cmd'";

        }

 

        if (defined $author) {

                $message = "From: $author\n\n$message";

        }