1#!/usr/bin/perl -w 2# 3# Copyright 2002,2005 Greg Kroah-Hartman <greg@kroah.com> 4# Copyright 2005 Ryan Anderson <ryan@michonline.com> 5# 6# GPL v2 (See COPYING) 7# 8# Ported to support git "mbox" format files by Ryan Anderson <ryan@michonline.com> 9# 10# Sends a collection of emails to the given email addresses, disturbingly fast. 11# 12# Supports two formats: 13# 1. mbox format files (ignoring most headers and MIME formatting - this is designed for sending patches) 14# 2. The original format support by Greg's script: 15# first line of the message is who to CC, 16# and second line is the subject of the message. 17# 18 19use strict; 20use warnings; 21use Term::ReadLine; 22use Getopt::Long; 23use Data::Dumper; 24use Term::ANSIColor; 25use Git; 26 27package FakeTerm; 28sub new { 29my($class,$reason) =@_; 30returnbless \$reason,shift; 31} 32subreadline{ 33my$self=shift; 34die"Cannot use readline on FakeTerm:$$self"; 35} 36package main; 37 38 39sub usage { 40print<<EOT; 41git-send-email [options] <file | directory>... 42Options: 43 --from Specify the "From:" line of the email to be sent. 44 45 --to Specify the primary "To:" line of the email. 46 47 --cc Specify an initial "Cc:" list for the entire series 48 of emails. 49 50 --cc-cmd Specify a command to execute per file which adds 51 per file specific cc address entries 52 53 --bcc Specify a list of email addresses that should be Bcc: 54 on all the emails. 55 56 --compose Use \$GIT_EDITOR, core.editor, \$EDITOR, or \$VISUALto edit 57 an introductory message for the patch series. 58 59 --subject Specify the initial "Subject:" line. 60 Only necessary if --compose is also set. If --compose 61 is not set, this will be prompted for. 62 63 --in-reply-to Specify the first "In-Reply-To:" header line. 64 Only used if --compose is also set. If --compose is not 65 set, this will be prompted for. 66 67 --chain-reply-to If set, the replies will all be to the previous 68 email sent, rather than to the first email sent. 69 Defaults to on. 70 71 --signed-off-cc Automatically add email addresses that appear in 72 Signed-off-by: or Cc: lines to the cc: list. Defaults to on. 73 74 --identity The configuration identity, a subsection to prioritise over 75 the default section. 76 77 --smtp-server If set, specifies the outgoing SMTP server to use. 78 Defaults to localhost. Port number can be specified here with 79 hostname:port format or by using --smtp-server-port option. 80 81 --smtp-server-port Specify a port on the outgoing SMTP server to connect to. 82 83 --smtp-user The username for SMTP-AUTH. 84 85 --smtp-pass The password for SMTP-AUTH. 86 87 --smtp-ssl If set, connects to the SMTP server using SSL. 88 89 --suppress-from Suppress sending emails to yourself. Defaults to off. 90 91 --thread Specify that the "In-Reply-To:" header should be set on all 92 emails. Defaults to on. 93 94 --quiet Make git-send-email less verbose. One line per email 95 should be all that is output. 96 97 --dry-run Do everything except actually send the emails. 98 99 --envelope-sender Specify the envelope sender used to send the emails. 100 101 --no-validate Don't perform any sanity checks on patches. 102 103EOT 104exit(1); 105} 106 107# most mail servers generate the Date: header, but not all... 108sub format_2822_time { 109my($time) =@_; 110my@localtm=localtime($time); 111my@gmttm=gmtime($time); 112my$localmin=$localtm[1] +$localtm[2] *60; 113my$gmtmin=$gmttm[1] +$gmttm[2] *60; 114if($localtm[0] !=$gmttm[0]) { 115die"local zone differs from GMT by a non-minute interval\n"; 116} 117if((($gmttm[6] +1) %7) ==$localtm[6]) { 118$localmin+=1440; 119}elsif((($gmttm[6] -1) %7) ==$localtm[6]) { 120$localmin-=1440; 121}elsif($gmttm[6] !=$localtm[6]) { 122die"local time offset greater than or equal to 24 hours\n"; 123} 124my$offset=$localmin-$gmtmin; 125my$offhour=$offset/60; 126my$offmin=abs($offset%60); 127if(abs($offhour) >=24) { 128die("local time offset greater than or equal to 24 hours\n"); 129} 130 131returnsprintf("%s,%2d%s%d%02d:%02d:%02d%s%02d%02d", 132qw(Sun Mon Tue Wed Thu Fri Sat)[$localtm[6]], 133$localtm[3], 134qw(Jan Feb Mar Apr May Jun 135 Jul Aug Sep Oct Nov Dec)[$localtm[4]], 136$localtm[5]+1900, 137$localtm[2], 138$localtm[1], 139$localtm[0], 140($offset>=0) ?'+':'-', 141abs($offhour), 142$offmin, 143); 144} 145 146my$have_email_valid=eval{require Email::Valid;1}; 147my$smtp; 148my$auth; 149 150sub unique_email_list(@); 151sub cleanup_compose_files(); 152 153# Constants (essentially) 154my$compose_filename=".msg.$$"; 155 156# Variables we fill in automatically, or via prompting: 157my(@to,@cc,@initial_cc,@bcclist,@xh, 158$initial_reply_to,$initial_subject,@files,$author,$sender,$smtp_authpass,$compose,$time); 159 160my$envelope_sender; 161 162# Example reply to: 163#$initial_reply_to = ''; #<20050203173208.GA23964@foobar.com>'; 164 165my$repo= Git->repository(); 166my$term=eval{ 167 new Term::ReadLine 'git-send-email'; 168}; 169if($@) { 170$term= new FakeTerm "$@: going non-interactive"; 171} 172 173# Behavior modification variables 174my($quiet,$dry_run) = (0,0); 175 176# Variables with corresponding config settings 177my($thread,$chain_reply_to,$suppress_from,$signed_off_cc,$cc_cmd); 178my($smtp_server,$smtp_server_port,$smtp_authuser,$smtp_ssl); 179my($identity,$aliasfiletype,@alias_files,@smtp_host_parts); 180my($no_validate); 181 182my%config_bool_settings= ( 183"thread"=> [\$thread,1], 184"chainreplyto"=> [\$chain_reply_to,1], 185"suppressfrom"=> [\$suppress_from,0], 186"signedoffcc"=> [\$signed_off_cc,1], 187"smtpssl"=> [\$smtp_ssl,0], 188); 189 190my%config_settings= ( 191"smtpserver"=> \$smtp_server, 192"smtpserverport"=> \$smtp_server_port, 193"smtpuser"=> \$smtp_authuser, 194"smtppass"=> \$smtp_authpass, 195"to"=> \@to, 196"cccmd"=> \$cc_cmd, 197"aliasfiletype"=> \$aliasfiletype, 198"bcc"=> \@bcclist, 199"aliasesfile"=> \@alias_files, 200); 201 202# Handle Uncouth Termination 203sub signal_handler { 204 205# Make text normal 206print color("reset"),"\n"; 207 208# SMTP password masked 209system"stty echo"; 210 211# tmp files from --compose 212if(-e $compose_filename) { 213print"'$compose_filename' contains an intermediate version of the email you were composing.\n"; 214} 215if(-e ($compose_filename.".final")) { 216print"'$compose_filename.final' contains the composed email.\n" 217} 218 219exit; 220}; 221 222$SIG{TERM} = \&signal_handler; 223$SIG{INT} = \&signal_handler; 224 225# Begin by accumulating all the variables (defined above), that we will end up 226# needing, first, from the command line: 227 228my$rc= GetOptions("sender|from=s"=> \$sender, 229"in-reply-to=s"=> \$initial_reply_to, 230"subject=s"=> \$initial_subject, 231"to=s"=> \@to, 232"cc=s"=> \@initial_cc, 233"bcc=s"=> \@bcclist, 234"chain-reply-to!"=> \$chain_reply_to, 235"smtp-server=s"=> \$smtp_server, 236"smtp-server-port=s"=> \$smtp_server_port, 237"smtp-user=s"=> \$smtp_authuser, 238"smtp-pass:s"=> \$smtp_authpass, 239"smtp-ssl!"=> \$smtp_ssl, 240"identity=s"=> \$identity, 241"compose"=> \$compose, 242"quiet"=> \$quiet, 243"cc-cmd=s"=> \$cc_cmd, 244"suppress-from!"=> \$suppress_from, 245"signed-off-cc|signed-off-by-cc!"=> \$signed_off_cc, 246"dry-run"=> \$dry_run, 247"envelope-sender=s"=> \$envelope_sender, 248"thread!"=> \$thread, 249"no-validate"=> \$no_validate, 250); 251 252unless($rc) { 253 usage(); 254} 255 256# Now, let's fill any that aren't set in with defaults: 257 258sub read_config { 259my($prefix) =@_; 260 261foreachmy$setting(keys%config_bool_settings) { 262my$target=$config_bool_settings{$setting}->[0]; 263$$target=$repo->config_bool("$prefix.$setting")unless(defined$$target); 264} 265 266foreachmy$setting(keys%config_settings) { 267my$target=$config_settings{$setting}; 268if(ref($target)eq"ARRAY") { 269unless(@$target) { 270my@values=$repo->config("$prefix.$setting"); 271@$target=@valuesif(@values&&defined$values[0]); 272} 273} 274else{ 275$$target=$repo->config("$prefix.$setting")unless(defined$$target); 276} 277} 278} 279 280# read configuration from [sendemail "$identity"], fall back on [sendemail] 281$identity=$repo->config("sendemail.identity")unless(defined$identity); 282read_config("sendemail.$identity")if(defined$identity); 283read_config("sendemail"); 284 285# fall back on builtin bool defaults 286foreachmy$setting(values%config_bool_settings) { 287${$setting->[0]} =$setting->[1]unless(defined(${$setting->[0]})); 288} 289 290my($repoauthor) =$repo->ident_person('author'); 291my($repocommitter) =$repo->ident_person('committer'); 292 293# Verify the user input 294 295foreachmy$entry(@to) { 296die"Comma in --to entry:$entry'\n"unless$entry!~m/,/; 297} 298 299foreachmy$entry(@initial_cc) { 300die"Comma in --cc entry:$entry'\n"unless$entry!~m/,/; 301} 302 303foreachmy$entry(@bcclist) { 304die"Comma in --bcclist entry:$entry'\n"unless$entry!~m/,/; 305} 306 307my%aliases; 308my%parse_alias= ( 309# multiline formats can be supported in the future 310 mutt =>sub{my$fh=shift;while(<$fh>) { 311if(/^\s*alias\s+(\S+)\s+(.*)$/) { 312my($alias,$addr) = ($1,$2); 313$addr=~s/#.*$//;# mutt allows # comments 314# commas delimit multiple addresses 315$aliases{$alias} = [split(/\s*,\s*/,$addr) ]; 316}}}, 317 mailrc =>sub{my$fh=shift;while(<$fh>) { 318if(/^alias\s+(\S+)\s+(.*)$/) { 319# spaces delimit multiple addresses 320$aliases{$1} = [split(/\s+/,$2) ]; 321}}}, 322 pine =>sub{my$fh=shift;while(<$fh>) { 323if(/^(\S+)\t.*\t(.*)$/) { 324$aliases{$1} = [split(/\s*,\s*/,$2) ]; 325}}}, 326 gnus =>sub{my$fh=shift;while(<$fh>) { 327if(/\(define-mail-alias\s+"(\S+?)"\s+"(\S+?)"\)/) { 328$aliases{$1} = [$2]; 329}}} 330); 331 332if(@alias_filesand$aliasfiletypeand defined$parse_alias{$aliasfiletype}) { 333foreachmy$file(@alias_files) { 334open my$fh,'<',$fileor die"opening$file:$!\n"; 335$parse_alias{$aliasfiletype}->($fh); 336close$fh; 337} 338} 339 340($sender) = expand_aliases($sender)ifdefined$sender; 341 342# Now that all the defaults are set, process the rest of the command line 343# arguments and collect up the files that need to be processed. 344formy$f(@ARGV) { 345if(-d $f) { 346opendir(DH,$f) 347or die"Failed to opendir$f:$!"; 348 349push@files,grep{ -f $_}map{ +$f."/".$_} 350sort readdir(DH); 351 352}elsif(-f $f) { 353push@files,$f; 354 355}else{ 356print STDERR "Skipping$f- not found.\n"; 357} 358} 359 360if(!$no_validate) { 361foreachmy$f(@files) { 362my$error= validate_patch($f); 363$errorand die"fatal:$f:$error\nwarning: no patches were sent\n"; 364} 365} 366 367if(@files) { 368unless($quiet) { 369print$_,"\n"for(@files); 370} 371}else{ 372print STDERR "\nNo patch files specified!\n\n"; 373 usage(); 374} 375 376my$prompting=0; 377if(!defined$sender) { 378$sender=$repoauthor||$repocommitter; 379 380while(1) { 381$_=$term->readline("Who should the emails appear to be from? [$sender] "); 382last ifdefined$_; 383print"\n"; 384} 385 386$sender=$_if($_); 387print"Emails will be sent from: ",$sender,"\n"; 388$prompting++; 389} 390 391if(!@to) { 392 393 394while(1) { 395$_=$term->readline("Who should the emails be sent to? ",""); 396last ifdefined$_; 397print"\n"; 398} 399 400my$to=$_; 401push@to,split/,/,$to; 402$prompting++; 403} 404 405sub expand_aliases { 406my@cur=@_; 407my@last; 408do{ 409@last=@cur; 410@cur=map{$aliases{$_} ? @{$aliases{$_}} :$_}@last; 411}while(join(',',@cur)ne join(',',@last)); 412return@cur; 413} 414 415@to= expand_aliases(@to); 416@to= (map{ sanitize_address($_) }@to); 417@initial_cc= expand_aliases(@initial_cc); 418@bcclist= expand_aliases(@bcclist); 419 420if(!defined$initial_subject&&$compose) { 421while(1) { 422$_=$term->readline("What subject should the initial email start with? ",$initial_subject); 423last ifdefined$_; 424print"\n"; 425} 426 427$initial_subject=$_; 428$prompting++; 429} 430 431if($thread&& !defined$initial_reply_to&&$prompting) { 432while(1) { 433$_=$term->readline("Message-ID to be used as In-Reply-To for the first email? ",$initial_reply_to); 434last ifdefined$_; 435print"\n"; 436} 437 438$initial_reply_to=$_; 439} 440if(defined$initial_reply_to&&$_ne"") { 441$initial_reply_to=~s/^\s*<?/</; 442$initial_reply_to=~s/>?\s*$/>/; 443} 444 445if(!defined$smtp_server) { 446foreach(qw( /usr/sbin/sendmail /usr/lib/sendmail )) { 447if(-x $_) { 448$smtp_server=$_; 449last; 450} 451} 452$smtp_server||='localhost';# could be 127.0.0.1, too... *shrug* 453} 454 455if($compose) { 456# Note that this does not need to be secure, but we will make a small 457# effort to have it be unique 458open(C,">",$compose_filename) 459or die"Failed to open for writing$compose_filename:$!"; 460print C "From$sender# This line is ignored.\n"; 461printf C "Subject:%s\n\n",$initial_subject; 462printf C <<EOT; 463GIT: Please enter your email below. 464GIT: Lines beginning in "GIT: " will be removed. 465GIT: Consider including an overall diffstat or table of contents 466GIT: for the patch you are writing. 467 468EOT 469close(C); 470 471my$editor=$ENV{GIT_EDITOR} ||$repo->config("core.editor") ||$ENV{VISUAL} ||$ENV{EDITOR} ||"vi"; 472system('sh','-c','$0$@',$editor,$compose_filename); 473 474open(C2,">",$compose_filename.".final") 475or die"Failed to open$compose_filename.final : ".$!; 476 477open(C,"<",$compose_filename) 478or die"Failed to open$compose_filename: ".$!; 479 480while(<C>) { 481next ifm/^GIT: /; 482print C2 $_; 483} 484close(C); 485close(C2); 486 487while(1) { 488$_=$term->readline("Send this email? (y|n) "); 489last ifdefined$_; 490print"\n"; 491} 492 493if(uc substr($_,0,1)ne'Y') { 494 cleanup_compose_files(); 495exit(0); 496} 497 498@files= ($compose_filename.".final",@files); 499} 500 501# Variables we set as part of the loop over files 502our($message_id,%mail,$subject,$reply_to,$references,$message); 503 504sub extract_valid_address { 505my$address=shift; 506my$local_part_regexp='[^<>"\s@]+'; 507my$domain_regexp='[^.<>"\s@]+(?:\.[^.<>"\s@]+)+'; 508 509# check for a local address: 510return$addressif($address=~/^($local_part_regexp)$/); 511 512$address=~s/^\s*<(.*)>\s*$/$1/; 513if($have_email_valid) { 514returnscalar Email::Valid->address($address); 515}else{ 516# less robust/correct than the monster regexp in Email::Valid, 517# but still does a 99% job, and one less dependency 518$address=~/($local_part_regexp\@$domain_regexp)/; 519return$1; 520} 521} 522 523# Usually don't need to change anything below here. 524 525# we make a "fake" message id by taking the current number 526# of seconds since the beginning of Unix time and tacking on 527# a random number to the end, in case we are called quicker than 528# 1 second since the last time we were called. 529 530# We'll setup a template for the message id, using the "from" address: 531 532my($message_id_stamp,$message_id_serial); 533sub make_message_id 534{ 535my$uniq; 536if(!defined$message_id_stamp) { 537$message_id_stamp=sprintf("%s-%s",time,$$); 538$message_id_serial=0; 539} 540$message_id_serial++; 541$uniq="$message_id_stamp-$message_id_serial"; 542 543my$du_part; 544for($sender,$repocommitter,$repoauthor) { 545$du_part= extract_valid_address(sanitize_address($_)); 546last if(defined$du_partand$du_partne''); 547} 548if(not defined$du_partor$du_parteq'') { 549use Sys::Hostname qw(); 550$du_part='user@'. Sys::Hostname::hostname(); 551} 552my$message_id_template="<%s-git-send-email-%s>"; 553$message_id=sprintf($message_id_template,$uniq,$du_part); 554#print "new message id = $message_id\n"; # Was useful for debugging 555} 556 557 558 559$time=time-scalar$#files; 560 561sub unquote_rfc2047 { 562local($_) =@_; 563my$encoding; 564if(s/=\?([^?]+)\?q\?(.*)\?=/$2/g) { 565$encoding=$1; 566s/_/ /g; 567s/=([0-9A-F]{2})/chr(hex($1))/eg; 568} 569returnwantarray? ($_,$encoding) :$_; 570} 571 572# use the simplest quoting being able to handle the recipient 573sub sanitize_address 574{ 575my($recipient) =@_; 576my($recipient_name,$recipient_addr) = ($recipient=~/^(.*?)\s*(<.*)/); 577 578if(not$recipient_name) { 579return"$recipient"; 580} 581 582# if recipient_name is already quoted, do nothing 583if($recipient_name=~/^(".*"|=\?utf-8\?q\?.*\?=)$/) { 584return$recipient; 585} 586 587# rfc2047 is needed if a non-ascii char is included 588if($recipient_name=~/[^[:ascii:]]/) { 589$recipient_name=~s/([^-a-zA-Z0-9!*+\/])/sprintf("=%02X",ord($1))/eg; 590$recipient_name=~s/(.*)/=\?utf-8\?q\?$1\?=/; 591} 592 593# double quotes are needed if specials or CTLs are included 594elsif($recipient_name=~/[][()<>@,;:\\".\000-\037\177]/) { 595$recipient_name=~s/(["\\\r])/\\$1/; 596$recipient_name="\"$recipient_name\""; 597} 598 599return"$recipient_name$recipient_addr"; 600 601} 602 603sub send_message 604{ 605my@recipients= unique_email_list(@to); 606@cc= (grep{my$cc= extract_valid_address($_); 607not grep{$cceq$_}@recipients 608} 609map{ sanitize_address($_) } 610@cc); 611my$to=join(",\n\t",@recipients); 612@recipients= unique_email_list(@recipients,@cc,@bcclist); 613@recipients= (map{ extract_valid_address($_) }@recipients); 614my$date= format_2822_time($time++); 615my$gitversion='@@GIT_VERSION@@'; 616if($gitversion=~m/..GIT_VERSION../) { 617$gitversion= Git::version(); 618} 619 620my$cc=join(", ", unique_email_list(@cc)); 621my$ccline=""; 622if($ccne'') { 623$ccline="\nCc:$cc"; 624} 625my$sanitized_sender= sanitize_address($sender); 626 make_message_id()unlessdefined($message_id); 627 628my$header="From:$sanitized_sender 629To:$to${ccline} 630Subject:$subject 631Date:$date 632Message-Id:$message_id 633X-Mailer: git-send-email$gitversion 634"; 635if($thread&&$reply_to) { 636 637$header.="In-Reply-To:$reply_to\n"; 638$header.="References:$references\n"; 639} 640if(@xh) { 641$header.=join("\n",@xh) ."\n"; 642} 643 644my@sendmail_parameters= ('-i',@recipients); 645my$raw_from=$sanitized_sender; 646$raw_from=$envelope_senderif(defined$envelope_sender); 647$raw_from= extract_valid_address($raw_from); 648unshift(@sendmail_parameters, 649'-f',$raw_from)if(defined$envelope_sender); 650 651if($dry_run) { 652# We don't want to send the email. 653}elsif($smtp_server=~ m#^/#) { 654my$pid=open my$sm,'|-'; 655defined$pidor die$!; 656if(!$pid) { 657exec($smtp_server,@sendmail_parameters)or die$!; 658} 659print$sm"$header\n$message"; 660close$smor die$?; 661}else{ 662 663if(!defined$smtp_server) { 664die"The required SMTP server is not properly defined." 665} 666 667if($smtp_ssl) { 668$smtp_server_port||=465;# ssmtp 669require Net::SMTP::SSL; 670$smtp||= Net::SMTP::SSL->new($smtp_server, Port =>$smtp_server_port); 671} 672else{ 673require Net::SMTP; 674$smtp||= Net::SMTP->new((defined$smtp_server_port) 675?"$smtp_server:$smtp_server_port" 676:$smtp_server); 677} 678 679if(!$smtp) { 680die"Unable to initialize SMTP properly. Is there something wrong with your config?"; 681} 682 683if(defined$smtp_authuser) { 684 685if(!defined$smtp_authpass) { 686 687system"stty -echo"; 688 689do{ 690print"Password: "; 691$_= <STDIN>; 692print"\n"; 693}while(!defined$_); 694 695chomp($smtp_authpass=$_); 696 697system"stty echo"; 698} 699 700$auth||=$smtp->auth($smtp_authuser,$smtp_authpass)or die$smtp->message; 701} 702 703$smtp->mail($raw_from)or die$smtp->message; 704$smtp->to(@recipients)or die$smtp->message; 705$smtp->dataor die$smtp->message; 706$smtp->datasend("$header\n$message")or die$smtp->message; 707$smtp->dataend()or die$smtp->message; 708$smtp->okor die"Failed to send$subject\n".$smtp->message; 709} 710if($quiet) { 711printf(($dry_run?"Dry-":"")."Sent%s\n",$subject); 712}else{ 713print(($dry_run?"Dry-":"")."OK. Log says:\n"); 714if($smtp_server!~ m#^/#) { 715print"Server:$smtp_server\n"; 716print"MAIL FROM:<$raw_from>\n"; 717print"RCPT TO:".join(',',(map{"<$_>"}@recipients))."\n"; 718}else{ 719print"Sendmail:$smtp_server".join(' ',@sendmail_parameters)."\n"; 720} 721print$header,"\n"; 722if($smtp) { 723print"Result: ",$smtp->code,' ', 724($smtp->message=~/\n([^\n]+\n)$/s),"\n"; 725}else{ 726print"Result: OK\n"; 727} 728} 729} 730 731$reply_to=$initial_reply_to; 732$references=$initial_reply_to||''; 733$subject=$initial_subject; 734 735foreachmy$t(@files) { 736open(F,"<",$t)or die"can't open file$t"; 737 738my$author=undef; 739my$author_encoding; 740my$has_content_type; 741my$body_encoding; 742@cc=@initial_cc; 743@xh= (); 744my$input_format=undef; 745my$header_done=0; 746$message=""; 747while(<F>) { 748if(!$header_done) { 749if(/^From /) { 750$input_format='mbox'; 751next; 752} 753chomp; 754if(!defined$input_format&&/^[-A-Za-z]+:\s/) { 755$input_format='mbox'; 756} 757 758if(defined$input_format&&$input_formateq'mbox') { 759if(/^Subject:\s+(.*)$/) { 760$subject=$1; 761 762}elsif(/^(Cc|From):\s+(.*)$/) { 763if(unquote_rfc2047($2)eq$sender) { 764next if($suppress_from); 765} 766elsif($1eq'From') { 767($author,$author_encoding) 768= unquote_rfc2047($2); 769} 770printf("(mbox) Adding cc:%sfrom line '%s'\n", 771$2,$_)unless$quiet; 772push@cc,$2; 773} 774elsif(/^Content-type:/i) { 775$has_content_type=1; 776if(/charset="?[^ "]+/) { 777$body_encoding=$1; 778} 779push@xh,$_; 780} 781elsif(/^Message-Id: (.*)/i) { 782$message_id=$1; 783} 784elsif(!/^Date:\s/&&/^[-A-Za-z]+:\s+\S/) { 785push@xh,$_; 786} 787 788}else{ 789# In the traditional 790# "send lots of email" format, 791# line 1 = cc 792# line 2 = subject 793# So let's support that, too. 794$input_format='lots'; 795if(@cc==0) { 796printf("(non-mbox) Adding cc:%sfrom line '%s'\n", 797$_,$_)unless$quiet; 798 799push@cc,$_; 800 801}elsif(!defined$subject) { 802$subject=$_; 803} 804} 805 806# A whitespace line will terminate the headers 807if(m/^\s*$/) { 808$header_done=1; 809} 810}else{ 811$message.=$_; 812if(/^(Signed-off-by|Cc): (.*)$/i&&$signed_off_cc) { 813my$c=$2; 814chomp$c; 815next if($ceq$senderand$suppress_from); 816push@cc,$c; 817printf("(sob) Adding cc:%sfrom line '%s'\n", 818$c,$_)unless$quiet; 819} 820} 821} 822close F; 823 824if(defined$cc_cmd) { 825open(F,"$cc_cmd$t|") 826or die"(cc-cmd) Could not execute '$cc_cmd'"; 827while(<F>) { 828my$c=$_; 829$c=~s/^\s*//g; 830$c=~s/\n$//g; 831next if($ceq$senderand$suppress_from); 832push@cc,$c; 833printf("(cc-cmd) Adding cc:%sfrom: '%s'\n", 834$c,$cc_cmd)unless$quiet; 835} 836close F 837or die"(cc-cmd) failed to close pipe to '$cc_cmd'"; 838} 839 840if(defined$author) { 841$message="From:$author\n\n$message"; 842if(defined$author_encoding) { 843if($has_content_type) { 844if($body_encodingeq$author_encoding) { 845# ok, we already have the right encoding 846} 847else{ 848# uh oh, we should re-encode 849} 850} 851else{ 852push@xh, 853'MIME-Version: 1.0', 854"Content-Type: text/plain; charset=$author_encoding", 855'Content-Transfer-Encoding: 8bit'; 856} 857} 858} 859 860 send_message(); 861 862# set up for the next message 863if($chain_reply_to|| !defined$reply_to||length($reply_to) ==0) { 864$reply_to=$message_id; 865if(length$references>0) { 866$references.="\n$message_id"; 867}else{ 868$references="$message_id"; 869} 870} 871$message_id=undef; 872} 873 874if($compose) { 875 cleanup_compose_files(); 876} 877 878sub cleanup_compose_files() { 879unlink($compose_filename,$compose_filename.".final"); 880 881} 882 883$smtp->quitif$smtp; 884 885sub unique_email_list(@) { 886my%seen; 887my@emails; 888 889foreachmy$entry(@_) { 890if(my$clean= extract_valid_address($entry)) { 891$seen{$clean} ||=0; 892next if$seen{$clean}++; 893push@emails,$entry; 894}else{ 895print STDERR "W: unable to extract a valid address", 896" from:$entry\n"; 897} 898} 899return@emails; 900} 901 902sub validate_patch { 903my$fn=shift; 904open(my$fh,'<',$fn) 905or die"unable to open$fn:$!\n"; 906while(my$line= <$fh>) { 907if(length($line) >998) { 908return"$.: patch contains a line longer than 998 characters"; 909} 910} 911returnundef; 912}