web/attachments/30441-check_dns_random.diff


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

--- check_dns_random.pl    Thu Sep  5 09:43:22 2002
+++ check_dns_random.pl Thu Sep  5 09:58:32 2002
@@ -55,9 +55,8 @@
 $x = rand $wc;
 ($z,$y) = split(/\./,$x);

-print `$check $data[$z] $host`;
-
-
+system($check, $data[$z], $host);
+exit ($? / 256);

 sub usage
 {