Date: 2004-08-08T06:39:44
Editor: ArikFunke <arik.funke@gmx.de>
Wiki: SpamAssassin Wiki
Page: SpamdOnWindows
URL: http://wiki.apache.org/spamassassin/SpamdOnWindows
Very rough solution for getting spamd to run on Windows
New Page:
= Running SpamD on Windows - Overview =
This document describes how to get SpamD to run on Windows.
'''ATTENTION''': This is a '''''extremely rough''''' solution and not intended to be used in a production environment. It works around the in windows unimplemented fork issues by incorporating the children processes' tasks into the main process. Thus no spin-off processes are needed. Various other issues are not tackle but these result only in warning messages.
= Installation =
The version used with this description was 3.0.0-pre4:
1. Follow the procedures in InstallingOnWindows or on http://www.openhandhome.com/howtosa.html.
2. Copy ''spamd.raw'' from the SpamAssassin source directory to ''C:\Perl\bin''.
3. From the already existing ''spamassassin.bat'' copy the first few lines that look like: {{{{@rem = '--*-Perl-*--
@echo off
SET RES_NAMESERVERS=192.168.2.1
SET LANG=en_US
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!C:\Perl\bin\perl.exe -T -w
#line 15
# <@LICENSE>
# Copyright 2004 Apache Software Foundation
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
# </@LICENSE>
my $PREFIX = 'C:\Perl\site'; # substituted at 'make' time
my $DEF_RULES_DIR = 'C:\Perl\site/share/spamassassin'; # substituted at 'make' time
my $LOCAL_RULES_DIR = 'C:\Perl\site/etc/mail/spamassassin'; # substituted at 'make' time
use lib 'C:\Perl\site\lib'; # substituted at 'make' time
}}}
4. and replace following lines in ''spamd.raw'' with it: {{{#!/usr/bin/perl -w -T
# <@LICENSE>
# Copyright 2004 Apache Software Foundation
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
# </@LICENSE>
my $PREFIX = '@@PREFIX@@'; # substituted at 'make' time
my $DEF_RULES_DIR = '@@DEF_RULES_DIR@@'; # substituted at 'make' time
my $LOCAL_RULES_DIR = '@@LOCAL_RULES_DIR@@'; # substituted at 'make' time
use lib '@@INSTALLSITELIB@@';}}}
5. Further down, comment out the following line by adding a # in front of it: {{{use Sys::Syslog qw(:DEFAULT setlogsock);}}}
6. Even further down comment out the two occurrences of the line: {{{spawn();}}}
7. Find the beginning of following block: {{{while (1) {
sleep; # wait for a signal (ie: child's death)
if ( defined $got_sighup ) {
if (defined($opt{'pidfile'})) {
unlink($opt{'pidfile'}) || warn "Can't unlink $opt{'pidfile'}: $!\n";
}
# leave Client fds active, and do not kill children; they can still
# service clients until they exit. But restart the listener anyway.
# And close the logfile, so the new instance can reopen it.
close(STDLOG) if $log_facility eq 'file';
chdir($ORIG_CWD)
|| die "spamd restart failed: chdir failed: ${ORIG_CWD}: $!\n";
exec( $ORIG_ARG0, @ORIG_ARGV );
# should not get past that...
die "spamd restart failed: exec failed: "
. join ( ' ', $ORIG_ARG0, @ORIG_ARGV )
. ": $!\n";
}
for ( my $i = keys %children ; $i < $childlimit ; $i++ ) {
spawn();
}
} }}}
8. Add this code segment immediately in front of it: {{{while (1) {
# use a large eval scope to catch die()s and ensure they
# don't kill the server.
my $evalret = eval { accept_a_conn(); };
if (!defined ($evalret)) {
logmsg("error: $@ $!, continuing");
if ($client) { $client->close(); } # avoid fd leaks
}
elsif ($evalret == -1) {
# serious error; used for accept() failure
die("fatal error; respawning server");
}
# if we changed UID during processing, change back!
if ( $> != $< and $> != ( $< - 2**32 ) ) {
$) = "$( $("; # change eGID
$> = $<; # change eUID
if ( $> != $< and $> != ( $< - 2**32 ) ) {
logmsg("fatal: return setuid failed");
die; # make it fatal to avoid security breaches
}
}
if ($copy_config_p) {
while(my($k,$v) = each %msa_backup) {
$spamtest->{$k} = $v;
}
# if we changed user, we would have also loaded up new configs
# (potentially), so let's restore back the saved version we
# had before.
#
$spamtest->copy_config(\%conf_backup, undef) ||
die "error returned from copy_config, no Storable module?\n";
}
undef $current_user;
} }}}
9. Below find the the line: {{{my ( $uid, $gid ) = ( getpwnam('nobody') )[ 2, 3 ];}}} and replace it with: {{{my ( $uid, $gid ) = 'nobody';}}}
10. Then find the block: {{{ my ( $name, $pwd, $uid, $gid, $quota, $comment, $gcos, $dir, $etc ) =
getpwnam($userid);
}}}
11. Replace it with: {{{ my ( $name, $pwd, $uid, $gid, $quota, $comment, $gcos, $dir, $etc ) =
'nobody';
}}}
12. Go all the way to the end of the document and append these lines: {{{
__END__
:endofperl
}}}
13. Save the file and rename it to ''spamd.bat''.
= Running SpamD =
Just open a command prompt and type: {{{spamd}}}
= Sample output =
Output after starting SpamD and checking one spam and one ham message.
{{{failed to setlogsock(unix): Undefined subroutine &main::setlogsock called at C:\
Perl\bin\spamd.bat line 378.
reporting logs to stderr
2004-08-08 13:28:31 [6236] i: server started on port 783/tcp (running version 3.
0.0-pre4)
2004-08-08 13:28:53 [6236] i: connection from localhost [127.0.0.1] at port 1481
2004-08-08 13:28:53 [6236] i: handle_user: unable to find user 'Arik Funke'!
2004-08-08 13:28:53 [6236] i: Still running as root: user not specified with -u,
not found, or set to root. Fall back to nobody.
2004-08-08 13:28:53 [6236] i: checking message <20040808152848.000042d1@ariktab>
for Arik Funke:0.
2004-08-08 13:29:04 [6236] i: identified spam (11.3/5.0) for Arik Funke:0 in 10.
7 seconds, 1527 bytes.
2004-08-08 13:29:04 [6236] i: result: Y 11 - DRUGS_ANXIETY,DRUGS_ANXIETY_OBFU,DR
UGS_DIET,DRUGS_DIET_OBFU,DRUGS_MUSCLE,RCVD_IN_NJABL_DUL,RCVD_IN_SORBS_DUL,URIBL_
OB_SURBL,URIBL_SBL,URIBL_WS_SURBL scantime=10.7,size=1527,mid=<20040808152848.00
0042d1@ariktab>,autolearn=no
2004-08-08 13:29:52 [6236] i: connection from localhost [127.0.0.1] at port 1510
2004-08-08 13:29:52 [6236] i: handle_user: unable to find user 'Arik Funke'!
2004-08-08 13:29:52 [6236] i: Still running as root: user not specified with -u,
not found, or set to root. Fall back to nobody.
2004-08-08 13:29:52 [6236] i: checking message <20040807050312.29938gmx1@mx029.g
mx.net> aka <20040808152948.00006ac2@ariktab> for Arik Funke:0.
2004-08-08 13:29:56 [6236] i: clean message (2.9/5.0) for Arik Funke:0 in 4.5 se
conds, 1929 bytes.
2004-08-08 13:29:56 [6236] i: result: . 2 - NO_REAL_NAME,RCVD_IN_NJABL_DUL,RCVD
_IN_SORBS_DUL,SUBJ_HAS_UNIQ_ID scantime=4.5,size=1929,mid=<20040807050312.29938g
mx1@mx029.gmx.net>,rmid=<20040808152948.00006ac2@ariktab>,autolearn=no}}}
by ArikFunke
Editor: ArikFunke <arik.funke@gmx.de>
Wiki: SpamAssassin Wiki
Page: SpamdOnWindows
URL: http://wiki.apache.org/spamassassin/SpamdOnWindows
Very rough solution for getting spamd to run on Windows
New Page:
= Running SpamD on Windows - Overview =
This document describes how to get SpamD to run on Windows.
'''ATTENTION''': This is a '''''extremely rough''''' solution and not intended to be used in a production environment. It works around the in windows unimplemented fork issues by incorporating the children processes' tasks into the main process. Thus no spin-off processes are needed. Various other issues are not tackle but these result only in warning messages.
= Installation =
The version used with this description was 3.0.0-pre4:
1. Follow the procedures in InstallingOnWindows or on http://www.openhandhome.com/howtosa.html.
2. Copy ''spamd.raw'' from the SpamAssassin source directory to ''C:\Perl\bin''.
3. From the already existing ''spamassassin.bat'' copy the first few lines that look like: {{{{@rem = '--*-Perl-*--
@echo off
SET RES_NAMESERVERS=192.168.2.1
SET LANG=en_US
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!C:\Perl\bin\perl.exe -T -w
#line 15
# <@LICENSE>
# Copyright 2004 Apache Software Foundation
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
# </@LICENSE>
my $PREFIX = 'C:\Perl\site'; # substituted at 'make' time
my $DEF_RULES_DIR = 'C:\Perl\site/share/spamassassin'; # substituted at 'make' time
my $LOCAL_RULES_DIR = 'C:\Perl\site/etc/mail/spamassassin'; # substituted at 'make' time
use lib 'C:\Perl\site\lib'; # substituted at 'make' time
}}}
4. and replace following lines in ''spamd.raw'' with it: {{{#!/usr/bin/perl -w -T
# <@LICENSE>
# Copyright 2004 Apache Software Foundation
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
# </@LICENSE>
my $PREFIX = '@@PREFIX@@'; # substituted at 'make' time
my $DEF_RULES_DIR = '@@DEF_RULES_DIR@@'; # substituted at 'make' time
my $LOCAL_RULES_DIR = '@@LOCAL_RULES_DIR@@'; # substituted at 'make' time
use lib '@@INSTALLSITELIB@@';}}}
5. Further down, comment out the following line by adding a # in front of it: {{{use Sys::Syslog qw(:DEFAULT setlogsock);}}}
6. Even further down comment out the two occurrences of the line: {{{spawn();}}}
7. Find the beginning of following block: {{{while (1) {
sleep; # wait for a signal (ie: child's death)
if ( defined $got_sighup ) {
if (defined($opt{'pidfile'})) {
unlink($opt{'pidfile'}) || warn "Can't unlink $opt{'pidfile'}: $!\n";
}
# leave Client fds active, and do not kill children; they can still
# service clients until they exit. But restart the listener anyway.
# And close the logfile, so the new instance can reopen it.
close(STDLOG) if $log_facility eq 'file';
chdir($ORIG_CWD)
|| die "spamd restart failed: chdir failed: ${ORIG_CWD}: $!\n";
exec( $ORIG_ARG0, @ORIG_ARGV );
# should not get past that...
die "spamd restart failed: exec failed: "
. join ( ' ', $ORIG_ARG0, @ORIG_ARGV )
. ": $!\n";
}
for ( my $i = keys %children ; $i < $childlimit ; $i++ ) {
spawn();
}
} }}}
8. Add this code segment immediately in front of it: {{{while (1) {
# use a large eval scope to catch die()s and ensure they
# don't kill the server.
my $evalret = eval { accept_a_conn(); };
if (!defined ($evalret)) {
logmsg("error: $@ $!, continuing");
if ($client) { $client->close(); } # avoid fd leaks
}
elsif ($evalret == -1) {
# serious error; used for accept() failure
die("fatal error; respawning server");
}
# if we changed UID during processing, change back!
if ( $> != $< and $> != ( $< - 2**32 ) ) {
$) = "$( $("; # change eGID
$> = $<; # change eUID
if ( $> != $< and $> != ( $< - 2**32 ) ) {
logmsg("fatal: return setuid failed");
die; # make it fatal to avoid security breaches
}
}
if ($copy_config_p) {
while(my($k,$v) = each %msa_backup) {
$spamtest->{$k} = $v;
}
# if we changed user, we would have also loaded up new configs
# (potentially), so let's restore back the saved version we
# had before.
#
$spamtest->copy_config(\%conf_backup, undef) ||
die "error returned from copy_config, no Storable module?\n";
}
undef $current_user;
} }}}
9. Below find the the line: {{{my ( $uid, $gid ) = ( getpwnam('nobody') )[ 2, 3 ];}}} and replace it with: {{{my ( $uid, $gid ) = 'nobody';}}}
10. Then find the block: {{{ my ( $name, $pwd, $uid, $gid, $quota, $comment, $gcos, $dir, $etc ) =
getpwnam($userid);
}}}
11. Replace it with: {{{ my ( $name, $pwd, $uid, $gid, $quota, $comment, $gcos, $dir, $etc ) =
'nobody';
}}}
12. Go all the way to the end of the document and append these lines: {{{
__END__
:endofperl
}}}
13. Save the file and rename it to ''spamd.bat''.
= Running SpamD =
Just open a command prompt and type: {{{spamd}}}
= Sample output =
Output after starting SpamD and checking one spam and one ham message.
{{{failed to setlogsock(unix): Undefined subroutine &main::setlogsock called at C:\
Perl\bin\spamd.bat line 378.
reporting logs to stderr
2004-08-08 13:28:31 [6236] i: server started on port 783/tcp (running version 3.
0.0-pre4)
2004-08-08 13:28:53 [6236] i: connection from localhost [127.0.0.1] at port 1481
2004-08-08 13:28:53 [6236] i: handle_user: unable to find user 'Arik Funke'!
2004-08-08 13:28:53 [6236] i: Still running as root: user not specified with -u,
not found, or set to root. Fall back to nobody.
2004-08-08 13:28:53 [6236] i: checking message <20040808152848.000042d1@ariktab>
for Arik Funke:0.
2004-08-08 13:29:04 [6236] i: identified spam (11.3/5.0) for Arik Funke:0 in 10.
7 seconds, 1527 bytes.
2004-08-08 13:29:04 [6236] i: result: Y 11 - DRUGS_ANXIETY,DRUGS_ANXIETY_OBFU,DR
UGS_DIET,DRUGS_DIET_OBFU,DRUGS_MUSCLE,RCVD_IN_NJABL_DUL,RCVD_IN_SORBS_DUL,URIBL_
OB_SURBL,URIBL_SBL,URIBL_WS_SURBL scantime=10.7,size=1527,mid=<20040808152848.00
0042d1@ariktab>,autolearn=no
2004-08-08 13:29:52 [6236] i: connection from localhost [127.0.0.1] at port 1510
2004-08-08 13:29:52 [6236] i: handle_user: unable to find user 'Arik Funke'!
2004-08-08 13:29:52 [6236] i: Still running as root: user not specified with -u,
not found, or set to root. Fall back to nobody.
2004-08-08 13:29:52 [6236] i: checking message <20040807050312.29938gmx1@mx029.g
mx.net> aka <20040808152948.00006ac2@ariktab> for Arik Funke:0.
2004-08-08 13:29:56 [6236] i: clean message (2.9/5.0) for Arik Funke:0 in 4.5 se
conds, 1929 bytes.
2004-08-08 13:29:56 [6236] i: result: . 2 - NO_REAL_NAME,RCVD_IN_NJABL_DUL,RCVD
_IN_SORBS_DUL,SUBJ_HAS_UNIQ_ID scantime=4.5,size=1929,mid=<20040807050312.29938g
mx1@mx029.gmx.net>,rmid=<20040808152948.00006ac2@ariktab>,autolearn=no}}}
by ArikFunke