$Lang::tr{'dhcp advopt name'} | $Lang::tr{'dhcp advopt value'} | "; open(FILE, "$filename3"); my @current3 =||||||||||||
$1 | $2 | ||||||||||||
string type | "quoted string" or 00:01:FF... | ||||||||||||
ip-address type | 10.0.0.1 | www.dot.com | ||||||||||||
int,uint types | numbers | ||||||||||||
flag type | on | off |
$Lang::tr{'dhcp advopt custom definition'} | $Lang::tr{'dhcp advopt value'} | "; print "
any-name | code NNN=$OptionTypes |
a-string | code 100=string |
a-number | code 101=signed integer 8 |
wpad | code 252=text |
wpad | "http://www.server.fr/path-to/proxy.pac" |
$Lang::tr{'dhcp advopt name'} | $Lang::tr{'dhcp advopt value'} | $Lang::tr{'dhcp advopt scope'} | $Lang::tr{'action'} | ||
$temp[2] |
END
;
# Prepare a global flag to make easy reading
my $global = '';
my $disabledTogle = '';
my $disabledEditRemove = '';
if ( ExistNewOptionDefinition ($temp[1] . ' ' . $temp[2]) ) {
$global = $Lang::tr{'dhcp advopt definition'};
$disabledTogle = "disabled='disabled'";
# Search if it is a used NewOptionDefinition to also disable edit & delete
$disabledEditRemove = "disabled='disabled'" if (IsUsedNewOptionDefinition ($temp[1], $temp[2]));
} else {
$global = $Lang::tr{'dhcp advopt scope global'};
}
# Print each checked interface
for (my $key=0; $key<@ITFs; $key++) {
my $itf = $temp[3+$key];
if ($itf ne 'off') { # Only if an interface name is read
print "$itf";
$global=''; # fall to local scope !
}
}
print <
|
|
|
|
$Lang::tr{'mac address'} | $Lang::tr{'ip address'} | $Lang::tr{'remark'} | next-server | filename | root path | $Lang::tr{'action'} | ||
$TAG0$temp[1]$TAG1 | $temp[6] | $temp[3] | $temp[4] | $temp[5] |