ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

diff options

0 files changed, 0 insertions, 0 deletions

d="n_24" class="hl"># Original Author and copyright holder:

# Dieter Simader dsmimader@sql-ledger.com

#======================================================================

# This file has NOT undergone whitespace cleanup.

#======================================================================

# mailer package

#======================================================================

package Mailer;

sub new {

    my ($type) = @_;

    my $self = {};

    bless $self, $type;

}

sub send {

    my ($self, $out) = @_;

    my $boundary = time;

    $boundary = "LedgerSMB-$self->{version}-$boundary";

    my $domain = $self->{from};

    $domain =~ s/(.*?\@|>)//g;

    my $msgid = "$boundary\@$domain";

    $self->{charset} = "ISO-8859-1" unless $self->{charset};

    if ($out) {

        open(OUT, $out) or return "$out : $!";

    } else {

        open(OUT, ">-") or return "STDOUT : $!";

}

    $self->{contenttype} = "text/plain" unless $self->{contenttype};

    my %h;