our $OptionTypes = 'boolean|((un)?signed )?integer (8|16|32)|ip-address|text|string|encapsulate \w+|array of ip-address';
&Header::showhttpheaders();
-our @ITFs=('GREEN','BLUE');
+our @ITFs=('GREEN');
+if (&Header::blue_used()){push(@ITFs,'BLUE');}
#Settings1 for the first screen box
foreach my $itf (@ITFs) {
print FILE "} #$itf\n";
system ('/usr/bin/touch', "${General::swroot}/dhcp/enable_${lc_itf}");
+ system ('/usr/local/bin/dhcpctrl enable');
&General::log("DHCP on ${itf}: " . $Lang::tr{'dhcp server enabled'})
} else {
unlink "${General::swroot}/dhcp/enable_${lc_itf}";
+ system ('/usr/local/bin/dhcpctrl disable');
&General::log("DHCP on ${itf}: " . $Lang::tr{'dhcp server disabled'})
}
}
}
}
close FILE;
- system '/usr/local/bin/restartdhcp';
+ system '/usr/local/bin/dhcpctrl restart >/dev/null 2>&1';
}
#