Custom Search

JITAKU_SVR_Wiki

#!/usr/bin/perl

use Net::SMTP;

$from ='form@hogehoge.com';
$mailto ='foo@hogehoge.com';
$subject ='testmail';

$header = << "MAILHEADER";
From: $from
To: $mailto
Subject: $subject
MAILHEADER

$message = << "_HERE_";
testmail from cacti
_HERE_

$smtp = Net::SMTP->new('127.0.0.1');
$smtp->mail($from);
$smtp->to($mailto);
$smtp->bcc(@mail_bcc);
$smtp->data();
$smtp->datasend("$header\n");
$smtp->datasend("$message\n");
$smtp->dataend();
$smtp->quit;



TIPS:
smtpを直接叩くスクリプト。
必要moduleは『Net::SMTP』

$smtp = Net::SMTP->new('127.0.0.1');

newに与えられた引数が直接つなぎにいく対象ホスト。

一度作っておくとほかの場所で色々と応用が利くので重宝する。


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-12-22 (火) 15:02:08 (644d)