if ($macsettings{'ACTION'} eq $Lang::tr{'save'}) {
$macsettings{'MAC'} =~ s/\-/:/g;
my @mac = split(/:/,$macsettings{"MAC"});
- if ($#mac == 5) {
+ if ($#mac == 5) {
foreach (@mac) {
unless ($_ =~ /^[a-fA-F0-9]{1,2}$/) {
$errormessage = $Lang::tr{'mac address error not valid'};
- last;
+ last;
}
}
} else {
$macsettings{'MAC1'} =~ s/\-/:/g;
if ( not ($macsettings{'MAC1'} eq "" )) {
my @mac = split(/:/,$macsettings{"MAC1"});
- if ($#mac == 5) {
+ if ($#mac == 5) {
foreach (@mac) {
unless ($_ =~ /^[a-fA-F0-9]{1,2}$/) {
$errormessage = $Lang::tr{'mac address error not valid'};
- last;
+ last;
}
}
} else {
$macsettings{'MAC2'} =~ s/\-/:/g;
if ( not ($macsettings{'MAC2'} eq "" )) {
my @mac = split(/:/,$macsettings{"MAC2"});
- if ($#mac == 5) {
+ if ($#mac == 5) {
foreach (@mac) {
unless ($_ =~ /^[a-fA-F0-9]{1,2}$/) {
$errormessage = $Lang::tr{'mac address error not valid'};
- last;
+ last;
}
}
} else {
$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'});
+ &General::writehash("${General::swroot}/mac/settings", \%macsettings);
+ &Header::openbox('100%', 'left', $Lang::tr{'mac address saved'});
print "<font class='base'>$Lang::tr{'mac address saved txt'}</font>\n";
&Header::closebox();
}
&General::system_background("/usr/local/bin/redctrl", "restart");
&Header::openbox('100%', 'left', $Lang::tr{'mac address recon'} );
print "<font class='base'>$Lang::tr{'mac address done'}</font>\n";
- &Header::closebox();
+ &Header::closebox();
}
if ($macsettings{'ACTION'} eq $Lang::tr{'delete'} ) {
system("cat /dev/null > ${General::swroot}/mac/settings &");
&Header::openbox('100%', 'left', $Lang::tr{'mac address deleted'} );
print "<font class='base'>$Lang::tr{'mac address deleted txt'}</font>\n";
- &Header::closebox();
+ &Header::closebox();
}
if ($macsettings{'ACTION'} eq $Lang::tr{'reboot'}) {
&General::log($Lang::tr{'rebooting ipfire'});
END
;
if ($macsettings{'ACTION'} eq $Lang::tr{'delete'} ) {
-print <<END
+print <<END
<input type="text" name="MAC" maxlength="17" value=''/></td>
END
;
-} else {
+} else {
print <<END
<input type="text" name="MAC" maxlength="17" value='$macsettings{"MAC"}'/></td>
END
-;
-}
-print <<END
+;
+}
+print <<END
</tr>
<tr>
<td> </td>
END
;
if ($macsettings{'ACTION'} eq $Lang::tr{'delete'} ) {
-print <<END
+print <<END
<input type="text" name="MAC1" maxlength="17" value=''/></td>
END
;
-} else {
+} else {
print <<END
<input type="text" name="MAC1" maxlength="17" value='$macsettings{"MAC1"}'/></td>
END
-;
-}
-print <<END
+;
+}
+print <<END
</tr>
<tr>
<td> </td>
END
;
if ($macsettings{'ACTION'} eq $Lang::tr{'delete'} ) {
-print <<END
+print <<END
<input type="text" name="MAC2" maxlength="17" value=''/></td>
END
;
-} else {
+} else {
print <<END
<input type="text" name="MAC2" maxlength="17" value='$macsettings{"MAC2"}'/></td>
END
-;
-}
+;
+}
-print <<END
+print <<END
</tr>
<tr>
<td colspan="2"><br><hr /></td>
<input type='submit' name='ACTION' value='$Lang::tr{'reboot'}' />
END
;
-} elsif ($macsettings{'ACTION'} eq $Lang::tr{'save'} && $errormessage eq "") {
+} elsif ($macsettings{'ACTION'} eq $Lang::tr{'save'} && $errormessage eq "") {
print <<END
<input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
<input type='submit' name='ACTION' value='$Lang::tr{'reconnect'}' />
END
;
-} elsif ($macsettings{'ACTION'} eq $Lang::tr{'save'}) {
+} elsif ($macsettings{'ACTION'} eq $Lang::tr{'save'}) {
print <<END
<input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
END
;
-} else {
+} else {
print <<END
<input type='submit' name='ACTION' value='$Lang::tr{'save'}' />