INTEGRATION: CWS rt25_SRC680 (1.6.940); FILE MERGED
2008/01/14 14:39:58 rt 1.6.940.1: #i85224# Set 'to' header entry.
This commit is contained in:
parent
363575401a
commit
8cb7503f34
1 changed files with 4 additions and 2 deletions
|
@ -4,9 +4,9 @@
|
|||
#
|
||||
# $RCSfile: mail.pm,v $
|
||||
#
|
||||
# $Revision: 1.6 $
|
||||
# $Revision: 1.7 $
|
||||
#
|
||||
# last change: $Author: rt $ $Date: 2005-09-08 09:05:38 $
|
||||
# last change: $Author: rt $ $Date: 2008-01-16 08:45:48 $
|
||||
#
|
||||
# The Contents of this file are made available subject to
|
||||
# the terms of GNU Lesser General Public License Version 2.1.
|
||||
|
@ -71,6 +71,8 @@ sub send_mail
|
|||
|
||||
my @message = ();
|
||||
|
||||
my $recipient_string = join ',', @listener;
|
||||
push(@message, "To: $recipient_string\n");
|
||||
push(@message, "Subject: $subject");
|
||||
push(@message, "\n");
|
||||
push(@message, "Located at $destdir");
|
||||
|
|
Loading…
Reference in a new issue