[SAtalk] Increasing memory with SA 2.55 problem

[Klaus Mueller]

Hi,

I have a problem with increasing memory usage of SpamAssassin on windows
(spamc/spamd). I created a stand alone test program to check if the
increasing memory is a problem of communication code or SA. The program
tests the sample-spam.txt file using a loop of 1000 times.

Result (Win2k SP4; ActiveState Perl 5.6.1): memory increasing

Next I moved the script to a linux box (change path names only). The SA
is installed without any extra options (perl MakrFile.PL, make, make
test, make install). I run the script and monitor the memory (size) with
top.

Result (Linux 2.2.14, Perl 5.6.1): memory increasing

Can someone check my script and proof the result on another
configuration please?

Thanks
Klaus

sa-test.pl
----------------------------------------------
my $PREFIX = '/usr/bin/perl';  # substituted at 'make' time
my $DEF_RULES_DIR = '/usr/bin/perl/share/spamassassin';  # substituted
at 'make' time
my $LOCAL_RULES_DIR = '/etc/mail/spamassassin';  # substituted at 'make'
time
use Mail::SpamAssassin;

my ($spamtest) = new Mail::SpamAssassin({
  dont_copy_prefs      => $dontcopy,
  rules_filename       => ($opt{'configpath'} || 0),
  local_tests_only     => ($opt{'local'} || 1),
  debug                => ($opt{'debug'} || 0),
  paranoid             => ($opt{'paranoid'} || 0),
  home_dir_for_helpers => (defined $opt{'home_dir_for_helpers'} ?
$opt{'home_dir_for_helpers'} : $orighome),
#    'rules_filename'      => 'c:/etc/spamassassin.rules',
    'userprefs_filename'  => $ENV{HOME}.'/.spamassassin.cf',
  PREFIX               => $PREFIX,
  DEF_RULES_DIR        => $DEF_RULES_DIR,
  LOCAL_RULES_DIR      => $LOCAL_RULES_DIR

  });

Mail::SpamAssassin::Util::clean_path_in_taint_mode();
$spamtest->compile_now(0);

use strict;

sub processFile
{
    my ($spamtest, $file) = @_;


    open(IN, "<$file");
    my @msglines = <IN>;
    close(IN);

    chomp @msglines;

    # test with check and NoMailAudit object
#    my $mail = Mail::SpamAssassin::NoMailAudit->new(data =>
[EMAIL PROTECTED]);
#    my ($status) = $spamtest->check($mail);
#    $status->finish();
#    $mail->finish();

    # check with plain message text
    my $msg = join("\n", @msglines);
    my ($status) = $spamtest->check_message_text($msg);
    $status->finish();

    @msglines = ();
}

my ($i) = 0;
while ($i < 1000)
{
    processFile($spamtest,
"/export/klaus/Mail-SpamAssassin-2.55/sample-spam.txt");

    $i++;
    print $i, "\n";
}
1;
----------------------------------------------



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
Spamassassin-talk mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/spamassassin-talk