make it possible to test if hostnames are valid or not using this script

git-svn-id: svn://anonsvn.it.su.se/svn/HOSTDB/trunk@613 36f62460-150b-0410-929b-89381cca7e77

examples/hostbyname

@@ -28,6 +28,11 @@ my $first = 1;
 my $match_count = 0;
 
 foreach my $t_search (sort @searchfor) {
+    if (! $hostdb->clean_hostname ($t_search)) {
+	warn ("'$t_search' is not a valid hostname\n");
+	next;
+    }
+
     my @hostlist = $hostdb->findhostbyname ($t_search);
     if ($#hostlist == -1) {
 	warn ("No entrys matching '$t_search'\n");