byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Get forkserver working again

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@595 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-12-30 20:03:22 +00:00
parent 99e0455fa4
commit e440b7bd65
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
qpsmtpd-forkserver
View File

@ -45,8 +45,7 @@ EOT
exit 0; exit 0;
} }
GetOptions('h|help' => \&usage, GetOptions('l|listen-address=s' => \@LOCALADDR,
'l|listen-address=s' => \@LOCALADDR,
'c|limit-connections=i' => \$MAXCONN, 'c|limit-connections=i' => \$MAXCONN,
'm|max-from-ip=i' => \$MAXCONNIP, 'm|max-from-ip=i' => \$MAXCONNIP,
'p|port=i' => \$PORT, 'p|port=i' => \$PORT,
@ -139,7 +138,7 @@ if ($PID_FILE) {
} }
# Load plugins here # Load plugins here
my $qpsmtpd = Qpsmtpd::PollServer->new(); my $qpsmtpd = bless {},'Qpsmtpd'; # ugh - probably should have new() in Qpsmtpd.pm
# Drop privileges # Drop privileges
my (undef, undef, $quid, $qgid) = getpwnam $USER or my (undef, undef, $quid, $qgid) = getpwnam $USER or