#!/usr/bin/perl
# メールのタイトル
$subject = 'Syslog-ng alert';
# 送信先メールアドレス
$mailto = 'root@mail.aconus.com';
# 送信元メールアドレス
$mailfrom = 'root@mail.aconus.com';
# sendmailパス
$sendmail = '/usr/sbin/sendmail';
use Jcode;
#require './jcode.pl';
### メール送信 ###
while ($message = <STDIN>) {
# 頭の余分な部分を削除
$message =~ s/^\<\w+\>//g;
Jcode::convert(\$subject,jis);
Jcode::convert(\$message,jis);
# &jcode'convert(*subject,'jis');
# &jcode'convert(*message,'jis');
open(MAIL,"| $sendmail -t");
print MAIL "To: $mailto\n";
print MAIL "From: $mailfrom\n";
print MAIL "Subject: $subject\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "$message\n";
close(MAIL);
}