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