b808a139cf
IO::File is buffering the message, so that the AV software doesn't get a a chance to scan anything when size_threshold > 0. * qpsmtpd Apparently no one is running tcpserver any longer, since it wasn't loading the plugins anymore. git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@550 958fd67b-6ff1-0310-b445-bb7760255be9
32 lines
635 B
Perl
Executable File
32 lines
635 B
Perl
Executable File
#!/usr/bin/perl -Tw
|
|
# Copyright (c) 2001 Ask Bjoern Hansen. See the LICENSE file for details.
|
|
# The "command dispatch" system is taken from colobus - http://trainedmonkey.com/colobus/
|
|
#
|
|
# this is designed to be run under tcpserver (http://cr.yp.to/ucspi-tcp.html)
|
|
# or inetd if you're into that sort of thing
|
|
#
|
|
#
|
|
# For more information see http://develooper.com/code/qpsmtpd/
|
|
#
|
|
#
|
|
|
|
use lib 'lib';
|
|
use Qpsmtpd::TcpServer;
|
|
use strict;
|
|
$| = 1;
|
|
|
|
delete $ENV{ENV};
|
|
$ENV{PATH} = '/bin:/usr/bin:/var/qmail/bin';
|
|
|
|
my $qpsmtpd = Qpsmtpd::TcpServer->new();
|
|
$qpsmtpd->load_plugins();
|
|
$qpsmtpd->start_connection();
|
|
$qpsmtpd->run();
|
|
|
|
__END__
|
|
|
|
|
|
|
|
|
|
1;
|