Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	5.55 KB	-rw-r--r--
acl_security.pl	3.08 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	32.85 KB	-rwxr-xr-x
coherent-linux-lib.pl	32.85 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	241 B	-rw-r--r--
config.info.cs	205 B	-rw-r--r--
config.info.de	219 B	-rw-r--r--
config.info.es	175 B	-rw-r--r--
config.info.fa	255 B	-rw-r--r--
config.info.fr	246 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ja	68 B	-rw-r--r--
config.info.nl	197 B	-rw-r--r--
config.info.no	208 B	-rw-r--r--
config.info.pl	240 B	-rw-r--r--
config.info.pt_BR	229 B	-rw-r--r--
config.info.ru	361 B	-rw-r--r--
config.info.sk	225 B	-rw-r--r--
config.info.sv	42 B	-rw-r--r--
config.info.tr	65 B	-rw-r--r--
config.info.uk	87 B	-rw-r--r--
config.info.zh	43 B	-rw-r--r--
config.info.zh_TW	44 B	-rw-r--r--
create_route.cgi	1004 B	-rwxr-xr-x
cygwin-lib.pl	11.28 KB	-rwxr-xr-x
debian-linux-lib.pl	33.09 KB	-rwxr-xr-x
defaultacl	114 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.09 KB	-rwxr-xr-x
edit_bifc.cgi	10.42 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.22 KB	-rwxr-xr-x
gentoo-linux-lib.pl	8.47 KB	-rwxr-xr-x
index.cgi	1.25 KB	-rwxr-xr-x
interface_chooser.cgi	3.8 KB	-rwxr-xr-x
linux-lib.pl	27.58 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	7.96 KB	-rwxr-xr-x
list_ipnodes.cgi	1.07 KB	-rwxr-xr-x
list_routes.cgi	3.38 KB	-rwxr-xr-x
log_parser.pl	1.24 KB	-rwxr-xr-x
macos-lib.pl	11.57 KB	-rwxr-xr-x
mandrake-linux-lib.pl	32.85 KB	-rwxr-xr-x
mod_aifc.cgi	720 B	-rwxr-xr-x
module.info	485 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	123 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	170 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	226 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	261 B	-rw-r--r--
module.info.ca	127 B	-rw-r--r--
module.info.ca.auto	25 B	-rw-r--r--
module.info.cs	27 B	-rw-r--r--
module.info.cs.auto	111 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	129 B	-rw-r--r--
module.info.de	121 B	-rw-r--r--
module.info.de.auto	19 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	229 B	-rw-r--r--
module.info.es	30 B	-rw-r--r--
module.info.es.auto	116 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	142 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	194 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	145 B	-rw-r--r--
module.info.fr	30 B	-rw-r--r--
module.info.fr.auto	128 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	161 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	148 B	-rw-r--r--
module.info.hu	34 B	-rw-r--r--
module.info.hu.auto	148 B	-rw-r--r--
module.info.it	28 B	-rw-r--r--
module.info.it.auto	112 B	-rw-r--r--
module.info.ja	33 B	-rw-r--r--
module.info.ja.auto	153 B	-rw-r--r--
module.info.ko	28 B	-rw-r--r--
module.info.ko.auto	105 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	157 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	157 B	-rw-r--r--
module.info.ms	136 B	-rw-r--r--
module.info.ms.auto	18 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	144 B	-rw-r--r--
module.info.nl	29 B	-rw-r--r--
module.info.nl.auto	105 B	-rw-r--r--
module.info.no	31 B	-rw-r--r--
module.info.no.auto	99 B	-rw-r--r--
module.info.pl	122 B	-rw-r--r--
module.info.pl.auto	19 B	-rw-r--r--
module.info.pt	31 B	-rw-r--r--
module.info.pt.auto	125 B	-rw-r--r--
module.info.pt_BR	34 B	-rw-r--r--
module.info.pt_BR.auto	131 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	143 B	-rw-r--r--
module.info.ru	36 B	-rw-r--r--
module.info.ru.auto	167 B	-rw-r--r--
module.info.sk	28 B	-rw-r--r--
module.info.sk.auto	113 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	140 B	-rw-r--r--
module.info.sv	31 B	-rw-r--r--
module.info.sv.auto	103 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	327 B	-rw-r--r--
module.info.tr	30 B	-rw-r--r--
module.info.tr.auto	130 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	223 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	210 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	170 B	-rw-r--r--
module.info.zh	21 B	-rw-r--r--
module.info.zh.auto	90 B	-rw-r--r--
module.info.zh_TW	24 B	-rw-r--r--
module.info.zh_TW.auto	96 B	-rw-r--r--
msc-linux-lib.pl	32.85 KB	-rwxr-xr-x
net-lib.pl	12 KB	-rwxr-xr-x
netbsd-lib.pl	19.22 KB	-rwxr-xr-x
netplan-lib.pl	21.01 KB	-rw-r--r--
open-linux-lib.pl	7.2 KB	-rwxr-xr-x
openbsd-lib.pl	12.6 KB	-rwxr-xr-x
openmamba-linux-lib.pl	32.85 KB	-rwxr-xr-x
pardus-linux-lib.pl	32.85 KB	-rwxr-xr-x
rbac-mapping	180 B	-rw-r--r--
rc.inet1	1.95 KB	-rw-r--r--
redhat-linux-lib.pl	32.85 KB	-rwxr-xr-x
save_aifc.cgi	5.78 KB	-rwxr-xr-x
save_bifc.cgi	10.12 KB	-rwxr-xr-x
save_dns.cgi	3.65 KB	-rwxr-xr-x
save_host.cgi	1.18 KB	-rwxr-xr-x
save_ipnode.cgi	1.26 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.85 KB	-rwxr-xr-x
slackware-linux-lib.pl	6.71 KB	-rwxr-xr-x
solaris-lib.pl	20.79 KB	-rwxr-xr-x
suse-linux-8.0-lib.pl	7.31 KB	-rwxr-xr-x
suse-linux-8.2-lib.pl	7.31 KB	-rwxr-xr-x
suse-linux-9.0-lib.pl	8.74 KB	-rwxr-xr-x
suse-linux-9.1-lib.pl	8.74 KB	-rwxr-xr-x
suse-linux-9.2-ALL-lib.pl	11.23 KB	-rwxr-xr-x
suse-linux-lib.pl	9.08 KB	-rwxr-xr-x
system_info.pl	2.42 KB	-rw-r--r--
trustix-linux-lib.pl	32.85 KB	-rwxr-xr-x
turbo-linux-lib.pl	32.85 KB	-rwxr-xr-x
united-linux-lib.pl	7.31 KB	-rwxr-xr-x
unixware-lib.pl	9.9 KB	-rwxr-xr-x
windows-lib.pl	11.28 KB	-rwxr-xr-x

Code Editor : 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;
}

${this.title}

Code Editor : gentoo-linux-lib.pl