From 07322f07b2cec2abd4102f6282c4d1511b503146 Mon Sep 17 00:00:00 2001 From: WangXiaoPeng Date: Fri, 26 Jun 2015 01:59:34 -0400 Subject: [PATCH] check there's mac format before writing to mac.mac for the getmacs output --- perl-xCAT/xCAT/FSPmac.pm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/perl-xCAT/xCAT/FSPmac.pm b/perl-xCAT/xCAT/FSPmac.pm index 589f53f6b..9651363cb 100644 --- a/perl-xCAT/xCAT/FSPmac.pm +++ b/perl-xCAT/xCAT/FSPmac.pm @@ -650,6 +650,22 @@ sub format_mac { } +########################################################################## +# checkmac format +########################################################################## + +sub checkmac { + my $mac = shift; + if ( !xCAT::Utils->isAIX()) { + if ($mac =~ /\w{2}:\w{2}:\w{2}:\w{2}:\w{2}:\w{2}/) { + return 1; + } else { + return 0; + } + } else { + return 1; + } +} ########################################################################## # Write first valid adapter MAC to database @@ -690,6 +706,9 @@ sub writemac { ##################################### if ( $pingret ne "successful" ) { foreach ( @$data ) { + unless (&checkmac($_)) { + next; + } if ( /^ent\s+/ or /^hfi-ent\s+/ ) { $value = $_; $ping_test = 0;