Tripletail::Sendmail::Esmtp - Forcast esmtp を使用するメール送信

Tripletail documentation Contained in the Tripletail distribution.

Index

Code Index:

NAME

Top

Tripletail::Sendmail::Esmtp - Forcast esmtp を使用するメール送信

DESCRIPTION

Top

  ！！注意！！
  このクラスを利用するにはEsmtpが必要です。
  Esmtpとは、ユミルリンク株式会社が販売している高速メール配信システムです。

esmtp を用いてメールを送信する。

このクラスを使用する場合は、事前に esmtp 用テーブル群を 用意しておかなければならない。

また、このクラスは esmtp プロセスが起動しているかどうかを関知しない。

METHODS

new

Tripletail::Sendmail 参照。

connect
disconnect
setTimeout

何もしない。

send

Tripletail::Sendmail 参照。

Ini パラメータ

dbgroup
  dbgroup = DB

使用する DB グループ名。 ini で設定したグループ名を渡す。 Tripletail#startCgi で有効化しなければならない。

resend
  resend = 1

送信失敗時に再送するかどうか。省略可能。 0の場合、再送しない。 1の場合、再送する。

デフォルトは1。

resendlimit
  resendlimit = 3 days

再送に成功しない場合に、それを打ち切るまでの時間。 0を指定した場合は永久に打ち切らない。度量衡 参照。省略可能。

デフォルトは '24 hours'。

SEE ALSO

Top

Tripletail
Tripletail::Sendmail

AUTHOR INFORMATION

Top

Copyright 2006 YMIRLINK Inc.

This framework is free software; you can redistribute it and/or modify it under the same terms as Perl itself

このフレームワークはフリーソフトウェアです。あなたは Perl と同じライセンスの 元で再配布及び変更を行うことが出来ます。

Address bug reports and comments to: tl@tripletail.jp

HP : http://tripletail.jp/

Tripletail documentation Contained in the Tripletail distribution. 
# -----------------------------------------------------------------------------
# Tripletail::Sendmail::Esmtp - Forcast esmtpを使用するメール送信
# -----------------------------------------------------------------------------
package Tripletail::Sendmail::Esmtp;
use strict;
use warnings;
use Tripletail;
require Tripletail::Sendmail;
our @ISA = qw(Tripletail::Sendmail);

1;

sub _new {
	my $class = shift;
	my $group = shift;
	my $this = bless {} => $class;

	$this->{group} = $group;
	$this->{dbgroup} = $TL->INI->get($group => 'dbgroup');
	$this->{dbgroup} or die __PACKAGE__."#new: dbgroup is not defined for the INI group [$group]. (dbgroupが指定されていません)\n";

	$this->{resend} = $TL->INI->get($group => 'resend', 1);
	$this->{resendlimit} = $TL->INI->get($group => 'resendlimit', '24 hours');

	$this;
}

sub send {
	my $this = shift;
	my $data = $this->_getoptSend(@_);

	my $DB = $TL->getDB($this->{dbgroup});

	foreach my $rcpt (@{$data->{rcpt}}) {
		$DB->execute(
			q{
								INSERT INTO mailsend
										(start, resend, mailfrom, rcptto, hourlimit, resendlimit, data)
								VALUES (NOW(), ?     , ?       , ?     , ''       , ?          , ?   )
						},
			$this->{resend} ? 'yes' : 'no',
			$data->{from},
			$rcpt,
			$TL->parsePeriod($this->{resendlimit}),
			$data->{data},
		);
	}

	$this;
}


__END__