The function isValidHostname, it can not detect illegal hostname like 'a=b-c'

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@15197 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2013-02-18 02:04:08 +00:00
parent 47ab424f70
commit 863ba244c3
1 changed files with 1 additions and 1 deletions
--- a/perl-xCAT/xCAT/NetworkUtils.pm
+++ b/perl-xCAT/xCAT/NetworkUtils.pm
@@ -2188,7 +2188,7 @@ sub isValidHostname
    my ($class, $hostname) = @_;
    if ($hostname =~ /^[a-z0-9]/){
        if ($hostname =~ /[a-z0-9]$/){
-            if ($hostname =~ /[\-a-z0-9]+/){
+            if ($hostname =~ /^[\-a-z0-9]+$/){
                return 1;
            }
        }