[popfile-commit] engine/Classifier Bayes.pm,1.341,1.342

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

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

Modified Files:
	Bayes.pm 
Log Message:
import makerandom_octet from Crypt::Random and call it directly in generate_unique_session_key__

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.341
retrieving revision 1.342
diff -C2 -d -r1.341 -r1.342
*** Bayes.pm	15 Feb 2005 04:23:50 -0000	1.341
--- Bayes.pm	23 Feb 2005 23:29:23 -0000	1.342
***************
*** 42,46 ****
  use MIME::Base64;
  
! use Crypt::Random::Generator;
  
  # This is used to get the hostname of the current machine
--- 42,46 ----
  use MIME::Base64;
  
! use Crypt::Random qw( makerandom_octet );
  
  # This is used to get the hostname of the current machine
***************
*** 1444,1449 ****
      # get a random session key in hex
  
!     my $r = new Crypt::Random::Generator;
!     my $random = $r->makerandom_octet( Length => 128, Strength => 1 );
      my $now = time;
      return sha256_hex( "$random$now" );
--- 1444,1448 ----
      # get a random session key in hex
  
!     my $random = makerandom_octet( Length => 128, Strength => 1 );
      my $now = time;
      return sha256_hex( "$random$now" );
***************
*** 1583,1587 ****
  
      $self->mq_post_( "RELSE", $session );
!     
      return undef;
  }
--- 1582,1586 ----
  
      $self->mq_post_( "RELSE", $session );
! 
      return undef;
  }