Index: ChangeLog
==================================================================
--- ChangeLog
+++ ChangeLog
@@ -1,5 +1,10 @@
+2001-03-14  Jeff Hobbs  <jeffh@gimlet.activestate.com>
+
+	* tls.c (Tls_Init): add do/while for random number initialization
+	to work around some OSes quirks.  (Ralph.Billes@teltech.com.au)
+
 2000-09-07  Jeff Hobbs  <hobbs@scriptics.com>
 
 	* tlsIO.c (Tls_ChannelType): set typeName field of channel type to
 	"tls" (this got lost in move to dynamic version compatability
 	checking).

Index: tls.c
==================================================================
--- tls.c
+++ tls.c
@@ -1,10 +1,10 @@
 /*
  * Copyright (C) 1997-1999 Matt Newman <matt@novadigm.com>
  * Copyright (C) 2000 Ajuba Solutions
  *
- * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.12 2000/08/18 19:22:25 hobbs Exp $
+ * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.13 2001/03/14 22:04:35 hobbs Exp $
  *
  * TLS (aka SSL) Channel - can be layered on any bi-directional
  * Tcl_Channel (Note: Requires Trf Core Patch)
  *
  * This was built (almost) from scratch based upon observation of
@@ -1179,17 +1179,26 @@
     }
     SSL_load_error_strings();
     ERR_load_crypto_strings();
 
     /*
-     * Seed the random number generator in the SSL library
+     * Seed the random number generator in the SSL library,
+     * using the do/while construct because of the bug note in the
+     * OpenSSL FAQ at http://www.openssl.org/support/faq.html#USER1
+     *
+     * The crux of the problem is that Solaris 7 does not have a 
+     * /dev/random or /dev/urandom device so it cannot gather enough
+     * entropy from the RAND_seed() when TLS initializes and refuses
+     * to go further. Earlier versions of OpenSSL carried on regardless.
      */
     srand((unsigned int) time((time_t *) NULL));
-    for (i = 0; i < 16; i++) {
-	rnd_seed[i] = 1 + (char) (255.0 * rand()/(RAND_MAX+1.0));
-    }
-    RAND_seed(rnd_seed, sizeof(rnd_seed));
+    do {
+	for (i = 0; i < 16; i++) {
+	    rnd_seed[i] = 1 + (char) (255.0 * rand()/(RAND_MAX+1.0));
+	}
+	RAND_seed(rnd_seed, sizeof(rnd_seed));
+    } while (RAND_status() != 1);
 
     Tcl_CreateObjCommand(interp, "tls::ciphers", CiphersObjCmd,
 	    (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
 
     Tcl_CreateObjCommand(interp, "tls::handshake", HandshakeObjCmd,