X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FMason.pm;h=847f18bcd850dffcd9f2e0891fcdf395b039fe0f;hb=e9a7ae3aadab31f34c6bacb2376f817ecd4d7d8d;hp=7b4db9932886e17fff4c9de9c2b12212dd1ef9e8;hpb=0be54958813c9a4a5e24e32707b92e49881c7c0a;p=freeside.git diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm index 7b4db9932..847f18bcd 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -91,7 +91,7 @@ if ( -e $addl_handler_use_file ) { use Excel::Writer::XLSX; #use Excel::Writer::XLSX::Utility; #redundant with above - use Business::CreditCard 0.30; #for mask-aware cardtype() + use Business::CreditCard 0.35; #for new mastercard ranges and visa lengths use NetAddr::IP; use Net::MAC::Vendor; use Net::Ping; @@ -573,7 +573,7 @@ if ( -e $addl_handler_use_file ) { } # end package HTML::Mason::Commands; -=head1 SUBROUTINE +=head1 SUBROUTINES =over 4 @@ -669,6 +669,35 @@ sub mason_interps { } +=item child_init + +Per-process Apache child initialization code. + +Calls srand() to re-seed Perl's PRNG so that multiple children do not generate +the same "random" numbers. + +Works around a Net::SSLeay connection error by creating and deleting an SSL +context, so subsequent connections do not error out with a CTX_new (900 NET OR +SSL ERROR). See http://bugs.debian.org/830152 + +=cut + +sub child_init { + #my ($pool, $server) = @_; #the child process pool (APR::Pool) and the server object (Apache2::ServerRec). + + srand(); + + #{ + use Net::SSLeay; + package Net::SSLeay; + initialize(); + my $bad_ctx = new_x_ctx(); + while ( ERR_get_error() ) {}; #print_errs('CTX_new'); + CTX_free($bad_ctx); + #} + +} + =back =head1 BUGS