Hi,

im trying to send email with syslog-ng, i have configurations
like this:

destination ruf_mich_an { program("/usr/local/sbin/log_to_mail.pl"); };
filter ruf_mich_an2 { facility(cron); };
log { source(net); filter(ruf_mich_an2); destination(ruf_mich_an); };

or things like:

destination d_cachos_dns_ldap_errors2 {
        program("/usr/local/sbin/log_to_mail.pl");
};

filter f_cachos_dns_error { match("Connection refused on DNS lookup to"); };

log { source(net); filter(f_cachos_dns_error); destination(d_cachos_dns_ldap_errors2); };


But there comes no mail, that perl script (see below) works correkt
on the Console (takes input for the body from stdin).

But, when i restart syslog-ng, i become 4 Mails, but with only
"761" inside...

Is there any "buffer" available? Means: will i receive a Mail
for _every_ LogEntry, or can i say, all logentries in a defined
time (minute or so). But i also can do that in the Mail Script.

#####################################################

#!/usr/bin/perl
#s/^<[\d]{1,2}>//;
use Socket;
$proto   = getprotobyname('tcp');
$port    = 25;
$address = 192.168.3.12;
socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto);

$sin = sockaddr_in($port,$address);
connect(Socket_Handle,$sin) || die ("Failed $!:");
select(Socket_Handle);
$|=1;
select(STDOUT);

print Socket_Handle "ehlo test\n";
print Socket_Handle "mail from: me\@myhouse.net\n";
print Socket_Handle "rcpt to: irgendwer\@myhouse.net\n";
print Socket_Handle "data\n";
print Socket_Handle "subject: $_\n\n";

print Socket_Handle "$_\r\n";
print Socket_Handle ".\r\n";
print Socket_Handle "quit\n";

while(<Socket_Handle>) {
        print $_;
}

close(Socket_Handle);