File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/net

📁 ..
📄 CHANGELOG(5.55 KB)
📄 acl_security.pl(3.08 KB)
📄 apply.cgi(184 B)
📄 backup_config.pl(1005 B)
📄 cgi_args.pl(752 B)
📄 cobalt-linux-lib.pl(32.83 KB)
📄 coherent-linux-lib.pl(32.83 KB)
📄 config(48 B)
📄 config-ALL-linux(48 B)
📄 config-cygwin(82 B)
📄 config-freebsd(48 B)
📄 config-macos(48 B)
📄 config-netbsd(48 B)
📄 config-openbsd(48 B)
📄 config-solaris(79 B)
📄 config-syno-linux(48 B)
📄 config-unixware(48 B)
📄 config-windows(78 B)
📄 config.info(193 B)
📄 config.info.ca(241 B)
📄 config.info.cs(205 B)
📄 config.info.de(219 B)
📄 config.info.es(175 B)
📄 config.info.fa(255 B)
📄 config.info.fr(246 B)
📄 config.info.hu(0 B)
📄 config.info.ja(68 B)
📄 config.info.nl(197 B)
📄 config.info.no(208 B)
📄 config.info.pl(240 B)
📄 config.info.pt_BR(229 B)
📄 config.info.ru(361 B)
📄 config.info.sk(225 B)
📄 config.info.sv(42 B)
📄 config.info.tr(65 B)
📄 config.info.uk(87 B)
📄 config.info.zh(43 B)
📄 config.info.zh_TW(44 B)
📄 create_route.cgi(1004 B)
📄 cygwin-lib.pl(11.28 KB)
📄 debian-linux-lib.pl(32.63 KB)
📄 defaultacl(114 B)
📄 delete_aifcs.cgi(537 B)
📄 delete_bifcs.cgi(1.44 KB)
📄 delete_hosts.cgi(523 B)
📄 delete_ipnodes.cgi(542 B)
📄 delete_routes.cgi(458 B)
📄 edit_aifc.cgi(5.09 KB)
📄 edit_bifc.cgi(10.42 KB)
📄 edit_host.cgi(1.13 KB)
📄 edit_ipnode.cgi(1.04 KB)
📄 edit_range.cgi(1.34 KB)
📄 freebsd-lib.pl(19.22 KB)
📄 gentoo-linux-lib.pl(8.47 KB)
📁 images
📄 index.cgi(1.25 KB)
📄 interface_chooser.cgi(3.8 KB)
📁 lang
📄 linux-lib.pl(27.58 KB)
📄 list_dns.cgi(2.3 KB)
📄 list_hosts.cgi(1.36 KB)
📄 list_ifcs.cgi(7.96 KB)
📄 list_ipnodes.cgi(1.07 KB)
📄 list_routes.cgi(3.38 KB)
📄 log_parser.pl(1.24 KB)
📄 macos-lib.pl(11.57 KB)
📄 mandrake-linux-lib.pl(32.83 KB)
📄 mod_aifc.cgi(720 B)
📄 module.info(485 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(123 B)
📄 module.info.ar(0 B)
📄 module.info.ar.auto(170 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(226 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(261 B)
📄 module.info.ca(127 B)
📄 module.info.ca.auto(25 B)
📄 module.info.cs(27 B)
📄 module.info.cs.auto(111 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(129 B)
📄 module.info.de(121 B)
📄 module.info.de.auto(19 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(229 B)
📄 module.info.es(30 B)
📄 module.info.es.auto(116 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(142 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(194 B)
📄 module.info.fi(0 B)
📄 module.info.fi.auto(145 B)
📄 module.info.fr(30 B)
📄 module.info.fr.auto(128 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(161 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(148 B)
📄 module.info.hu(34 B)
📄 module.info.hu.auto(148 B)
📄 module.info.it(28 B)
📄 module.info.it.auto(112 B)
📄 module.info.ja(33 B)
📄 module.info.ja.auto(153 B)
📄 module.info.ko(28 B)
📄 module.info.ko.auto(105 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(157 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(157 B)
📄 module.info.ms(136 B)
📄 module.info.ms.auto(18 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(144 B)
📄 module.info.nl(29 B)
📄 module.info.nl.auto(105 B)
📄 module.info.no(31 B)
📄 module.info.no.auto(99 B)
📄 module.info.pl(122 B)
📄 module.info.pl.auto(19 B)
📄 module.info.pt(31 B)
📄 module.info.pt.auto(125 B)
📄 module.info.pt_BR(34 B)
📄 module.info.pt_BR.auto(131 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(143 B)
📄 module.info.ru(36 B)
📄 module.info.ru.auto(167 B)
📄 module.info.sk(28 B)
📄 module.info.sk.auto(113 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(140 B)
📄 module.info.sv(31 B)
📄 module.info.sv.auto(103 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(327 B)
📄 module.info.tr(30 B)
📄 module.info.tr.auto(130 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(223 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(210 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(170 B)
📄 module.info.zh(21 B)
📄 module.info.zh.auto(90 B)
📄 module.info.zh_TW(24 B)
📄 module.info.zh_TW.auto(96 B)
📄 msc-linux-lib.pl(32.83 KB)
📄 net-lib.pl(12 KB)
📄 netbsd-lib.pl(19.22 KB)
📄 netplan-lib.pl(20.85 KB)
📄 open-linux-lib.pl(7.2 KB)
📄 openbsd-lib.pl(12.6 KB)
📄 openmamba-linux-lib.pl(32.83 KB)
📄 pardus-linux-lib.pl(32.83 KB)
📄 rbac-mapping(180 B)
📄 rc.inet1(1.95 KB)
📄 redhat-linux-lib.pl(32.83 KB)
📄 save_aifc.cgi(5.78 KB)
📄 save_bifc.cgi(10.12 KB)
📄 save_dns.cgi(3.65 KB)
📄 save_host.cgi(1.18 KB)
📄 save_ipnode.cgi(1.26 KB)
📄 save_range.cgi(1.42 KB)
📄 save_routes.cgi(283 B)
📄 slackware-linux-9.1-ALL-lib.pl(7.85 KB)
📄 slackware-linux-lib.pl(6.71 KB)
📄 solaris-lib.pl(20.79 KB)
📄 suse-linux-8.0-lib.pl(7.31 KB)
📄 suse-linux-8.2-lib.pl(7.31 KB)
📄 suse-linux-9.0-lib.pl(8.74 KB)
📄 suse-linux-9.1-lib.pl(8.74 KB)
📄 suse-linux-9.2-ALL-lib.pl(11.23 KB)
📄 suse-linux-lib.pl(9.08 KB)
📄 system_info.pl(2.42 KB)
📄 trustix-linux-lib.pl(32.83 KB)
📄 turbo-linux-lib.pl(32.83 KB)
📄 united-linux-lib.pl(7.31 KB)
📄 unixware-lib.pl(9.9 KB)
📄 windows-lib.pl(11.28 KB)

Editing: gentoo-linux-lib.pl

# Networking functions for Gentoo 2006+

do 'linux-lib.pl';

$gentoo_net_config = "/etc/conf.d/net";
$min_virtual_number = 1;

# parse_gentoo_net()
# Parses the Gentoo net config file into an array of named sections
sub parse_gentoo_net
{
my @rv;
my $sect;
my $lnum = 0;
open(CONF, "<".$gentoo_net_config);
while(<CONF>) {
	s/\r|\n//g;
	s/#.*$//;
	if (/^\s*(\S+)\s*=\s*$(.*)/) {
		# Start of some section, which may span several lines
		$sect = { 'name' => $1,
			  'line' => $lnum };
		push(@rv, $sect);
		my $v = $2;
		if ($v =~ /^(.*)$/) {
			# Ends on same line
			$sect->{'values'} = [ &split_gentoo_values("$1") ];
			$sect->{'eline'} = $lnum;
			$sect = undef;
			}
		else {
			# May span multiple
			$sect->{'values'} = [ &split_gentoo_values($v) ];
			}
		}
	elsif (/^\s*\)/ && $sect) {
		# End of a section
		$sect->{'eline'} = $lnum;
		$sect = undef;
		}
	elsif (/^\s*(".*")\s*\)/ && $sect) {
		# End of a section, but with some values before it
		push(@{$sect->{'values'}}, &split_gentoo_values("$1"));
		$sect->{'eline'} = $lnum;
		$sect = undef;
		}
	elsif (/^\s*(".*")/ && $sect) {
		# Values within a section
		push(@{$sect->{'values'}}, &split_gentoo_values("$1"));
		}
	$lnum++;
	}
close(CONF);
return @rv;
}

# save_gentoo_net(&old, &new)
# Update or create a Gentoo net config file section
sub save_gentoo_net
{
my ($old, $new) = @_;
my @lines;
if ($new) {
	push(@lines, $new->{'name'}."=(");
	foreach my $v (@{$new->{'values'}}) {
		push(@lines,"  \"$v\"");
		}
	push(@lines, ")");
	}
my $lref = &read_file_lines($gentoo_net_config);
if ($old && $new) {
	# Replace section
	splice(@$lref, $old->{'line'}, $old->{'eline'}-$old->{'line'}+1,
	       @lines);
	$new->{'eline'} = $new->{'line'}+scalar(@lines)-1;
	}
elsif ($old && !$new) {
	# Delete section
	splice(@$lref, $old->{'line'}, $old->{'eline'}-$old->{'line'}+1);
	}
elsif (!$old && $new) {
	# Add section
	$new->{'line'} = scalar(@$lref);
	$new->{'eline'} = $new->{'line'}+scalar(@lines)-1;
	push(@$lref, @lines);
	}
&flush_file_lines($gentoo_net_config);
}

# split_gentoo_values(string)
# Splits a string like "foo bar" "smeg spod" into an array
sub split_gentoo_values
{
my ($str) = @_;
my @rv;
while($str =~ /^\s*"([^"]+)",?(.*)/) {
	push(@rv, $1);
	$str = $2;
	}
return @rv;
}

# boot_interfaces()
# Returns a list of interfaces brought up at boot time
sub boot_interfaces
{
my @rv;
foreach my $g (&parse_gentoo_net()) {
	if ($g->{'name'} =~ /^config_(\S+)/) {
		my $gn = $1;
		my $n = 0;
		foreach my $v (@{$g->{'values'}}) {
			# An interface definition
			my $iface = { 'name' => $gn,
					 'up' => 1,
					 'edit' => 1,
					 'index' => scalar(@rv) };
			if ($n == 0) {
				$iface->{'fullname'} = $gn;
				}
			else {
				$iface->{'fullname'} = $gn.":".$n;
				$iface->{'virtual'} = $n;
				}
			my @w = split(/\s+/, $v);
			if ($w[0] eq "dhcp") {
				$iface->{'dhcp'} = 1;
				}
			elsif ($w[0] eq "noop") {
				# Skipped, but still uses a up a number
				$n++;
				next;
				}
			if (&check_ipaddress($w[0])) {
				$iface->{'address'} = $w[0];
				}
			elsif ($w[0] =~ /^([0-9\.]+)\/(\d+)$/) {
				$iface->{'address'} = $1;
				$iface->{'netmask'} = &prefix_to_mask($2);
				}
			for($i=1; $i<@w; $i++) {
				if ($w[$i] eq "netmask") {
					$iface->{'netmask'} = $w[++$i];
					}
				elsif ($w[$i] eq "broadcast") {
					$iface->{'broadcast'} = $w[++$i];
					}
				elsif ($w[$i] eq "mtu") {
					$iface->{'mtu'} = $w[++$i];
					}
				}
			if ($iface->{'address'} && $iface->{'netmask'}) {
				$iface->{'broadcast'} ||= &compute_broadcast(
				    $iface->{'address'}, $iface->{'netmask'}); 
				}
			$iface->{'gentoo'} = $g;
			push(@rv, $iface);
			$n++;
			}
		}
	elsif ($g->{'name'} =~ /^routes_(\S+)/) {
		# A route definition for an interface
		my ($iface) = grep { $_->{'fullname'} eq $1 } @rv;
		my $spec = $g->{'values'}->[0];
		if ($iface) {
			if ($spec =~ /default\s+via\s+([0-9\.]+)/ ||
			    $spec =~ /default\s+([0-9\.]+)/) {
				$iface->{'gateway'} = $1;
				$iface->{'gentoogw'} = $g;
				}
			}
		}
	$lnum++;
	}
return @rv;
}

# save_interface(&details)
# Create or update a boot-time interface
sub save_interface
{
my ($iface) = @_;
&lock_file($gentoo_net_config);

# Build the interface line
my @w;
if ($iface->{'dhcp'}) {
	push(@w, "dhcp");
	}
else {
	push(@w, $iface->{'address'});
	if ($iface->{'netmask'}) {
		push(@w, "netmask", $iface->{'netmask'});
		}
	if ($iface->{'broadcast'}) {
		push(@w, "broadcast", $iface->{'broadcast'});
		}
	if ($iface->{'mtu'}) {
		push(@w, "mtu", $iface->{'mtu'});
		}
	}

# Find the current block for this interface
my @gentoo = &parse_gentoo_net();
my ($g) = grep { $_->{'name'} eq 'config_'.$iface->{'name'} } @gentoo;
if ($g) {
	# Found it .. append or replace
	while (!$g->{'values'}->[$iface->{'virtual'}]) {
		push(@{$g->{'values'}}, "noop");
		}
	$g->{'values'}->[$iface->{'virtual'}] = join(" ", @w);
	&save_gentoo_net($g, $g);
	}
else {
	# Needs a new block
	$g = { 'name' => $iface->{'name'},
	       'values' => [ join(" ", @w) ] };
	&save_gentoo_net(undef, $g);
	}
&unlock_file($gentoo_net_config);
}

# delete_interface(&details)
# Delete a boot-time interface
sub delete_interface
{
my ($iface) = @_;

# Find the current block for this interface
&lock_file($gentoo_net_config);
my @gentoo = &parse_gentoo_net();
my ($g) = grep { $_->{'name'} eq 'config_'.$iface->{'name'} } @gentoo;
if ($g) {
	# Found it .. take out the interface
	if ($iface->{'virtual'} == scalar(@{$g->{'values'}})-1) {
		# Last one
		pop(@{$g->{'values'}});
		}
	else {
		$g->{'values'}->[$iface->{'virtual'}] = 'noop';
		}
	&save_gentoo_net($g, $g);
	}
&unlock_file($gentoo_net_config);
}

# can_edit(what)
# Can some boot-time interface parameter be edited?
sub can_edit
{
return $_[0] ne 'up' && $_[0] ne 'bootp';
}

sub can_broadcast_def
{
return 0;
}

# valid_boot_address(address)
# Is some address valid for a bootup interface
sub valid_boot_address
{
return &check_ipaddress($_[0]);
}

# get_hostname()
sub get_hostname
{
my %host;
&read_env_file("/etc/conf.d/hostname", \%host);
if ($host{'HOSTNAME'}) {
	return $host{'HOSTNAME'};
	}
return &get_system_hostname();
}

# save_hostname(name)
sub save_hostname
{
my ($hostname) = @_;
my %host;
&read_env_file("/etc/conf.d/hostname", \%host);
$host{'HOSTNAME'} = $hostname;
&write_env_file("/etc/conf.d/hostname", \%host);
&system_logged("hostname ".quotemeta($hostname)." >/dev/null 2>&1");
}

# routing_input()
# Prints HTML for editing routing settings
sub routing_input
{
my ($gw, $dev) = &get_default_gateway();
my @ifaces = grep { $_->{'virtual'} eq '' } &boot_interfaces();
print &ui_table_row($text{'routes_def'},
      &ui_radio("route_def", $gw ? 0 : 1,
		[ [ 1, $text{'routes_nogw'}."<br>" ],
		  [ 0, &text('routes_ggw',
			  &ui_textbox("gw", $gw, 20),
			  &ui_select("dev", $dev,
			    [ map { $_->{'name'} } @ifaces ])) ] ]));
}

# parse_routing()
# Applies settings from routing_input form
sub parse_routing
{
if ($in{'route_def'}) {
	&set_default_gateway();
	}
else {
	&check_ipaddress($in{'gw'}) ||
		&error(&text('routes_edefault', &html_escape($in{'gw'})));
	&set_default_gateway($in{'gw'}, $in{'dev'});
	}
}

# apply_network()
# Apply the interface and routing settings
sub apply_network
{
opendir(DIR, "/etc/init.d");
foreach my $f (readdir(DIR)) {
	if ($f =~ /^net.(\S+)/ && $1 ne "lo") {
		&system_logged("cd / ; /etc/init.d/$f restart >/dev/null 2>&1 </dev/null");
		}
	}
closedir(DIR);
}

# get_default_gateway()
# Returns the default gateway IP (if one is set) and device (if set) boot time
# settings.
sub get_default_gateway
{
my @ifaces = &boot_interfaces();
my ($iface) = grep { $_->{'gateway'} } @ifaces;
if ($iface) {
	return ( $iface->{'gateway'}, $iface->{'name'} );
	}
else {
	return ( );
	}
}

# set_default_gateway(gateway, device)
# Sets the default gateway to the given IP accessible via the given device,
# in the boot time settings.
sub set_default_gateway
{
my ($gw, $dev) = @_;
&lock_file($gentoo_net_config);
my @ifaces = &boot_interfaces();
my ($iface) = grep { $_->{'gateway'} } @ifaces;
if ($iface && $gw) {
	# Change existing default route
	$g = $iface->{'gentoogw'};
	$g->{'name'} = 'routes_'.$dev;
	$g->{'values'}->[0] = "default via $gw";
	&save_gentoo_net($g, $g);
	}
elsif ($iface && !$gw) {
	# Deleting existing default route
	$g = $iface->{'gentoogw'};
	&save_gentoo_net($g, undef);
	}
elsif (!$iface && $gw) {
	# Adding new default route
	$g = { 'name' => 'routes_'.$dev,
	       'values' => [ "default via $gw" ] };
	&save_gentoo_net(undef, $g);
	}
&unlock_file($gentoo_net_config);
}

# supports_address6([&iface])
# Returns 1 if managing IPv6 interfaces is supported
sub supports_address6
{
my ($iface) = @_;
return 0;
}

X7ROOT File Manager

Editing: gentoo-linux-lib.pl

Upload File

Create Folder