diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-10 22:16:12 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-10 22:16:12 +0000 |
| commit | 9a3c41647921a725f6f21dac11815e8af7d21492 (patch) | |
| tree | 496a5b89ef771e21af9a7a7e8cbc994abee2df8a /Echolot/Tools.pm | |
| parent | 1446959e2632b8e24ef14eee7a91a7965ad7246b (diff) | |
Fixed a stupid syntax bug
Diffstat (limited to 'Echolot/Tools.pm')
| -rw-r--r-- | Echolot/Tools.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm index 17a5980..36cf4cd 100644 --- a/Echolot/Tools.pm +++ b/Echolot/Tools.pm @@ -1,7 +1,7 @@ package Echolot::Tools; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Tools.pm,v 1.4 2002/07/10 21:46:28 weasel Exp $ +# $Id: Tools.pm,v 1.5 2002/07/10 22:16:12 weasel Exp $ # =pod @@ -116,6 +116,8 @@ sub send_message(%) { }; $args{'Subject'} = 'none' unless (defined $args{'Subject'}); + my @lines = map { $_."\n" } split (/\r?\n/, $args{'Body'}); + open(SENDMAIL, '|'.Echolot::Config::get()->{'sendmail'}.' -f '.$args{'From'}.' -t') or cluck("Cannot run sendmail: $!"), return 0; |