mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
363 lines
10 KiB
Perl
Executable File
363 lines
10 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_bifc.cgi
|
|
# Edit or create a bootup interface
|
|
|
|
require './net-lib.pl';
|
|
&ReadParse();
|
|
!$in{'new'} || &can_create_iface() || &error($text{'ifcs_ecannot'});
|
|
@boot = &boot_interfaces();
|
|
|
|
# Show page title and get interface
|
|
if ($in{'new'} && $in{'bond'}) {
|
|
# New bonding interface
|
|
&ui_print_header(undef, $text{'bonding_create'}, "");
|
|
$bmax = -1;
|
|
foreach $b (@boot) {
|
|
if ($b->{'fullname'} =~ /^bond(\d+)$/) {
|
|
$bmax = $1;
|
|
}
|
|
}
|
|
}
|
|
elsif ($in{'new'} && $in{'vlan'}) {
|
|
# New VLAN
|
|
&ui_print_header(undef, $text{'vlan_create'}, "");
|
|
}
|
|
elsif ($in{'new'} && $in{'bridge'}) {
|
|
# New Bridge
|
|
&ui_print_header(undef, $text{'bridge_create'}, "");
|
|
$bmax = -1;
|
|
foreach $b (@boot) {
|
|
if ($b->{'fullname'} =~ /^br(\d+)$/) {
|
|
$bmax = $1;
|
|
}
|
|
}
|
|
}
|
|
elsif ($in{'new'}) {
|
|
# New real or virtual interface
|
|
&ui_print_header(undef, $text{'bifc_create'}, "");
|
|
if ($in{'virtual'}) {
|
|
# Pick a virtual number
|
|
$vmax = int($min_virtual_number) - 1;
|
|
foreach my $e (@boot) {
|
|
$vmax = $e->{'virtual'}
|
|
if ($e->{'virtual'} ne '' &&
|
|
$e->{'name'} eq $in{'virtual'} &&
|
|
$e->{'virtual'} > $vmax);
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
# Editing existing
|
|
$b = $boot[$in{'idx'}];
|
|
&can_iface($b) || &error($text{'ifcs_ecannot_this'});
|
|
&ui_print_header(undef, $text{'bifc_edit'}, "");
|
|
if (!$b->{'dhcp'} && !$b->{'bootp'} && !$b->{'broadcast'} &&
|
|
!&can_broadcast_def()) {
|
|
# Fill in broadcast if missing, unless system can compute
|
|
# it automatically
|
|
$b->{'broadcast'} = &compute_broadcast(
|
|
$b->{'address'}, $b->{'netmask'});
|
|
}
|
|
}
|
|
|
|
# Start of the form
|
|
print &ui_form_start("save_bifc.cgi");
|
|
print &ui_hidden("new", $in{'new'});
|
|
print &ui_hidden("idx", $in{'idx'});
|
|
print &ui_hidden("vlan", $in{'vlan'});
|
|
print &ui_hidden("bond", $in{'bond'});
|
|
print &ui_hidden("bridge", $in{'bridge'});
|
|
print &ui_table_start($in{'virtual'} || $b && $b->{'virtual'} ne "" ?
|
|
$text{'bifc_desc2'} : $text{'bifc_desc1'}, undef, 2);
|
|
|
|
# Comment, if allowed
|
|
if (defined(&can_iface_desc) && &can_iface_desc($b)) {
|
|
print &ui_table_row($text{'ifcs_desc'},
|
|
&ui_textbox("desc", $b ? $b->{'desc'} : undef, 60), 3);
|
|
}
|
|
|
|
# Interface name
|
|
if ($in{'new'} && $in{'virtual'}) {
|
|
# New virtual interface
|
|
$namefield = $in{'virtual'}.":".
|
|
&ui_textbox("virtual", $vmax+1, 3).
|
|
&ui_hidden("name", $in{'virtual'});
|
|
}
|
|
elsif ($in{'new'}) {
|
|
# New real interface
|
|
if ($in{'vlan'}) {
|
|
$namefield = "auto".&ui_hidden("name", "auto");
|
|
}
|
|
elsif ($in{'bridge'}) {
|
|
$namefield = "br ".&ui_textbox("name", ($bmax+1), 3);
|
|
}
|
|
elsif ($in{'bond'}) {
|
|
$namefield = "bond ".&ui_textbox("name", ($bmax+1), 3);
|
|
}
|
|
else {
|
|
$namefield = &ui_textbox("name", undef, 6);
|
|
}
|
|
}
|
|
else {
|
|
# Existing interface
|
|
$namefield = "<tt>$b->{'fullname'}</tt>";
|
|
}
|
|
print &ui_table_row($text{'ifcs_name'}, $namefield);
|
|
|
|
# Activate at boot?
|
|
if (&can_edit("up", $b) && $access{'up'}) {
|
|
$upfield = &ui_yesno_radio("up", !$b || $b->{'up'});
|
|
}
|
|
else {
|
|
$upfield = !$b ? $text{'yes'} :
|
|
$b->{'up'} ? $text{'yes'} : $text{'no'};
|
|
}
|
|
print &ui_table_row($text{'bifc_act'}, $upfield);
|
|
|
|
# IP address source. This can either be DHCP, BootP or a fixed IP,
|
|
# netmask and broadcast
|
|
$virtual = (!$b && $in{'virtual'}) || ($b && $b->{'virtual'} ne "");
|
|
$dhcp = &can_edit("dhcp") && !$virtual;
|
|
$bootp = &can_edit("bootp") && !$virtual;
|
|
if (defined(&supports_no_address) && &supports_no_address()) {
|
|
# Having no address is allowed
|
|
$canno = 1;
|
|
}
|
|
elsif ($b && !$b->{'address'} && !$b->{'dhcp'} && !$b->{'bootp'}) {
|
|
# Has no address
|
|
$canno = 1;
|
|
}
|
|
@opts = ( );
|
|
if ($canno) {
|
|
push(@opts, [ "none", $text{'ifcs_noaddress'} ]);
|
|
}
|
|
if ($dhcp) {
|
|
push(@opts, [ "dhcp", $text{'ifcs_dhcp'} ]);
|
|
}
|
|
if ($bootp) {
|
|
push(@opts, [ "bootp", $text{'ifcs_bootp'} ]);
|
|
}
|
|
if ($canno) {
|
|
}
|
|
@grid = ( $text{'ifcs_ip'},
|
|
&ui_textbox("address", $b ? $b->{'address'} : "", 15) );
|
|
if ($in{'virtual'} && $in{'new'} && $virtual_netmask) {
|
|
# Netmask is fixed
|
|
push(@grid, $text{'ifcs_mask'}, "<tt>$virtual_netmask</tt>");
|
|
}
|
|
elsif (&can_edit("netmask", $b) && $access{'netmask'}) {
|
|
# Can edit netmask
|
|
push(@grid, $text{'ifcs_mask'},
|
|
&ui_textbox("netmask", $b ? $b->{'netmask'}
|
|
: $config{'def_netmask'}, 15));
|
|
}
|
|
elsif ($b && $b->{'netmask'}) {
|
|
# Cannot edit
|
|
push(@grid, $text{'ifcs_mask'}, "<tt>$b->{'netmask'}</tt>");
|
|
}
|
|
if (&can_edit("broadcast", $b) && $access{'broadcast'}) {
|
|
# Can edit broadcast address
|
|
push(@grid, $text{'ifcs_broad'},
|
|
&ui_opt_textbox("broadcast",
|
|
$b ? $b->{'broadcast'} : $config{'def_broadcast'},
|
|
15, $text{'ifcs_auto'}));
|
|
}
|
|
elsif ($b && $b->{'broadcast'}) {
|
|
# Broadcast is fixed
|
|
push(@grid, $text{'ifcs_broad'}, "<tt>$b->{'broadcast'}</tt>");
|
|
}
|
|
push(@opts, [ "address", $text{'ifcs_static2'}, &ui_grid_table(\@grid, 2) ]);
|
|
|
|
# Show the IP field
|
|
if (@opts > 1) {
|
|
print &ui_table_row($text{'ifcs_mode'},
|
|
&ui_radio_table("mode", $b && $b->{'dhcp'} ? "dhcp" :
|
|
$b && $b->{'bootp'} ? "bootp" :
|
|
$b && !$b->{'address'} ? "none" :
|
|
"address",
|
|
\@opts), 3);
|
|
}
|
|
else {
|
|
print &ui_table_row($opts[0]->[1], $opts[0]->[2]);
|
|
}
|
|
|
|
# Show the IPv6 field
|
|
if (&supports_address6($b)) {
|
|
# Multiple IPs allowed
|
|
$table6 = &ui_columns_start([ $text{'ifcs_address6'},
|
|
$text{'ifcs_netmask6'} ], 50);
|
|
for($i=0; $i<=($b ? scalar(@{$b->{'address6'}}) : 0); $i++) {
|
|
$table6 .= &ui_columns_row([
|
|
&ui_textbox("address6_$i",
|
|
$b->{'address6'}->[$i], 40),
|
|
&ui_textbox("netmask6_$i",
|
|
$b->{'netmask6'}->[$i] || 64, 10) ]);
|
|
}
|
|
$table6 .= &ui_columns_end();
|
|
print &ui_table_row($text{'ifcs_mode6'},
|
|
&ui_radio_table("mode6",
|
|
!$b ? "none" :
|
|
$b->{'auto6'} ? "auto" :
|
|
@{$b->{'address6'}} ? "address" : "none",
|
|
[ [ "none", $text{'ifcs_none6'} ],
|
|
[ "auto", $text{'ifcs_auto6'} ],
|
|
[ "address", $text{'ifcs_static2'}, $table6 ] ]), 2);
|
|
}
|
|
|
|
# MTU
|
|
if (&can_edit("mtu", $b) && $access{'mtu'}) {
|
|
$mtufield = &ui_opt_textbox(
|
|
"mtu", $b ? $b->{'mtu'} : $config{'def_mtu'}, 8,
|
|
$text{'default'});
|
|
}
|
|
else {
|
|
$mtufield = $b && $b->{'mtu'} ? $b->{'mtu'} : undef;
|
|
}
|
|
if ($mtufield) {
|
|
print &ui_table_row($text{'ifcs_mtu'}, $mtufield);
|
|
}
|
|
|
|
# Virtual sub-interfaces
|
|
if ($b && $b->{'virtual'} eq "" && !$in{'new'}) {
|
|
$vcount = 0;
|
|
foreach $vb (@boot) {
|
|
if ($vb->{'virtual'} ne "" && $vb->{'name'} eq $b->{'name'}) {
|
|
$vcount++;
|
|
}
|
|
}
|
|
$vlink = "";
|
|
if ($access{'virt'} && !$noos_support_add_virtifcs) {
|
|
$vlink = "(<a href='edit_bifc.cgi?new=1&virtual=$b->{'name'}'>".
|
|
"$text{'ifcs_addvirt'}</a>)\n";
|
|
}
|
|
print &ui_table_row($text{'ifcs_virts'}, $vcount." ".$vlink);
|
|
}
|
|
|
|
# Special parameters for teaming
|
|
if ($in{'bond'} || &iface_type($b->{'name'}) eq 'Bonded') {
|
|
# Select bonding teampartner
|
|
print &ui_table_row($text{'bonding_teamparts'},
|
|
&ui_textbox("partner", $b->{'partner'}, 10)." ".$text{'bonding_teampartsdesc'});
|
|
|
|
# Select teaming mode
|
|
@mode = ("balance-rr", "activebackup", "balance-xor", "broadcast", "802.3ad", "balance-tlb", "balance-alb");
|
|
print &ui_table_row($text{'bonding_teammode'},
|
|
&ui_select("bondmode", int($b->{'mode'}),
|
|
[ map { [ $_, $mode[$_] ] } (0 .. $#mode) ]));
|
|
|
|
# Select bonding primary interface
|
|
print &ui_table_row($text{'bonding_primary'},
|
|
&ui_textbox("primary", $b->{'primary'}, 5)." ".$text{'bonding_primarydesc'});
|
|
|
|
# Select mii Monitoring Interval
|
|
print &ui_table_row($text{'bonding_miimon'},
|
|
&ui_textbox("miimon", $b->{'miimon'} ? $b->{'miimon'} : "100", 5)." ms ".$text{'bonding_miimondesc'});
|
|
|
|
# Select updelay
|
|
print &ui_table_row($text{'bonding_updelay'},
|
|
&ui_textbox("updelay", $b->{'updelay'} ? $b->{'updelay'} : "200", 5)." ms");
|
|
|
|
# Select downdelay
|
|
print &ui_table_row($text{'bonding_downdelay'},
|
|
&ui_textbox("downdelay", $b->{'downdelay'} ? $b->{'downdelay'} : "200", 5)." ms");
|
|
}
|
|
|
|
# Special Parameter for vlan tagging
|
|
if ($in{'vlan'} || &iface_type($b->{'name'}) =~ /^(.*) (VLAN)$/) {
|
|
$b->{'name'} =~ /(\S+)\.(\d+)/;
|
|
$physical = $1;
|
|
$vlanid = $2;
|
|
|
|
# Phyical device
|
|
@phys = grep { (($_->{'virtual'} eq '') && ($_->{'vlanid'} eq '')) } &active_interfaces(1);
|
|
print &ui_table_row($text{'vlan_physical'},
|
|
$in{'new'} ? &ui_select("physical", $physical,
|
|
[ map { $_->{'fullname'} } @phys ])
|
|
: $physical.&ui_hidden("physical", $physical));
|
|
|
|
# VLAN ID
|
|
print &ui_table_row($text{'vlan_id'},
|
|
$in{'new'} ? &ui_textbox("vlanid", $vlanid, 10)
|
|
: $vlanid.&ui_hidden("vlanid", $vlanid));
|
|
}
|
|
|
|
# Hardware address, if non-virtual
|
|
if (($in{'new'} && $in{'virtual'} eq "" && !$in{'bridge'}) ||
|
|
(!$in{'new'} && $b->{'virtual'} eq "" &&
|
|
defined(&boot_iface_hardware) &&
|
|
&boot_iface_hardware($b->{'name'}))) {
|
|
$hardfield = &ui_opt_textbox("ether", $b->{'ether'}, 30,
|
|
$text{'aifc_default'});
|
|
print &ui_table_row($text{'aifc_hard'}, $hardfield);
|
|
}
|
|
|
|
# Real interface for bridge
|
|
if ($in{'bridge'} || $b && $b->{'bridge'}) {
|
|
@ethboot = sort { $a cmp $b }
|
|
map { $_->{'fullname'} }
|
|
grep { ($_->{'fullname'} =~ /^(vlan|bond)/ ||
|
|
&iface_type($_->{'fullname'}) eq 'Ethernet') &&
|
|
$_->{'virtual'} eq '' } @boot;
|
|
print &ui_table_row($text{'bifc_bridgeto'},
|
|
&ui_select("bridgeto", $b->{'bridgeto'},
|
|
[ [ "", $text{'bifc_nobridge'} ],
|
|
@ethboot ],
|
|
1, 0, $in{'new'} ? 0 : 1));
|
|
if (&can_edit("bridgestp")) {
|
|
print &ui_table_row($text{'bifc_bridgestp'},
|
|
&ui_radio("bridgestp", $b->{'bridgestp'} || "off",
|
|
[["off", "Off"], ["on", "On"]]));
|
|
}
|
|
if (&can_edit("bridgefd")) {
|
|
print &ui_table_row($text{'bifc_bridgefd'},
|
|
&ui_textbox("bridgefd", $b->{'bridgefd'} || "0", 3).
|
|
" seconds");
|
|
}
|
|
if (&can_edit("bridgewait")) {
|
|
print &ui_table_row($text{'bifc_bridgewait'},
|
|
&ui_textbox("bridgewait", $b->{'bridgewait'} || "0", 3).
|
|
" seconds");
|
|
}
|
|
}
|
|
|
|
print &ui_table_end();
|
|
|
|
# Generate and show buttons at end of the form
|
|
@buts = ( );
|
|
if ($access{'bootonly'}) {
|
|
# Can only save both boot-time and active
|
|
if ($in{'new'}) {
|
|
push(@buts, [ "activate", $text{'bifc_capply'} ]);
|
|
}
|
|
else {
|
|
push(@buts, [ "activate", $text{'bifc_apply'} ]);
|
|
if ($access{'delete'}) {
|
|
push(@buts, [ "unapply", $text{'bifc_dapply'} ]);
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
# Show buttons to save both boot-time and/or active
|
|
if ($in{'new'}) {
|
|
push(@buts, [ undef, $text{'create'} ]);
|
|
push(@buts, [ "activate", $text{'bifc_capply'} ]);
|
|
}
|
|
else {
|
|
push(@buts, [ undef, $text{'save'} ])
|
|
unless $always_apply_ifcs;
|
|
if (!($b->{'bootp'} || $b->{'dhcp'}) ||
|
|
defined(&apply_interface)) {
|
|
push(@buts, [ "activate", $text{'bifc_apply'} ]);
|
|
}
|
|
if ($access{'delete'}) {
|
|
push(@buts, [ "unapply", $text{'bifc_dapply'} ]);
|
|
push(@buts, [ "delete", $text{'delete'} ])
|
|
unless $noos_support_delete_ifcs;
|
|
}
|
|
}
|
|
}
|
|
print &ui_form_end(\@buts);
|
|
|
|
&ui_print_footer("list_ifcs.cgi?mode=boot", $text{'ifcs_return'});
|
|
|