#!/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);
}