#!/usr/bin/perl -w
use strict;
use Mail::Mailer;

my $self = {};
my $from = "script-cgi\@tld.hostname.com";
my $to = "him\@thatone.example.net,her\@theotherone.example.net";
my $cc = "\"Coordinator's Name\" <test\@mydomain.com>";
my $subject = "Test sendemail path";
my $email_method = "sendmail";
my $msg =<<EOM;

This is a test message.
This is only a test.

EOM

&sendemail($self,$from,$to,$cc,$subject,$msg,$email_method);

1;

sub sendemail() {
  my($self,$from,$to,$cc,$subject,$msg,$email_method)=@_;
  my($hdr,$qmail,$sendmail);
  chomp($from); chomp($to); chomp($cc);
  $qmail = "/var/qm/bin/qmail-inject";
  $sendmail = "/usr/sbin/sendmail -f $from $to $cc";

  if($email_method eq "qmail"){
    # code similiar to the next case
  } elsif ($email_method eq "sendmail") {
  $hdr =<<EOH;
From: $from
To: $to
Cc: $cc
Subject: $subject

EOH

  open (MAILER, "|$sendmail" ) || die "Unable to open sendmail";
  print MAILER ( $hdr, $msg );
  close MAILER;
  print STDERR "Now sending email using the `sendmail` method.";
  return 1;

  } elsif ($email_method eq "mailer") {
  my $mailer = Mail::Mailer->new();
  $mailer->open({       From    => "$from",
                        To      => "$to",
                        Cc      => "$cc",
                        Subject => "$subject",
                })
        or die "Can not open: $! \n";
  print $mailer $msg;
  $mailer->close();
  return 1;

  } else {
    return 0;
  }
}       # END sendemail()