qpsmtpd/sme8/qpsmtpd-0.32-net_dns.patch2

diff -Nur -x '*.orig' -x '*.rej' qpsmtpd-0.32/qpsmtpd-forkserver mezzanine_patched_qpsmtpd-0.32/qpsmtpd-forkserver
--- qpsmtpd-0.32/qpsmtpd-forkserver     2006-02-26 07:22:16.000000000 -0500
+++ mezzanine_patched_qpsmtpd-0.32/qpsmtpd-forkserver   2007-02-16 16:54:02.000000000 -0500
@@ -14,6 +14,7 @@
 use Socket;
 use Getopt::Long;
 use POSIX qw(:sys_wait_h :errno_h :signal_h);
+use Net::DNS::Header;
 use strict;
 $| = 1;
 
@@ -230,10 +231,12 @@
       next;
     }
     # otherwise child
-  
     # all children should have different seeds, to prevent conflicts
-    srand( time ^ ($$ + ($$ << 15)) );
-  
+    srand(time ^ ($$ + ($$ << 15)));
+    for (0 .. rand(65536)) {
+       Net::DNS::Header::nextid();
+    }
+ 
     close($server);
   
     $SIG{$_} = 'DEFAULT' for keys %SIG;
1	diff -Nur -x '.orig' -x '.rej' qpsmtpd-0.32/qpsmtpd-forkserver mezzanine_patched_qpsmtpd-0.32/qpsmtpd-forkserver
2	--- qpsmtpd-0.32/qpsmtpd-forkserver 2006-02-26 07:22:16.000000000 -0500
3	+++ mezzanine_patched_qpsmtpd-0.32/qpsmtpd-forkserver 2007-02-16 16:54:02.000000000 -0500
4	@@ -14,6 +14,7 @@
5	use Socket;
6	use Getopt::Long;
7	use POSIX qw(:sys_wait_h :errno_h :signal_h);
8	+use Net::DNS::Header;
9	use strict;
10	$\| = 1;
11
12	@@ -230,10 +231,12 @@
13	next;
14	}
15	# otherwise child
16	-
17	# all children should have different seeds, to prevent conflicts
18	- srand( time ^ ($$ + ($$ << 15)) );
19	-
20	+ srand(time ^ ($$ + ($$ << 15)));
21	+ for (0 .. rand(65536)) {
22	+ Net::DNS::Header::nextid();
23	+ }
24	+
25	close($server);
26
27	$SIG{$_} = 'DEFAULT' for keys %SIG;