Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	5.48 KB	-rw-r--r--
acl_security.pl	2.92 KB	-rwxr-xr-x
apply.cgi	184 B	-rwxr-xr-x
backup_config.pl	1005 B	-rwxr-xr-x
cgi_args.pl	752 B	-rwxr-xr-x
cobalt-linux-lib.pl	30.48 KB	-rwxr-xr-x
coherent-linux-lib.pl	30.48 KB	-rwxr-xr-x
config	48 B	-rw-r--r--
config-ALL-linux	48 B	-rw-r--r--
config-cygwin	82 B	-rw-r--r--
config-freebsd	48 B	-rw-r--r--
config-macos	48 B	-rw-r--r--
config-netbsd	48 B	-rw-r--r--
config-openbsd	48 B	-rw-r--r--
config-solaris	79 B	-rw-r--r--
config-syno-linux	48 B	-rw-r--r--
config-unixware	48 B	-rw-r--r--
config-windows	78 B	-rw-r--r--
config.info	193 B	-rw-r--r--
config.info.ca	238 B	-rw-r--r--
config.info.ca.UTF-8	241 B	-rw-r--r--
config.info.cz	195 B	-rw-r--r--
config.info.cz.UTF-8	205 B	-rw-r--r--
config.info.de	219 B	-rw-r--r--
config.info.de.UTF-8	219 B	-rw-r--r--
config.info.es	187 B	-rw-r--r--
config.info.es.UTF-8	187 B	-rw-r--r--
config.info.fa	262 B	-rw-r--r--
config.info.fr	53 B	-rw-r--r--
config.info.fr.UTF-8	53 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ja_JP.UTF-8	68 B	-rw-r--r--
config.info.ja_JP.euc	50 B	-rw-r--r--
config.info.nl	197 B	-rw-r--r--
config.info.nl.UTF-8	197 B	-rw-r--r--
config.info.no	208 B	-rw-r--r--
config.info.no.UTF-8	208 B	-rw-r--r--
config.info.pl	234 B	-rw-r--r--
config.info.pl.UTF-8	240 B	-rw-r--r--
config.info.pt_BR	265 B	-rw-r--r--
config.info.pt_BR.UTF-8	265 B	-rw-r--r--
config.info.ru.UTF-8	361 B	-rw-r--r--
config.info.ru_RU	231 B	-rw-r--r--
config.info.ru_RU.UTF-8	361 B	-rw-r--r--
config.info.ru_SU	231 B	-rw-r--r--
config.info.sk	220 B	-rw-r--r--
config.info.sk.UTF-8	225 B	-rw-r--r--
config.info.sv	42 B	-rw-r--r--
config.info.sv.UTF-8	42 B	-rw-r--r--
config.info.tr	62 B	-rw-r--r--
config.info.uk_UA	56 B	-rw-r--r--
config.info.uk_UA.UTF-8	86 B	-rw-r--r--
config.info.zh_CN	34 B	-rw-r--r--
config.info.zh_CN.UTF-8	43 B	-rw-r--r--
config.info.zh_TW.Big5	34 B	-rw-r--r--
config.info.zh_TW.UTF-8	44 B	-rw-r--r--
create_route.cgi	1004 B	-rwxr-xr-x
cygwin-lib.pl	11.23 KB	-rwxr-xr-x
debian-linux-lib.pl	32.52 KB	-rwxr-xr-x
defaultacl	105 B	-rw-r--r--
delete_aifcs.cgi	537 B	-rwxr-xr-x
delete_bifcs.cgi	1.44 KB	-rwxr-xr-x
delete_hosts.cgi	523 B	-rwxr-xr-x
delete_ipnodes.cgi	542 B	-rwxr-xr-x
delete_routes.cgi	458 B	-rwxr-xr-x
edit_aifc.cgi	5.1 KB	-rwxr-xr-x
edit_bifc.cgi	10.31 KB	-rwxr-xr-x
edit_host.cgi	1.13 KB	-rwxr-xr-x
edit_ipnode.cgi	1.04 KB	-rwxr-xr-x
edit_range.cgi	1.34 KB	-rwxr-xr-x
freebsd-lib.pl	19.15 KB	-rwxr-xr-x
gentoo-linux-lib.pl	8.47 KB	-rwxr-xr-x
index.cgi	1018 B	-rwxr-xr-x
interface_chooser.cgi	3.8 KB	-rwxr-xr-x
linux-lib.pl	26.19 KB	-rwxr-xr-x
list_dns.cgi	2.3 KB	-rwxr-xr-x
list_hosts.cgi	1.36 KB	-rwxr-xr-x
list_ifcs.cgi	8.19 KB	-rwxr-xr-x
list_ipnodes.cgi	1.07 KB	-rwxr-xr-x
list_routes.cgi	3.37 KB	-rwxr-xr-x
log_parser.pl	1.24 KB	-rwxr-xr-x
macos-lib.pl	11.47 KB	-rwxr-xr-x
mandrake-linux-lib.pl	30.48 KB	-rwxr-xr-x
mod_aifc.cgi	720 B	-rwxr-xr-x
module.info	485 B	-rw-r--r--
module.info.ca	125 B	-rw-r--r--
module.info.ca.UTF-8	139 B	-rw-r--r--
module.info.cz	25 B	-rw-r--r--
module.info.cz.UTF-8	33 B	-rw-r--r--
module.info.de	121 B	-rw-r--r--
module.info.de.UTF-8	133 B	-rw-r--r--
module.info.es	29 B	-rw-r--r--
module.info.es.UTF-8	36 B	-rw-r--r--
module.info.fr	29 B	-rw-r--r--
module.info.fr.UTF-8	36 B	-rw-r--r--
module.info.hu	29 B	-rw-r--r--
module.info.hu.UTF-8	40 B	-rw-r--r--
module.info.it	28 B	-rw-r--r--
module.info.it.UTF-8	34 B	-rw-r--r--
module.info.ja_JP.UTF-8	42 B	-rw-r--r--
module.info.ja_JP.euc	32 B	-rw-r--r--
module.info.ko_KR.UTF-8	37 B	-rw-r--r--
module.info.ko_KR.euc	29 B	-rw-r--r--
module.info.ms_MY	142 B	-rw-r--r--
module.info.ms_MY.UTF-8	154 B	-rw-r--r--
module.info.nl	29 B	-rw-r--r--
module.info.nl.UTF-8	35 B	-rw-r--r--
module.info.no	31 B	-rw-r--r--
module.info.no.UTF-8	37 B	-rw-r--r--
module.info.pl	121 B	-rw-r--r--
module.info.pl.UTF-8	134 B	-rw-r--r--
module.info.pt	29 B	-rw-r--r--
module.info.pt.UTF-8	37 B	-rw-r--r--
module.info.pt_BR	42 B	-rw-r--r--
module.info.pt_BR.UTF-8	48 B	-rw-r--r--
module.info.ru.UTF-8	42 B	-rw-r--r--
module.info.ru_RU	26 B	-rw-r--r--
module.info.ru_RU.UTF-8	45 B	-rw-r--r--
module.info.ru_SU	26 B	-rw-r--r--
module.info.sk	27 B	-rw-r--r--
module.info.sk.UTF-8	34 B	-rw-r--r--
module.info.sv	30 B	-rw-r--r--
module.info.sv.UTF-8	37 B	-rw-r--r--
module.info.tr	26 B	-rw-r--r--
module.info.zh_CN	20 B	-rw-r--r--
module.info.zh_TW.Big5	25 B	-rw-r--r--
msc-linux-lib.pl	30.48 KB	-rwxr-xr-x
net-lib.pl	11.48 KB	-rwxr-xr-x
netbsd-lib.pl	19.15 KB	-rwxr-xr-x
netplan-lib.pl	16.76 KB	-rw-r--r--
open-linux-lib.pl	7.13 KB	-rwxr-xr-x
openbsd-lib.pl	12.53 KB	-rwxr-xr-x
openmamba-linux-lib.pl	30.48 KB	-rwxr-xr-x
pardus-linux-lib.pl	30.48 KB	-rwxr-xr-x
rbac-mapping	180 B	-rw-r--r--
rc.inet1	1.95 KB	-rw-r--r--
redhat-linux-lib.pl	30.48 KB	-rwxr-xr-x
save_aifc.cgi	5.62 KB	-rwxr-xr-x
save_bifc.cgi	9.31 KB	-rwxr-xr-x
save_dns.cgi	3.14 KB	-rwxr-xr-x
save_host.cgi	1.18 KB	-rwxr-xr-x
save_ipnode.cgi	1.23 KB	-rwxr-xr-x
save_range.cgi	1.42 KB	-rwxr-xr-x
save_routes.cgi	283 B	-rwxr-xr-x
slackware-linux-9.1-ALL-lib.pl	7.8 KB	-rwxr-xr-x
slackware-linux-lib.pl	6.66 KB	-rwxr-xr-x
solaris-lib.pl	20.71 KB	-rwxr-xr-x
suse-linux-8.0-lib.pl	7.18 KB	-rwxr-xr-x
suse-linux-8.2-lib.pl	7.18 KB	-rwxr-xr-x
suse-linux-9.0-lib.pl	8.61 KB	-rwxr-xr-x
suse-linux-9.1-lib.pl	8.61 KB	-rwxr-xr-x
suse-linux-9.2-ALL-lib.pl	11.1 KB	-rwxr-xr-x
suse-linux-lib.pl	8.96 KB	-rwxr-xr-x
trustix-linux-lib.pl	30.48 KB	-rwxr-xr-x
turbo-linux-lib.pl	30.48 KB	-rwxr-xr-x
united-linux-lib.pl	7.18 KB	-rwxr-xr-x
unixware-lib.pl	9.83 KB	-rwxr-xr-x
windows-lib.pl	11.23 KB	-rwxr-xr-x

Code Editor : edit_bifc.cgi

#!/usr/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($net::min_virtual_number);
		foreach my $e (@boot) {
			$vmax = $e->{'virtual'}
				if ($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'}) {
		# Fill in broadcast if missing
		$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));
	print &ui_table_row($text{'bifc_bridgestp'},
		&ui_radio("bridgestp", $b->{'bridgestp'} ? $b->{'bridgestp'} : "off", [["off", "Off"], ["on", "On"]]));
	print &ui_table_row($text{'bifc_bridgefd'},
		&ui_textbox("bridgefd", $b->{'bridgefd'} ? $b->{'bridgefd'} : "0", 3)." seconds");
	print &ui_table_row($text{'bifc_bridgewait'},
		&ui_textbox("bridgewait", $b->{'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'});

${this.title}

Code Editor : edit_bifc.cgi