warn when crypto app is not there

Author: Claes Wikstrom

include/yaws.hrl

@@ -284,3 +284,6 @@
               id
              }).
 
+%% Typically used in error printouts as in:
+%% error_logger:format("Err ~p at ~p~n", [Reason, ?stack()])
+-define(stack(), try throw(1) catch _:_ -> erlang:get_stacktrace() end).

src/yaws_ctl.erl

@@ -63,7 +63,8 @@ rand() ->
                 crypto:start(),
                 crypto:rand_uniform(0, 1 bsl 64)
             catch
-                _ ->
+                _:_ ->
+                    error_logger:warning_msg("Running without crypto app\n"),
                     {A1, A2, A3}=now(),
                     random:seed(A1, A2, A3),
                     random:uniform(1 bsl 64)