(RADIATOR) Radiator on Mandrake Server...

[Mike McCauley]

Hello Andrea,

On Thu, 5 Jun 2003 10:58 am, Andrea Brancatelli wrote:
> Hello Mike,
>
> Thursday, June 5, 2003, 2:02:51 AM, you wrote:
> >>   Net_SSLeay is installed (correctly I suppose) and it is a very
> >>   recent version (the one that came with Mandrake 9.1...
> >>   perl-NET_SSLeay-1.21 and perl-Crypt-SSLeay-0.49)
>
> MM> Hmmmm, I suspect that openssl is not installed correctly, or that
> MM> NET_SSLeay-1.21 is either not installed properly or is not compatible
> with MM> the installed openssl.
>
> OpenSSL is 0.9.7. Actually I "just" seem to lack that file.

That is strange.

>
> Those are the file in
> /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/Crypt/SSLeay
>
> MainContext.pm
> Err.pm
> CTX.pm
> Conn.pm
> X509.pm
>
> Maybe you can just send me the randomize.al?

OK, I have attached the one from my 
/usr/lib/perl5/site_perl/5.6.1/i386-linux/auto/Net/SSLeay/randomize.al


>
> MM> We usually build and install them from scratch, and have not tested
> against MM> the Man 9.1 rpms.
>
> Emh.... Do I download the Tar_GZ and then ./configure, make and make
> install?

Yes, but caution, the default behaviour is to install it into /usr/local/ssl, 
so you may need to build your Net_SSLeay with:

perl Makefile.pl /usr/local/ssl

Cheers.

>
> --
> Saluti, Andrea Brancatelli
> http://andrea.brancatelli.it/      mailto:andrea at brancatelli.it

-- 
Mike McCauley                               mikem at open.com.au
Open System Consultants Pty. Ltd            Unix, Perl, Motif, C++, WWW
24 Bateman St Hampton, VIC 3188 Australia   http://www.open.com.au
Phone +61 3 9598-0985                       Fax   +61 3 9598-0955

Radiator: the most portable, flexible and configurable RADIUS server 
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald, 
Platypus, Freeside, TACACS+, PAM, external, Active Directory, EAP, TLS, 
TTLS, PEAP etc on Unix, Windows, MacOS etc.
-------------- next part --------------
# NOTE: Derived from blib/lib/Net/SSLeay.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package Net::SSLeay;

#line 1688 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/randomize.al)"
### Arrange some randomness for eay PRNG

sub randomize (;$$) {
    my ($rn_seed_file, $seed, $egd_path) = @_;
    my $rnsf = defined($rn_seed_file) && -r $rn_seed_file;

    $egd_path = $ENV{'EGD_PATH'} if $ENV{'EGD_PATH'};
    $egd_path = '/tmp/entropy'   unless $egd_path;
    
    RAND_seed(rand() + $$);  # Stir it with time and pid
    
    unless ($rnsf || -r $Net::SSLeay::random_device || $seed || -S $egd_path) {
	warn "Random number generator not seeded!!!" if $trace;
    }
    
    RAND_load_file($rn_seed_file, -s _) if $rnsf;
    RAND_seed($seed) if $seed;
    RAND_egd($egd_path) if -S $egd_path;
    RAND_load_file($Net::SSLeay::random_device, $Net::SSLeay::how_random/8)
	if -r $Net::SSLeay::random_device;
}

# end of Net::SSLeay::randomize
1;