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:
Rüdiger Timm 2008-01-16 07:45:48 +00:00
parent 363575401a
commit 8cb7503f34

View file

@ -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");