qpsmtpd/qpsmtpd
Ask Bjørn Hansen 3352c379ff add /bin and /usr/bin to the PATH
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@136 958fd67b-6ff1-0310-b445-bb7760255be9
2003-04-15 17:50:22 +00:00

32 lines
634 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';
# should this be ->new ?
my $qpsmtpd = Qpsmtpd::TcpServer->new();
$qpsmtpd->start_connection();
$qpsmtpd->run();
__END__
1;