sub sort_arp_record{		my @my_list;	my $my_row = 0;	my @my_arr;	my $my_file = "./tmp/bind_record.db";		open(MYFILE, $my_file) || (&error($text{'index_er'}) && exit(0));	while ($l_line=<MYFILE>)	{				@my_list = split( /\t+/, $l_line );				my $my_num1 = 0;		@my_numlist = split(/\./, $my_list[1]);		$my_num1 += $my_numlist[0] << 24;		$my_num1 += $my_numlist[1] << 16;		$my_num1 += $my_numlist[2] << 8;		$my_num1 += $my_numlist[3];		push(@my_array, $l_line);		#push(@my_arr, $my_list[0]);		push(@my_arr, $my_num1);		push(@my_arr, $my_row);				$my_row++;	}	close( MYFILE );	%my_sort = @my_arr;	@my_sorarra = keys(%my_sort);	@my_sorarra = sort(@my_sorarra);		my @my_sortnum;	foreach (@my_sorarra)	{		push(@my_sortnum, $my_sort{$_});	}	$my_row = 0;	my $my_file = "./tmp/sortdown_record.db";	open(MYFILE,">".$my_file) || (&error($text{'index_er'}) && exit(0));	foreach (@my_sortnum)	{		@my_list = split( /\t+/, $my_array[$_] );			print MYFILE $my_row."\t".$my_list[1]."\t".$my_list[2]."\t".$my_list[3]."\t".$my_list[4]."\t".$my_list[5]."\t".$my_list[6];				$my_row++	}	close (MYFILE);		@my_sortnum = reverse(@my_sortnum);	$my_row = 0;	my $my_file = "./tmp/sortup_record.db";	open(MYFILE, ">".$my_file) || (&error($text{'index_er'}) && exit(0));	foreach (@my_sortnum)	{		@my_list = split( /\t+/, $my_array[$_] );			print MYFILE $my_row."\t".$my_list[1]."\t".$my_list[2]."\t".$my_list[3]."\t".$my_list[4]."\t".$my_list[5]."\t".$my_list[6];		$my_row++;	}	close (MYFILE);}sub draw_arp_record{	my @my_list;#	local $my_row = 0;	my $my_srcfile = "./tmp/bind_record.db";	my $my_file = "./tmp/bind_recorda.db";		open(MYFILE,">".$my_file) || (&error($text{'index_er'}) && exit(0));	open( FILE, $my_srcfile);	while( $l_line=<FILE> )	{		@my_list = split( /\t+/, $l_line );		$my_list[3] !~ /^AA:AA:AA:AA.+/ && next;		print MYFILE $my_row."\t".$my_list[1]."\t".$my_list[3]."\n";		$my_row++;	}	close( FILE );	close( MYFILE );}sub ip_bind{	local ($ip, $mac) = @_;	&read_file($config{'bind_file'}, \%mac_stat);	if ( !$mac_stat{$mac} )	{				my $cmd1 = "iptables -A IPMACLIMIT -s $ip -m mac --mac-source ! $mac -j DROP";		my $cmd2 = "iptables -A IPMACLIMIT -s ! $ip -m mac --mac-source $mac -j DROP";		system($cmd1);		system($cmd2);		$mac_stat{$mac} = $ip;		&write_file($config{'bind_file'}, \%mac_stat);	}}sub ip_unbind{	local ($ip, $mac) = @_;	&read_file($config{'bind_file'}, \%mac_stat);	if ( $mac_stat{$mac} )	{		my $cmd1 = "iptables -D IPMACLIMIT -s $ip -m mac --mac-source ! $mac -j DROP";		my $cmd2 = "iptables -D IPMACLIMIT -s ! $ip -m mac --mac-source $mac -j DROP";		system($cmd1);		system($cmd2);		delete $mac_stat{$mac};		&write_file($config{'bind_file'}, \%mac_stat);	}}sub get_bind{	local ($ip, $mac) = @_;	&read_file($config{'bind_file'}, \%mac_stat);	if ( !$mac_stat{$mac} )	{		$mac_stat{$mac} = $ip;		&write_file($config{'bind_file'}, \%mac_stat);	}}sub get_unbind{	local ($ip, $mac) = @_;	&read_file($config{'bind_file'}, \%mac_stat);	if ( $mac_stat{$mac} )	{		delete $mac_stat{$mac};		&write_file($config{'bind_file'}, \%mac_stat);	}}# active_interfaces()# Returns a list of currently ifconfig'd interfacessub active_interfaces{local(@rv, @lines, $l);&open_execute_command(IFC, "ifconfig -a", 1, 1);while(<IFC>) {	s/\r|\n//g;	if (/^\S+/) { push(@lines, $_); }	else { $lines[$#lines] .= $_; }	}close(IFC);foreach $l (@lines) {	local %ifc;	$l =~ /^([^:\s]+)/; $ifc{'name'} = $1;	$l =~ /^(\S+)/; $ifc{'fullname'} = $1;	if ($l =~ /^(\S+):(\d+)/) { $ifc{'virtual'} = $2; }	if ($l =~ /inet addr:(\S+)/) { $ifc{'address'} = $1; }	elsif (!$_[0]) { next; }	if ($l =~ /Mask:(\S+)/) { $ifc{'netmask'} = $1; }	if ($l =~ /Bcast:(\S+)/) { $ifc{'broadcast'} = $1; }	if ($l =~ /HWaddr (\S+)/) { $ifc{'ether'} = $1; }	if ($l =~ /MTU:(\d+)/) { $ifc{'mtu'} = $1; }	if ($l =~ /P-t-P:(\S+)/) { $ifc{'ptp'} = $1; }	$ifc{'up'}++ if ($l =~ /\sUP\s/);	$ifc{'promisc'}++ if ($l =~ /\sPROMISC\s/);	$ifc{'edit'} = ($ifc{'name'} !~ /^ppp/);	$ifc{'index'} = scalar(@rv);	push(@rv, \%ifc);	}return @rv;}# activate_interface(&details)# Create or modify an interfacesub activate_interface{local $a = $_[0];local $cmd = "ifconfig $a->{'name'}";if ($a->{'virtual'} ne "") { $cmd .= ":$a->{'virtual'}"; }$cmd .= " $a->{'address'}";if ($a->{'netmask'}) { $cmd .= " netmask $a->{'netmask'}"; }if ($a->{'broadcast'}) { $cmd .= " broadcast $a->{'broadcast'}"; }if ($a->{'mtu'} && $a->{'virtual'} eq "") { $cmd .= " mtu $a->{'mtu'}"; }if ($a->{'up'}) { $cmd .= " up"; }else { $cmd .= " down"; }local $out = &backquote_logged("$cmd 2>&1");if ($?) { &error($out); }if ($a->{'ether'}) {	$out = &backquote_logged(		"ifconfig $a->{'name'} hw ether $a->{'ether'} 2>&1");	if ($?) { &error($out); }	}}# deactivate_interface(&details)# Shutdown some active interfacesub deactivate_interface{local $name = $_[0]->{'name'}.	      ($_[0]->{'virtual'} ne "" ? ":$_[0]->{'virtual'}" : "");if ($_[0]->{'virtual'} ne "") {	# Shutdown virtual interface by setting address to 0	local $out = &backquote_logged("ifconfig $name 0 2>&1");	}local ($still) = grep { $_->{'fullname'} eq $name } &active_interfaces();if ($still) {	# Old version of ifconfig or non-virtual interface.. down it	local $out = &backquote_logged("ifconfig $name down 2>&1");	local ($still) = grep { $_->{'fullname'} eq $name }			      &active_interfaces();	if ($still) {		&error("<pre>$out</pre>");		}	}}# iface_type(name)# Returns a human-readable interface type namesub iface_type{if ($_[0] =~ /^(.*)\.(\d+)$/) {	return &iface_type("$1")." VLAN";	}return "PPP" if ($_[0] =~ /^ppp/);return "SLIP" if ($_[0] =~ /^sl/);return "PLIP" if ($_[0] =~ /^plip/);return "Ethernet" if ($_[0] =~ /^eth/);return "Wireless Ethernet" if ($_[0] =~ /^wlan/);return "Arcnet" if ($_[0] =~ /^arc/);return "Token Ring" if ($_[0] =~ /^tr/);return "Pocket/ATP" if ($_[0] =~ /^atp/);return "Loopback" if ($_[0] =~ /^lo/);return "ISDN rawIP" if ($_[0] =~ /^isdn/);return "ISDN syncPPP" if ($_[0] =~ /^ippp/);return "CIPE" if ($_[0] =~ /^cip/);return "VmWare" if ($_[0] =~ /^vmnet/);return "Wireless" if ($_[0] =~ /^wlan/);return $text{'ifcs_unknown'};}# list_routes()# Returns a list of active routessub list_routes{local @rv;&open_execute_command(ROUTES, "netstat -rn", 1, 1);while(<ROUTES>) {	s/\s+$//;	if (/^([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+\S+\s+\S+\s+\S+\s+\S+\s+(\S+)$/) {		push(@rv, { 'dest' => $1,			    'gateway' => $2,			    'netmask' => $3,			    'iface' => $4 });		}	}close(ROUTES);return @rv;}# iface_hardware(name)# Does some interface have an editable hardware addresssub iface_hardware{return $_[0] =~ /^eth/;}# allow_interface_clash()# Returns 0 to indicate that two virtual interfaces with the same IP# are not allowedsub allow_interface_clash{return 0;}# get_dns_config()# Returns a hashtable containing keys nameserver, domain, search & ordersub get_dns_config{local $dns;local $rc;if ($use_suse_dns && ($rc = &parse_rc_config()) && $rc->{'NAMESERVER'}) {	# Special case - get DNS settings from SuSE config	local @ns = split(/\s+/, $rc->{'NAMESERVER'}->{'value'});	$dns->{'nameserver'} = [ grep { $_ ne "YAST_ASK" } @ns ];	local $src = $rc->{'SEARCHLIST'};	$dns->{'domain'} = [ split(/\s+/, $src->{'value'}) ] if ($src);	$dnsfile = $rc_config;	}else {	&open_readfile(RESOLV, "/etc/resolv.conf");	while(<RESOLV>) {		s/\r|\n//g;		s/#.*$//;		if (/nameserver\s+(.*)/) {			push(@{$dns->{'nameserver'}}, split(/\s+/, $1));			}		elsif (/domain\s+(\S+)/) {			$dns->{'domain'} = [ $1 ];			}		elsif (/search\s+(.*)/) {			$dns->{'domain'} = [ split(/\s+/, $1) ];			}		}	close(RESOLV);	$dnsfile = "/etc/resolv.conf";	}&open_readfile(SWITCH, "/etc/nsswitch.conf");while(<SWITCH>) {	s/\r|\n//g;	if (/^\s*hosts:\s+(.*)/) {		$dns->{'order'} = $1;		}	}close(SWITCH);$dns->{'files'} = [ $dnsfile, "/etc/nsswitch.conf" ];return $dns;}# save_dns_config(&config)# Writes out the resolv.conf and nsswitch.conf filessub save_dns_config{local $rc;&lock_file($rc_config) if ($suse_dns_config);if ($use_suse_dns && ($rc = &parse_rc_config()) && $rc->{'NAMESERVER'}) {	&save_rc_config($rc, "NAMESERVER", join(" ", @{$_[0]->{'nameserver'}}));	&save_rc_config($rc, "SEARCHLIST", join(" ", @{$_[0]->{'domain'}}));	}else {	&lock_file("/etc/resolv.conf");	&open_readfile(RESOLV, "/etc/resolv.conf");	local @resolv = <RESOLV>;	close(RESOLV);	&open_tempfile(RESOLV, ">/etc/resolv.conf");	foreach (@{$_[0]->{'nameserver'}}) {		&print_tempfile(RESOLV, "nameserver $_\n");		}	if ($_[0]->{'domain'}) {		if ($_[0]->{'domain'}->[1]) {			&print_tempfile(RESOLV, "search ",join(" ", @{$_[0]->{'domain'}}),"\n");			}		else {			&print_tempfile(RESOLV, "domain $_[0]->{'domain'}->[0]\n");			}		}	foreach (@resolv) {		&print_tempfile(RESOLV, $_) if (!/^\s*(nameserver|domain|search)\s+/);		}	&close_tempfile(RESOLV);	&unlock_file("/etc/resolv.conf");	}&lock_file("/etc/nsswitch.conf");&open_readfile(SWITCH, "/etc/nsswitch.conf");local @switch = <SWITCH>;close(SWITCH);&open_tempfile(SWITCH, ">/etc/nsswitch.conf");foreach (@switch) {	if (/^\s*hosts:\s+/) {		&print_tempfile(SWITCH, "hosts:\t$_[0]->{'order'}\n");		}	else {		&print_tempfile(SWITCH, $_);		}	}&close_tempfile(SWITCH);&unlock_file("/etc/nsswitch.conf");if ($suse_dns_config && $rc->{'USE_NIS_FOR_RESOLVING'}) {	if ($_[0]->{'order'} =~ /nis/) {		&save_rc_config($rc, "USE_NIS_FOR_RESOLVING", "yes");		}	else {		&save_rc_config($rc, "USE_NIS_FOR_RESOLVING", "no");		}	}&unlock_file($rc_config) if ($suse_dns_config);}$max_dns_servers = 3;# order_input(&dns)# Returns HTML for selecting the name resolution ordersub order_input{if ($_[0]->{'order'} =~ /\[/) {	# Using a complex resolve list	return "<input name=order size=45 value=\"$_[0]->{'order'}\">\n";	}else {	# Can select by menus	local @o = split(/\s+/, $_[0]->{'order'});	@o = map { s/nis\+/nisplus/; s/yp/nis/; $_; } @o;	local ($rv, $i, $j);	local @srcs = ( "", "files", "dns", "nis", "nisplus", "ldap", "db" );	local @srcn = ( "", "Hosts", "DNS", "NIS", "NIS+", "LDAP", "DB" );	for($i=1; $i<@srcs; $i++) {		local $ii = $i-1;		$rv .= "<select name=order_$ii>\n";		for($j=0; $j<@srcs; $j++) {			$rv .= sprintf "<option value=\"%s\" %s>%s\n",					$srcs[$j],					$o[$ii] eq $srcs[$j] ? "selected" : "",					$srcn[$j] ? $srcn[$j] : "&nbsp;";			}		$rv .= "</select>\n";		}	return $rv;	}}# parse_order(&dns)# Parses the form created by order_input()sub parse_order{if (defined($in{'order'})) {	$in{'order'} =~ /\S/ || &error($text{'dns_eorder'});	$_[0]->{'order'} = $in{'order'};	}else {	local($i, @order);	for($i=0; defined($in{"order_$i"}); $i++) {		push(@order, $in{"order_$i"}) if ($in{"order_$i"});		}	$_[0]->{'order'} = join(" ", @order);	}}sub mac_sort{	my $my_cmd = "sort -k4 ".$module_root_directory."/tmp/bind_record.db|";	my @my_sortnum = ();	my @my_list;	my $my_row = 0;	my $my_file = "./tmp/mac_downsort.db";		open(MYFILE,">".$my_file) || (&error($text{'index_er'}) && exit(0));	open(CMD, $my_cmd);	while( $l_line=<CMD> )	{				push(@my_sortnum, $l_line);		@my_list = split( /\t+/, $l_line );		print MYFILE $my_row."\t".$my_list[1]."\t".$my_list[2]."\t".$my_list[3]."\t".$my_list[4]."\t".$my_list[5]."\t".$my_list[6];		$my_row++;	}	close( CMD );	close( MYFILE );		@my_sortnum = reverse(@my_sortnum);	$my_row = 0;	my $my_file = "./tmp/mac_upsort.db";	open(MYFILE, ">".$my_file) || (&error($text{'index_er'}) && exit(0));	foreach (@my_sortnum)	{		@my_list = split( /\t+/, $_ );		print MYFILE $my_row."\t".$my_list[1]."\t".$my_list[2]."\t".$my_list[3]."\t".$my_list[4]."\t".$my_list[5]."\t".$my_list[6];		$my_row++;	}	close (MYFILE);	}#Get the system working's modesub get_sysmode{	local %work_mode;	&read_file($config{'sys_mode'}, \%work_mode);	return $work_mode{'mode'};}1;