#!/usr/bin/perl # # Guillaume Cottenceau (gc@mandrakesoft.com) # # Copyright 2000 MandrakeSoft # # This software may be freely redistributed under the terms of the GNU # public license. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # use lib qw(/usr/lib/libDrakX); use common qw(:system :file); use interactive; use log; use c; local $_ = join '', @ARGV; /-h/ and die "usage: drakgw [--expert]\n"; /-v/ and die "version: $Id$"; $::expert = /-expert/ || cat_("/etc/sysconfig/system") =~ /^TYPE="?expert/m; #" $::isStandalone = 1; my $in = vnew interactive('su'); my $drakgw_setup = "/etc/sysconfig/inet_sharing"; sub start_daemons() { grep(/is running/, `/etc/rc.d/init.d/dhcpd status`) and ((system("/etc/rc.d/init.d/dhcpd stop") == 0) or die "Could not stop the dhcp server"); grep(/Connection refused/, `/etc/rc.d/init.d/named status 2>&1`) or ((system("/etc/rc.d/init.d/named stop") == 0) or die "Could not stop the named server"); (system("/etc/rc.d/init.d/network restart") == 0) or die "Could not restart the network"; (system("/etc/rc.d/rc.firewall") == 0) or die "Could not start the firewall script"; (system("/etc/rc.d/init.d/named start") == 0) or die "Could not start the caching nameserver"; (system("/sbin/chkconfig --level 345 named on") == 0) or die "Could not chkconfig named"; (system("/etc/rc.d/init.d/dhcpd start") == 0) or die "Could not start the dhcp server"; (system("/sbin/chkconfig --level 345 dhcpd on") == 0) or die "Could not chkconfig dhcpd"; local *DRAKGW_SETUP; open DRAKGW_SETUP, ">$drakgw_setup" or die "Can't open $drakgw_setup"; print DRAKGW_SETUP "INET_SHARING=enabled\n"; close DRAKGW_SETUP; 1; } sub stop_daemons() { grep(/is running/, `/etc/rc.d/init.d/dhcpd status`) and ((system("/etc/rc.d/init.d/dhcpd stop") == 0) or die "Could not stop the dhcp server"); grep(/Connection refused/, `/etc/rc.d/init.d/named status 2>&1`) or ((system("/etc/rc.d/init.d/named stop") == 0) or die "Could not stop the named server"); (system("/sbin/chkconfig --level 345 named off") == 0) or die "Could not chkconfig named"; (system("/sbin/chkconfig --level 345 dhcpd off") == 0) or die "Could not chkconfig dhcpd"; local *DRAKGW_SETUP; open DRAKGW_SETUP, ">$drakgw_setup" or die "Can't open $drakgw_setup"; print DRAKGW_SETUP "INET_SHARING=disabled\n"; close DRAKGW_SETUP; 1; } #- ********************************** #- * 0nd step: verify if we are already set up if (-f $drakgw_setup) { open DRAKGW_SETUP, "$drakgw_setup" or die "Can't open $drakgw_setup"; my @drakgw_setup_content = ; close DRAKGW_SETUP; if (grep(/enabled/, @drakgw_setup_content)) { my $r = $in->ask_from_list(_("Internet Connection Sharing currently enabled"), _("The setup of Internet connection sharing has already been done.\n". "It's currently enabled.\n\n". "What would you like to do?"), [ "disable", "reconfigure", "dismiss" ]); ($r eq "disable") and stop_daemons() and $in->exit(0); ($r eq "dismiss") and $in->exit(0); } elsif (grep(/disabled/, @drakgw_setup_content)) { my $r = $in->ask_from_list(_("Internet Connection Sharing currently disabled"), _("The setup of Internet connection sharing has already been done.\n". "It's currently disabled.\n\n". "What would you like to do?"), [ "enable", "reconfigure", "dismiss" ]); ($r eq "enable") and start_daemons() and $in->exit(0); ($r eq "dismiss") and $in->exit(0); } else { $in->ask_warn("Unrecognized config file", _("Config file content could not be interpreted.")); $in->exit(-1); } } #- ********************************** #- * 1st step: detect/setup $in->ask_okcancel(_("Internet Connection Sharing"), _("Your computer can be configured to share its Internet connection.\n\n". "Note: you need a dedicated Network Adapter to set up a Local Area Network (LAN).\n\n". "Would you like to setup the Internet Connection Sharing?"), 1) or $in->exit(0); #my @pci_ethernet_cards; #require pci_probing::main; #($_->[0] =~ /NETWORK_ETHERNET/) and (push @pci_ethernet_cards, $_) foreach (pci_probing::main::probe('.')); #($#pci_ethernet_cards == -1) and $in->ask_warn('', _("No PCI network ethernet devices found!")) and $in->exit(0); # ## push @pci_ethernet_cards, [ "NETWORK_ETHERNET", "Fake ne2000", "ne2k" ]; # #my @configured_devices = map { /ifcfg-(\S+)/; $1 } `ls /etc/sysconfig/network-scripts/ifcfg*`; # #my @active_devices = `/sbin/ifconfig | grep ^[a-z] | awk '{print \$1}'`; chop @active_devices; my %aliased_devices; (/^alias\s+(eth[0-9])\s+(\S+)/) and ($aliased_devices{$1} = $2) foreach (`cat /etc/modules.conf`); my @all_cards = map { "Interface $_ (using module $aliased_devices{$_})" } (keys %aliased_devices); # print "pci_detection: "; print ">".$_->[2]."< " foreach (@pci_ethernet_cards); # print "\nconfigured: "; print ">".$_."< " foreach (@configured_devices); # print "\nactive: "; print ">".$_."< " foreach (@active_devices); # print "\naliased: "; print ">".$_." => ".$aliased_devices{$_}."< " foreach (keys %aliased_devices); # print "\n"; # print "\nall_cards: "; print ">".$_."< " foreach (@all_cards); # #foreach $pci_card (@pci_ethernet_cards) #{ # my $this_card = $pci_card->[1]; # foreach $aliased_dev (keys %aliased_devices) # { # if ($pci_card->[2] eq $aliased_devices{$aliased_dev}) # { # $this_card .= ", hardware-configured"; # grep(/$aliased_dev/, @configured_devices) and $this_card .= ", software-configured"; # grep(/$aliased_dev/, @active_devices) and $this_card .= ", active"; # } # } # push @all_cards, $this_card; #} #- setup the network interface we shall use my $interface; if ($#all_cards == -1) { $in->ask_warn(_("No network adapter on your system!"), _("No ethernet network adapter is currently configured on your ". "system. Please run the hardware configuration tool.")); $in->exit(0); } elsif ($#all_cards == 0) { $interface = $all_cards[0]; $in->ask_okcancel(_("Network interface"), _("There is only one configured network adapter on your system:\n\n$interface\n\n". "Would you like to setup your Local Area Network with that adapter?"), 1) or $in->exit(0); } else { $interface = $in->ask_from_list(_("Choose the network interface"), _("Please choose what network adapter will be connected to your\n". "Local Area Network."), \@all_cards, ); defined $interface or $in->exit(0); } $interface =~ /(eth[0-9]+)/ or die("Internal error"); my $device = $1; #- setup the address for the LAN my $lan_address = "192.168.0.0"; $::expert and ($lan_address = $in->ask_from_entry(_("Local Area Network specification"), _("You may now decide which class C network to use.\n"), _("Network:"), $lan_address, ) or $in->exit(0)); ($lan_address =~ /^([0-9]+\.[0-9]+\.[0-9]+)\.0$/) or die "Invalid network.\n"; $lan_address = $1; #- test for potential conflict with other networks my @configured_devices = map { /ifcfg-(\S+)/; $1 } `ls /etc/sysconfig/network-scripts/ifcfg-*`; foreach (@configured_devices) { if ($_ ne $device) { local *IFCFG; my $ifcfg = "/etc/sysconfig/network-scripts/ifcfg-$_"; open IFCFG, "$ifcfg" or die "Can't open $ifcfg"; my @ifcfg_content = ; grep(/$lan_address/, @ifcfg_content) and $in->ask_warn('', _("Potential LAN address conflict found in current config of $_!\n")) and $in->exit(0); close IFCFG; } } #- ask for confirmation $in->ask_okcancel(_("Internet Connection Sharing - setup of $device"), _("The following interface is about to be configured:\n\n$interface\n\n". "It will be setup on a Local Area Network ($lan_address.0); additionnally, IP forwarding ". "and masquerading will be enabled, together with a DHCP server.\n". "You will then be able to connect other computers to this network, with automatic ". "DHCP configuration."), 1) or $in->exit(0); #- ********************************** #- * 2nd step: configure my $wait_configuring = $in->wait_message('Configuring...', _("Configuring scripts, installing software, starting servers...")); #- setup the /etc/sysconfig/network-script/ script my $network_scripts = "/etc/sysconfig/network-scripts"; -f "$network_scripts/ifcfg-$device" and rename("$network_scripts/ifcfg-$device", "$network_scripts/old.ifcfg-$device"); my $ifcfg = "$network_scripts/ifcfg-$device"; local *IFCFG; open IFCFG, ">$ifcfg" or die "Can't open $ifcfg"; print IFCFG <ask_warn('', _("Could not install ipchains RPM with urpmi.")) and $in->exit(0)); my $rcfirewall = "/etc/rc.d/rc.firewall"; -f $rcfirewall and rename($rcfirewall, "$rcfirewall.old"); local *RCFIREWALL; open RCFIREWALL, ">$rcfirewall" or die "Can't open $rcfirewall"; print RCFIREWALL < /proc/sys/net/ipv4/ip_forward # Dynamic IP users: # # If you get your IP address dynamically from SLIP, PPP, or DHCP, enable this following # option. This enables dynamic-ip address hacking in IP MASQ, making the life # with Diald and similar programs much easier. # #echo "1" > /proc/sys/net/ipv4/ip_dynaddr # MASQ timeouts # # 2 hrs timeout for TCP session timeouts # 10 sec timeout for traffic after the TCP/IP "FIN" packet is received # 160 sec timeout for UDP traffic (Important for MASQ'ed ICQ users) # /sbin/ipchains -M -S 7200 10 160 # DHCP: For people who receive their external IP address from either DHCP or BOOTP # such as ADSL or Cablemodem users, it is necessary to use the following # before the deny command. The "bootp_client_net_if_name" should be replaced # the name of the link that the DHCP/BOOTP server will put an address on to? # This will be something like "eth0", "eth1", etc. # # This example is currently commented out. # # #/sbin/ipchains -A input -j ACCEPT -i bootp_clients_net_if_name -s 0/0 67 -d 0/0 68 -p udp # Enable simple IP forwarding and Masquerading # # NOTE: The following is an example for an internal LAN address in the 192.168.0.x # network with a 255.255.255.0 or a "24" bit subnet mask. # # Please change this network number and subnet mask to match your internal LAN setup # /sbin/ipchains -P forward DENY /sbin/ipchains -A forward -s $lan_address.0/24 -j MASQ EOF close RCFIREWALL; chmod 0700, $rcfirewall; #- be sure that FORWARD_IPV4 is enabled in /etc/sysconfig/network my $sysconf_network = "/etc/sysconfig/network"; open SYSCONF_NETWORK, "$sysconf_network" or die "Can't open $sysconf_network"; my @sysconf_network_content = ; close SYSCONF_NETWORK; ($_ =~ /^FORWARD_IPV4=/ and $_="FORWARD_IPV4=true\n") foreach (@sysconf_network_content); grep(/^FORWARD_IPV4=/, @sysconf_network_content) or push @sysconf_network_content, "FORWARD_IPV4=true\n"; open SYSCONF_NETWORK, ">$sysconf_network" or die "Can't open $sysconf_network"; print SYSCONF_NETWORK @sysconf_network_content; close SYSCONF_NETWORK; #- install and setup the DHCP server $f = "/usr/sbin/dhcpd"; -e $f or system("urpmi --auto dhcp"); -e $f or ($in->ask_warn('', _("Could not install dhcp RPM with urpmi.")) and $in->exit(0)); my $dhcpdconf = "/etc/dhcpd.conf"; -f $dhcpdconf and rename($dhcpdconf, "$dhcpdconf.old"); local *DHCPDCONF; open DHCPDCONF, ">$dhcpdconf" or die "Can't open $dhcpdconf"; print DHCPDCONF <ask_warn('', _("Could not install linuxconf RPM with urpmi.")) and $in->exit(0)); open CONF_LINUXCONF, "$conf_linuxconf" or die "Can't open $conf_linuxconf"; my @conf_linuxconf_content = ; close CONF_LINUXCONF; ($_ =~ /^DHCP.interface/ and $_="DHCP.interface $device\n") foreach (@conf_linuxconf_content); grep(/DHCP.interface/, @conf_linuxconf_content) or push @conf_linuxconf_content, "DHCP.interface $device\n"; open CONF_LINUXCONF, ">$conf_linuxconf" or die "Can't open $conf_linuxconf"; print CONF_LINUXCONF @conf_linuxconf_content; close CONF_LINUXCONF; #- install the BIND and caching nameserver stuff $f = "/usr/sbin/named"; -e $f or system("urpmi --auto bind"); -e $f or ($in->ask_warn('', _("Could not install bind RPM with urpmi.")) and $in->exit(0)); $f = "/var/named/named.local"; -e $f or system("urpmi --auto caching-nameserver"); -e $f or ($in->ask_warn('', _("Could not install caching-nameserver RPM with urpmi.")) and $in->exit(0)); #- start the daemons start_daemons(); #- bye-bye message undef $wait_configuring; -f "/etc/sysconfig/ipchains" and $in->ask_warn(_("Firewalling configuration detected.!"), _("Warning! An existing firewalling configuration has been detected.\n". "It will probably override forwarding and masquerading configuration, please fix.")); $in->ask_warn(_("Everything configured!"), _("Everything has been configured.\n". "You may now share Internet connection with other computers on your Local Area Network, ". "using automatic network configuration (DHCP).")); $in->exit(0);