+ $macsettings{'MAC1'} =~ s/\-/:/g;
+ if ( not ($macsettings{'MAC1'} eq "" )) {
+ my @mac = split(/:/,$macsettings{"MAC1"});
+ if ($#mac == 5) {
+ foreach (@mac) {
+ unless ($_ =~ /^[a-fA-F0-9]{1,2}$/) {
+ $errormessage = $Lang::tr{'mac address error not valid'};
+ last;
+ }
+ }
+ } else {
+ $errormessage = $Lang::tr{'mac address error not valid'};
+ }
+ }