[popfile-commit] engine/Classifier Bayes.pm,1.355,1.356

[Manni H. <man...@us...>]

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29438/Classifier

Modified Files:
	Bayes.pm 
Log Message:
IMAP tests now finish and no failed tests are reported. Next step: Look at the coverage report.

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.355
retrieving revision 1.356
diff -C2 -d -r1.355 -r1.356
*** Bayes.pm	1 Dec 2007 22:24:20 -0000	1.355
--- Bayes.pm	2 Dec 2007 13:08:38 -0000	1.356
***************
*** 1503,1508 ****
      # get a random session key in hex
  
      my $random = Crypt::Random::makerandom_octet( Length => 128,
!                                                   Strength => 0 );
      my $now = time;
      return sha256_hex( "$$" . "$random$now" );
--- 1503,1511 ----
      # get a random session key in hex
  
+     # TODO: make the Strength parameter configurable with a GLOBAL option
+     # and also add the option to specify another Device?
+ 
      my $random = Crypt::Random::makerandom_octet( Length => 128,
!                                                   Strength => 0, Device => '' );
      my $now = time;
      return sha256_hex( "$$" . "$random$now" );