X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=html%2Fcgi-bin%2Fmac.cgi;h=f95c0d802623f7e549d084fd19db5e2e5bb0d89e;hb=9027a25d92afbbb4486c17deac66b4c439e80520;hp=83207d66294fc77c1dfda6f906610d305488dcb4;hpb=b0324a5142a5cb047107ca54a1edead6e1b4d43b;p=people%2Fteissler%2Fipfire-2.x.git diff --git a/html/cgi-bin/mac.cgi b/html/cgi-bin/mac.cgi index 83207d662..f95c0d802 100644 --- a/html/cgi-bin/mac.cgi +++ b/html/cgi-bin/mac.cgi @@ -55,8 +55,21 @@ if ($macsettings{'ACTION'} eq $Lang::tr{'save'}) { } else { $errormessage = $Lang::tr{'mac address error not valid'}; } + $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'}; + } + } $macsettings{'MAC2'} =~ s/\-/:/g; - if ( not ($macsettings{'MAC2'} eq "" )) { my @mac = split(/:/,$macsettings{"MAC2"}); if ($#mac == 5) { @@ -72,6 +85,7 @@ if ($macsettings{'ACTION'} eq $Lang::tr{'save'}) { } if ($errormessage eq "") { $macsettings{'MAC'} =~ s/\:/-/g; + $macsettings{'MAC1'} =~ s/\:/-/g; $macsettings{'MAC2'} =~ s/\:/-/g; &General::writehash("${General::swroot}/mac/settings", \%macsettings); &Header::openbox('100%', 'left', $Lang::tr{'mac address saved'}); @@ -114,13 +128,13 @@ print < - $Lang::tr{'mac desc'} + $Lang::tr{'mac desc'} -    +   - $Lang::tr{'mac new'}  + $Lang::tr{'mac new'}  END ; if ($macsettings{'ACTION'} eq $Lang::tr{'delete'} ) { @@ -136,34 +150,52 @@ END } print < - -    + +   - $Lang::tr{'mac2 new'}  + $Lang::tr{'mac1 new'}  END ; if ($macsettings{'ACTION'} eq $Lang::tr{'delete'} ) { print < + * END ; } else { print < + * END ; } print < - -    + +   -
+ $Lang::tr{'mac2 new'}  +END +; +if ($macsettings{'ACTION'} eq $Lang::tr{'delete'} ) { +print <* +END +; +} else { +print <* +END +; +} + +print < + +
-
+
END ; if ($macsettings{'ACTION'} eq $Lang::tr{'delete'} ) { @@ -200,8 +232,10 @@ END print < - - + + + * $Lang::tr{'this field may be blank'} +