NAME

Mail::SMI - SMTP and Mail Interface Module

SYNOPSIS

  use Mail::SMI;

  $mobj = new Mail::SMI;
  $mobj->connect(HOST, 25) || die $mobj->strerror();
  $mobj->setfrom(MAILFROM) || die $mobj->strerror();
  $mobj->setrcpt(RCPTTO) || die $mobj->strerror();
  $mobj->setrcpt(RCPTTO) || die $mobj->strerror();
  $MSG = {
    'Date' => $mobj->rfc822_date(),
    'To' => 'TO',
    'From' => 'FROM',
    'Subject' => 'SENDMAIL Module',
    'X-AnotherHeader' => 'OK',
    .
    .
    .
    'Body' => BODY
  };
  $mobj->setdata($MSG);
  $mobj->sendmail() || die $mobj->strerror();
  $mobj->disconnect();

DESCRIPTION

This module was created to substitute the old modules that establish a new local connection every time that you want send a new mail. With this you can make one connection and send all mail throught this connection without disconnecting in this transaction

METHODS

$mobj = new Mail::SMI;

$mobj->connect(HOST, PORT, HOSTNAME);

$mobj->disconnect();

$mobj->reset();

$mobj->rfc822_date();

$mobj->sendmail([HOST, PORT]);

$mobj->setdata(HASHREF);

$mobj->setfrom(FROM);

$mobj->setrcpt(RCPT);

$mobj->strerror();

AUTHOR

Daniel Froz Costa

Please feel free to modify this module, send diff to dfroz@users.sourceforge.net. Any suggestions and comments are welcome ;^)

LICENSE

Copyright (C) 2001 Daniel Froz Costa

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

SEE ALSO

perl(1).