+ } elsif ($host !~ /^\w+\.[\w.]*\w$/i) {
+ print qq[<p class="error">
+ This host name is not valid.</p>\n];
+ undef $update;
+ sleep 25;
+ } elsif ($port !~ /^\d*$/i) {
+ print qq[<p class="error">
+ This port number is not valid.</p>\n];
+ undef $update;
+ sleep 25;