[people/pmueller/ipfire-2.x.git] / html / cgi-bin / netconfig.cgi

#!/usr/bin/perl
#
# EMBCop CGIs
#
# This code is distributed under the terms of the GPL
#
# (c) Michel Schaaf
#
# $Id: netconfig.cgi,v 1.11.2.27 2005/10/27 07:40:14 schaaf Exp $
#

use strict;

# enable only the following on debugging purpose
use warnings;
use CGI::Carp 'fatalsToBrowser';

require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";

my %cgiparams=();
$cgiparams{'ACTION'} = '';
&Header::getcgihash(\%cgiparams);

my %ethsettings = ();
&General::readhash("${General::swroot}/ethernet/settings", \%ethsettings);

my $key = ();

my %net_config_type = (0 => "GREEN (RED is modem/ISDN)",
1 => "GREEN + ORANGE (RED is modem/ISDN)",
2 => "GREEN + RED",
3 => "GREEN + ORANGE + RED",
4 => "GREEN + BLUE (RED is modem/ISDN)",
5 => "GREEN + ORANGE + BLUE (RED is modem/ISDN)",
6 => "GREEN + BLUE + RED",
7 => "GREEN + ORANGE + BLUE + RED");

my %landevice = ("eth0", "eth1", "eth2", "eth3");
my %types = ("STATIC", "DHCP", "PPPOE", "PPTP");

my $dev_name = ();

my %nic = (
"100VG-AnyLan Network Adapters, HP J2585B, J2585A, etc" => "hp100" ,
"3Com EtherLink III" => "3c509" ,
"3Com 3c501" => "3c501" ,
"3Com ISA EtherLink XL" => "3c515" ,
"3Com 3c503 and 3c503/16" => "3c503" ,
"3Com EtherLink MC (3c523)" => "3c523" ,
"3Com EtherLink MC/32 (3c527)" => "3c527" ,
"3Com EtherLink Plus (3c505)" => "3c505" ,
"3Com EtherLink 16" => "3c507" ,
"3Com Corkscrew EtherLink PCI III/XL etc." => "3c59x" ,
"3Com Typhoon Family (3C990 3CR990 and variants)" => "typhoon" ,
"Adaptec Starfire/DuraLAN" => "starfire" ,
"Alteon AceNIC/3Com 3C985/Netgear GA620 Gigabit" => "acenic" ,
"AMD8111 based 10/100 Ethernet Controller" => "amd8111e" ,
"AMD LANCE/PCnetAllied Telesis AT1500,  J2405A, etc" => "lance" ,
"AMD PCnet32 and AMD PCnetPCI" => "pcnet32" ,
"Ansel Communications EISA 3200" => "ac3200" ,
"Apricot 680x0 VME, 82596 chipset" => "82596" ,
"AT1700/1720" => "at1700" ,
"Broadcom 4400" => "b44" ,
"Broadcom Tigon3" => "tg3" ,
"Cabletron E2100 series ethercards" => "e2100" ,
"CATC USB NetMate-based Ethernet" => "catc" ,
"CDC USB Ethernet" => "CDCEther" ,
"Crystal LAN CS8900/CS8920" => "cs89x0" ,
"Compaq Netelligent 10/100 TX PCI UTP, etc" => "tlan" ,
"D-Link DL2000-based Gigabit Ethernet" => "dl2k" ,
"Digi Intl. RightSwitch SE-X EISA and PCI" => "dgrs" ,
"Digital 21x4x Tulip PCI ethernet cards, etc." => "tulip" ,
"Digital DEPCA & EtherWORKS,DEPCA, DE100, etc" => "depca" ,
"DM9102 PCI Fast Ethernet Adapter" => "dmfe" ,
"Dummy Network Card (testing)" => "dummy" ,
"EtherWORKS DE425 TP/COAX EISA, DE434 TP PCI, etc." => "de4x5" ,
"EtherWORKS 3 (DE203, DE204 and DE205)" => "ewrk3" ,
"HP PCLAN/plus" => "hp-plus" ,
"HP LAN ethernet" => "hp" ,
"IBM LANA" => "ibmlana" ,
"ICL EtherTeam 16i/32" ,"eth16i" ,
"Intel i82557/i82558 PCI EtherExpressPro" => "e100" ,
"Intel EtherExpress Cardbus Ethernet" => "eepro100_cb" ,
"Intel i82595 ISA EtherExpressPro10/10+ driver" ,"eepro" ,
"Intel EtherExpress 16 (i82586)" => "eexpress" ,
"Intel Panther onboard i82596 driver" => "lp486e" ,
"Intel PRO/1000 Gigabit Ethernet" => "e1000" ,
"KLSI USB KL5USB101-based" => "kaweth" ,
"MiCom-Interlan NI5010 ethercard" => "ni5010" ,
"Mylex EISA LNE390A/B" => "lne390" ,
"Myson MTD-8xx PCI Ethernet" => "fealnx" ,
"National Semiconductor DP8381x" => "natsemi" ,
"National Semiconductor DP83820" => "ns83820" ,
"NE/2 MCA" => "ne2" ,
"NE2000 PCI cards, RealTEk RTL-8029, etc" => "ne2k-pci" ,
"NE1000 / NE2000 (non-pci)" => "ne" ,
"NI50 card (i82586 Ethernet chip)" => "ni52" ,
"NI6510, ni6510 EtherBlaster" => "ni65" ,
"Novell/Eagle/Microdyne NE3210 EISA" => "ne3210" ,
"NVidia Nforce2 Driver" => "forcedeth" ,
"Packet Engines Hamachi GNIC-II" => "hamachi" ,
"Packet Engines Yellowfin Gigabit-NIC" => "yellowfin" ,
"Pegasus/Pegasus-II USB ethernet" => "pegasus" ,
"PureData PDUC8028,WD8003 and WD8013 compatibles" => "wd" ,
"Racal-Interlan EISA ES3210" => "es3210" ,
"RealTek RTL-8139 Fast Ethernet" => "8139too" ,
"RealTek RTL-8139C+ series 10/100 PCI Ethernet" => "8139cp" ,
"RealTek RTL-8150 USB ethernet" => "rtl8150" ,
"RealTek RTL-8169 Gigabit Ethernet" => "r8169" ,
"SiS 900 PCI" => "sis900" ,
"SKnet MCA" => "sk_mca" ,
"SMC 9000 series of ethernet cards" => "smc9194" ,
"SMC EtherPower II" => "epic100" ,
"SMC Ultra/EtherEZ ISA/PnP Ethernet" => "smc-ultra" ,
"SMC Ultra32 EISA Ethernet" => "smc-ultra32" ,
"SMC Ultra MCA Ethernet" => "smc-mca" ,
"Sundance Alta" => "sundance" ,
"SysKonnect SK-98xx" => "sk98lin" ,
"Toshiba TC35815 Ethernet" => "tc35815" ,
"Tulip chipset Cardbus Ethernet" => "tulip_cb" ,
"USB Ethernet" => "usbnet" ,
"VIA Rhine PCI Fast Ethernet, etc" => "via-rhine" ,
"Winbond W89c840 Ethernet" => "winbond-840" ,
"Xircom Cardbus Ethernet" => "xircom_cb" ,
"Xircom (tulip-like) Cardbus Ethernet" => "xircom_tulip_cb" );

if ($cgiparams{'ACTION'} eq $Lang::tr{'save'}) {
$ethsettings{'CONFIG_TYPE'} = $cgiparams{'CONFIG_TYPE'};
$ethsettings{'GREEN_ADDRESS'} = $cgiparams{'GREEN_ADDRESS'};
$ethsettings{'GREEN_NETMASK'} = $cgiparams{'GREEN_NETMASK'};
$ethsettings{'GREEN_DRIVER'} = $cgiparams{'GREEN_DRIVER'};
$ethsettings{'GREEN_DRIVER_OPTIONS'} = $cgiparams{'GREEN_DRIVER_OPTIONS'};
$ethsettings{'GREEN_DEV'} = $cgiparams{'GREEN_DEV'};
$ethsettings{'GREEN_BROADCAST'} = $cgiparams{'GREEN_BROADCAST'};
$ethsettings{'GREEN_NETADDRESS'} = $cgiparams{'GREEN_NETADDRESS'};
$ethsettings{'RED_ADDRESS'} = $cgiparams{'RED_ADDRESS'};
$ethsettings{'RED_NETMASK'} = $cgiparams{'RED_NETMASK'};
$ethsettings{'RED_DRIVER'} = $cgiparams{'RED_DRIVER'};
$ethsettings{'RED_DRIVER_OPTIONS'} = $cgiparams{'RED_DRIVER_OPTIONS'};
$ethsettings{'RED_DEV'} = $cgiparams{'RED_DEV'};
$ethsettings{'RED_BROADCAST'} = $cgiparams{'RED_BROADCAST'};
$ethsettings{'RED_TYPE'} = $cgiparams{'RED_TYPE'};
$ethsettings{'RED_NETADDRESS'} = $cgiparams{'RED_NETADDRESS'};
$ethsettings{'ORANGE_ADDRESS'} = $cgiparams{'ORANGE_ADDRESS'};
$ethsettings{'ORANGE_NETMASK'} = $cgiparams{'ORANGE_NETMASK'};
$ethsettings{'ORANGE_DRIVER'} = $cgiparams{'ORANGE_DRIVER'};
$ethsettings{'ORANGE_DRIVER_OPTIONS'} = $cgiparams{'ORANGE_DRIVER_OPTIONS'};
$ethsettings{'ORANGE_DEV'} = $cgiparams{'ORANGE_DEV'};
$ethsettings{'ORANGE_BROADCAST'} = $cgiparams{'ORANGE_BROADCAST'};
$ethsettings{'ORANGE_NETADDRESS'} = $cgiparams{'ORANGE_NETADDRESS'};
$ethsettings{'BLUE_ADDRESS'} = $cgiparams{'BLUE_ADDRESS'};
$ethsettings{'BLUE_NETMASK'} = $cgiparams{'BLUE_NETMASK'};
$ethsettings{'BLUE_DRIVER'} = $cgiparams{'BLUE_DRIVER'};
$ethsettings{'BLUE_DRIVER_OPTIONS'} = $cgiparams{'BLUE_DRIVER_OPTIONS'};
$ethsettings{'BLUE_DEV'} = $cgiparams{'BLUE_DEV'};
$ethsettings{'BLUE_BROADCAST'} = $cgiparams{'BLUE_BROADCAST'};
$ethsettings{'BLUE_NETADDRESS'} = $cgiparams{'BLUE_NETADDRESS'};

&General::writehash("${General::swroot}/ethernet/settings", \%ethsettings);
}

&Header::showhttpheaders();

&Header::openpage($Lang::tr{'net config'}, 1, '');

&Header::openbigbox('100%', 'center');

&Header::openbox('100%', 'left', $Lang::tr{'net config'});

print <<END
<b>$Lang::tr{'net config type'}</b>
<form method="POST" action="netconfig.cgi">
<table width=100%>
<tr>
<td valign=top>
<select name="CONFIG_TYPE">
END
;

foreach my $k (sort keys %net_config_type){
	if ($k eq $ethsettings{'CONFIG_TYPE'}){
	print "<option value=\"$k\" selected>$net_config_type{$k}</option>";}else{
	print "<option value=\"$k\">$net_config_type{$k}</option>";}
}
print <<END
</select>
</td>
<td valign=top>$Lang::tr{'net config type help'}</td>
<td valign=top align=right><input type="reset" name="ACTION" value="$Lang::tr{'reset'}"><input type="submit" name="ACTION" value="$Lang::tr{'save'}"></td>
</tr>
</table>
END
;

print <<END
<hr><b>GREEN</b><br />
<table width=100%><tr>
<td width=12%>$Lang::tr{'ip address'}:</td>
<td width=12%><input type=text name="GREEN_ADDRESS" value="$ethsettings{'GREEN_ADDRESS'}" size=15></td>
<td width=12%>$Lang::tr{'netmask'}:</td>
<td width=12%><input type=text name="GREEN_NETMASK" value="$ethsettings{'GREEN_NETMASK'}" size=15></td>
<td>
$Lang::tr{'net address'}:
</td>
<td>
<input type=text name="GREEN_NETADDRESS" value="$ethsettings{'GREEN_NETADDRESS'}" size=15/>
</td>
</tr>
<tr>
<td>$Lang::tr{'broadcast'}:</td>
<td><input type=text name="GREEN_BROADCAST" value="$ethsettings{'GREEN_BROADCAST'}" size=15></td>
<td>$Lang::tr{'device'}:</td>
<td><select name="GREEN_DEV">
END
;

foreach (sort %landevice){
        if ($_ eq $ethsettings{'GREEN_DEV'}){
        print "<option value=\"$_\" selected>$_</option>";}else{
        print "<option value=\"$_\">$_</option>";}
}

print <<END
</select>
<td width=12%>$Lang::tr{'driver'}:$ethsettings{'GREEN_DRIVER'}</td>
<td width=40%><select name=GREEN_DRIVER>
END
;

foreach (sort keys %nic){
        if ($nic{$_} eq $ethsettings{'GREEN_DRIVER'}){
        print "<option value=\"$nic{$_}\" selected>$_</option>";}else{
        print "<option value=\"$nic{$_}\">$_</option>";}
}
print <<END
</select>
</tr>
<tr>
<td>
</td>
<td>
</td>
<td>
</td>
<td>
</td>
<td>$Lang::tr{'options'}:</td>
<td><input type=text name="GREEN_DRIVER_OPTIONS" value="$ethsettings{'GREEN_DRIVER_OPTIONS'}" size=45></td>
</tr>
</table>
<hr>
END
;

if ($ethsettings{'CONFIG_TYPE'} =~ /^(2|3|6|7)$/){
print <<END
<hr><b>RED</b><br />
<table width=100%><tr>
<td width=12%>$Lang::tr{'ip address'}:</td>
<td width=12%><input type=text name="RED_ADDRESS" value="$ethsettings{'RED_ADDRESS'}" size=15></td>
<td width=12%>$Lang::tr{'netmask'}:</td>
<td width=12%><input type=text name="RED_NETMASK" value="$ethsettings{'RED_NETMASK'}" size=15></td>
<td>$Lang::tr{'net address'}:</td>
<td><input type=text name="RED_NETADDRESS" value="$ethsettings{'RED_NETADDRESS'}" size=15/></td
</tr>
<tr>
<td>$Lang::tr{'device'}:</td>
<td><select name="RED_DEV">
END
;

foreach (sort %landevice){
        if ($_ eq $ethsettings{'RED_DEV'}){
        print "<option value=\"$_\" selected>$_</option>";}else{
        print "<option value=\"$_\">$_</option>";}
}

print <<END
</select>
</td>
<td>$Lang::tr{'broadcast'}:</td>
<td><input type=text name="RED_BROADCAST" value="$ethsettings{'RED_BROADCAST'}" size=15></td>
<td width=12%>$Lang::tr{'driver'}:$ethsettings{'RED_DRIVER'}</td>
<td width=40%><select name=RED_DRIVER>
END
;

foreach (sort keys %nic){
        if ($nic{$_} eq $ethsettings{'RED_DRIVER'}){
        print "<option value=\"$nic{$_}\" selected>$_</option>";}else{
        print "<option value=\"$nic{$_}\">$_</option>";}
}
print <<END
</select>
</tr><tr><td> $Lang::tr{'type'}:</td><td><select name="RED_TYPE">
END
;

foreach (sort %types){
        if ($_ eq $ethsettings{'RED_TYPE'}){
        print "<option value=\"$_\" selected>$_</option>";}else{
        print "<option value=\"$_\">$_</option>";}
}

print <<END
</select>
</td>
<td></td><td></td>
<td>$Lang::tr{'options'}:</td>
<td><input type=text name="RED_DRIVER_OPTIONS" value="$ethsettings{'RED_DRIVER_OPTIONS'}" size=45></td>
</tr>
</table>
<hr>
END
;

}

if ($ethsettings{'CONFIG_TYPE'} =~ /^(1|3|5|7)$/){
print <<END
<hr><b>ORANGE</b><br />
<table width=100%><tr>
<td width=12%>$Lang::tr{'ip address'}:</td>
<td width=12%><input type=text name="ORANGE_ADDRESS" value="$ethsettings{'ORANGE_ADDRESS'}" size=15></td>
<td width=12%>$Lang::tr{'netmask'}:</td>
<td width=12%><input type=text name="ORANGE_NETMASK" value="$ethsettings{'ORANGE_NETMASK'}" size=15></td>
<td>$Lang::tr{'net address'}:</td>
<td><input type=text name="ORANGE_NETADDRESS" value="$ethsettings{'ORANGE_NETADDRESS'}" size=15/></td>
</tr>
<tr>
<td>$Lang::tr{'device'}:</td>
<td><select name="ORANGE_DEV">
END
;

foreach (sort %landevice){
        if ($_ eq $ethsettings{'ORANGE_DEV'}){
        print "<option value=\"$_\" selected>$_</option>";}else{
        print "<option value=\"$_\">$_</option>";}
}

print <<END
</select>
</td>
<td>$Lang::tr{'broadcast'}:</td>
<td><input type=text name="ORANGE_BROADCAST" value="$ethsettings{'ORANGE_BROADCAST'}" size=15></td>
<td width=12%>$Lang::tr{'driver'}:$ethsettings{'ORANGE_DRIVER'}</td>
<td width=40%><select name=ORANGE_DRIVER>
END
;

foreach (sort keys %nic){
        if ($nic{$_} eq $ethsettings{'ORANGE_DRIVER'}){
        print "<option value=\"$nic{$_}\" selected>$_</option>";}else{
        print "<option value=\"$nic{$_}\">$_</option>";}
}
print <<END
</select>
</tr>
<tr>
<td></td><td></td>
<td></td><td></td>
<td>$Lang::tr{'options'}:</td>
<td><input type=text name="ORANGE_DRIVER_OPTIONS" value="$ethsettings{'ORANGE_DRIVER_OPTIONS'}" size=45></td>
</tr>
</table>
<hr>
END
;

}

if ($ethsettings{'CONFIG_TYPE'} =~ /^(4|5|6|7)$/){
print <<END
<hr><b>BLUE</b><br />
<table width=100%><tr>
<td width=12%>$Lang::tr{'ip address'}:</td>
<td width=12%><input type=text name="BLUE_ADDRESS" value="$ethsettings{'BLUE_ADDRESS'}" size=15></td>
<td width=12%>$Lang::tr{'netmask'}:</td>
<td width=12%><input type=text name="BLUE_NETMASK" value="$ethsettings{'BLUE_NETMASK'}" size=15></td>
<td>$Lang::tr{'net address'}:</td>
<td><input type=text name="BLUE_NETADDRESS" value="$ethsettings{'BLUE_NETADDRESS'}" size=15/></td>
</tr>
<tr>
<td>$Lang::tr{'device'}:</td>
<td><select name="BLUE_DEV">
END
;

foreach (sort %landevice){
        if ($_ eq $ethsettings{'BLUE_DEV'}){
        print "<option value=\"$_\" selected>$_</option>";}else{
        print "<option value=\"$_\">$_</option>";}
}

print <<END
</select>
</td>
<td>$Lang::tr{'broadcast'}:</td>
<td><input type=text name="BLUE_BROADCAST" value="$ethsettings{'BLUE_BROADCAST'}" size=15></td>
<td width=12%>$Lang::tr{'driver'}:$ethsettings{'BLUE_DRIVER'}</td>
<td width=40%><select name=BLUE_DRIVER>
END
;

foreach (sort keys %nic){
        if ($nic{$_} eq $ethsettings{'BLUE_DRIVER'}){
        print "<option value=\"$nic{$_}\" selected>$_</option>";}else{
        print "<option value=\"$nic{$_}\">$_</option>";}
}
print <<END
</select>
</td>
</tr>
<tr>
<td></td><td></td>
<td></td><td></td>
<td>$Lang::tr{'options'}:</td>
<td><input type=text name="BLUE_DRIVER_OPTIONS" value="$ethsettings{'BLUE_DRIVER_OPTIONS'}" size=45></td>
</tr>
</table>
<hr>
END
;

}

print <<END
</form>
END
;

&Header::closebox();

&Header::closebigbox();

&Header::closepage();
Commit	Line	Data
02dc0a76 MT	1	#!/usr/bin/perl
	2	#
	3	# EMBCop CGIs
	4	#
	5	# This code is distributed under the terms of the GPL
	6	#
	7	# (c) Michel Schaaf
	8	#
	9	# $Id: netconfig.cgi,v 1.11.2.27 2005/10/27 07:40:14 schaaf Exp $
	10	#
	11
	12	use strict;
	13
	14	# enable only the following on debugging purpose
	15	use warnings;
	16	use CGI::Carp 'fatalsToBrowser';
	17
	18	require '/var/ipfire/general-functions.pl';
	19	require "${General::swroot}/lang.pl";
	20	require "${General::swroot}/header.pl";
	21
	22	my %cgiparams=();
	23	$cgiparams{'ACTION'} = '';
	24	&Header::getcgihash(\%cgiparams);
	25
	26	my %ethsettings = ();
	27	&General::readhash("${General::swroot}/ethernet/settings", \%ethsettings);
	28
	29	my $key = ();
	30
	31	my %net_config_type = (0 => "GREEN (RED is modem/ISDN)",
	32	1 => "GREEN + ORANGE (RED is modem/ISDN)",
	33	2 => "GREEN + RED",
	34	3 => "GREEN + ORANGE + RED",
	35	4 => "GREEN + BLUE (RED is modem/ISDN)",
	36	5 => "GREEN + ORANGE + BLUE (RED is modem/ISDN)",
	37	6 => "GREEN + BLUE + RED",
	38	7 => "GREEN + ORANGE + BLUE + RED");
	39
	40	my %landevice = ("eth0", "eth1", "eth2", "eth3");
	41	my %types = ("STATIC", "DHCP", "PPPOE", "PPTP");
	42
	43	my $dev_name = ();
	44
	45	my %nic = (
	46	"100VG-AnyLan Network Adapters, HP J2585B, J2585A, etc" => "hp100" ,
	47	"3Com EtherLink III" => "3c509" ,
	48	"3Com 3c501" => "3c501" ,
	49	"3Com ISA EtherLink XL" => "3c515" ,
	50	"3Com 3c503 and 3c503/16" => "3c503" ,
	51	"3Com EtherLink MC (3c523)" => "3c523" ,
	52	"3Com EtherLink MC/32 (3c527)" => "3c527" ,
	53	"3Com EtherLink Plus (3c505)" => "3c505" ,
	54	"3Com EtherLink 16" => "3c507" ,
	55	"3Com Corkscrew EtherLink PCI III/XL etc." => "3c59x" ,
	56	"3Com Typhoon Family (3C990 3CR990 and variants)" => "typhoon" ,
	57	"Adaptec Starfire/DuraLAN" => "starfire" ,
	58	"Alteon AceNIC/3Com 3C985/Netgear GA620 Gigabit" => "acenic" ,
	59	"AMD8111 based 10/100 Ethernet Controller" => "amd8111e" ,
	60	"AMD LANCE/PCnetAllied Telesis AT1500, J2405A, etc" => "lance" ,
	61	"AMD PCnet32 and AMD PCnetPCI" => "pcnet32" ,
	62	"Ansel Communications EISA 3200" => "ac3200" ,
	63	"Apricot 680x0 VME, 82596 chipset" => "82596" ,
	64	"AT1700/1720" => "at1700" ,
65	"Broadcom 4400" => "b44" ,
66	"Broadcom Tigon3" => "tg3" ,
67	"Cabletron E2100 series ethercards" => "e2100" ,
68	"CATC USB NetMate-based Ethernet" => "catc" ,
69	"CDC USB Ethernet" => "CDCEther" ,
70	"Crystal LAN CS8900/CS8920" => "cs89x0" ,
71	"Compaq Netelligent 10/100 TX PCI UTP, etc" => "tlan" ,
72	"D-Link DL2000-based Gigabit Ethernet" => "dl2k" ,
73	"Digi Intl. RightSwitch SE-X EISA and PCI" => "dgrs" ,
74	"Digital 21x4x Tulip PCI ethernet cards, etc." => "tulip" ,
75	"Digital DEPCA & EtherWORKS,DEPCA, DE100, etc" => "depca" ,
76	"DM9102 PCI Fast Ethernet Adapter" => "dmfe" ,
77	"Dummy Network Card (testing)" => "dummy" ,
78	"EtherWORKS DE425 TP/COAX EISA, DE434 TP PCI, etc." => "de4x5" ,
79	"EtherWORKS 3 (DE203, DE204 and DE205)" => "ewrk3" ,
80	"HP PCLAN/plus" => "hp-plus" ,
81	"HP LAN ethernet" => "hp" ,
82	"IBM LANA" => "ibmlana" ,
83	"ICL EtherTeam 16i/32" ,"eth16i" ,
84	"Intel i82557/i82558 PCI EtherExpressPro" => "e100" ,
85	"Intel EtherExpress Cardbus Ethernet" => "eepro100_cb" ,
86	"Intel i82595 ISA EtherExpressPro10/10+ driver" ,"eepro" ,
87	"Intel EtherExpress 16 (i82586)" => "eexpress" ,
88	"Intel Panther onboard i82596 driver" => "lp486e" ,
89	"Intel PRO/1000 Gigabit Ethernet" => "e1000" ,
90	"KLSI USB KL5USB101-based" => "kaweth" ,
91	"MiCom-Interlan NI5010 ethercard" => "ni5010" ,
92	"Mylex EISA LNE390A/B" => "lne390" ,
93	"Myson MTD-8xx PCI Ethernet" => "fealnx" ,
94	"National Semiconductor DP8381x" => "natsemi" ,
95	"National Semiconductor DP83820" => "ns83820" ,
96	"NE/2 MCA" => "ne2" ,
97	"NE2000 PCI cards, RealTEk RTL-8029, etc" => "ne2k-pci" ,
98	"NE1000 / NE2000 (non-pci)" => "ne" ,
99	"NI50 card (i82586 Ethernet chip)" => "ni52" ,
100	"NI6510, ni6510 EtherBlaster" => "ni65" ,
101	"Novell/Eagle/Microdyne NE3210 EISA" => "ne3210" ,
102	"NVidia Nforce2 Driver" => "forcedeth" ,
103	"Packet Engines Hamachi GNIC-II" => "hamachi" ,
104	"Packet Engines Yellowfin Gigabit-NIC" => "yellowfin" ,
105	"Pegasus/Pegasus-II USB ethernet" => "pegasus" ,
106	"PureData PDUC8028,WD8003 and WD8013 compatibles" => "wd" ,
107	"Racal-Interlan EISA ES3210" => "es3210" ,
108	"RealTek RTL-8139 Fast Ethernet" => "8139too" ,
109	"RealTek RTL-8139C+ series 10/100 PCI Ethernet" => "8139cp" ,
110	"RealTek RTL-8150 USB ethernet" => "rtl8150" ,
111	"RealTek RTL-8169 Gigabit Ethernet" => "r8169" ,
112	"SiS 900 PCI" => "sis900" ,
113	"SKnet MCA" => "sk_mca" ,
114	"SMC 9000 series of ethernet cards" => "smc9194" ,
115	"SMC EtherPower II" => "epic100" ,
116	"SMC Ultra/EtherEZ ISA/PnP Ethernet" => "smc-ultra" ,
117	"SMC Ultra32 EISA Ethernet" => "smc-ultra32" ,
118	"SMC Ultra MCA Ethernet" => "smc-mca" ,
119	"Sundance Alta" => "sundance" ,
120	"SysKonnect SK-98xx" => "sk98lin" ,
121	"Toshiba TC35815 Ethernet" => "tc35815" ,
122	"Tulip chipset Cardbus Ethernet" => "tulip_cb" ,
123	"USB Ethernet" => "usbnet" ,
124	"VIA Rhine PCI Fast Ethernet, etc" => "via-rhine" ,
125	"Winbond W89c840 Ethernet" => "winbond-840" ,
126	"Xircom Cardbus Ethernet" => "xircom_cb" ,
127	"Xircom (tulip-like) Cardbus Ethernet" => "xircom_tulip_cb" );
128
129	if ($cgiparams{'ACTION'} eq $Lang::tr{'save'}) {
130	$ethsettings{'CONFIG_TYPE'} = $cgiparams{'CONFIG_TYPE'};
131	$ethsettings{'GREEN_ADDRESS'} = $cgiparams{'GREEN_ADDRESS'};
132	$ethsettings{'GREEN_NETMASK'} = $cgiparams{'GREEN_NETMASK'};
133	$ethsettings{'GREEN_DRIVER'} = $cgiparams{'GREEN_DRIVER'};
134	$ethsettings{'GREEN_DRIVER_OPTIONS'} = $cgiparams{'GREEN_DRIVER_OPTIONS'};
135	$ethsettings{'GREEN_DEV'} = $cgiparams{'GREEN_DEV'};
136	$ethsettings{'GREEN_BROADCAST'} = $cgiparams{'GREEN_BROADCAST'};
137	$ethsettings{'GREEN_NETADDRESS'} = $cgiparams{'GREEN_NETADDRESS'};
138	$ethsettings{'RED_ADDRESS'} = $cgiparams{'RED_ADDRESS'};
139	$ethsettings{'RED_NETMASK'} = $cgiparams{'RED_NETMASK'};
140	$ethsettings{'RED_DRIVER'} = $cgiparams{'RED_DRIVER'};
141	$ethsettings{'RED_DRIVER_OPTIONS'} = $cgiparams{'RED_DRIVER_OPTIONS'};
142	$ethsettings{'RED_DEV'} = $cgiparams{'RED_DEV'};
143	$ethsettings{'RED_BROADCAST'} = $cgiparams{'RED_BROADCAST'};
144	$ethsettings{'RED_TYPE'} = $cgiparams{'RED_TYPE'};
145	$ethsettings{'RED_NETADDRESS'} = $cgiparams{'RED_NETADDRESS'};
146	$ethsettings{'ORANGE_ADDRESS'} = $cgiparams{'ORANGE_ADDRESS'};
147	$ethsettings{'ORANGE_NETMASK'} = $cgiparams{'ORANGE_NETMASK'};
148	$ethsettings{'ORANGE_DRIVER'} = $cgiparams{'ORANGE_DRIVER'};
149	$ethsettings{'ORANGE_DRIVER_OPTIONS'} = $cgiparams{'ORANGE_DRIVER_OPTIONS'};
150	$ethsettings{'ORANGE_DEV'} = $cgiparams{'ORANGE_DEV'};
151	$ethsettings{'ORANGE_BROADCAST'} = $cgiparams{'ORANGE_BROADCAST'};
152	$ethsettings{'ORANGE_NETADDRESS'} = $cgiparams{'ORANGE_NETADDRESS'};
153	$ethsettings{'BLUE_ADDRESS'} = $cgiparams{'BLUE_ADDRESS'};
154	$ethsettings{'BLUE_NETMASK'} = $cgiparams{'BLUE_NETMASK'};
155	$ethsettings{'BLUE_DRIVER'} = $cgiparams{'BLUE_DRIVER'};
156	$ethsettings{'BLUE_DRIVER_OPTIONS'} = $cgiparams{'BLUE_DRIVER_OPTIONS'};
157	$ethsettings{'BLUE_DEV'} = $cgiparams{'BLUE_DEV'};
158	$ethsettings{'BLUE_BROADCAST'} = $cgiparams{'BLUE_BROADCAST'};
159	$ethsettings{'BLUE_NETADDRESS'} = $cgiparams{'BLUE_NETADDRESS'};
160
161	&General::writehash("${General::swroot}/ethernet/settings", \%ethsettings);
162	}
163
164	&Header::showhttpheaders();
165
166	&Header::openpage($Lang::tr{'net config'}, 1, '');
167
168	&Header::openbigbox('100%', 'center');
169
170	&Header::openbox('100%', 'left', $Lang::tr{'net config'});
171
172	print <<END
173	<b>$Lang::tr{'net config type'}</b>
174	<form method="POST" action="netconfig.cgi">
175	<table width=100%>
176	<tr>
177	<td valign=top>
178	<select name="CONFIG_TYPE">
179	END
180	;
181
182	foreach my $k (sort keys %net_config_type){
183	if ($k eq $ethsettings{'CONFIG_TYPE'}){
184	print "<option value=\"$k\" selected>$net_config_type{$k}</option>";}else{
185	print "<option value=\"$k\">$net_config_type{$k}</option>";}
186	}
187	print <<END
188	</select>
189	</td>
190	<td valign=top>$Lang::tr{'net config type help'}</td>
191	<td valign=top align=right><input type="reset" name="ACTION" value="$Lang::tr{'reset'}"><input type="submit" name="ACTION" value="$Lang::tr{'save'}"></td>
192	</tr>
193	</table>
194	END
195	;
196
197	print <<END
198	<hr><b>GREEN</b><br />
199	<table width=100%><tr>
200	<td width=12%>$Lang::tr{'ip address'}:</td>
201	<td width=12%><input type=text name="GREEN_ADDRESS" value="$ethsettings{'GREEN_ADDRESS'}" size=15></td>
202	<td width=12%>$Lang::tr{'netmask'}:</td>
203	<td width=12%><input type=text name="GREEN_NETMASK" value="$ethsettings{'GREEN_NETMASK'}" size=15></td>
204	<td>
205	$Lang::tr{'net address'}:
206	</td>
207	<td>
208	<input type=text name="GREEN_NETADDRESS" value="$ethsettings{'GREEN_NETADDRESS'}" size=15/>
209	</td>
210	</tr>
211	<tr>
212	<td>$Lang::tr{'broadcast'}:</td>
213	<td><input type=text name="GREEN_BROADCAST" value="$ethsettings{'GREEN_BROADCAST'}" size=15></td>
214	<td>$Lang::tr{'device'}:</td>
215	<td><select name="GREEN_DEV">
216	END
217	;
218
219	foreach (sort %landevice){
220	if ($_ eq $ethsettings{'GREEN_DEV'}){
221	print "<option value=\"$_\" selected>$_</option>";}else{
222	print "<option value=\"$_\">$_</option>";}
223	}
224
225	print <<END
226	</select>
227	<td width=12%>$Lang::tr{'driver'}:$ethsettings{'GREEN_DRIVER'}</td>
228	<td width=40%><select name=GREEN_DRIVER>
229	END
230	;
231
232	foreach (sort keys %nic){
233	if ($nic{$_} eq $ethsettings{'GREEN_DRIVER'}){
234	print "<option value=\"$nic{$_}\" selected>$_</option>";}else{
235	print "<option value=\"$nic{$_}\">$_</option>";}
236	}
237	print <<END
238	</select>
239	</tr>
240	<tr>
241	<td>
242	</td>
243	<td>
244	</td>
245	<td>
246	</td>
247	<td>
248	</td>
249	<td>$Lang::tr{'options'}:</td>
250	<td><input type=text name="GREEN_DRIVER_OPTIONS" value="$ethsettings{'GREEN_DRIVER_OPTIONS'}" size=45></td>
251	</tr>
252	</table>
253	<hr>
254	END
255	;
256
257	if ($ethsettings{'CONFIG_TYPE'} =~ /^(2\|3\|6\|7)$/){
258	print <<END
259	<hr><b>RED</b><br />
260	<table width=100%><tr>
261	<td width=12%>$Lang::tr{'ip address'}:</td>
262	<td width=12%><input type=text name="RED_ADDRESS" value="$ethsettings{'RED_ADDRESS'}" size=15></td>
263	<td width=12%>$Lang::tr{'netmask'}:</td>
264	<td width=12%><input type=text name="RED_NETMASK" value="$ethsettings{'RED_NETMASK'}" size=15></td>
265	<td>$Lang::tr{'net address'}:</td>
266	<td><input type=text name="RED_NETADDRESS" value="$ethsettings{'RED_NETADDRESS'}" size=15/></td
267	</tr>
268	<tr>
269	<td>$Lang::tr{'device'}:</td>
270	<td><select name="RED_DEV">
271	END
272	;
273
274	foreach (sort %landevice){
275	if ($_ eq $ethsettings{'RED_DEV'}){
276	print "<option value=\"$_\" selected>$_</option>";}else{
277	print "<option value=\"$_\">$_</option>";}
278	}
279
280	print <<END
281	</select>
282	</td>
283	<td>$Lang::tr{'broadcast'}:</td>
284	<td><input type=text name="RED_BROADCAST" value="$ethsettings{'RED_BROADCAST'}" size=15></td>
285	<td width=12%>$Lang::tr{'driver'}:$ethsettings{'RED_DRIVER'}</td>
286	<td width=40%><select name=RED_DRIVER>
287	END
288	;
289
290	foreach (sort keys %nic){
291	if ($nic{$_} eq $ethsettings{'RED_DRIVER'}){
292	print "<option value=\"$nic{$_}\" selected>$_</option>";}else{
293	print "<option value=\"$nic{$_}\">$_</option>";}
294	}
295	print <<END
296	</select>
297	</tr><tr><td> $Lang::tr{'type'}:</td><td><select name="RED_TYPE">
298	END
299	;
300
301	foreach (sort %types){
302	if ($_ eq $ethsettings{'RED_TYPE'}){
303	print "<option value=\"$_\" selected>$_</option>";}else{
304	print "<option value=\"$_\">$_</option>";}
305	}
306
307	print <<END
308	</select>
309	</td>
310	<td></td><td></td>
311	<td>$Lang::tr{'options'}:</td>
312	<td><input type=text name="RED_DRIVER_OPTIONS" value="$ethsettings{'RED_DRIVER_OPTIONS'}" size=45></td>
313	</tr>
314	</table>
315	<hr>
316	END
317	;
318
319	}
320
321	if ($ethsettings{'CONFIG_TYPE'} =~ /^(1\|3\|5\|7)$/){
322	print <<END
323	<hr><b>ORANGE</b><br />
324	<table width=100%><tr>
325	<td width=12%>$Lang::tr{'ip address'}:</td>
326	<td width=12%><input type=text name="ORANGE_ADDRESS" value="$ethsettings{'ORANGE_ADDRESS'}" size=15></td>
327	<td width=12%>$Lang::tr{'netmask'}:</td>
328	<td width=12%><input type=text name="ORANGE_NETMASK" value="$ethsettings{'ORANGE_NETMASK'}" size=15></td>
329	<td>$Lang::tr{'net address'}:</td>
330	<td><input type=text name="ORANGE_NETADDRESS" value="$ethsettings{'ORANGE_NETADDRESS'}" size=15/></td>
331	</tr>
332	<tr>
333	<td>$Lang::tr{'device'}:</td>
334	<td><select name="ORANGE_DEV">
335	END
336	;
337
338	foreach (sort %landevice){
339	if ($_ eq $ethsettings{'ORANGE_DEV'}){
340	print "<option value=\"$_\" selected>$_</option>";}else{
341	print "<option value=\"$_\">$_</option>";}
342	}
343
344	print <<END
345	</select>
346	</td>
347	<td>$Lang::tr{'broadcast'}:</td>
348	<td><input type=text name="ORANGE_BROADCAST" value="$ethsettings{'ORANGE_BROADCAST'}" size=15></td>
349	<td width=12%>$Lang::tr{'driver'}:$ethsettings{'ORANGE_DRIVER'}</td>
350	<td width=40%><select name=ORANGE_DRIVER>
351	END
352	;
353
354	foreach (sort keys %nic){
355	if ($nic{$_} eq $ethsettings{'ORANGE_DRIVER'}){
356	print "<option value=\"$nic{$_}\" selected>$_</option>";}else{
357	print "<option value=\"$nic{$_}\">$_</option>";}
358	}
359	print <<END
360	</select>
361	</tr>
362	<tr>
363	<td></td><td></td>
364	<td></td><td></td>
365	<td>$Lang::tr{'options'}:</td>
366	<td><input type=text name="ORANGE_DRIVER_OPTIONS" value="$ethsettings{'ORANGE_DRIVER_OPTIONS'}" size=45></td>
367	</tr>
368	</table>
369	<hr>
370	END
371	;
372
373	}
374
375	if ($ethsettings{'CONFIG_TYPE'} =~ /^(4\|5\|6\|7)$/){
376	print <<END
377	<hr><b>BLUE</b><br />
378	<table width=100%><tr>
379	<td width=12%>$Lang::tr{'ip address'}:</td>
380	<td width=12%><input type=text name="BLUE_ADDRESS" value="$ethsettings{'BLUE_ADDRESS'}" size=15></td>
381	<td width=12%>$Lang::tr{'netmask'}:</td>
382	<td width=12%><input type=text name="BLUE_NETMASK" value="$ethsettings{'BLUE_NETMASK'}" size=15></td>
383	<td>$Lang::tr{'net address'}:</td>
384	<td><input type=text name="BLUE_NETADDRESS" value="$ethsettings{'BLUE_NETADDRESS'}" size=15/></td>
385	</tr>
386	<tr>
387	<td>$Lang::tr{'device'}:</td>
388	<td><select name="BLUE_DEV">
389	END
390	;
391
392	foreach (sort %landevice){
393	if ($_ eq $ethsettings{'BLUE_DEV'}){
394	print "<option value=\"$_\" selected>$_</option>";}else{
395	print "<option value=\"$_\">$_</option>";}
396	}
397
398	print <<END
399	</select>
400	</td>
401	<td>$Lang::tr{'broadcast'}:</td>
402	<td><input type=text name="BLUE_BROADCAST" value="$ethsettings{'BLUE_BROADCAST'}" size=15></td>
403	<td width=12%>$Lang::tr{'driver'}:$ethsettings{'BLUE_DRIVER'}</td>
404	<td width=40%><select name=BLUE_DRIVER>
405	END
406	;
407
408	foreach (sort keys %nic){
409	if ($nic{$_} eq $ethsettings{'BLUE_DRIVER'}){
410	print "<option value=\"$nic{$_}\" selected>$_</option>";}else{
411	print "<option value=\"$nic{$_}\">$_</option>";}
412	}
413	print <<END
414	</select>
415	</td>
416	</tr>
417	<tr>
418	<td></td><td></td>
419	<td></td><td></td>
420	<td>$Lang::tr{'options'}:</td>
421	<td><input type=text name="BLUE_DRIVER_OPTIONS" value="$ethsettings{'BLUE_DRIVER_OPTIONS'}" size=45></td>
422	</tr>
423	</table>
424	<hr>
425	END
426	;
427
428	}
429
430	print <<END
431	</form>
432	END
433	;
434
435	&Header::closebox();
436
437	&Header::closebigbox();
438
439	&Header::closepage();