Untaint the value of the --interface option.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@940 958fd67b-6ff1-0310-b445-bb7760255be9

Changes

@@ -1,3 +1,6 @@
+  prefork: untaint the value of the --interface option (reported by
+  Diego d'Ambra)
+
   prefork: the children pool size was sometimes not adjusted immediately
   after the exit of children (reported by Diego d'Ambra)
 

qpsmtpd-prefork

@@ -118,6 +118,7 @@ GetOptions(
   ) || &usage;
 
 if ($user =~ /^([\w\-]+)$/) { $user = $1 } else { &usage }
+if ($d_addr =~ /^(\[.*\]|[\w\-.]+)$/) { $d_addr = $1 } else { &usage }
 
 # set max from ip to max number of children if option is set to disabled
 $maxconnip = $max_children if ($maxconnip == 0);