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$initial_reply_to=~s/^\s+<?/</; 371$initial_reply_to=~s/>?\s+$/>/; 372} 373 374if(!defined$smtp_server) { 375foreach(qw( /usr/sbin/sendmail /usr/lib/sendmail )) { 376if(-x $_) { 377$smtp_server=$_; 378last; 379} 380} 381$smtp_server||='localhost';# could be 127.0.0.1, too... *shrug* 382} 383 384if($compose) { 385# Note that this does not need to be secure, but we will make a small 386# effort to have it be unique 387open(C,">",$compose_filename) 388or die"Failed to open for writing$compose_filename:$!"; 389print C "From$sender# This line is ignored.\n"; 390printf C "Subject:%s\n\n",$initial_subject; 391printf C <<EOT; 392GIT: Please enter your email below. 393GIT: Lines beginning in "GIT: " will be removed. 394GIT: Consider including an overall diffstat or table of contents 395GIT: for the patch you are writing. 396 397EOT 398close(C); 399 400my$editor=$ENV{GIT_EDITOR} ||$repo->config("core.editor") ||$ENV{VISUAL} ||$ENV{EDITOR} ||"vi"; 401system($editor,$compose_filename); 402 403open(C2,">",$compose_filename.".final") 404or die"Failed to open$compose_filename.final : ".$!; 405 406open(C,"<",$compose_filename) 407or die"Failed to open$compose_filename: ".$!; 408 409while(<C>) { 410next ifm/^GIT: /; 411print C2 $_; 412} 413close(C); 414close(C2); 415 416do{ 417$_=$term->readline("Send this email? (y|n) "); 418}while(!defined$_); 419 420if(uc substr($_,0,1)ne'Y') { 421 cleanup_compose_files(); 422exit(0); 423} 424 425@files= ($compose_filename.".final"); 426} 427 428 429# Now that all the defaults are set, process the rest of the command line 430# arguments and collect up the files that need to be processed. 431formy$f(@ARGV) { 432if(-d $f) { 433opendir(DH,$f) 434or die"Failed to opendir$f:$!"; 435 436push@files,grep{ -f $_}map{ +$f."/".$_} 437sort readdir(DH); 438 439}elsif(-f $f) { 440push@files,$f; 441 442}else{ 443print STDERR "Skipping$f- not found.\n"; 444} 445} 446 447if(@files) { 448unless($quiet) { 449print$_,"\n"for(@files); 450} 451}else{ 452print STDERR "\nNo patch files specified!\n\n"; 453 usage(); 454} 455 456# Variables we set as part of the loop over files 457our($message_id,%mail,$subject,$reply_to,$references,$message); 458 459sub extract_valid_address { 460my$address=shift; 461my$local_part_regexp='[^<>"\s@]+'; 462my$domain_regexp='[^.<>"\s@]+(?:\.[^.<>"\s@]+)+'; 463 464# check for a local address: 465return$addressif($address=~/^($local_part_regexp)$/); 466 467$address=~s/^\s*<(.*)>\s*$/$1/; 468if($have_email_valid) { 469returnscalar Email::Valid->address($address); 470}else{ 471# less robust/correct than the monster regexp in Email::Valid, 472# but still does a 99% job, and one less dependency 473$address=~/($local_part_regexp\@$domain_regexp)/; 474return$1; 475} 476} 477 478# Usually don't need to change anything below here. 479 480# we make a "fake" message id by taking the current number 481# of seconds since the beginning of Unix time and tacking on 482# a random number to the end, in case we are called quicker than 483# 1 second since the last time we were called. 484 485# We'll setup a template for the message id, using the "from" address: 486 487my($message_id_stamp,$message_id_serial); 488sub make_message_id 489{ 490my$uniq; 491if(!defined$message_id_stamp) { 492$message_id_stamp=sprintf("%s-%s",time,$$); 493$message_id_serial=0; 494} 495$message_id_serial++; 496$uniq="$message_id_stamp-$message_id_serial"; 497 498my$du_part; 499for($sender,$repocommitter,$repoauthor) { 500$du_part= extract_valid_address(sanitize_address($_)); 501last if(defined$du_partand$du_partne''); 502} 503if(not defined$du_partor$du_parteq'') { 504use Sys::Hostname qw(); 505$du_part='user@'. Sys::Hostname::hostname(); 506} 507my$message_id_template="<%s-git-send-email-%s>"; 508$message_id=sprintf($message_id_template,$uniq,$du_part); 509#print "new message id = $message_id\n"; # Was useful for debugging 510} 511 512 513 514$time=time-scalar$#files; 515 516sub unquote_rfc2047 { 517local($_) =@_; 518my$encoding; 519if(s/=\?([^?]+)\?q\?(.*)\?=/$2/g) { 520$encoding=$1; 521s/_/ /g; 522s/=([0-9A-F]{2})/chr(hex($1))/eg; 523} 524returnwantarray? ($_,$encoding) :$_; 525} 526 527# use the simplest quoting being able to handle the recipient 528sub sanitize_address 529{ 530my($recipient) =@_; 531my($recipient_name,$recipient_addr) = ($recipient=~/^(.*?)\s*(<.*)/); 532 533if(not$recipient_name) { 534return"$recipient"; 535} 536 537# if recipient_name is already quoted, do nothing 538if($recipient_name=~/^(".*"|=\?utf-8\?q\?.*\?=)$/) { 539return$recipient; 540} 541 542# rfc2047 is needed if a non-ascii char is included 543if($recipient_name=~/[^[:ascii:]]/) { 544$recipient_name=~s/([^-a-zA-Z0-9!*+\/])/sprintf("=%02X",ord($1))/eg; 545$recipient_name=~s/(.*)/=\?utf-8\?q\?$1\?=/; 546} 547 548# double quotes are needed if specials or CTLs are included 549elsif($recipient_name=~/[][()<>@,;:\\".\000-\037\177]/) { 550$recipient_name=~s/(["\\\r])/\\$1/; 551$recipient_name="\"$recipient_name\""; 552} 553 554return"$recipient_name$recipient_addr"; 555 556} 557 558sub send_message 559{ 560my@recipients= unique_email_list(@to); 561@cc= (grep{my$cc= extract_valid_address($_); 562not grep{$cceq$_}@recipients 563} 564map{ sanitize_address($_) } 565@cc); 566my$to=join(",\n\t",@recipients); 567@recipients= unique_email_list(@recipients,@cc,@bcclist); 568@recipients= (map{ extract_valid_address($_) }@recipients); 569my$date= format_2822_time($time++); 570my$gitversion='@@GIT_VERSION@@'; 571if($gitversion=~m/..GIT_VERSION../) { 572$gitversion= Git::version(); 573} 574 575my$cc=join(", ", unique_email_list(@cc)); 576my$ccline=""; 577if($ccne'') { 578$ccline="\nCc:$cc"; 579} 580my$sanitized_sender= sanitize_address($sender); 581 make_message_id(); 582 583my$header="From:$sanitized_sender 584To:$to${ccline} 585Subject:$subject 586Date:$date 587Message-Id:$message_id 588X-Mailer: git-send-email$gitversion 589"; 590if($thread&&$reply_to) { 591 592$header.="In-Reply-To:$reply_to\n"; 593$header.="References:$references\n"; 594} 595if(@xh) { 596$header.=join("\n",@xh) ."\n"; 597} 598 599my@sendmail_parameters= ('-i',@recipients); 600my$raw_from=$sanitized_sender; 601$raw_from=$envelope_senderif(defined$envelope_sender); 602$raw_from= extract_valid_address($raw_from); 603unshift(@sendmail_parameters, 604'-f',$raw_from)if(defined$envelope_sender); 605 606if($dry_run) { 607# We don't want to send the email. 608}elsif($smtp_server=~ m#^/#) { 609my$pid=open my$sm,'|-'; 610defined$pidor die$!; 611if(!$pid) { 612exec($smtp_server,@sendmail_parameters)or die$!; 613} 614print$sm"$header\n$message"; 615close$smor die$?; 616}else{ 617 618if(!defined$smtp_server) { 619die"The required SMTP server is not properly defined." 620} 621 622if($smtp_ssl) { 623$smtp_server_port||=465;# ssmtp 624require Net::SMTP::SSL; 625$smtp||= Net::SMTP::SSL->new($smtp_server, Port =>$smtp_server_port); 626} 627else{ 628require Net::SMTP; 629$smtp||= Net::SMTP->new((defined$smtp_server_port) 630?"$smtp_server:$smtp_server_port" 631:$smtp_server); 632} 633 634if(!$smtp) { 635die"Unable to initialize SMTP properly. Is there something wrong with your config?"; 636} 637 638if((defined$smtp_authuser) && (defined$smtp_authpass)) { 639$auth||=$smtp->auth($smtp_authuser,$smtp_authpass)or die$smtp->message; 640} 641$smtp->mail($raw_from)or die$smtp->message; 642$smtp->to(@recipients)or die$smtp->message; 643$smtp->dataor die$smtp->message; 644$smtp->datasend("$header\n$message")or die$smtp->message; 645$smtp->dataend()or die$smtp->message; 646$smtp->okor die"Failed to send$subject\n".$smtp->message; 647} 648if($quiet) { 649printf(($dry_run?"Dry-":"")."Sent%s\n",$subject); 650}else{ 651print(($dry_run?"Dry-":"")."OK. Log says:\n"); 652if($smtp_server!~ m#^/#) { 653print"Server:$smtp_server\n"; 654print"MAIL FROM:<$raw_from>\n"; 655print"RCPT TO:".join(',',(map{"<$_>"}@recipients))."\n"; 656}else{ 657print"Sendmail:$smtp_server".join(' ',@sendmail_parameters)."\n"; 658} 659print$header,"\n"; 660if($smtp) { 661print"Result: ",$smtp->code,' ', 662($smtp->message=~/\n([^\n]+\n)$/s),"\n"; 663}else{ 664print"Result: OK\n"; 665} 666} 667} 668 669$reply_to=$initial_reply_to; 670$references=$initial_reply_to||''; 671$subject=$initial_subject; 672 673foreachmy$t(@files) { 674open(F,"<",$t)or die"can't open file$t"; 675 676my$author=undef; 677my$author_encoding; 678my$has_content_type; 679my$body_encoding; 680@cc=@initial_cc; 681@xh= (); 682my$input_format=undef; 683my$header_done=0; 684$message=""; 685while(<F>) { 686if(!$header_done) { 687if(/^From /) { 688$input_format='mbox'; 689next; 690} 691chomp; 692if(!defined$input_format&&/^[-A-Za-z]+:\s/) { 693$input_format='mbox'; 694} 695 696if(defined$input_format&&$input_formateq'mbox') { 697if(/^Subject:\s+(.*)$/) { 698$subject=$1; 699 700}elsif(/^(Cc|From):\s+(.*)$/) { 701if(unquote_rfc2047($2)eq$sender) { 702next if($suppress_from); 703} 704elsif($1eq'From') { 705($author,$author_encoding) 706= unquote_rfc2047($2); 707} 708printf("(mbox) Adding cc:%sfrom line '%s'\n", 709$2,$_)unless$quiet; 710push@cc,$2; 711} 712elsif(/^Content-type:/i) { 713$has_content_type=1; 714if(/charset="?[^ "]+/) { 715$body_encoding=$1; 716} 717push@xh,$_; 718} 719elsif(!/^Date:\s/&&/^[-A-Za-z]+:\s+\S/) { 720push@xh,$_; 721} 722 723}else{ 724# In the traditional 725# "send lots of email" format, 726# line 1 = cc 727# line 2 = subject 728# So let's support that, too. 729$input_format='lots'; 730if(@cc==0) { 731printf("(non-mbox) Adding cc:%sfrom line '%s'\n", 732$_,$_)unless$quiet; 733 734push@cc,$_; 735 736}elsif(!defined$subject) { 737$subject=$_; 738} 739} 740 741# A whitespace line will terminate the headers 742if(m/^\s*$/) { 743$header_done=1; 744} 745}else{ 746$message.=$_; 747if(/^(Signed-off-by|Cc): (.*)$/i&&$signed_off_cc) { 748my$c=$2; 749chomp$c; 750next if($ceq$senderand$suppress_from); 751push@cc,$c; 752printf("(sob) Adding cc:%sfrom line '%s'\n", 753$c,$_)unless$quiet; 754} 755} 756} 757close F; 758 759if(defined$cc_cmd) { 760open(F,"$cc_cmd$t|") 761or die"(cc-cmd) Could not execute '$cc_cmd'"; 762while(<F>) { 763my$c=$_; 764$c=~s/^\s*//g; 765$c=~s/\n$//g; 766next if($ceq$senderand$suppress_from); 767push@cc,$c; 768printf("(cc-cmd) Adding cc:%sfrom: '%s'\n", 769$c,$cc_cmd)unless$quiet; 770} 771close F 772or die"(cc-cmd) failed to close pipe to '$cc_cmd'"; 773} 774 775if(defined$author) { 776$message="From:$author\n\n$message"; 777if(defined$author_encoding) { 778if($has_content_type) { 779if($body_encodingeq$author_encoding) { 780# ok, we already have the right encoding 781} 782else{ 783# uh oh, we should re-encode 784} 785} 786else{ 787push@xh, 788'MIME-Version: 1.0', 789"Content-Type: text/plain; charset=$author_encoding", 790'Content-Transfer-Encoding: 8bit'; 791} 792} 793} 794 795 send_message(); 796 797# set up for the next message 798if($chain_reply_to|| !defined$reply_to||length($reply_to) ==0) { 799$reply_to=$message_id; 800if(length$references>0) { 801$references.="\n$message_id"; 802}else{ 803$references="$message_id"; 804} 805} 806} 807 808if($compose) { 809 cleanup_compose_files(); 810} 811 812sub cleanup_compose_files() { 813unlink($compose_filename,$compose_filename.".final"); 814 815} 816 817$smtp->quitif$smtp; 818 819sub unique_email_list(@) { 820my%seen; 821my@emails; 822 823foreachmy$entry(@_) { 824if(my$clean= extract_valid_address($entry)) { 825$seen{$clean} ||=0; 826next if$seen{$clean}++; 827push@emails,$entry; 828}else{ 829print STDERR "W: unable to extract a valid address", 830" from:$entry\n"; 831} 832} 833return@emails; 834}