diff options
author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-02-06 00:37:00 -0600 |
---|---|---|
committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-02-06 00:37:00 -0600 |
commit | f5ca1166fde07a0bad6bf9a5d151a1834bdd23a6 (patch) | |
tree | dea7e281d8703d11dd7ab7b16ace72c647ee95c8 /knetworkconf/backends/network.pl.in | |
parent | e79e4b9225a2dfee5731fd436beb3c29acc4bfb8 (diff) | |
download | tdeadmin-f5ca1166fde07a0bad6bf9a5d151a1834bdd23a6.tar.gz tdeadmin-f5ca1166fde07a0bad6bf9a5d151a1834bdd23a6.zip |
Fix accidental networtde renames
Diffstat (limited to 'knetworkconf/backends/network.pl.in')
-rw-r--r-- | knetworkconf/backends/network.pl.in | 6731 |
1 files changed, 6731 insertions, 0 deletions
diff --git a/knetworkconf/backends/network.pl.in b/knetworkconf/backends/network.pl.in new file mode 100644 index 0000000..91270bb --- /dev/null +++ b/knetworkconf/backends/network.pl.in @@ -0,0 +1,6731 @@ +#!/usr/bin/env perl +#-*- Mode: perl; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- + +# Common network stuff for the ximian-setup-tools backends. +# +# Copyright (C) 2000-2001 Ximian, Inc. +# +# Authors: Hans Petter Jansson <hpj@ximian.com> +# Arturo Espinosa <arturo@ximian.com> +# Michael Vogt <mvo@debian.org> - Debian 2.[2|3] support. +# David Lee Ludwig <davidl@wpi.edu> - Debian 2.[2|3] support. +# Grzegorz Golawski <grzegol@pld-linux.org> - PLD support +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU Library General Public License as published +# by the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU Library General Public License for more details. +# +# You should have received a copy of the GNU Library General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +use Socket; + +$SCRIPTSDIR = "@scriptsdir@"; +if ($SCRIPTSDIR =~ /^@scriptsdir[@]/) +{ + $SCRIPTSDIR = "."; + $DOTIN = ".in"; +} + +require "$SCRIPTSDIR/general.pl$DOTIN"; +require "$SCRIPTSDIR/file.pl$DOTIN"; +require "$SCRIPTSDIR/parse.pl$DOTIN"; +require "$SCRIPTSDIR/replace.pl$DOTIN"; +require "$SCRIPTSDIR/service.pl$DOTIN"; +require "$SCRIPTSDIR/util.pl$DOTIN"; +require "$SCRIPTSDIR/xml.pl$DOTIN"; +require "$SCRIPTSDIR/process.pl$DOTIN"; + + +# Shared XML printing function +sub network_xml_print_statichost +{ + my ($h) = $_[0]; + my ($statichost, $i, $j, $val); + + &gst_xml_print_vspace (); + foreach $i (keys %{$$h{"statichost"}}) + { + $statichost = $ {$$h{"statichost"}}{$i}; + &gst_xml_container_enter ("statichost"); + $val = &gst_xml_quote ($i); + &gst_xml_print_pcdata ("ip", $val); + foreach $j (@$statichost) + { + $val = &gst_xml_quote ($j); + &gst_xml_print_pcdata ("alias", $val); + } + &gst_xml_container_leave ("statichost"); + } +} + +sub gst_network_get_linux_wireless_ifaces +{ + my ($fd, $line); + my (@ifaces, $command); + + $command = &gst_file_get_cmd_path ("iwconfig"); + open $fd, "$command |"; + return @ifaces if $fd eq undef; + + while (<$fd>) + { + if (/^([a-zA-Z0-9]+)[\t ].*$/) + { + push @ifaces, $1; + } + } + + &gst_file_close ($fd); + + &gst_report_leave (); + return \@ifaces; +} + +sub gst_network_get_freebsd_wireless_ifaces +{ + my ($fd, $line, $iface); + my (@ifaces, $command); + + $command = &gst_file_get_cmd_path ("iwconfig"); + open $fd, "$command |"; + return @ifaces if $fd eq undef; + + while (<$fd>) + { + if (/^([a-zA-Z]+[0-9]+):/) + { + $iface = $1; + } + + if (/media:.*wireless.*/i) + { + push @ifaces, $iface; + } + } + + &gst_file_close ($fd); + &gst_report_leave (); + + return \@ifaces; +} + +# Returns an array with the wireless devices found +sub gst_network_get_wireless_ifaces +{ + my ($plat) = $$tool{"system"}; + + return &gst_network_get_linux_wireless_ifaces if ($plat eq "Linux"); + return &gst_network_get_freebsd_wireless_ifaces if ($plat eq "FreeBSD"); +} + +# set of functions for enabling an interface +sub gst_network_config_wireless +{ + my ($hash, $dev, $command_iwconfig, $command_ifconfig) = @_; + my ($essid, $key, $command); + + $essid = $$hash{"configuration"}{"essid"}; + $key = $$hash{"configuration"}{"key"}; + $key_type = $$hash{"configuration"}{"key_type"}; + + if ($essid) + { + $command = $command_iwconfig if ($$tool{"system"} eq "Linux"); + $command = $command_ifconfig if ($$tool{"system"} eq "FreeBSD"); + + $command .= " $dev"; + $command .= " essid '$essid'" if ($essid); + + if ($key) + { + $key = &gst_network_get_full_key ($key, $key_type); + $command .= " key '$key'"; + } + else + { + $command .= " key off"; + } + + &gst_file_run ($command); + } +} + +sub gst_network_enable_iface +{ + my ($hash, $dev, $command_ifconfig) = @_; + my ($address, $netmask, $bootproto, $remote_address); + + $address = $$hash{"configuration"}{"address"}; + $netmask = $$hash{"configuration"}{"netmask"}; + $bootproto = $$hash{"configuration"}{"bootproto"}; + $remote_address = $$hash{"configuration"}{"remote_address"}; + + if ($bootproto eq "dhcp") + { + if (&gst_file_locate_tool ("dhclient3")) + { + $command = "dhclient3 -pf /var/run/dhclient.$dev.pid $dev"; + } + elsif (&gst_file_locate_tool ("dhclient")) + { + $command = "dhclient -pf /var/run/dhclient.$dev.pid -e $dev"; + } + else + { + $command = "dhcpcd -n $dev"; + } + } + else + { + $command = $command_ifconfig; + $command .= " $dev"; + $command .= " $address" if ($address); + $command .= " netmask $netmask" if ($netmask); + $command .= " dstaddr $remote_address" if ($remote_address); + $command .= " up"; + } + + return &gst_file_run ($command); +} + +sub gst_network_get_chat_file +{ + my ($hash) = @_; + my ($volume, $phone_number, $external_line, $dial_command); + my ($dial, $tmp_file, $filename, $arr); + + $volume = $$hash{"configuration"}{"volume"}; + $phone_number = $$hash{"configuration"}{"phone_number"}; + $external_line = $$hash{"configuration"}{"external_line"}; + $dial_command = $$hash{"configuration"}{"dial_command"}; + + $filename = gst_file_get_temp_name ("network-admin-chat-script-XXXXXXXXX"); + $tmp_file = "/tmp/$filename"; + + $dial = $dial_command; + $dial .= $external_line . "W" if ($external_line); + $dial .= $phone_number; + + &gst_network_create_pppscript ($tmp_file); + chmod (0600, $tmp_file); + &gst_replace_chat ($tmp_file, "atd[tp][0-9wW]+", $dial); + &gst_network_set_modem_volume ($tmp_file, $volume); + + + return $tmp_file; +} + +sub gst_network_enable_modem +{ + my ($hash, $dev, $command_pppd, $command_chat) = @_; + my ($config, $chat_file, $command, $ret); + + $config = $$hash{"configuration"}; + $chat_file = &gst_network_get_chat_file ($hash); + + $command = $command_pppd; + $command .= " " . $$config{"serial_port"}; + $command .= " debug" if ($$config{"debug"}); + $command .= ($$config{"noauth"}) ? " noauth" : " auth"; + $command .= ($$config{"persist"}) ? " persist" : " nopersist"; + $command .= ($$config{"serial_hwctl"}) ? " crtscts" : " nocrtscts"; + $command .= ($$config{"set_default_gw"}) ? " defaultroute" : " nodefaultroute"; + $command .= " usepeerdns" if ($$config{"update_dns"}); + $command .= " user " . $$config{"login"}; + $command .= " connect \'$command_chat -v -f $chat_file\'"; + + $ret = &gst_file_run ($command); + + return $ret; +} + +sub gst_network_enable_isdn +{ + my ($hash, $dev, $command_pppd) = @_; + my ($config, $command); + + $config = $$hash{"configuration"}; + + $command = $command_pppd; + $command .= " debug" if ($$config{"debug"}); + $command .= ($$config{"noauth"}) ? " noauth" : " auth"; + $command .= ($$config{"persist"}) ? " persist" : " nopersist"; + $command .= ($$config{"serial_hwctl"}) ? " crtscts" : " nocrtscts"; + $command .= ($$config{"set_default_gw"}) ? " defaultroute" : " nodefaultroute"; + $command .= " usepeerdns" if ($$config{"update_dns"}); + $command .= " sync plugin userpass.so ipcp-accept-local ipcp-accept-remote"; + $command .= " plugin capiplugin.so"; + $command .= " /dev/null"; + $command .= " user " . $$config{"login"}; + $command .= " number " . $$config{"phone_number"}; + + return &gst_file_run ($command); +} + +sub drop_dhcp_connection +{ + my ($dev) = @_; + &gst_process_kill_by_pidfile ("dhclient.$dev.pid"); + &gst_process_kill_by_pidfile ("/etc/dhcpc/dhcpcd-$dev.pid"); +} + +sub drop_pppd_connection +{ + my ($dev) = @_; + &gst_process_kill_by_pidfile ("$dev.pid"); +} + +sub gst_network_enable_iface_with_config +{ + my ($hash) = @_; + my ($command_ifconfig, $command_iwconfig); + my ($command_pppd, $command_chat); + my ($dev, $command, $ret); + + $command_ifconfig = "ifconfig"; + $command_iwconfig = "iwconfig"; + $command_pppd = "pppd"; + $command_chat = gst_file_locate_tool ("chat"); + + $dev = $$hash{"dev"}; + + $command = "$command_ifconfig $dev down"; + $ret = &gst_file_run ($command); + + &drop_dhcp_connection ($dev); + &drop_pppd_connection ($dev); + + if (exists ($$hash{"configuration"})) + { + if (exists ($$hash{"configuration"}{"phone_number"})) + { + $login = $$hash{"configuration"}{"login"}; + $pw = $$hash{"configuration"}{"password"}; + + &gst_network_set_pap_passwd ("/etc/ppp/pap-secrets", $login, $pw); + &gst_network_set_pap_passwd ("/etc/ppp/chap-secrets", $login, $pw); + + if (&gst_network_check_pppd_plugin ("capiplugin")) + { + $ret = &gst_network_enable_isdn ($hash, $dev, $command_pppd); + } + else + { + $ret = &gst_network_enable_modem ($hash, $dev, $command_pppd, $command_chat); + } + } + else + { + # if it's a wireless interface, put first the essid + &gst_network_config_wireless ($hash, $dev, $command_iwconfig, $command_ifconfig); + $ret = &gst_network_enable_iface ($hash, $dev, $command_ifconfig); + } + } + + return $ret; +} + +# Tries to detect modem in a closed list of devices +sub gst_network_autodetect_modem +{ + my (@arr); + + if ($$tool{"system"} eq "Linux") + { + @arr = ("/dev/modem", "/dev/ttyS0", "/dev/ttyS1", "/dev/ttyS2", "/dev/ttyS3"); + + $pid = `pidof pppd 2>/dev/null`; + + if ($pid =~ /\d/) { + return; + } + } + elsif ($$tool{"system"} eq "FreeBSD") + { + @arr = ("/dev/modem", "/dev/cuaa0", "/dev/cuaa1", "/dev/cuaa2", "/dev/cuaa3"); + } + + foreach $tty (@arr) { + $temp = `pppd lcp-max-configure 1 nodetach noauth nocrtscts $tty connect \"chat -t1 \'\' AT OK\" 2>/dev/null`; + + if ($temp =~ /established/) { + return $tty; + } + } +} + +# Parse <interface>...</interface>. Put here so it can be shared with internetsharing. +sub gst_network_xml_parse_interface_config +{ + my ($tree) = @_; + my (%config); + + shift @$tree; + + while ($elem = shift @$tree) + { + $config{$elem} = &gst_xml_get_pcdata (shift @$tree); + } + + return \%config; +} + +sub gst_network_xml_parse_interface +{ + my ($tree, $interface) = @_; + my (%hash, $aux, $dev, $elem); + + shift @$tree; + + while ($elem = shift @$tree) + { + if ($elem eq "configuration") + { + $aux = &gst_network_xml_parse_interface_config (shift @$tree); + $hash{$elem} = $aux if ($aux ne undef); + } + else + { + $hash{$elem} = &gst_xml_get_pcdata (shift @$tree); + } + } + + if (($hash{"configuration"} ne undef) && + ($hash{"configuration"}{"file"} ne undef)) + { + $dev = $hash{"configuration"}{"file"}; + } + else + { + $dev = &gst_network_get_file (\%hash); + $hash{"configuration"}{"file"} = $dev if ($hash{"configuration"} ne undef); + } + + $$interface{$dev} = \%hash; + return \%hash; +} + +# Expects something like "132.248.10.2" and returns 4 bytes. +sub gst_network_ipv4_str2vec +{ + my ($str) = @_; + + return pack ('C4', split ('\.', $str)); +} + +# Converse +sub gst_network_ipv4_vec2str +{ + my ($vec) = @_; + + return join ('.', unpack ('C4', $vec)); +} + +# Gets the subnet, in bitmap. +sub gst_network_ipv4_calc_subnet_vec +{ + my ($addr, $mask) = @_; + my ($addrvec, $maskvec); + + $addrvec = &gst_network_ipv4_str2vec ($addr); + $maskvec = &gst_network_ipv4_str2vec ($mask); + + return $addrvec & $maskvec; +} + +# What you're looking for. +sub gst_network_ipv4_calc_subnet +{ + my ($addr, $mask) = @_; + + return &gst_network_ipv4_vec2str (&gst_network_ipv4_calc_subnet_vec); +} + +# The broadcast, bitmap. +sub gst_network_ipv4_calc_bcast_vec +{ + my ($addr, $mask) = @_; + + $addrvec = &gst_network_ipv4_str2vec ($addr); + $maskvec = &gst_network_ipv4_str2vec ($mask); + + return $addrvec | ~$maskvec; +} + +# And this returning the quad-dot notation. +sub gst_network_ipv4_calc_bcast +{ + my ($addr, $mask) = @_; + + return &gst_network_ipv4_vec2str (&gst_network_ipv4_calc_bcast_vec); +} + + +# Selects a ping command, which must ping just twice, with +# one second interval, returning numeric IPs to the given +# broadcast address. +sub gst_network_get_broadcast_ping_cmd +{ + my ($bcast) = @_; + my ($tool_ping); + + my %cmd_map = + ( + "debian-2.2" => "ping -c 2 -i 1 -n $bcast", + "redhat-6.2" => "ping -c 2 -i 1 -n -b $bcast" + ); + my %dist_map = + ( + "redhat-6.0" => "redhat-6.2", + "redhat-6.1" => "redhat-6.2", + "redhat-6.2" => "redhat-6.2", + "redhat-7.0" => "redhat-6.2", + "redhat-7.1" => "redhat-6.2", + "redhat-7.2" => "redhat-6.2", + "redhat-8.0" => "redhat-6.2", + "redhat-9" => "redhat-6.2", + "rhel-5" => "redhat-6.2", + "rhel-6" => "redhat-6.2", + "openna-1.0" => "redhat-6.2", + "debian-2.2" => "debian-2.2", + "debian-3.0" => "debian-2.2", + "debian-3.1" => "debian-2.2", + "debian-4.0" => "debian-2.2", + "debian-5.0" => "debian-2.2", + "debian-testing" => "debian-2.2", + "ubuntu-5.04" => "debian-2.2", + "ubuntu-5.10" => "debian-2.2", + "ubuntu-6.06" => "debian-2.2", + "ubuntu-6.10" => "debian-2.2", + "ubuntu-7.04" => "debian-2.2", + "ubuntu-7.10" => "debian-2.2", + "ubuntu-8.04" => "debian-2.2", + "ubuntu-8.10" => "debian-2.2", + "ubuntu-9.04" => "debian-2.2", + "ubuntu-9.10" => "debian-2.2", + "ubuntu-10.10" => "debian-2.2", + "ubuntu-10.10" => "debian-2.2", + "mandrake-7.1" => "debian-2.2", + "mandrake-7.2" => "debian-2.2", + "mandrake-9.0" => "debian-2.2", + "mandrake-9.1" => "debian-2.2", + "mandrake-9.2" => "debian-2.2", + "mandrake-10.0" => "debian-2.2", + "mandrake-10.1" => "redhat-6.2", + "mandrake-10.2" => "redhat-6.2", + "mandriva-2006.0" => "redhat-6.2", + "mandriva-2006.1" => "redhat-6.2", + "mandriva-2007.0" => "redhat-6.2", + "mandriva-2007.1" => "redhat-6.2", + "yoper-2.2" => "redhat-6.2", + "blackpanther-4.0" => "debian-2.2", + "suse-7.0" => "debian-2.2", + "suse-9.0" => "redhat-6.2", + "suse-9.1" => "redhat-6.2", + "pld-1.0" => "redhat-6.2", + "pld-1.1" => "redhat-6.2", + "pld-1.99" => "redhat-6.2", + "conectiva-9" => "debian-2.2", + "conectiva-10" => "debian-2.2", + "fedora-1" => "redhat-6.2", + "fedora-2" => "redhat-6.2", + "fedora-3" => "redhat-6.2", + "fedora-4" => "redhat-6.2", + "fedora-5" => "redhat-6.2", + "fedora-15" => "redhat-6.2", + "fedora-16" => "redhat-6.2", + "fedora-17" => "redhat-6.2", + "rpath" => "redhat-6.2", + "vine-3.0" => "redhat-6.2", + "vine-3.1" => "redhat-6.2", + "ark" => "redhat-6.2", + "slackware-9.1.0" => "redhat-6.2", + "slackware-10.0.0" => "redhat-6.2", + "slackware-10.1.0" => "redhat-6.2", + "slackware-10.2.0" => "redhat-6.2", + "slackware-11.0.0" => "redhat-6.2", + "slackware-12.0.0" => "redhat-6.2", + "slackware-12.1.0" => "redhat-6.2", + "slackware-12.2.0" => "redhat-6.2", + "slackware-13.0.0" => "redhat-6.2", + "slackware-13.1.0" => "redhat-6.2", + "slackware-13.37.0" => "redhat-6.2", + "slackware-14.0.0" => "redhat-6.2", + "gentoo" => "debian-2.2", + "vlos-1.2" => "debian-2.2", + "freebsd-5" => "debian-2.2", + "freebsd-6" => "debian-2.2", + ); + + return $cmd_map{$dist_map{$gst_dist}}; +} + + +# Run ping, taking what looks like the replying host addresses, return +# colon-sepparated (:) string. To be used with gst_process_fork. +sub gst_network_ping_broadcast_call +{ + my ($bcast) = @_; + my ($cmd, %hosts, $fd); + + $cmd = &gst_network_get_broadcast_ping_cmd ($bcast); + $fd = &gst_file_run_pipe_read ($cmd); + return undef if $fd eq undef; + while (<$fd>) + { + if (/([0-9.]+):?[ \t]+icmp_seq/) + { + # If it already exists, it is the second count, and we can return then. + last if exists $hosts{$1}; + $hosts{$1} = 1 ; + } + } + &gst_file_close ($fd); + + return join (':', keys (%hosts)); +} + + +# Return an array of IPs of the hosts in all the adjacent local networks. +sub gst_network_find_hosts +{ + my ($iface, $ifaces, $dev, $hosts_str, @hosts, $proc, @procs); + + $ifaces = &gst_network_interfaces_get_info (); + + foreach $dev (keys %$ifaces) + { + $iface = $$ifaces{$dev}; + if ($$iface{"active"} && exists $$iface{"bcast"}) + { + push @procs, &gst_process_fork (\&gst_network_ping_broadcast_call, $$iface{"bcast"}); + } + } + + &gst_process_list_check_ready (3, \@procs); + + foreach $proc (@procs) + { + if ($$proc{"ready"}) + { + sysread ($$proc{"fd"}, $hosts_str, 4096); + push @hosts, split (':', $hosts_str); + } + } + + return @hosts; +} + + +# like, &gst_network_lookup_address_block ("132.248.10.2") returns 'dns2.unam.mx' +# but watch it: it will block until libc timeouts or a result is found. If +# nothing found, returns the address. +sub gst_network_lookup_address_block +{ + my ($addr) = @_; + my $name; + + $name = (gethostbyaddr (&gst_network_ipv4_str2vec ($addr), AF_INET))[0]; + return $addr if length ($name) == 0; + return $name; +} + + +# To be called from gst_process_fork by the child. +sub gst_network_address_lookup_call +{ + my ($addr) = @_; + + return &gst_network_lookup_address_block ($addr); +} + + +# Fork a lookup process for every passed address, return ref to +# array with info on every proc. +sub gst_network_lookup_address_start +{ + my (@addrs) = @_; + my ($addr, $proc, @procs); + + # Fork a lookup for every address. + foreach $addr (@addrs) + { + $proc = &gst_process_fork (\&gst_network_address_lookup_call, $addr); + $$proc{"addr"} = $addr; + push @procs, $proc; + } + + return \@procs; +} + +# Take a ref to a list of forked lookup processes, +# and collect the information from those ready. +sub gst_network_lookup_address_collect +{ + my ($procs) = @_; + my ($name, @names, $proc); + + # For every process, if the "ready" flag is on, read info. + # Else, populate with the given address. Then kill child and wait for it to die. + foreach $proc (@$procs) + { + if ($$proc{"ready"}) + { + sysread ($$proc{"fd"}, $name, 4096); + push @names, $name; + } + else + { + push @names, $$proc{"addr"}; + } + &gst_process_kill ($proc); + } + + return @names; +} + + +# like, &gst_network_lookup_address (10, "132.248.10.2", "132.248.29.8") returns +# 'dns2.unam.mx', 'sphinx.nuclecu.unam.mx' after 10 seconds, in the worst case. +# If any of the given addresses is not resolved before timeout, the address will +# be returned as its name. Timeout of 0 or undef blocks. +# Timeout may be a decimal (0.5, half a second). You can split this process in +# two, so you can collect the information at the last moment, giving more time for +# the lookups to take place. Use the two functions above for this, as shown here. +sub gst_network_lookup_address +{ + my ($timeout, @addrs) = @_; + my $procs; + + $procs = &gst_network_lookup_address_start (@addrs); + &gst_process_list_check_ready ($timeout, $procs); + return &gst_network_lookup_address_collect ($procs); +} + + +# This code is not under the portable table style because it is supposed to +# depend on wvdial. +sub gst_network_dialing_get +{ + my %vars = + ( + "Inherits" => "inherits", + "Modem" => "device", + "Baud" => "speed", + "Init1" => "init1", + "Init2" => "init2", + "Phone" => "phone", + "Username" => "login", + "Password" => "password", + "Dial Command" => "dialcmd", + "SetVolume" => "volume", + "Stupid mode" => "stupid", + "Auto Reconnect" => "persist", + "Force Address" => "address", + "Auto DNS" => "update_dns", + "Check Def Route" => "set_default_gw", + "GST Device" => "gst_dev", + "Dial Command" => "dial_command" + ); + my %title2type = + ( + "Dialer (.*)" => "dialer", + "Modem(.*)" => "modem" + ); + + my ($file) = @_; + my (%ret, @sections); + my ($i, $j, $name, $val); + + &gst_report_enter (); + &gst_report ("network_dialing_get"); + + @sections = &gst_parse_ini_sections ($file); + foreach $i (@sections) + { + my %hash; + + $hash{"type"} = "unknown"; + foreach $j (keys %title2type) + { + if ($i =~ /$j/) + { + $hash{"name"} = $1; + $hash{"type"} = $title2type{$j}; + } + } + + $ret{$hash{"name"}} = \%hash; + + foreach $j (keys %vars) + { + $val = &gst_parse_ini ($file, $i, $j); + $hash{$vars{$j}} = $val if ($val ne undef); + } + + # we add the volume label, it's not a line in the wvdial config, + # it's a hayes command in the init2 string, it can be ATM0 or ATL[1-3] + if ($hash{"init2"} =~ /M0/) + { + $hash{"volume"} = 0; + } + elsif ($hash{"init2"} =~ /L[1-3]/) + { + $hash{"init2"} =~ /.*L([1-3]).*/; + $volume = ($1); + $hash{"volume"} = $volume; + } + else + { + $hash{"volume"} = 3; + } + + # add the external line access number + if ($hash{"phone"} =~ /(^.*)[wW]/) + { + $hash{"external_line"} = $1; + $hash{"phone"} =~ s/^.*[wW]//; + } + } + + &gst_report_leave (); + return \%ret; +} + +# returns interface type depending on it's interface name +# types_cache is a global var for caching interface types +sub gst_network_get_interface_type +{ + my ($dev) = @_; + my (@wireless_ifaces, $wi, $type); + + return $types_cache{$dev} if (exists $types_cache{$dev}); + + #check whether interface is wireless + $wireless_ifaces = &gst_network_get_wireless_ifaces (); + foreach $wi (@$wireless_ifaces) + { + if ($dev eq $wi) + { + $types_cache{$dev} = "wireless"; + return $types_cache{$dev}; + } + } + + if ($dev =~ /^(ppp|tun)/) + { + # check whether the proper plugin exists + if (&gst_network_check_pppd_plugin ("capiplugin")) + { + $types_cache{$dev} = "isdn"; + } + else + { + $types_cache{$dev} = "modem"; + } + } + elsif ($dev =~ /^(eth|dc|ed|bfe|em|fxp|bge|de|xl|ixgb|txp|vx|lge|nge|pcn|re|rl|sf|sis|sk|ste|ti|tl|tx|vge|vr|wb|cs|ex|ep|fe|ie|lnc|sn|xe|le|an|awi|wi|ndis|wlaue|axe|cue|kue|rue|fwe|nve)[0-9]/) + { + $types_cache{$dev} = "ethernet"; + } + elsif ($dev =~ /^irlan[0-9]/) + { + $types_cache{$dev} = "irlan"; + } + elsif ($dev =~ /^plip[0-9]/) + { + $types_cache{$dev} = "plip"; + } + elsif ($dev =~ /^lo[0-9]?/) + { + $types_cache{$dev} = "loopback"; + } + + return $types_cache{$dev}; +} + +sub gst_network_freebsd_interfaces_get_info +{ + my ($dev, %ifaces, $fd); + + &gst_report_enter (); + &gst_report ("network_iface_active_get"); + + $fd = &gst_file_run_pipe_read ("ifconfig"); + return {} if $fd eq undef; + + while (<$fd>) + { + chomp; + if (/^([^ \t:]+):.*(<.*>)/) + { + $dev = $1; + $ifaces{$dev}{"dev"} = $dev; + $ifaces{$dev}{"enabled"} = 1 if ($2 =~ /[<,]UP[,>]/); + } + + s/^[ \t]+//; + if ($dev) + { + $ifaces{$dev}{"hwaddr"} = $1 if /ether[ \t]+([^ \t]+)/i; + $ifaces{$dev}{"addr"} = $1 if /inet[ \t]+([^ \t]+)/i; + $ifaces{$dev}{"mask"} = $1 if /netmask[ \t]+([^ \t]+)/i; + $ifaces{$dev}{"bcast"} = $1 if /broadcast[ \t]+([^ \t]+)/i; + } + } + + &gst_file_close ($fd); + &gst_report_leave (); + return \%ifaces; +} + +sub gst_network_linux_interfaces_get_info +{ + my ($dev, %ifaces, $fd); + + &gst_report_enter (); + &gst_report ("network_iface_active_get"); + + $fd = &gst_file_run_pipe_read ("ifconfig -a"); + return {} if $fd eq undef; + + while (<$fd>) + { + chomp; + if (/^([^ \t:]+)/) + { + $dev = $1; + $ifaces{$dev}{"enabled"} = 0; + $ifaces{$dev}{"dev"} = $dev; + } + + s/^[ \t]+//; + if ($dev) + { + $ifaces{$dev}{"hwaddr"} = $1 if /HWaddr[ \t]+([^ \t]+)/i; + $ifaces{$dev}{"addr"} = $1 if /addr:([^ \t]+)/i; + $ifaces{$dev}{"mask"} = $1 if /mask:([^ \t]+)/i; + $ifaces{$dev}{"bcast"} = $1 if /bcast:([^ \t]+)/i; + $ifaces{$dev}{"enabled"} = 1 if /^UP[ \t]/i; + } + } + + &gst_file_close ($fd); + &gst_report_leave (); + return \%ifaces; +} + +sub gst_network_interfaces_get_info +{ + my (%ifaces); + + $ifaces = &gst_network_linux_interfaces_get_info if ($$tool{"system"} eq "Linux"); + $ifaces = &gst_network_freebsd_interfaces_get_info if ($$tool{"system"} eq "FreeBSD"); + + foreach $dev (keys %$ifaces) + { + #$$ifaces{$dev}{"enabled"} = 0 if $$ifaces{$dev}{"addr"} eq undef; + $$ifaces{$dev}{"type"} = &gst_network_get_interface_type ($dev); + + #delete unknown ifaces + if ($$ifaces{$dev}{"type"} eq undef) + { + delete $$ifaces{$dev}; + } + } + + return $ifaces; +} + +sub gst_network_active_interfaces_get +{ + my $fd; + my @ret = (); + + &gst_report_enter (); + &gst_report ("network_iface_active_get"); + + $fd = &gst_file_run_pipe_read ("ifconfig"); + return undef if $fd eq undef; + + while (<$fd>) + { + chomp; + s/:? .*//; + next if /^$/; + push @ret, $_; + } + + &gst_file_close ($fd); + + &gst_report_leave (); + return @ret; +} + +sub gst_network_freebsd5_active_interfaces_get +{ + my ($fd, @ret); + + &gst_report_enter (); + &gst_report ("network_iface_active_get"); + + $fd = &gst_file_run_pipe_read ("ifconfig"); + return undef if ($fd eq undef); + + while (<$fd>) + { + chomp; + if (/^([\w\d]*):.*[<,]UP[,>]/) + { + push @ret, $1; + } + } + + &gst_file_close ($fd); + &gst_report_leave (); + + return @ret; +} + +sub gst_network_suse70_active_interfaces_get +{ + my (@devs, $dev, @ret, $num); + + @devs = &gst_network_active_interfaces_get (); + + foreach $dev (@devs) + { + if ($dev ne "lo") + { + $num = &gst_network_suse70_parse_iface_num ("$gst_prefix/etc/rc.config", $dev); + push @ret, $num if $num != -1; + } + } + + return @ret; +} + +sub gst_network_interface_active +{ + my ($search_iface, $proc) = @_; + my @ifaces; + + &gst_report_enter (); + &gst_report ("network_iface_is_active", $search_iface); + + @ifaces = &$proc (); + while ($ifaces[0] ne "") + { + return 1 if (shift (@ifaces) eq $search_iface); + } + + &gst_report_leave (); + return 0; +} + +sub gst_network_interface_ensure_broadcast_and_network +{ + my ($iface) = @_; + + if (exists $$iface{"netmask"} && + exists $$iface{"address"}) + { + if (! exists $$iface{"broadcast"}) + { + $$iface{"broadcast"} = &gst_network_ipv4_calc_bcast ($$iface{"address"}, $$iface{"netmask"}); + } + + if (! exists $$iface{"network"}) + { + $$iface{"network"} = &gst_network_ipv4_calc_subnet ($$iface{"address"}, $$iface{"netmask"}); + } + } +} + +sub gst_network_sysconfig_dir_ifaces_get_existing +{ + my ($dir) = @_; + my (@ret, $i, $name); + local *IFACE_DIR; + + if (opendir IFACE_DIR, "$gst_prefix/$dir") + { + foreach $i (readdir (IFACE_DIR)) + { + push @ret, $1 if ($i =~ /^ifcfg-(.+)$/); + } + + closedir (IFACE_DIR); + } + + return \@ret; +} + +sub gst_network_sysconfig_rh62_ifaces_get_existing +{ + return @{&gst_network_sysconfig_dir_ifaces_get_existing ("/etc/sysconfig/network-scripts")}; +} + +sub gst_network_sysconfig_rh72_ifaces_get_existing +{ + my ($ret); + + # This syncs /etc/sysconfig/network-scripts and /etc/sysconfig/networking + &gst_file_run ("redhat-config-network-cmd"); + + $ret = &gst_network_sysconfig_dir_ifaces_get_existing + ("/etc/sysconfig/networking/profiles/default"); + + &gst_arr_merge ($ret, + &gst_network_sysconfig_dir_ifaces_get_existing + ("/etc/sysconfig/networking/devices")); + + return @$ret; +} + +sub gst_network_debian_ifaces_get_existing +{ + my (@ret, @stanzas, $stanza); + + @stanzas = &gst_parse_interfaces_stanzas ("$gst_prefix/etc/network/interfaces", "iface"); + + foreach $stanza (@stanzas) + { + if ($$stanza[1] eq "inet") + { + push @ret, $$stanza[0]; + } + } + + return @ret; +} + +sub gst_network_suse70_ifaces_get_existing +{ + my $file = "$gst_prefix/etc/rc.config"; + my ($i, $dev, @ret, $fd); + + $fd = &gst_file_open_read_from_names ($file); + return @ret if !$fd; + + while ($i = <$fd>) + { + if ($i =~ /^[ \t]*NETDEV_([0-9]+)=/) + { + push @ret, $1 if &gst_parse_sh ($file, "NETDEV_$1") ne ""; + } + } + + &gst_file_close ($fd); + return @ret; +} + +sub gst_network_suse90_ifaces_get_existing +{ + return @{&gst_network_sysconfig_dir_ifaces_get_existing ("/etc/sysconfig/network")}; +} + +sub gst_network_sysconfig_pld10_ifaces_get_existing +{ + return @{&gst_network_sysconfig_dir_ifaces_get_existing ("/etc/sysconfig/interfaces")}; +} + +sub gst_network_slackware91_ifaces_get_existing +{ + my $file = "/etc/rc.d/rc.inet1.conf"; + my $pppscript = "/etc/ppp/pppscript"; + my ($fd, $i, @ret); + + $fd = &gst_file_open_read_from_names ($file); + return @ret if !$fd; + + while ($i = <$fd>) + { + if ($i =~ /^[ \t]*(IPADDR|USE_DHCP)\[([0-9]+)\][ \t]*=[ \t]*"(.*)"/) + { + push @ret, "eth$2" if ($3 ne ""); + } + } + + &gst_file_close ($fd); + + if (&gst_file_exists ($pppscript)) + { + push @ret, "ppp0"; + } + + return @ret; +} + +sub gst_network_gentoo_ifaces_get_existing +{ + my $file = "/etc/conf.d/net"; + my ($fd, $i, @ret, $ppp); + + $fd = &gst_file_open_read_from_names ($file); + return @ret if !$fd; + + while ($i = <$fd>) + { + if ($i =~ /^config_([a-zA-Z0-9]*)[ \t]*=/) + { + push @ret, $1; + } + } + + #now the PPP ifaces + foreach $ppp (</etc/conf.d/net.*>) + { + $ppp =~ s#^/etc/conf.d/net\.##; + push @ret, $ppp if ($ppp =~ /^ppp[0-9]$/); + } + + return @ret; +} + +sub gst_network_freebsd_ifaces_get_existing +{ + my $file = "/etc/rc.conf"; + my ($fd, $i, @ret); + + $fd = &gst_file_open_read_from_names ($file); + return @ret if !$fd; + + while ($i = <$fd>) + { + if ($i =~ /^ifconfig_(.*)[ \t]*=/) + { + push @ret, $1; + } + } + + return @ret; +} + +sub gst_network_suse70_parse_iface_num +{ + my ($file, $dev) = @_; + my ($i, $ret); + + foreach $i (&gst_network_suse70_ifaces_get_existing ()) + { + $ret = &gst_parse_sh ($file, "NETDEV_$i"); + return $i if $ret eq $dev; + } + + &gst_debug_print_string ("\n\nWarning: gst_network_suse70_parse_iface_num: num for $dev not found.\n\n"); + return -1; +} + +sub gst_network_suse70_parse_iface_auto +{ + my ($file, $iface, $key) = @_; + my ($val, $i); + + $val = &gst_parse_sh_split ($file, $key, "[ \t]+"); + + foreach $i (@$val) + { + return 1 if $i eq "_$iface"; + } + + return 0; +} + +sub gst_network_suse70_replace_iface_auto +{ + my ($file, $iface, $key, $value) = @_; + my ($val, $i, $found, @ret); + + $val = &gst_parse_sh_split ($file, $key, "[ \t]+"); + + foreach $i (@$val) + { + $found = 1 if $i eq "_$iface"; + push @ret, $i unless ($i eq "_$iface" && !$value); + } + + return 0 if ($found == $value); + push @ret, "_$iface" if (!$found && $value); + + return &gst_replace_sh ($file, $key, join (" ", @ret)); +} + +sub gst_network_suse70_parse_iface_sh +{ + my ($file, $iface, $key) = @_; + my ($val, $num); + + return &gst_parse_sh ($file, "${key}_$iface"); +} + +sub gst_network_suse70_replace_iface_sh +{ + my ($file, $iface, $key, $value) = @_; + my ($val, $num); + + return &gst_replace_sh ($file, "${key}_$iface", $value); +} + +sub gst_network_suse70_get_ifconfig_arg +{ + my ($file, $iface, $key) = @_; + my ($val); + + $val = &gst_network_suse70_parse_iface_sh ($file, $iface, "IFCONFIG"); + $val =~ /[ \t]+$key[ \t]+([^ \t]+)/; + return $1; +} + +sub gst_network_suse70_set_ifconfig_arg +{ + my ($file, $iface, $key, $value) = @_; + my ($val); + + $val = &gst_network_suse70_parse_iface_sh ($file, $iface, "IFCONFIG"); + + return 0 if $val =~ /^dhcpclient$/ || $val =~ /^bootp$/; + + if (! ($val =~ s/([ \t]+$key[ \t]+)[^ \t]+/$1$value/)) + { + $val =~ s/[ \t]+up$//; + $val .= " " if $val =~ /[^ \t]$/; + $val .= "$key $value up"; + } + + return &gst_network_suse70_replace_iface_sh ($file, $iface, "IFCONFIG", $val); +} + +sub gst_network_suse70_set_ifconfig_ip +{ + my ($file, $iface, $value) = @_; + + $val = &gst_network_suse70_parse_iface_sh ($file, $iface, "IFCONFIG"); + + return 0 if $val =~ /^dhcpclient$/ || $val =~ /^bootp$/; + + if (! ($val =~ s/^[0-9\.]+([ \t])/$value$1/)) + { + $val = "$value $val"; + $val =~ s/[ \t]+/ /; + } + + return &gst_network_suse70_replace_iface_sh ($file, $iface, "IFCONFIG", $val); +} + +sub gst_network_get_new_dialing_dev +{ + my ($dial_hash, $type) = @_; + my ($dial, $dev, $maxdev); + + $maxdev = -1; + foreach $dial (keys %$dial_hash) + { + $dev = $ {$$dial_hash{$dial}}{"gst_dev"}; + if ($dev ne "") + { + if ($dev =~ s/^$type//) + { + $maxdev = $dev if $dev > $maxdev; + } + } + } + + $maxdev ++; + return "$type$maxdev"; +} + +sub gst_network_dial2iface +{ + my ($dial_hash, $name) = @_; + my ($dial, %iface, $i); + + my %map = ("address" => "address", + "update_dns" => "update_dns", + "login" => "login", + "password" => "password", + "serial_port" => "device", + "serial_speed" => "speed", + "set_default_gw" => "set_default_gw", + "persist" => "persist", + "phone_number" => "phone", + "dev" => "gst_dev" + ); + + $dial = $$dial_hash{$name}; + if ($$dial{"gst_dev"} eq "") + { + $$dial{"gst_dev"} = "ppp0"; + # = &gst_network_get_new_dialing_dev ($dial_hash, "ppp"); + } + else + { + $iface{"enabled"} = &gst_network_interface_active ($$dial{"gst_dev"}, + \&gst_network_active_interfaces_get)? 1: 0; + } + + foreach $i (keys %map) + { + $iface{$i} = $$dial{$map{$i}} if exists $$dial{$map{$i}}; + } + + $iface{"file"} = $iface{"name"} = $iface{"section"} = $name; + $iface{"update_dns"} = 1 if ($iface{"update_dns"} eq ""); + $iface{"set_default_gw"} = 1 if ($iface{"set_default_gw"} eq ""); + + return \%iface; +} + +sub gst_network_iface2dial +{ + my ($dial_hash, $iface) = @_; + my ($dial, $i); + + my %map = ("address" => "address", + "update_dns" => "update_dns", + "device" => "serial_port", + "speed" => "serial_speed", + "set_default_gw" => "set_default_gw", + "persist" => "persist", + "gst_dev" => "dev" + ); + + $dial = $$dial_hash{$$iface{"name"}}; + + foreach $i (keys %map) + { + $$dial{$i} = $$iface{$map{$i}} if exists $$iface{$map{$i}}; + } + + $$dial{"type"} = "dialer"; +} + +sub gst_network_suse70_get_ppp +{ + my ($dial, $iface) = @_; + my ($d); + + foreach $d (keys %$dial) + { + $$iface{$d} = &gst_network_dial2iface ($dial, $d); + } + + return $iface; +} + +sub gst_network_suse70_set_ppp +{ + my ($wvfile, $dial, $iface) = @_; + my ($d, $i, @ppp_devs, $section); + + foreach $d (keys %$iface) + { + $i = $$iface{$d}; + if ($$i{"dev"} =~ /^ppp/) + { + my ($tmp, $wv, $name); + + push @ppp_devs, $i; + + # This takes care of connection name changes. + $wv = $$i{"section"}; + $name = $$i{"name"}; + + if ($wv ne $name) + { + $tmp = $$dial{$wv}; + delete $$dial{$wv}; + $$tmp{"name"} = $name; + $$dial{$name} = $tmp; + } + + # Then merges interface with dialing. + &gst_network_iface2dial ($dial, $i); + } + } + + # Delete any wvdial sections that are no longer present as ifaces. + OUTER: foreach $d (keys %$dial) + { + foreach $i (@ppp_devs) + { + next OUTER if $$i{"name"} eq $ {$$dial{$d}}{"name"}; + } + + # Don't delete the defaults: that's not very polite. + delete $$dial{$d} unless $ {$$dial{$d}}{"name"} eq "Defaults"; + } + + return 0; +} + +sub gst_network_suse70_ppp_iface_activate +{ + my ($name, $enabled); + my ($wvdial_dod, $tool_ifconfig, @paths); + + @paths = &gst_service_sysv_get_paths (); + $wvdial_dod = $paths[1] . "/wvdial.dod"; + $tool_ifconfig = &gst_file_locate_tool ("ifconfig"); + + if ($enabled) + { + &gst_debug_print_string ("\n\nifup ppp iface $name\n\n"); + return -1 if &gst_file_run_bg ("$wvdial_dod start \"$name\""); + } + else + { + # Hmm... you'd better not have more than one ppp connection active: + # this is the only SuSE way of doing it. + &gst_debug_print_string ("\n\nifdown ppp iface $name\n\n"); + return -1 if &gst_file_run ("$wvdial_dod stop"); + } + + return 0; +} + +sub gst_network_suse70_activate_ppp +{ + my ($iface) = @_; + my ($d, $i); + + foreach $d (keys %$iface) + { + $i = $$iface{$d}; + if ($$i{"dev"} =~ /^ppp/ && (! $$i{"enabled"})) + { + &gst_network_suse70_ppp_iface_activate ($$i{"name"}, 0); + # deleted, so interfaces_set doesn't handle them. + delete $$iface{$d}; + } + } + + foreach $d (keys %$iface) + { + $i = $$iface{$d}; + if ($$i{"dev"} =~ /^ppp/ && $$i{"enabled"}) + { + &gst_network_suse70_ppp_iface_activate ($$i{"name"}, 1); + delete $$iface{$d}; + } + } + + return 0; +} + +sub gst_network_slackware91_create_pppgo +{ + my ($pppgo) = "/usr/sbin/ppp-go"; + my ($contents, $pppd, $chat); + local *FILE; + + if (!&gst_file_exists ($pppgo)) + { + $pppd = &gst_file_locate_tool ("pppd"); + $chat = &gst_file_locate_tool ("chat"); + + # create a simple ppp-go from scratch + # this script is based on the one that's created by pppsetup + $contents = "killall -INT pppd 2>/dev/null \n"; + $contents .= "rm -f /var/lock/LCK* /var/run/ppp*.pid \n"; + $contents .= "( $pppd connect \"$chat -v -f /etc/ppp/pppscript\") || exit 1 \n"; + $contents .= "exit 0 \n"; + + &gst_file_buffer_save ($contents, $pppgo); + chmod 0777, "$gst_prefix/$pppgo"; + } +} + +sub gst_network_get_modem_volume +{ + my ($file) = @_; + my ($volume); + + $volume = &gst_parse_chat ($file, "AT.*(M0|L[1-3])"); + + return 3 if ($volume eq undef); + + $volume =~ s/^[ml]//i; + return $volume; +} + +sub gst_network_set_modem_volume_string +{ + my ($file, $key, $volume) = @_; + my ($vol); + + if ($volume == 0) { $vol = "ATM0" } + elsif ($volume == 1) { $vol = "ATL1" } + elsif ($volume == 2) { $vol = "ATL2" } + else { $vol = "ATL3" } + + return &gst_replace_sh ($file, $key, $vol); +} + +sub gst_network_set_modem_volume +{ + my ($file, $volume) = @_; + my $line; + + $line = &gst_parse_chat ($file, "AT([^DZ][a-z0-9&]+)"); + $line =~ s/(M0|L[1-3])//g; + + if ($volume == 0) { $line .= "M0"; } + elsif ($volume == 1) { $line .= "L1"; } + elsif ($volume == 2) { $line .= "L2"; } + else { $line .= "L3"; } + + return &gst_replace_chat ($file, "AT([^DZ][a-z0-9&]+)", $line); +} + +sub gst_network_create_pppscript +{ + my ($pppscript) = @_; + my ($contents); + + if (!&gst_file_exists ($pppscript)) + { + # create a template file from scratch + $contents = 'TIMEOUT 60' . "\n"; + $contents .= 'ABORT ERROR' . "\n"; + $contents .= 'ABORT BUSY' . "\n"; + $contents .= 'ABORT VOICE' . "\n"; + $contents .= 'ABORT "NO CARRIER"' . "\n"; + $contents .= 'ABORT "NO DIALTONE"' . "\n"; + $contents .= 'ABORT "NO DIAL TONE"' . "\n"; + $contents .= 'ABORT "NO ANSWER"' . "\n"; + $contents .= '"" "ATZ"' . "\n"; + $contents .= '"" "AT&FH0"' . "\n"; + $contents .= 'OK-AT-OK "ATDT000000000"' . "\n"; + $contents .= 'TIMEOUT 75' . "\n"; + $contents .= 'CONNECT' . "\n"; + + &gst_file_buffer_save ($contents, $pppscript); + } +} + +sub gst_network_create_isdn_options +{ + my ($file) = @_; + + if (!&gst_file_exists ($file)) + { + &gst_file_copy_from_stock ("general_isdn_ppp_options", $file); + } +} + +sub gst_network_check_pppd_plugin +{ + my ($plugin) = @_; + my ($version, $output); + + $version = &gst_file_run_backtick ("pppd --version", 1); + $version =~ s/.*version[ \t]+//; + chomp $version; + + return 0 if !version; + return &gst_file_exists ("/usr/lib/pppd/$version/$plugin.so"); +} + +sub gst_network_gentoo_parse_gateway +{ + my ($file, $iface) = @_; + my ($str); + + $str = &gst_parse_confd_net ($file, "routes_$iface"); + + if ($str =~ /default[ \t]+(via|gw)[ \t]+([0-9\.\:]*)/) + { + return $2; + } +} + +sub gst_network_interfaces_get +{ + my (%dist_attrib, %config_hash, %hash, %fn); + my (@config_ifaces, $iface, $dev); + my ($dist, $value, $file, $proc); + my ($i, $j); + my ($modem_settings); + + $hash = &gst_network_interfaces_get_info (); + %dist_attrib = &gst_network_get_interface_parse_table (); + %fn = %{$dist_attrib{"fn"}}; + $proc = $dist_attrib{"ifaces_get"}; + @ifaces = &$proc (); + + # clear unneeded hash elements + foreach $i (keys %$hash) + { + delete $$hash{$i}{"addr"}; + delete $$hash{$i}{"bcast"}; + delete $$hash{$i}{"mask"}; + } + + foreach $i (@ifaces) + { + foreach $j (keys (%fn)) + { + $ {$dist_attrib{"fn"}}{$j} = &gst_parse_expand ($fn{$j}, "iface", $i); + } + + $iface = &gst_parse_from_table ($dist_attrib{"fn"}, + $dist_attrib{"table"}); + &gst_network_interface_ensure_broadcast_and_network ($iface); + $$iface{"file"} = $i if ($$iface{"file"} eq undef); + + $dev = $$iface{"dev"}; + delete $$iface{"dev"}; + + if (exists $$hash{$dev}) + { + $$hash{$dev}{"configuration"} = $iface; + } + elsif (($dev eq "ppp0") || ($dev eq "tun0")) + { + $modem_settings = $iface; + } + } + + # only show PPP and ISDN devices if pppd exists + # and they aren't configured yet + $dev = "ppp0" if ($$tool{"system"} eq "Linux"); + $dev = "tun0" if ($$tool{"system"} eq "FreeBSD"); + + if (!exists $$hash{$dev} && &gst_file_locate_tool ("pppd")) + { + $$hash{$dev}{"dev"} = $dev; + $$hash{$dev}{"enabled"} = 0; + $$hash{$dev}{"type"} = &gst_network_get_interface_type ($dev); + $$hash{$dev}{"configuration"} = $modem_settings if ($modem_settings); + } + + return \%$hash; +} + +sub gst_network_conf_get +{ + my %dist_attrib; + my $hash; + + %dist_attrib = &gst_network_get_parse_table (); + + $hash = &gst_parse_from_table ($dist_attrib{"fn"}, + $dist_attrib{"table"}); + return $hash; +} + +sub gst_network_rh_get_smb_desc +{ + my ($file, $section, $var, $hostname) = @_; + my $val; + + $val = &gst_parse_ini ($file, $section, $var); + if (($val =~ /^Samba Server/) && ($hostname ne undef)) + { + return $hostname; + } + + return $val; +} + +sub gst_network_rh62_get_file +{ + my ($iface) = @_; + my ($pre, $i, $dev); + + $dev = $$iface{"dev"}; + $pre = "$gst_prefix/etc/sysconfig/network-scripts/ifcfg-"; + + return $dev if ! -e "$pre$dev"; + + $dev =~ s/[0-9]*$//; + + $i = 0; + $i ++ while (-e "$pre$dev$i"); + + return "$dev$i"; +} + +sub gst_network_rh72_get_file +{ + my ($iface) = @_; + my ($pre, $i, $dev); + + $dev = $$iface{"dev"}; + $pre = "$gst_prefix/etc/sysconfig/networking/devices/ifcfg-"; + + return $dev if ! -e "$pre$dev"; + + $i = 0; + $i ++ while (-e "$pre$dev.$i"); + + return "$dev.$i"; +} + +sub gst_network_deb22_get_file +{ + my ($iface) = @_; + + return $$iface{"dev"}; +} + +sub gst_network_suse70_get_file +{ + my ($i, $file); + + $file = "$gst_prefix/etc/rc.config"; + + $i = 0; + $i ++ while (&gst_parse_sh ($file, "NETDEV_$i") ne ""); + + return $i; +} + +sub gst_network_pld10_get_file +{ + my ($iface) = @_; + my ($pre, $i, $dev); + + $dev = $$iface{"dev"}; + $pre = "$gst_prefix/etc/sysconfig/interfaces/ifcfg-"; + + return $dev if ! -e "$pre$dev"; + + $dev =~ s/[0-9]*$//; + + $i = 0; + $i ++ while (-e "$pre$dev$i"); + + return "$dev$i"; +} + +sub gst_network_get_file +{ + my ($iface) = @_; + my $proc; + + my %dist_map = + ( + "redhat-6.0" => \&gst_network_rh62_get_file, + "redhat-6.1" => \&gst_network_rh62_get_file, + "redhat-6.2" => \&gst_network_rh62_get_file, + "redhat-7.0" => \&gst_network_rh62_get_file, + "redhat-7.1" => \&gst_network_rh62_get_file, + "redhat-7.2" => \&gst_network_rh72_get_file, + "redhat-8.0" => \&gst_network_rh72_get_file, + "redhat-9" => \&gst_network_rh72_get_file, + "rhel-5" => \&gst_network_rh72_get_file, + "rhel-6" => \&gst_network_rh72_get_file, + "openna-1.0" => \&gst_network_rh62_get_file, + "mandrake-7.2" => \&gst_network_rh62_get_file, + "mandrake-7.1" => \&gst_network_rh62_get_file, + "mandrake-9.0" => \&gst_network_rh62_get_file, + "mandrake-9.1" => \&gst_network_rh62_get_file, + "mandrake-9.2" => \&gst_network_rh62_get_file, + "mandrake-10.0" => \&gst_network_rh62_get_file, + "mandrake-10.1" => \&gst_network_rh62_get_file, + "mandrake-10.2" => \&gst_network_rh62_get_file, + "mandriva-2006.0" => \&gst_network_rh62_get_file, + "mandriva-2006.1" => \&gst_network_rh62_get_file, + "mandriva-2007.0" => \&gst_network_rh62_get_file, + "mandriva-2007.1" => \&gst_network_rh62_get_file, + "yoper-2.2" => \&gst_network_rh62_get_file, + "blackpanther-4.0" => \&gst_network_rh62_get_file, + "conectiva-9" => \&gst_network_rh62_get_file, + "conectiva-10" => \&gst_network_rh62_get_file, + "debian-2.2" => \&gst_network_deb22_get_file, + "debian-3.0" => \&gst_network_deb22_get_file, + "debian-3.1" => \&gst_network_deb22_get_file, + "debian-4.0" => \&gst_network_deb22_get_file, + "debian-5.0" => \&gst_network_deb22_get_file, + "debian-testing" => \&gst_network_deb22_get_file, + "ubuntu-5.04" => \&gst_network_deb22_get_file, + "ubuntu-5.10" => \&gst_network_deb22_get_file, + "ubuntu-6.06" => \&gst_network_deb22_get_file, + "ubuntu-6.10" => \&gst_network_deb22_get_file, + "ubuntu-7.04" => \&gst_network_deb22_get_file, + "ubuntu-7.10" => \&gst_network_deb22_get_file, + "ubuntu-8.04" => \&gst_network_deb22_get_file, + "ubuntu-8.10" => \&gst_network_deb22_get_file, + "ubuntu-9.04" => \&gst_network_deb22_get_file, + "ubuntu-9.10" => \&gst_network_deb22_get_file, + "ubuntu-10.04" => \&gst_network_deb22_get_file, + "ubuntu-10.10" => \&gst_network_deb22_get_file, + "suse-7.0" => \&gst_network_suse70_get_file, + "suse-9.0" => \&gst_network_deb22_get_file, + "suse-9.1" => \&gst_network_deb22_get_file, + "turbolinux-7.0" => \&gst_network_rh62_get_file, + "pld-1.0" => \&gst_network_pld10_get_file, + "pld-1.1" => \&gst_network_pld10_get_file, + "pld-1.99" => \&gst_network_pld10_get_file, + "fedora-1" => \&gst_network_rh72_get_file, + "fedora-2" => \&gst_network_rh72_get_file, + "fedora-3" => \&gst_network_rh72_get_file, + "fedora-4" => \&gst_network_rh72_get_file, + "fedora-5" => \&gst_network_rh72_get_file, + "fedora-15" => \&gst_network_rh72_get_file, + "fedora-16" => \&gst_network_rh72_get_file, + "fedora-17" => \&gst_network_rh72_get_file, + "rpath" => \&gst_network_rh72_get_file, + "vine-3.0" => \&gst_network_rh62_get_file, + "vine-3.1" => \&gst_network_rh62_get_file, + "ark" => \&gst_network_rh62_get_file, + "slackware-9.1.0" => \&gst_network_deb22_get_file, + "slackware-10.0.0" => \&gst_network_deb22_get_file, + "slackware-10.1.0" => \&gst_network_deb22_get_file, + "slackware-10.2.0" => \&gst_network_deb22_get_file, + "slackware-11.0.0" => \&gst_network_deb22_get_file, + "slackware-12.0.0" => \&gst_network_deb22_get_file, + "slackware-12.1.0" => \&gst_network_deb22_get_file, + "slackware-12.2.0" => \&gst_network_deb22_get_file, + "slackware-13.0.0" => \&gst_network_deb22_get_file, + "slackware-13.1.0" => \&gst_network_deb22_get_file, + "slackware-13.37.0" => \&gst_network_deb22_get_file, + "slackware-14.0.0" => \&gst_network_deb22_get_file, + "gentoo" => \&gst_network_deb22_get_file, + "freebsd-5" => \&gst_network_deb22_get_file, + "freebsd-6" => \&gst_network_deb22_get_file, + ); + + $proc = $dist_map{$gst_dist}; + + return &$proc ($iface) if $proc; + + # FIXME: should make us bail. + &gst_debug_print_string ("\n\nWarning: No network_get_file proc for dist $gst_dist.\n\n"); + return undef; +} + +sub gst_network_get_gateway_data +{ + my ($fd, $gateway, $dev); + + $fd = &gst_file_run_pipe_read ("route -n"); + while (<$fd>) + { + if (/^0\.0\.0\.0[\t ]+([^\t ]+).*[ \t]([a-zA-Z0-9]*)/) + { + $gateway = $1; + $dev = $2; + last; + } + } + + &gst_file_close ($fd); + return ($gateway, $dev); +} + +sub gst_network_get_default_gatewaydev +{ + my ($gateway, $dev) = &gst_network_get_gateway_data (); + + return $dev; +} + +sub gst_network_get_default_gateway +{ + my ($gateway, $dev) = &gst_network_get_gateway_data (); + + return $gateway; +} + +sub gst_network_route_set_default_gw +{ + my ($gatewaydev, $gateway) = @_; + my ($tool_route, $curr_gateway, $curr_gatewaydev, $fd); + + # Just in case. This means that no static gateway is needed. + return if $gateway eq ""; + + $fd = &gst_file_run_pipe_read ("route -n"); + while (<$fd>) + { + if (/^0\.0\.0\.0[ \t]+([0-9.]+) /) + { + $curr_gateway = $1; + if ($gatewaydev ne "") + { + /([a-z0-9]+)$/; + $curr_gatewaydev = $1; + } + + last; + } + } + &gst_file_close ($fd); + + if (($curr_gateway ne $gateway) || + ($curr_gatewaydev ne $gatewaydev)) + { + &gst_file_run ("route del default gw $curr_gateway"); + &gst_file_run ("route add default gw $gateway $gatewaydev"); + } +} + +sub gst_network_run_hostname +{ + my ($hostname) = @_; + + &gst_report_enter (); + &gst_report ("network_hostname_set", $hostname); + &gst_file_run ("hostname $hostname"); + &gst_report_leave (); +} + +sub gst_network_dialing_get_section_name +{ + my ($dial) = @_; + + my %type2title = + ( + "dialer" => "Dialer ", + "modem" => "Modem ", + "unknown" => "" + ); + + return $type2title{$$dial{"type"}} . $$dial{"name"}; +} + +sub gst_network_dialing_set +{ + my ($file, $old_hash, $values_hash) = @_; + my %vars = + ( + "inherits" => "Inherits", + "device" => "Modem", + "speed" => "Baud", + "init1" => "Init1", + "init2" => "Init2", + "phone" => "Phone", + "login" => "Username", + "password" => "Password", + "dialcmd" => "Dial Command", + "setvol" => "SetVolume", + "stupid" => "Stupid mode", + "persist" => "Auto Reconnect", + "address" => "Force Address", + "update_dns" => "Auto DNS", + "set_default_gw" => "Check Def Route", + "gst_dev" => "GST Device", + "dial_command" => "Dial Command" + ); + + my (%hash, $section); + my $ret; + my ($i, $j); + + &gst_report_enter (); + &gst_report ("network_dialing_set"); + &gst_file_run ("wvdialconf $gst_prefix/$file") if (!-e "$gst_prefix/$file"); + + # Remove those that are in old, but not in values. + $old_hash = $$old_hash{"dialing"}; + OUTER: foreach $i (keys %$old_hash) + { + foreach $j (keys %$values_hash) + { + next OUTER if ($j eq $i) && ($ {$$values_hash{$j}}{"type"} eq $ {$$old_hash{$i}}{"type"}); + } + + $section = gst_network_dialing_get_section_name ($$old_hash{$i}); + $ret = -1 if &gst_replace_remove_ini_section ($file, $section); + } + + # Now save the current stuff. + foreach $i (keys %$values_hash) + { + %hash = %{$$values_hash{$i}}; + + $section = gst_network_dialing_get_section_name (\%hash); + delete $hash{"type"}; + delete $hash{"name"}; + + # if init1 doesnt exist add one with ATZ + if (!$hash{"init1"}) + { + $hash{"init1"} = "ATZ"; + } + + # add the volume settings to init2 + if ($hash{"init2"} !~ /^(AT)/) + { + $hash{"init2"} = "AT"; + } + $hash {"init2"} =~ s/L[1-3]//; + $hash {"init2"} =~ s/M[0-2]//; + if ($hash{"volume"} == 0) + { + $hash{"init2"} .= "M0"; + } + else + { + $volume = $hash{"volume"}; + $hash {"init2"} .= "L$volume"; + } + delete $hash {"volume"}; + + # join again the "external_line" and "phone" tags + if ($hash{"external_line"} ne undef) + { + $hash{"phone"} = $hash{"external_line"} . "W" . $hash{"phone"}; + delete $hash{"external_line"}; + } + + foreach $j (keys %hash) + { + $ret = -1 if &gst_replace_ini ($file, $section, $vars{$j}, $hash{$j}); + } + } + + &gst_report_leave (); + + chmod (0600, $file) if !$ret; + + return $ret; +} + +# This works for all systems that have ifup/ifdown scripts. +sub gst_network_rh62_interface_activate_by_dev +{ + my ($dev, $enabled) = @_; + + &gst_report_enter (); + + if ($enabled) + { + &gst_report ("network_iface_activate", $dev); + return -1 if &gst_file_run ("ifup $dev"); + } + else + { + &gst_report ("network_iface_deactivate", $dev); + return -1 if &gst_file_run ("ifdown $dev"); + } + + &gst_report_leave (); + + return 0; +} + +sub gst_network_rh62_interface_activate +{ + my ($hash, $old_hash, $enabled, $force) = @_; + my $dev; + + if ($force || &gst_network_interface_changed ($hash, $old_hash)) + { + if (exists $$hash{"configuration"}{"file"}) + { + $dev = $$hash{"configuration"}{"file"}; + } + else + { + $dev = $$hash{"dev"}; + } + + &gst_network_rh62_interface_activate_by_dev ($dev, $enabled); + } +} + +sub gst_network_suse9_interface_activate +{ + my ($hash, $old_hash, $enabled, $force) = @_; + my ($iface, $dev); + + if ($force || &gst_network_interface_changed ($hash, $old_hash)) + { + if (exists $$hash{"configuration"}{"file"}) + { + $iface = $$hash{"configuration"}{"file"}; + $dev = &gst_network_suse9_get_dev_name ($iface); + } + else + { + $dev = $$hash{"dev"}; + } + + &gst_network_rh62_interface_activate_by_dev ($dev, $enabled); + } +} + +sub gst_network_suse70_interface_activate_by_dev +{ + my ($dev, $enabled) = @_; + my ($network, @paths); + + @paths = &gst_service_sysv_get_paths (); + $network = $paths[1] . "/network"; + + &gst_report_enter (); + + if ($enabled) + { + &gst_report ("network_iface_deactivate", $hash{"dev"}); + return -1 if &gst_file_run_bg ("$network start $dev"); + } + else + { + &gst_report ("network_iface_activate", $hash{"dev"}); + return -1 if &gst_file_run ("$network stop $dev"); + } + + &gst_report_leave (); + + return 0; +} + +sub gst_network_suse70_interface_activate +{ + my ($hash, $old_hash, $enabled, $force) = @_; + + if ($force || &gst_network_interface_changed ($hash, $old_hash)) + { + &gst_network_rh62_interface_activate_by_dev ($$hash{"dev"}, $enabled); + } +} + +sub gst_network_slackware91_interface_activate_by_dev +{ + my ($dev, $enabled) = @_; + my ($address, $netmask, $gateway); + my ($file) = "/etc/rc.d/rc.inet1.conf"; + my ($ret) = 0; + + &gst_report_enter (); + + if ($enabled) + { + &gst_report ("network_iface_activate", $dev); + + if ($dev =~ /^ppp/) + { + $ret = &gst_file_run ("ppp-go"); + } + else + { + if (&gst_parse_rcinet1conf_bool ($file, $dev, USE_DHCP)) + { + # Use DHCP + $ret = &gst_file_run ("dhclient $dev"); + } + else + { + $address = &gst_parse_rcinet1conf ($file, $dev, "IPADDR"); + $netmask = &gst_parse_rcinet1conf ($file, $dev, "NETMASK"); + $gateway = &gst_network_get_gateway ($file, "GATEWAY", $address, $netmask); + + $ret = &gst_file_run ("ifconfig $dev $address netmask $netmask up"); + + # Add the gateway if necessary + if ($gateway ne undef) + { + &gst_file_run ("route add default gw $gateway"); + } + } + } + } + else + { + &gst_report ("network_iface_deactivate", $dev); + + $ret = &gst_file_run ("ifconfig $dev down") if ($dev =~ /^eth/); + $ret = &gst_file_run ("ppp-off") if ($dev =~ /^ppp/); + } + + &gst_report_leave (); + return -1 if ($ret != 0); + return 0; +} + +sub gst_network_slackware91_interface_activate +{ + my ($hash, $old_hash, $enabled, $force) = @_; + my $dev = $$hash{"configuration"}{"file"}; + + if ($force || &gst_network_interface_changed ($hash, $old_hash)) + { + &gst_network_slackware91_interface_activate_by_dev ($dev, $enabled); + } +} + +sub gst_network_gentoo_interface_activate_by_dev +{ + my ($dev, $enabled) = @_; + my $file = "/etc/init.d/net.$dev"; + my $action = ($enabled == 1)? "start" : "stop"; + + return &gst_file_run ("$file $action"); +} + +sub gst_network_gentoo_interface_activate +{ + my ($hash, $old_hash, $enabled, $force) = @_; + my $dev = $$hash{"configuration"}{"file"}; + + if ($force || &gst_network_interface_changed ($hash, $old_hash)) + { + &gst_network_gentoo_interface_activate_by_dev ($dev, $enabled); + } +} + +sub gst_network_freebsd_interface_activate_by_dev +{ + my ($hash, $enabled) = @_; + my ($dev) = $$hash{"configuration"}{"file"}; + my ($startif) = "/etc/start_if.$dev"; + my ($file) = "/etc/rc.conf"; + my ($command, $dhcp_flags, $defaultroute, $fd); + + if ($enabled) + { + # Run the /etc/start_if.$dev commands + $fd = &gst_file_open_read_from_names ($startif); + + while (<$fd>) + { + `$_`; + } + + &gst_file_close ($fd); + $command = &gst_parse_sh ($file, "ifconfig_$dev"); + + # Bring up the interface + if ($command =~ /DHCP/i) + { + $dhcp_flags = &gst_parse_sh ($file, "dhcp_flags"); + &gst_file_run ("dhclient $dhcp_flags $dev"); + } + else + { + &gst_file_run ("ifconfig $dev $command"); + } + + # Add the default route + $default_route = &gst_parse_sh ($file, "defaultrouter"); + &gst_file_run ("route add default $default_route") if ($default_route !~ /^no$/i); + } + else + { + &gst_file_run ("ifconfig $dev down"); + } +} + +sub gst_network_freebsd_interface_activate +{ + my ($hash, $old_hash, $enabled, $force) =@_; + + if ($force || &gst_network_interface_changed ($hash, $old_hash)) + { + &gst_network_freebsd_interface_activate_by_dev ($hash, $enabled); + } +} + +sub gst_network_remove_pap_entry +{ + my ($file, $login) = @_; + my ($i, $buff); + + &gst_report_enter (); + &gst_report ("network_remove_pap", $file, $login); + + $buff = &gst_file_buffer_load ($file); + + foreach $i (@$buff) + { + $i = "" if ($i =~ /^[ \t]*$login[ \t]/); + } + + &gst_file_buffer_clean ($buff); + &gst_report_leave (); + return &gst_file_buffer_save ($buff, $file); +} + +sub gst_network_rh62_interface_delete +{ + my ($old_hash) = @_; + my $dev = $$old_hash{"configuration"}{"file"}; + my $file = "$gst_prefix/etc/sysconfig/network-scripts/ifcfg-$dev"; + my $login; + + &gst_network_rh62_interface_activate_by_dev ($dev, 0); + + $login = $old_hash{"configuration"}{"login"}; + if ($login ne "") + { + &gst_network_remove_pap_entry ("/etc/ppp/pap-secrets", $login); + &gst_network_remove_pap_entry ("/etc/ppp/chap-secrets", $login); + } + + &gst_file_remove ($file); +} + +sub gst_network_rh72_interface_delete +{ + my ($old_hash) = @_; + my ($dev, $login); + + $filedev = $$old_hash{"configuration"}{"file"}; + $dev = $$old_hash{"dev"}; + $login = $$old_hash{"configuration"}{"login"}; + + &gst_network_rh62_interface_activate_by_dev ($filedev, 0); + + if ($login ne "") + { + &gst_network_remove_pap_entry ("/etc/ppp/pap-secrets", $login); + &gst_network_remove_pap_entry ("/etc/ppp/chap-secrets", $login); + } + + &gst_file_remove ("$gst_prefix/etc/sysconfig/networking/devices/ifcfg-$filedev"); + &gst_file_remove ("$gst_prefix/etc/sysconfig/networking/profiles/default/ifcfg-$filedev"); + &gst_file_remove ("$gst_prefix/etc/sysconfig/network-scripts/ifcfg-$dev"); + + &gst_file_run ("redhat-config-network-cmd"); +} + +sub gst_network_deb22_interface_delete +{ + my ($old_hash) = @_; + my $dev = $$old_hash{"dev"}; + + &gst_network_rh62_interface_activate_by_dev ($dev, 0); + &gst_replace_interfaces_iface_stanza_delete ("$gst_prefix/etc/network/interfaces", $dev); + + $login = $old_hash{"configuration"}{"login"}; + if ($login ne "") + { + &gst_network_remove_pap_entry ("/etc/ppp/pap-secrets", $login); + &gst_network_remove_pap_entry ("/etc/ppp/chap-secrets", $login); + } +} + +sub gst_network_suse70_interface_delete +{ + my ($old_hash) = @_; + my $dev = $$old_hash{"configuration"}{"file"}; + my $file = "$gst_prefix/etc/rc.config"; + my $login; + + &gst_network_suse70_interface_activate_by_dev ($$old_hash{"dev"}, 0); + +# Commented until I know what to do with ppp connections. +# $login = $old_hash{"login"}; +# if ($login ne "") +# { +# &gst_network_remove_pap_entry ("/etc/ppp/pap-secrets", $login); +# &gst_network_remove_pap_entry ("/etc/ppp/chap-secrets", $login); +# } + + &gst_replace_sh ($file, "IPADDR_$dev", ""); + &gst_replace_sh ($file, "NETDEV_$dev", ""); + &gst_replace_sh ($file, "IFCONFIG_$dev", ""); +} + +sub gst_network_suse90_interface_delete +{ + my ($old_hash) = @_; + my $file = $$old_hash{"configuration"}{"file"}; + my $provider = &gst_parse_sh ("$gst_prefix/etc/sysconfig/network/ifcfg-$file", PROVIDER); + my $dev = &gst_network_suse9_get_dev_name ($file); + + &gst_network_rh62_interface_activate_by_dev ($dev, 0); + + &gst_file_remove ("$gst_prefix/etc/sysconfig/network/ifroute-$file"); + &gst_file_remove ("$gst_prefix/etc/sysconfig/network/ifcfg-$file"); + &gst_file_remove ("$gst_prefix/etc/sysconfig/network/providers/$provider"); +} + +sub gst_network_pld10_interface_delete +{ + my ($old_hash) = @_; + my $dev = $$old_hash{"configuration"}{"file"}; + my $file = "$gst_prefix/etc/sysconfig/interfaces/ifcfg-$dev"; + my $login; + + &gst_network_rh62_interface_activate_by_dev ($dev, 0); + + $login = $old_hash{"configuration"}{"login"}; + if ($login ne "") + { + &gst_network_remove_pap_entry ("/etc/ppp/pap-secrets", $login); + &gst_network_remove_pap_entry ("/etc/ppp/chap-secrets", $login); + } + + &gst_file_remove ($file); +} + +sub gst_network_slackware91_interface_delete +{ + my ($old_hash) = @_; + my $rcinetconf = "$gst_prefix/etc/rc.d/rc.inet1.conf"; + my $rcinet = "$gst_prefix/etc/rc.d/rc.inet1"; + my $pppscript = "$gst_prefix/etc/ppp/pppscript"; + my $dev = $$old_hash {"dev"}; + + # remove ifup/ppp-go at startup if existing + &gst_network_slackware91_set_auto ($rcinet, $dev); + + if ($dev =~ /^eth/) + { + # empty the values + &gst_replace_rcinet1conf ($rcinetconf, $dev, "IPADDR", ""); + &gst_replace_rcinet1conf ($rcinetconf, $dev, "NETMASK", ""); + &gst_replace_rcinet1conf ($rcinetconf, $dev, "USE_DHCP", ""); + &gst_replace_rcinet1conf ($rcinetconf, $dev, "DHCP_HOSTNAME", ""); + } + elsif ($dev =~ /^ppp/) + { + &gst_file_remove ($pppscript); + } +} + +sub gst_network_gentoo_interface_delete +{ + my ($old_hash) = @_; + my ($dev) = $$old_hash {"dev"}; + my ($gateway) = $$old_hash {"configuration"}{"gateway"}; + my ($initfile) = "$gst_prefix/etc/init.d/net.$dev"; + my ($netconf); + + # bring down the interface and remove from init + &gst_service_gentoo_set_status ($initfile, 1, 0); + + if ($dev =~ /^ppp/) + { + $netconf = "/etc/conf.d/net.$dev"; + gst_file_remove ($netconf); + } + else + { + $netconf = "/etc/conf.d/net"; + &gst_replace_sh ($netconf, "config_$dev", ""); + } +} + +sub gst_network_freebsd_interface_delete +{ + my ($old_hash) = @_; + my ($dev) = $$old_hash{"dev"}; + my ($startif) = "/etc/start_if.$dev"; + my ($file) = "/etc/rc.conf"; + my ($pppconf) = "/etc/ppp/ppp.conf"; + my ($buff, $line_no, $end_line_no, $i); + + &gst_file_run ("ifconfig $dev down"); + + if ($dev =~ /^tun[0-9]+/) + { + # Delete the ppp.conf section + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + + $buff = &gst_file_buffer_load ($pppconf); + + $line_no = &gst_parse_pppconf_find_stanza ($buff, $section); + $end_line_no = &gst_parse_pppconf_find_next_stanza ($buff, $line_no + 1); + $end_line_no = scalar @$buff + 1 if ($end_line_no == -1); + $end_line_no--; + + for ($i = $line_no; $i <= $end_line_no; $i++) + { + delete $$buff[$i]; + } + + &gst_file_buffer_clean ($buff); + &gst_file_buffer_save ($buff, $pppconf); + } + + &gst_replace_sh ($file, "ifconfig_$dev", ""); + &gst_file_remove ($startif); +} + +sub gst_network_interface_changed +{ + my ($iface, $iface_old) = @_; + + delete $$iface{"type"}; + delete $$iface_old{"type"}; + return !&gst_util_struct_eq ($iface, $iface_old); +} + +# silly function for leveling the configuration hash +# with the interface hash +sub level_interface_hash +{ + my ($hash) = @_; + my (%config, $i); + + $config = $$hash{"configuration"}; + + foreach $i (keys %$config) + { + $$hash{$i} = $$config{$i}; + } +} + +sub gst_network_interface_set +{ + my ($dev, $values_hash, $old_hash) = @_; + my (%dist_attrib, %fn); + my ($proc, $i, $res); + + &gst_report_enter (); + &gst_report ("network_iface_set", $dev); + %dist_attrib = &gst_network_get_interface_replace_table (); + $proc = $dist_attrib{"iface_set"}; + %fn = %{$dist_attrib{"fn"}}; + + level_interface_hash (\%$values_hash); + level_interface_hash (\%$old_hash); + + foreach $i (keys (%fn)) + { + $ {$dist_attrib{"fn"}}{$i} = &gst_parse_expand ($fn{$i}, "iface", $dev); + } + + $res = &gst_replace_from_table ($dist_attrib{"fn"}, $dist_attrib{"table"}, + $values_hash, $old_hash); + + # if success saving the settings for the interface, set up immediatly. + &$proc ($values_hash, $old_hash, $$values_hash{"enabled"}, 0) if !$res; + + &gst_report_leave (); + + return $res; +} + +sub gst_network_interfaces_set +{ + my ($old_hash, $values_hash) = @_; + my (%dist_attrib, @ifaces, %fn); + my ($value, $proc); + my ($i, $j); + my ($tmp, $res); + my ($delete_proc, $set_proc); + my ($was_active); + + &gst_report_enter (); + &gst_report ("network_ifaces_set"); + + %dist_attrib = &gst_network_get_interface_replace_table (); + $old_hash = $$old_hash{"interface"}; + + $delete_proc = $dist_attrib{"iface_delete"}; + $set_proc = $dist_attrib{"iface_set"}; + + foreach $i (keys %$values_hash) + { + # delete it if it's no longer configured or boot protocol is dhcp, + # so that network-manager see the card again + if ((exists $$old_hash{$i}{"configuration"} && + not exists $$values_hash{$i}{"configuration"}) || + (exists $$values_hash{$i}{"configuration"} && + $$values_hash{$i}{"configuration"}{"bootproto"} eq "dhcp") + ) + { + &$set_proc ($$values_hash{$i}, $$old_hash{$i}, 0, 1); + &$delete_proc ($$old_hash{$i}); + } + elsif (exists $$values_hash{$i}{"configuration"}) + { + if (&gst_network_interface_changed ($$values_hash{$i}, $$old_hash{$i})) + { + $was_active = $$values_hash{$i}{"enabled"}; + + &$set_proc ($$values_hash{$i}, $$old_hash{$i}, 0, 1); + $tmp = &gst_network_interface_set ($i, $$values_hash{$i}, $$old_hash{$i}); + $res = $tmp if !$res; + + if ($was_active == 1) + { + &$set_proc ($$values_hash{$i}, $$old_hash{$i}, 1, 1); + } + } + } + } + + &gst_report_leave (); + return $res; +} + +sub gst_network_conf_set +{ + my $values_hash = $_[0]; + my $old_hash; + my %dist_attrib; + + $old_hash = &gst_network_conf_get (); + + &gst_network_ensure_loopback ($values_hash, $old_hash); + + %dist_attrib = &gst_network_get_replace_table (); + $res = &gst_replace_from_table ($dist_attrib{"fn"}, $dist_attrib{"table"}, + $values_hash, $old_hash); + return $res; +} + +sub gst_network_get_pap_passwd +{ + my ($file, $login) = @_; + my (@arr, $passwd); + + $login = '"?' . $login . '"?'; + &gst_report_enter (); + &gst_report ("network_get_pap_passwd", $login, $file); + $arr = &gst_parse_split_first_array ($file, $login, "[ \t]+", "[ \t]+"); + + $passwd = $$arr[1]; + &gst_report_leave (); + + $passwd =~ s/^\"([^\"]*)\"$/$1/; + + return $passwd; +} + +sub gst_network_set_pap_passwd +{ + my ($file, $login, $passwd) = @_; + my ($line); + + $login = '"' . $login . '"'; + $passwd = '"'. $passwd . '"'; + $line = "* $passwd"; + + return &gst_replace_split ($file, $login, "[ \t]+", $line); +} + +# These functions do not honour the file nor call directives. +sub gst_network_get_ppp_options_re +{ + my ($file, $re) = @_; + my ($fd, @res); + + &gst_report_enter (); + &gst_report ("network_get_ppp_option", &gst_replace_regexp_to_separator ($re), $file); + $fd = &gst_file_open_read_from_names ("$file"); + &gst_report_leave (); + return undef if !$fd; + + while (($_ = &gst_parse_chomp_line_hash_comment ($fd)) != -1) + { + $_ = $$_; + + if (/$re/) + { + return $1; + } + } + + return undef; +} + +sub gst_network_set_ppp_options_re +{ + my ($file, $re, $value) = @_; + my ($buff, $line, $replaced, $ret); + my ($pre_space, $post_comment); + + &gst_report_enter (); + &gst_report ("network_set_ppp_option", &gst_replace_regexp_to_separator ($re), $file); + + $buff = &gst_file_buffer_load ($file); + + foreach $line (@$buff) + { + $pre_space = $post_comment = ""; + chomp $line; + $pre_space = $1 if $line =~ s/^([ \t]+)//; + $post_comment = $1 if $line =~ s/([ \t]*\#.*)//; + + if ($line =~ /$re/) + { + $line = "$value\n"; + $replaced = 1; + last; + } + + $line = $pre_space . $line . $post_comment . "\n"; + } + + push @$buff, "$value\n" if !$replaced; + + &gst_file_buffer_clean ($buff); + $ret = &gst_file_buffer_save ($buff, $file); + &gst_report_leave (); + return $ret; +} + +sub gst_network_set_ppp_options_connect +{ + my ($file, $value) = @_; + my $ret; + + &gst_report_enter (); + &gst_report ("network_set_ppp_connect", $file); + $ret = &gst_network_set_ppp_options_re ($file, "^connect", "connect \"/usr/sbin/chat -v -f $value\""); + &gst_report_leave (); + return $ret; +} + +sub gst_network_get_ppp_options_unsup +{ + my ($file) = @_; + my ($fd, $line, $res, $re); + my @known_options = ("usepeerdns", "mtu", "mru", "user", "/dev/[^ \t]+", "[0-9]+", + "defaultroute", "debug", "persist", "escape", "crtscts", "connect", + "remotename", "hide-password", "noauth", "noipdefault", "ipparam", "name \".*\""); + + $res = ""; + &gst_report_enter (); + &gst_report ("network_get_ppp_unsup", $file); + $fd = &gst_file_open_read_from_names ("$file"); + &gst_report_leave (); + return undef if !$fd; + + GET_LINE: while (($line = &gst_parse_chomp_line_hash_comment ($fd)) != -1) + { + $_ = $$line; + next if /^[ \t]*$/; + + foreach $re (@known_options) + { + next GET_LINE if /^$re/; + } + + $res .= "$_ "; + } + + chop $res; + + return $res; +} + +sub gst_network_set_ppp_options_unsup +{ + my ($file, $value) = @_; + my ($buff, $line, $re, $ret); + my ($pre_space, $post_comment); + my @known_options = ("usepeerdns", "mtu", "mru", "user", "/dev/[^ \t]+", "[0-9]+", + "defaultroute", "debug", "persist", "escape", "crtscts", "connect", + "remotename", "hide-password", "noauth", "noipdefault", "ipparam", "name \".*\""); + + # The options in the last row are those that are on by default in pppd and we don't handle, + # so we ignore them, as they are set implicitly if not specified. + + &gst_report_enter (); + &gst_report ("network_set_ppp_unsup", $file); + $buff = &gst_file_buffer_load ($file); + + GET_LINE: foreach $line (@$buff) + { + $pre_space = $post_comment = ""; + $pre_space = $1 if $line =~ s/^([ \t]+)//; + $post_comment = $1 if $line =~ s/([ \t]*\#.*)//; + + foreach $re (@known_options) + { + next GET_LINE if $line =~ /^$re/; + } + $line = $pre_space . $post_comment . "\n"; + $line = "" if $line =~ /^[ \t]*$/; + } + + $value =~ s/[ \t]+([^0-9])/\n$1/g; + push @$buff, $value . "\n"; + + &gst_file_buffer_clean ($buff); + $ret = &gst_file_buffer_save ($buff, $file); + &gst_report_leave (); + return $ret; +} + +sub gst_network_rh62_parse_bootproto +{ + my ($file, $key) = @_; + my %rh62_to_proto_name = + ( + "bootp" => "bootp", + "dhcp" => "dhcp", + "none" => "none" + ); + my $ret; + + $ret = &gst_parse_sh ($file, $key); + + if (!exists $rh62_to_proto_name{$ret}) + { + &gst_report ("network_bootproto_unsup", $file, $ret); + $ret = "none"; + } + return $rh62_to_proto_name{$ret}; +} + +sub gst_network_rh62_replace_bootproto +{ + my ($file, $key, $value) = @_; + my %proto_name_to_rh62 = + ( + "bootp" => "bootp", + "dhcp" => "dhcp", + "none" => "none" + ); + + return &gst_replace_sh ($file, $key, $proto_name_to_rh62{$value}); +} + +sub gst_network_deb22_parse_bootproto +{ + my ($file, $iface) = @_; + my (@stanzas, $stanza, $method, $bootproto); + my %debian_to_proto_name = + ( + "bootp" => "bootp", + "dhcp" => "dhcp", + "loopback" => "none", + "ppp" => "none", + "static" => "none" + ); + + &gst_report_enter (); + @stanzas = &gst_parse_interfaces_stanzas ($file, "iface"); + + foreach $stanza (@stanzas) + { + if (($$stanza[0] eq $iface) && ($$stanza[1] eq "inet")) + { + $method = $$stanza[2]; + last; + } + } + + if (exists $debian_to_proto_name {$method}) + { + $bootproto = $debian_to_proto_name {$method}; + } + else + { + $bootproto = "none"; + &gst_report ("network_bootproto_unsup", $method, $iface); + } + + &gst_report_leave (); + return $bootproto; +} + +sub gst_network_deb22_replace_bootproto +{ + my ($file, $iface, $value) = @_; + my (@stanzas, $stanza, $method, $bootproto); + my %proto_name_to_debian = + ( + "bootp" => "bootp", + "dhcp" => "dhcp", + "loopback" => "loopback", + "ppp" => "ppp", + "none" => "static" + ); + + my %dev_to_method = + ( + "lo" => "loopback", + "ppp" => "ppp", + "ippp" => "ppp" + ); + + foreach $i (keys %dev_to_method) + { + $value = $dev_to_method{$i} if $iface =~ /^$i/; + } + + return &gst_replace_interfaces_stanza_value ($file, $iface, 2, $proto_name_to_debian{$value}); +} + +sub gst_network_slackware91_parse_bootproto +{ + my ($file, $iface) = @_; + + if (&gst_parse_rcinet1conf_bool ($file, $iface, USE_DHCP)) + { + return "dhcp" + } + else + { + return "none"; + } +} + +sub gst_network_slackware91_replace_bootproto +{ + my ($file, $iface, $value) = @_; + + if ($value eq "dhcp") + { + &gst_replace_rcinet1conf ($file, $iface, USE_DHCP, "yes"); + } + else + { + &gst_replace_rcinet1conf ($file, $iface, USE_DHCP); + } +} + +sub gst_network_suse70_parse_bootproto +{ + my ($file, $iface) = @_; + my ($ret); + my %suse70_to_proto_name = + ( + "bootp" => "bootp", + "dhcpclient" => "dhcp" + ); + + $ret = &gst_network_suse70_parse_iface_sh ($file, $iface, "IFCONFIG"); + if (!exists $suse70_to_proto_name {$ret}) + { + &gst_report ("network_bootproto_unsup", $iface, $ret); + return "none"; + } + + return $suse70_to_proto_name {$ret}; +} + +sub gst_network_suse70_replace_bootproto +{ + my ($file, $iface, $value) = @_; + my ($ret, $val); + my %proto_name_to_suse70 = + ( + "bootp" => "bootp", + "dhcp" => "dhcpclient", + "none" => "" + ); + + $val = $proto_name_to_suse70{$value}; + return &gst_network_suse70_replace_iface_sh ($file, $iface, "IFCONFIG", $val); +} + +sub gst_network_pld10_parse_bootproto +{ + my ($file, $key) = @_; + my %pld10_to_proto_name = + ( + "bootp" => "bootp", + "dhcp" => "dhcp", + "pump" => "pump", + "none" => "none" + ); + my $ret; + + $ret = &gst_parse_sh ($file, $key); + + if (!exists $pld10_to_proto_name{$ret}) + { + &gst_report ("network_bootproto_unsup", $file, $ret); + $ret = "none"; + } + return $pld10_to_proto_name{$ret}; +} + +sub gst_network_pld10_replace_bootproto +{ + my ($file, $key, $value) = @_; + my %proto_name_to_pld10 = + ( + "bootp" => "bootp", + "dhcp" => "dhcp", + "pump" => "pump", + "none" => "none" + ); + + return &gst_replace_sh ($file, $key, $proto_name_to_pld10{$value}); +} + +sub gst_network_parse_bootproto +{ + my ($file, $key) = @_; + + return "dhcp" if (&gst_parse_sh ($file, $key) =~ /dhcp/i); + return "bootp" if (&gst_parse_sh ($file, $key) =~ /bootp/i); + return "none"; +} + +sub gst_network_suse90_replace_bootproto +{ + my ($file, $key, $value) = @_; + my %proto_name_to_suse90 = + ( + "dhcp" => "dhcp", + "bootp" => "bootp", + "static" => "none", + ); + + return &gst_replace_sh ($file, $key, $proto_name_to_suse90{$value}); +} + +sub gst_network_gentoo_parse_bootproto +{ + my ($file, $dev) = @_; + + return "dhcp" if (&gst_parse_confd_net ($file, "config_$dev") =~ /dhcp/i); + return "none"; +} + +sub gst_network_gentoo_replace_bootproto +{ + my ($file, $dev, $value) = @_; + + return if ($dev =~ /^ppp/); + + return &gst_replace_confd_net ($file, "config_$dev", "dhcp") if ($value ne "none"); + + # replace with a fake IP address, I know it's a hack + return &gst_replace_confd_net ($file, "config_$dev", "0.0.0.0"); +} + +sub gst_network_freebsd5_replace_bootproto +{ + my ($file, $dev, $value) = @_; + + return &gst_replace_sh ($file, "ifconfig_$dev", "dhcp") if ($value ne "none"); + return &gst_replace_sh ($file, "ifconfig_$dev", ""); +} + +sub gst_network_pump_iface_supported +{ + my ($iface) = @_; + my ($dev); + my @devs = qw(eth wlan plip irlan); + + foreach $dev (@devs) + { + return 1 if $iface =~ /^$dev/; + } + + return 0; +} + +sub gst_network_parse_pppconf +{ + my ($pppconf, $startif, $iface, $key) = @_; + my ($section); + + if ($iface =~ /^tun[0-9]+/) + { + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + return undef if ($section eq undef); + + return &gst_parse_pppconf ($pppconf, $section, $key); + } +} + +sub gst_network_parse_pppconf_bool +{ + my ($pppconf, $startif, $iface, $key) = @_; + my ($section); + + if ($iface =~ /^tun[0-9]+/) + { + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + return undef if ($section eq undef); + + return &gst_parse_pppconf_bool ($pppconf, $section, $key); + } +} + +sub gst_network_parse_pppconf_re +{ + my ($pppconf, $startif, $iface, $key, $re) = @_; + my ($section); + + if ($iface =~ /^tun[0-9]+/) + { + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + return undef if ($section eq undef); + + return &gst_parse_pppconf_re ($pppconf, $section, $key, $re); + } +} + +sub gst_network_replace_pppconf +{ + my ($pppconf, $startif, $iface, $key, $val) = @_; + my ($section); + + if ($iface =~ /^tun[0-9]+/) + { + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + &gst_replace_pppconf ($pppconf, $section, $key, $val); + } +} + +sub gst_network_replace_pppconf_bool +{ + my ($pppconf, $startif, $iface, $key, $val) = @_; + my ($section); + + if ($iface =~ /^tun[0-9]+/) + { + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + &gst_replace_pppconf_bool ($pppconf, $section, $key, $val); + } +} + +sub gst_network_replace_pppconf_route +{ + my ($pppconf, $startif, $iface, $key, $val) = @_; + my ($section); + + if ($iface =~ /^tun[0-9]+/) + { + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + &gst_replace_pppconf_common ($pppconf, $section, $key, + ($val == 1)? "add default HISADDR" : undef); + } +} + +sub gst_network_replace_pppconf_dial_command +{ + my ($pppconf, $startif, $iface, $val) = @_; + my ($section, $dial); + + if ($iface =~ /^tun[0-9]+/) + { + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + $dial = &gst_parse_pppconf ($pppconf, $section, "dial"); + $dial =~ s/ATD[TP]/$val/; + + &gst_replace_pppconf ($pppconf, $section, "dial", $dial); + } +} + +sub gst_network_replace_pppconf_volume +{ + my ($pppconf, $startif, $iface, $val) = @_; + my ($section, $dial, $vol, $pre, $post); + + if ($iface =~ /^tun[0-9]+/) + { + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + $dial = &gst_parse_pppconf ($pppconf, $section, "dial"); + + if ($dial =~ /(.*AT[^ \t]*)([ML][0-3])(.* OK .*)/i) + { + $pre = $1; + $post = $3; + } + elsif ($dial =~ /(.*AT[^ \t]*)( OK .*)/i) + { + $pre = $1; + $post = $2; + } + + if ($val == 0) + { + $vol = "M0"; + } + else + { + $vol = "L$val"; + } + + $dial = $pre . $vol . $post; + &gst_replace_pppconf ($pppconf, $section, "dial", $dial); + } +} + +sub gst_network_get_freebsd5_ppp_persist +{ + my ($startif, $iface) = @_; + my ($val); + + if ($iface =~ /^tun[0-9]+/) + { + $val = &gst_parse_startif ($startif, "ppp[ \t]+\-(auto|ddial)[ \t]+"); + + return 1 if ($val eq "ddial"); + return 0; + } + + return undef; +} + +sub gst_network_pump_get_nodns +{ + my ($file, $iface, $bootproto) = @_; + + return undef if (!&gst_network_pump_iface_supported ($iface)); + + return &gst_parse_pump_get_iface_kw_not ($file, $iface, "nodns"); +} + +sub gst_network_pump_set_nodns +{ + my ($file, $iface, $bootproto, $value) = @_; + + return 0 if $bootproto ne "dhcp"; + return 0 if (!&gst_network_pump_iface_supported ($iface)); + + return &gst_replace_pump_iface_kw_not ($file, $iface, "nodns", $value); +} + +sub gst_network_debian_parse_remote_address +{ + my ($file, $iface) = @_; + my ($str, @tuples, $tuple, @res); + + &gst_report_enter (); + &gst_report ("network_get_remote", $iface); + + @tuples = &gst_parse_interfaces_option_tuple ($file, $iface, "up", 1); + + &gst_report_leave (); + + foreach $tuple (@tuples) + { + @res = $$tuple[1] =~ /[ \t]+pointopoint[ \t]+([^ \t]+)/; + return $res[0] if $res[0]; + } + + return undef; +} + +sub gst_network_debian_replace_remote_address +{ + my ($file, $iface, $value) = @_; + my ($ifconfig, $ret); + + &gst_report_enter (); + &gst_report ("network_set_remote", $iface); + + $ifconfig = &gst_file_locate_tool ("ifconfig"); + + $ret = &gst_replace_interfaces_option_str ($file, $iface, "up", "$ifconfig $iface pointopoint $value"); + &gst_report_leave (); + return $ret; +} + +sub gst_network_debian_woody_get_auto_by_stanza +{ + my ($file, $iface) = @_; + my (@stanzas, $stanza, $i); + + @stanzas = &gst_parse_interfaces_stanzas ($file, "auto"); + + foreach $stanza (@stanzas) + { + foreach $i (@$stanza) + { + return $stanza if $i eq $iface; + } + } + + return undef; +} + +sub gst_network_debian_woody_get_auto +{ + my ($file, $iface) = @_; + + return (&gst_network_debian_woody_get_auto_by_stanza ($file, $iface) ne undef)? 1 : 0; +} + +sub gst_network_debian_woody_set_auto +{ + my ($file, $iface, $value) = @_; + my ($buff, $line_no, $found); + + $buff = &gst_file_buffer_load ($file); + &gst_file_buffer_join_lines ($buff); + $line_no = 0; + + while (($found = &gst_replace_interfaces_get_next_stanza ($buff, \$line_no, "auto")) != -1) + { + if ($value) + { + if ($$buff[$line_no] =~ /[ \t]$iface([\# \t\n])/) + { + return &gst_file_buffer_save ($buff, $file); + } + } + else + { + # I'm including the hash here, although the man page says it's not supported. + last if $$buff[$line_no] =~ s/[ \t]$iface([\# \t\n])/$1/; + } + + $line_no ++; + } + + if ($found == -1) + { + if ($value) + { + &gst_replace_interfaces_auto_stanza_create ($buff, $iface); + } + } + else + { + if ($value) + { + chomp $$buff[$line_no]; + $$buff[$line_no] .= " $iface\n"; + } + $$buff[$line_no] =~ s/auto[ \t]*$//; + } + + return &gst_file_buffer_save ($buff, $file); +} + +# looks for eth_up $eth_iface_number +sub gst_network_slackware91_get_auto +{ + my ($file, $rclocal, $iface) = @_; + my ($search) = 0; + my ($buff); + + if ($iface =~ /^eth/) + { + $buff = &gst_file_buffer_load ($file); + &gst_file_buffer_join_lines ($buff); + + $iface =~ s/eth//; + + foreach $i (@$buff) + { + if ($i =~ /^[ \t]*'start'\)/) + { + $search = 1; + } + elsif (($i =~ /^[ \t]*;;/) && ($search == 1)) + { + return 0; + } + elsif (($i =~ /^[ \t]*eth_up (\S+)/) && ($search == 1)) + { + return 1 if ($1 == $iface); + } + } + + return 0; + } + elsif ($iface =~ /^ppp/) + { + return &gst_parse_kw ($rclocal, "ppp-go"); + } +} + +# adds or deletes eth_up $eth_iface_number +sub gst_network_slackware91_set_auto +{ + my ($file, $rclocal, $iface, $active) = @_; + my ($search) = 0; + my ($nline) = 0; + my ($buff, $sline); + + if ($iface =~ /^eth/) + { + $buff = &gst_file_buffer_load ($file); + &gst_file_buffer_join_lines ($buff); + + $iface =~ s/eth//; + + foreach $i (@$buff) + { + if ($i =~ /^[ \t]*('start'\)|\*\))/) + { + # if the line is 'start') or *), begin the search + $search = 1; + } + elsif (($i =~ /^[ \t]*gateway_up/) && ($search == 1)) + { + # save the line in which we're going to save the eth_up stuff + $sline = $nline; + } + elsif (($i =~ /^[ \t]*(;;|esac)/) && ($search == 1)) + { + # we've arrived to the end of the case, if we wanted to + # add the iface, now it's the moment + $$buff[$sline] = "\teth_up $iface\n" . $$buff[$sline] if ($active == 1); + $search = 0; + } + elsif (($i =~ /^[ \t]*eth_up (\S+)/) && ($search == 1)) + { + if ($1 == $iface) + { + delete $$buff[$nline] if ($active == 0); + $search = 0; + } + } + + $nline++; + } + + return &gst_file_buffer_save ($buff, $file); + } + elsif ($iface =~ /^ppp/) + { + return &gst_replace_kw ($rclocal, "ppp-go", $active); + } +} + +# finds out if a interface is active at boot time +sub gst_network_freebsd5_get_auto +{ + my ($file, $defaults_file, $iface) = @_; + my ($val); + + $val = &gst_parse_sh ($file, "network_interfaces"); + $val = &gst_parse_sh ($defaults_file, "network_interfaces") if ($val eq undef); + + return 1 if ($val eq "auto"); + return 1 if ($val =~ /$iface/); + return 0; +} + +sub gst_network_freebsd5_set_auto +{ + my ($file, $iface, $active) = @_; + my ($val); + + $val = &gst_parse_sh ($file, "network_interfaces"); + $val = &gst_file_run_backtick ("ifconfig -l") if ($val =~ /auto/); + $val .= " "; + + if ($active && ($val !~ /$iface /)) + { + $val .= $iface; + } + elsif (!$active && ($val =~ /$iface /)) + { + $val =~ s/$iface //; + } + + # Trim the string + $val =~ s/^[ \t]*//; + $val =~ s/[ \t]*$//; + + &gst_replace_sh ($file, "network_interfaces", $val); +} + +sub gst_network_suse90_get_auto +{ + my ($file, $key) = @_; + my ($ret); + + $ret = &gst_parse_sh ($file, $key); + + return 1 if ($ret =~ /^onboot$/i); + return 0; +} + +sub gst_network_suse90_set_auto +{ + my ($file, $key, $enabled) = @_; + my ($ret); + + if($enabled) + { + return &gst_replace_sh($file, $key, "onboot"); + } + else + { + return &gst_replace_sh($file, $key, "manual"); + } +} + +# Return IP address or netmask, depending on $what +sub gst_network_pld10_get_ipaddr +{ + my ($file, $key, $what) = @_; + my ($ipaddr, $netmask, $ret, $i); + my @netmask_prefixes = (0, 128, 192, 224, 240, 248, 252, 254, 255); + + $ipaddr = &gst_parse_sh($file, $key); + return undef if $ipaddr eq ""; + + if($ipaddr =~ /([^\/]*)\/([[:digit:]]*)/) + { + $netmask = $2; + return undef if $netmask eq ""; + + if($what eq "address") + { + return $1; + } + + for($i = 0; $i < int($netmask/8); $i++) + { + $ret .= "255."; + } + + $ret .= "$netmask_prefixes[$b%8]." if $netmask < 32; + + for($i = int($netmask/8) + 1; $i < 4; $i++) + { + $ret .= "0."; + } + + chop($ret); + return $ret; + } + return undef; +} + +# Writes IP address or netmask, depending in $what, to $file +sub gst_network_pld10_set_ipaddr +{ + my ($file, $key, $what, $value) = @_; + my %prefixes = + ( + "0" => 0, + "128" => 1, + "192" => 2, + "224" => 3, + "240" => 4, + "248" => 5, + "252" => 6, + "254" => 7, + "255" => 8 + ); + my ($ipaddr, $netmask); + + $ipaddr = &gst_parse_sh($file, $key); + return undef if $ipaddr eq ""; + + if($what eq "address") + { + $ipaddr =~ s/.*\//$value\//; + } + else + { + if($value =~ /([[:digit:]]*).([[:digit:]]*).([[:digit:]]*).([[:digit:]]*)/) + { + $netmask = $prefixes{$1} + $prefixes{$2} + $prefixes{$3} + $prefixes{$4}; + $ipaddr =~ s/\/[[:digit:]]*/\/$netmask/; + } + } + + return &gst_replace_sh($file, $key, $ipaddr); +} + +# FIXME: this function isn't IPv6-aware +# it checks if a IP address is in the same network than another +sub gst_network_is_ip_in_same_network +{ + my ($address1, $address2, $netmask) = @_; + my (@add1, @add2, @mask); + my ($i); + + return 0 if (($address1 eq undef) || + ($address2 eq undef) || + ($netmask eq undef)); + + @add1 = split (/\./, $address1); + @add2 = split (/\./, $address2); + @mask = split (/\./, $netmask); + + for ($i = 0; $i < 4; $i++) + { + $add1[$i] += 0; + $add2[$i] += 0; + $mask[$i] += 0; + + return 0 if (($add1[$i] & $mask[$i]) != ($add2[$i] & $mask[$i])); + } + + return 1; +} + +# function that gets a gateway device from the gateway address +sub gst_network_get_gateway_dev_from_address +{ + my ($interface, $gateway) = @_; + my ($address, $netmask, $key); + + foreach $key (keys %$interface) + { + $address = $$interface{$key}{"address"}; + $netmask = $$interface{$key}{"netmask"}; + + return $$interface{$key}{"dev"} if (&gst_network_is_ip_in_same_network ($address, $gateway, $netmask)); + } + + return undef; +} + +sub gst_network_get_plip_gateway +{ + my ($file, $key, $remote_address) = @_; + my ($gateway); + + $gateway = &gst_parse_sh ($file, $key); + + return $gateway if ($gateway eq $remote_address); +} + +sub gst_network_get_gateway +{ + my ($file, $key, $address, $netmask) = @_; + my ($gateway); + + return undef if ($address eq undef); + + $gateway = &gst_parse_sh ($file, $key); + + return $gateway if &gst_network_is_ip_in_same_network ($address, $gateway, $netmask); + return undef; +} + +sub gst_network_suse90_get_gateway +{ + my ($file, $address, $netmask) = @_; + my ($gateway) = &gst_parse_split_first_array_pos ($file, "default", 0, "[ \t]+", "[ \t]+"); + + return $gateway if &gst_network_is_ip_in_same_network ($address, $gateway, $netmask); + return undef; +} + +sub gst_network_suse90_get_plip_gateway +{ + my ($file, $remote_address) = @_; + my ($gateway) = &gst_parse_split_first_array_pos ($file, "default", 0, "[ \t]+", "[ \t]+"); + + return $gateway if ($gateway eq $remote_address); + return undef; +} + +sub gst_network_suse90_replace_gateway +{ + my ($file, $dev, $address, $netmask, $value) = @_; + + + return &gst_replace_split ($file, "default", "[ \t]+", "$value \- $dev") if &gst_network_is_ip_in_same_network ($address, $value, $netmask); +# return &gst_replace_split ($file, "default", "[ \t]+", "$value \- $dev") ; + return undef; + +} + + +# runs a function if the interface is of type $type +sub gst_network_check_type +{ + my ($iface) = shift @_; + my ($type) = shift @_; + my ($func) = shift @_; + my ($t); + + $t = &gst_network_get_interface_type ($iface); + + if ($t =~ "^$type") + { + &$func (@_); + } +} + +# creates files neccesary for gentoo ifaces +sub gst_network_gentoo_create_files +{ + my ($dev) = @_; + my ($init) = "/etc/init.d/net.$dev"; + my ($conf) = "/etc/conf.d/net.$dev"; + my ($backup) = "/etc/conf.d/net.ppp0.gstbackup"; + + if ($dev =~ /ppp/) + { + &gst_file_copy ("/etc/init.d/net.ppp0", $init) if (!&gst_file_exists ($init)); + + # backup the ppp config file + &gst_file_copy ("/etc/conf.d/net.ppp0", $backup) if (!&gst_file_exists ($backup)); + &gst_file_copy ($backup, $conf) if (!&gst_file_exists ($conf)); + } + else + { + &gst_file_copy ("/etc/init.d/net.eth0", $init) if (!&gst_file_exists ($init)); + } + + chmod 0755, "$gst_prefix/$init"; +} + +# we need this function because essid can be multiword, and thus it can't be in rc.conf +sub gst_network_freebsd5_replace_essid +{ + my ($file, $startif, $iface, $essid) = @_; + + if ($essid =~ /[ \t]/) + { + # It's multiword + &gst_file_buffer_save ("ifconfig $iface ssid \"$essid\"", $startif); + &gst_replace_sh_re ($file, "ifconfig_$iface", "ssid[ \t]+([^ \t]*)", ""); + } + else + { + &gst_replace_sh_re ($file, "ifconfig_$iface", "ssid[ \t]+([^ \t]*)", " ssid $essid"); + } +} + +sub gst_network_freebsd_create_ppp_startif +{ + my ($startif, $iface, $dev, $persist) = @_; + my ($section); + + if ($dev =~ /^tun[0-9]+/) + { + $section = &gst_parse_startif ($startif, "ppp[ \t]+\-[^ \t]+[ \t]+([^ \t]+)"); + $section = $dev if ($section eq undef); + + return &gst_file_buffer_save ("ppp -ddial $section", $startif) if ($persist eq 1); + return &gst_file_buffer_save ("ppp -auto $section", $startif); + } +} + +# Functions for parsing provider file in suse 9.X +sub gst_network_suse90_parse_provider_file_func +{ + my ($provider, $key, $func) = @_; + my ($path) = "/etc/sysconfig/network/providers/"; + + return &$func ("$path/$provider", $key); +} + +sub gst_network_suse90_parse_provider_file +{ + my ($provider, $key) = @_; + return &gst_network_suse90_parse_provider_file_func ($provider, $key, \&gst_parse_sh); +} + +sub gst_network_suse90_parse_provider_file_bool +{ + my ($provider, $key) = @_; + return &gst_network_suse90_parse_provider_file_func ($provider, $key, \&gst_parse_sh_bool); +} + +# Functions for replacing in provider file in SuSE 9.X +sub gst_network_suse90_replace_provider_file_func +{ + my ($provider, $key, $value, $func) = @_; + my ($path) = "/etc/sysconfig/network/providers/"; + + return &$func ("$path/$provider", $key, $value); +} + +sub gst_network_suse90_replace_provider_file +{ + my ($provider, $key, $value) = @_; + #make sure the function is called only by modem + if ($provider =~ /ppp/) + { + return &gst_network_suse90_replace_provider_file_func ($provider, $key, $value, \&gst_replace_sh); + } +} + +sub gst_network_suse90_replace_provider_file_bool +{ + my ($provider, $key, $value) = @_; + #make sure the function is called only by modem + if ($provider =~ /ppp/) + { + return &gst_network_suse90_replace_provider_file_func ($provider, $key, $value, \&gst_replace_sh_bool); + } +} + +sub gst_network_suse9_get_dev_name +{ + my ($iface) = @_; + my ($ifaces, $dev, $hwaddr, $d); + my ($dev); + + $dev = &gst_parse_sh ("/var/run/sysconfig/if-$iface", "interface"); + + if ($dev eq undef) + { + $fd = &gst_file_run_backtick ("getcfg-interface $iface"); + } + + if ($dev eq undef) + { + # Those are the last cases, we make rough guesses + if ($iface =~ /-pcmcia-/) + { + # it's something like wlan-pcmcia-0 + $dev =~ s/-pcmcia-//; + } + elsif ($iface =~ /-id-([a-fA-F0-9\:]*)/) + { + # it's something like eth-id-xx:xx:xx:xx:xx:xx, which is the NIC MAC + $hwaddr = $1; + $ifaces = &gst_network_interfaces_get_info (); + + foreach $d (keys %$ifaces) + { + if ($hwaddr eq $$ifaces{$d}{"hwaddr"}) + { + $dev = $d; + last; + } + } + } + } + + if ($dev eq undef) + { + # We give up, take $iface as $dev + $dev = $iface; + } + + return $dev; +} + +sub gst_network_detect_essids +{ + my ($iface) = @_; + my ($fd, @arr, $encrypted); + + # some wireless cards need to be up before scanning + &gst_file_run ("ifconfig $iface up"); + $fd = &gst_file_run_pipe_read ("iwlist $iface scanning"); + return undef if (!$fd); + + while (<$fd>) + { + if (/^[ \t]*Encryption key:([^ \t\n]+)/) + { + $encrypted = ($1 eq "off") ? 0 : 1; + } + elsif (/^[ \t]*ESSID\:"(.+)"/) + { + push @arr, {"essid" => $1, + "encrypted" => $encrypted }; + } + } + + return \@arr; +} + +sub gst_network_get_wep_key_type +{ + my ($func) = shift @_; + my ($val); + + $val = &$func (@_); + + return undef if (!$val); + return "ascii" if ($val =~ /^s\:/); + return "hexadecimal"; +} + +sub gst_network_get_wep_key +{ + my ($func) = shift @_; + my ($val); + + $val = &$func (@_); + $val =~ s/^s\://; + + return $val; +} + +sub gst_network_get_full_key +{ + my ($key, $key_type) = @_; + + if ($key_type eq "ascii") + { + $key = "s:" . $key; + } + + return $key; +} + +sub gst_network_set_wep_key_type +{ + my ($key, $key_type, $func); + + # seems kind of hackish, but we want to use distro + # specific saving functions, so we need to leave + # the args as variable as possible + $func = shift @_; + $key_type = pop @_; + $key = pop @_; + + push @_, &gst_network_get_full_key ($key, $key_type); + &$func (@_); +} + +# Set dist_map for your distro to "" if you don't want +# loopback ensuring. See suse-7.0 entry for example. +sub gst_network_ensure_loopback_interface +{ + my ($interface) = @_; + my $dev; + my %dist_map = + ( + "redhat-5.2" => "lo", + "redhat-6.0" => "lo", + "redhat-6.1" => "lo", + "redhat-6.2" => "lo", + "redhat-7.0" => "lo", + "redhat-7.1" => "lo", + "redhat-7.2" => "lo", + "redhat-8.0" => "lo", + "redhat-9" => "", + "rhel-5" => "", + "rhel-6" => "", + "openna-1.0" => "lo", + "mandrake-7.1" => "lo", + "mandrake-7.2" => "lo", + "mandrake-9.0" => "lo", + "mandrake-9.1" => "lo", + "mandrake-9.2" => "lo", + "mandrake-10.0" => "lo", + "mandrake-10.1" => "lo", + "mandrake-10.2" => "lo", + "mandriva-2006.0" => "lo", + "mandriva-2006.1" => "lo", + "mandriva-2007.0" => "lo", + "mandriva-2007.1" => "lo", + "yoper-2.2" => "lo", + "blackpanther-4.0" => "lo", + "conectiva-9" => "lo", + "conectiva-10" => "lo", + "debian-2.2" => "lo", + "debian-3.0" => "lo", + "debian-3.1" => "lo", + "debian-4.0" => "lo", + "debian-5.0" => "lo", + "debian-testing" => "lo", + "ubuntu-5.04" => "lo", + "ubuntu-5.10" => "lo", + "ubuntu-6.06" => "lo", + "ubuntu-6.10" => "lo", + "ubuntu-7.04" => "lo", + "ubuntu-7.10" => "lo", + "ubuntu-8.04" => "lo", + "ubuntu-8.10" => "lo", + "ubuntu-9.04" => "lo", + "ubuntu-9.10" => "lo", + "ubuntu-10.04" => "lo", + "ubuntu-10.10" => "lo", + "suse-7.0" => "", + "suse-9.0" => "", + "suse-9.1" => "", + "turbolinux-7.0" => "lo", + "pld-1.0" => "lo", + "pld-1.1" => "lo", + "pld-1.99" => "lo", + "fedora-1" => "", + "fedora-2" => "", + "fedora-3" => "", + "fedora-4" => "", + "fedora-5" => "", + "fedora-15" => "", + "fedora-16" => "", + "fedora-17" => "", + "rpath" => "", + "vine-3.0" => "lo", + "vine-3.1" => "lo", + "ark" => "lo", + "slackware-9.1.0" => "", + "slackware-10.0.0" => "", + "slackware-10.1.0" => "", + "slackware-10.2.0" => "", + "slackware-11.0.0" => "", + "slackware-12.0.0" => "", + "slackware-12.1.0" => "", + "slackware-12.2.0" => "", + "slackware-13.0.0" => "", + "slackware-13.1.0" => "", + "slackware-13.37.0" => "", + "slackware-14.0.0" => "", + "gentoo" => "", + "vlos-1.2" => "", + "freebsd-5" => "", + "freebsd-6" => "", + ); + + $dev = $dist_map {$gst_dist}; + + return if $dev eq ""; + + if (!exists $$interface{$dev}) + { + my %iface = ( + "auto" => 1, + "user" => 0, + "dev" => "lo", + "address" => "127.0.0.1", + "netmask" => "255.0.0.0", + "broadcast" => "127.255.255.255", + "network" => "127.0.0.0", + "bootproto" => "none", + "enabled" => 1, + "update_dns" => 0 + ); + + $$interface{$dev} = \%iface; + &gst_network_interface_set ($dev, \%iface); + } + elsif (! $ {$$interface{$dev}}{"enabled"}) + { + $ {$$interface{$dev}}{"enabled"} = 1; + &gst_network_interface_set ($dev, $$interface{$dev}); + } +} + +sub gst_network_statichost_add_alias +{ + my ($localhost, $alias) = @_; + my $i; + + foreach $i (@$localhost) + { + return if ($i eq $alias); + } + + push @$localhost, $alias; +} + +sub gst_network_statichost_remove_alias +{ + my ($localhost, $alias) = @_; + my $i; + + for ($i = 0; $i < @$localhost; $i++) { + if ($$localhost[$i] eq $alias) + { + delete $$localhost[$i]; + return; + } + } +} + +sub gst_network_ensure_loopback_statichost +{ + my ($statichost, $hostname, $old_hostname, $lo_ip) = @_; + my $i; + + if (exists $$statichost{$lo_ip}) + { + my $localhost = $$statichost{$lo_ip}; + &gst_network_statichost_remove_alias ($localhost, $old_hostname) if ($old_hostname); + &gst_network_statichost_remove_alias ($localhost, $hostname); + } + else + { + $$statichost{$lo_ip} = [ ("localhost") ]; + } +} + +sub get_network_get_lo_ip +{ + my ($statichost) = @_; + +# Ugly workarround, it is considered you have one lo only, which is wrong, so let's +# force the first to be 127.0.0.1 and let the script work for other ones as if they were +# classic hosts entries... At least sudo won't break... +# foreach $i (keys %$statichost) +# { +# return $i if ($i =~ /^127\./); +# } + + return "127.0.0.1"; +} + +sub gst_network_ensure_loopback +{ + my $values_hash = $_[0]; + my $old_values_hash = $_[1]; + my $interface = $$values_hash{"interface"}; + my $hostname = $$values_hash{"hostname"}; + my $statichost = $$values_hash{"statichost"}; + my $lo_ip = &get_network_get_lo_ip ($statichost); + + # needed for replacing hostname safely + my $old_hostname = $$old_values_hash{"hostname"}; + + &gst_report_enter (); + &gst_report ("network_ensure_lo"); + + &gst_network_ensure_loopback_statichost ($statichost, $hostname, $old_hostname, $lo_ip); + &gst_network_ensure_loopback_interface ($interface, $lo_ip); + + &gst_report_leave (); +} + +sub gst_network_get_parse_table +{ + my %dist_map = + ( + "redhat-5.2" => "redhat-6.2", + "redhat-6.0" => "redhat-6.2", + "redhat-6.1" => "redhat-6.2", + "redhat-6.2" => "redhat-6.2", + "redhat-7.0" => "redhat-7.0", + "redhat-7.1" => "redhat-7.0", + "redhat-7.2" => "redhat-7.2", + "redhat-8.0" => "redhat-7.2", + "redhat-9" => "redhat-7.2", + "rhel-5" => "redhat-7.2", + "rhel-6" => "redhat-7.2", + "openna-1.0" => "redhat-6.2", + "mandrake-7.1" => "redhat-6.2", + "mandrake-7.2" => "redhat-6.2", + "mandrake-9.0" => "redhat-7.0", + "mandrake-9.1" => "redhat-7.0", + "mandrake-9.2" => "redhat-7.0", + "mandrake-10.0" => "redhat-7.0", + "mandrake-10.1" => "redhat-7.0", + "mandrake-10.2" => "redhat-7.0", + "mandriva-2006.0" => "redhat-7.0", + "mandriva-2006.1" => "redhat-7.0", + "mandriva-2007.0" => "redhat-7.0", + "mandriva-2007.1" => "redhat-7.0", + "yoper-2.2" => "redhat-7.0", + "blackpanther-4.0" => "redhat-7.0", + "conectiva-9" => "redhat-7.0", + "conectiva-10" => "redhat-7.0", + "debian-2.2" => "debian-2.2", + "debian-3.0" => "debian-2.2", + "debian-3.1" => "debian-2.2", + "debian-4.0" => "debian-2.2", + "debian-5.0" => "debian-2.2", + "debian-testing" => "debian-2.2", + "ubuntu-5.04" => "debian-2.2", + "ubuntu-5.10" => "debian-2.2", + "ubuntu-6.06" => "debian-2.2", + "ubuntu-6.10" => "debian-2.2", + "ubuntu-7.04" => "debian-2.2", + "ubuntu-7.10" => "debian-2.2", + "ubuntu-8.04" => "debian-2.2", + "ubuntu-8.10" => "debian-2.2", + "ubuntu-9.04" => "debian-2.2", + "ubuntu-9.10" => "debian-2.2", + "ubuntu-10.04" => "debian-2.2", + "ubuntu-10.10" => "debian-2.2", + "suse-7.0" => "suse-7.0", + "suse-9.0" => "suse-9.0", + "suse-9.1" => "suse-9.0", + "turbolinux-7.0" => "redhat-7.0", + "pld-1.0" => "pld-1.0", + "pld-1.1" => "pld-1.0", + "pld-1.99" => "pld-1.0", + "fedora-1" => "redhat-7.2", + "fedora-2" => "redhat-7.2", + "fedora-3" => "redhat-7.2", + "fedora-4" => "redhat-7.2", + "fedora-5" => "redhat-7.2", + "fedora-15" => "redhat-7.2", + "fedora-16" => "redhat-7.2", + "fedora-17" => "redhat-7.2", + "rpath" => "redhat-7.2", + "vine-3.0" => "redhat-7.0", + "vine-3.1" => "redhat-7.0", + "ark" => "redhat-7.0", + "slackware-9.1.0" => "slackware-9.1.0", + "slackware-10.0.0" => "slackware-9.1.0", + "slackware-10.1.0" => "slackware-9.1.0", + "slackware-10.2.0" => "slackware-9.1.0", + "slackware-11.0.0" => "slackware-9.1.0", + "slackware-12.0.0" => "slackware-9.1.0", + "slackware-12.1.0" => "slackware-9.1.0", + "slackware-12.2.0" => "slackware-9.1.0", + "slackware-13.0.0" => "slackware-9.1.0", + "slackware-13.1.0" => "slackware-9.1.0", + "slackware-13.37.0" => "slackware-9.1.0", + "slackware-14.0.0" => "slackware-9.1.0", + "gentoo" => "gentoo", + "vlos-1.2" => "gentoo", + "freebsd-5" => "freebsd-5", + "freebsd-6" => "freebsd-5", + ); + + my %dist_tables = + ( + "redhat-6.2" => + { + fn => + { + SYSCONFIG_NW => "/etc/sysconfig/network", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "hostname", \&gst_parse_sh, SYSCONFIG_NW, HOSTNAME ], + [ "gateway", \&gst_parse_sh, SYSCONFIG_NW, GATEWAY ], + [ "gatewaydev", \&gst_parse_sh, SYSCONFIG_NW, GATEWAYDEV ], + [ "userifacectl", \&gst_parse_trivial, 1 ], + [ "nameserver", \&gst_parse_split_all_unique_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array_unique, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "domain", \&gst_parse_split_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "order", \&gst_parse_split_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_parse_split_first_bool, HOST_CONF, "multi", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_parse_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_network_rh_get_smb_desc, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_parse_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_parse_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_get_status_any, "smbd", "nmbd" ], + [ "smbinstalled", \&gst_service_sysv_installed, "smb" ], + [ "smartdhcpcd", \&gst_file_tool_installed, "pump" ], + [ "dialinstalled", \&gst_file_tool_installed, "wvdial" ], + [ "interface", \&gst_network_interfaces_get ] + ] + }, + + "redhat-7.0" => + { + fn => + { + SYSCONFIG_NW => "/etc/sysconfig/network", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/samba/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "hostname", \&gst_parse_sh, SYSCONFIG_NW, HOSTNAME ], + [ "gateway", \&gst_parse_sh, SYSCONFIG_NW, GATEWAY ], + [ "gatewaydev", \&gst_parse_sh, SYSCONFIG_NW, GATEWAYDEV ], + [ "userifacectl", \&gst_parse_trivial, 1 ], + [ "nameserver", \&gst_parse_split_all_unique_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array_unique, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "domain", \&gst_parse_split_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "order", \&gst_parse_split_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_parse_split_first_bool, HOST_CONF, "multi", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_parse_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_network_rh_get_smb_desc, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_parse_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_parse_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_get_status_any, "smbd", "nmbd" ], + [ "smbinstalled", \&gst_service_sysv_installed, "smb" ], + [ "smartdhcpcd", \&gst_file_tool_installed, "pump" ], + [ "dialinstalled", \&gst_file_tool_installed, "wvdial" ], + [ "interface", \&gst_network_interfaces_get ] + ] + }, + + "redhat-7.2" => + { + fn => + { + SYSCONFIG_NW => ["/etc/sysconfig/networking/profiles/default/network", + "/etc/sysconfig/networking/network", + "/etc/sysconfig/network"], + RESOLV_CONF => ["/etc/sysconfig/networking/profiles/default/resolv.conf", + "/etc/resolv.conf"], + HOST_CONF => "/etc/host.conf", + HOSTS => ["/etc/sysconfig/networking/profiles/default/hosts", + "/etc/hosts"], + SMB_CONF => "/etc/samba/smb.conf", + WVDIAL => "/etc/wvdial.conf", + }, + table => + [ + [ "hostname", \&gst_parse_sh, SYSCONFIG_NW, HOSTNAME ], + [ "gateway", \&gst_parse_sh, SYSCONFIG_NW, GATEWAY ], + [ "gatewaydev", \&gst_parse_sh, SYSCONFIG_NW, GATEWAYDEV ], + [ "userifacectl", \&gst_parse_trivial, 1 ], + [ "nameserver", \&gst_parse_split_all_unique_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array_unique, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "domain", \&gst_parse_split_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "order", \&gst_parse_split_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_parse_split_first_bool, HOST_CONF, "multi", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_parse_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_network_rh_get_smb_desc, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_parse_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_parse_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_get_status_any, "smbd", "nmbd" ], + [ "smbinstalled", \&gst_service_sysv_installed, "smb" ], + [ "smartdhcpcd", \&gst_file_tool_installed, "pump" ], + [ "dialinstalled", \&gst_file_tool_installed, "wvdial" ], + [ "interface", \&gst_network_interfaces_get ] + ] + }, + + "debian-2.2" => + { + fn => + { + OPTIONS => "/etc/network/options", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + HOSTNAME => "/etc/hostname", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "hostname", \&gst_parse_line_first, HOSTNAME ], + [ "gateway", \&gst_network_get_default_gateway ], + [ "gatewaydev", \&gst_network_get_default_gatewaydev ], +# [ "gwdevunsup", \&gst_parse_trivial, 1 ], +# [ "userifacectl", \&gst_parse_trivial, 0 ], + [ "domain", \&gst_parse_split_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_parse_split_all_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "order", \&gst_parse_split_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_parse_split_first_bool, HOST_CONF, "multi", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "smartdhcpcd", \&gst_file_tool_installed, "pump" ], + [ "dialinstalled", \&gst_file_tool_installed, "wvdial" ], + [ "interface", \&gst_network_interfaces_get ] + ] + }, + + "suse-7.0" => + { + fn => + { + RC_CONFIG => "/etc/rc.config", + ROUTE_CONF => "/etc/route.conf", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "hostname", \&gst_parse_sh_get_hostname, RC_CONFIG, FQHOSTNAME ], + [ "gateway", \&gst_parse_split_first_str, ROUTE_CONF, "default", "[ \t]+" ], + [ "gateway", \&gst_parse_split_first_str, ROUTE_CONF, "0.0.0.0", "[ \t]+" ], + [ "gwdevunsup", \&gst_parse_trivial, 1 ], + [ "userifacectl", \&gst_parse_trivial, 0 ], + [ "domain", \&gst_parse_sh_get_domain, RC_CONFIG, FQHOSTNAME ], + [ "nameserver", \&gst_parse_split_all_unique_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array_unique, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], +# This was to take the values from SuSEConfig, but a better solution is to get +# the configuration from /etc/resolv.conf and then replace in rc.config, so those +# files stay in sync. +# [ "nameserver", \&gst_parse_sh_split, RC_CONFIG, NAMESERVER, "[ \t]+" ], +# [ "searchdomain", \&gst_parse_sh_split, RC_CONFIG, SEARCHLIST, "[ \t]+" ], + [ "order", \&gst_parse_split_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_parse_split_first_bool, HOST_CONF, "multi", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_parse_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_parse_ini, SMB_CONF, "global", "server string" ], + [ "winsserver", \&gst_parse_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_parse_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_get_status_any, "smbd", "nmbd" ], + [ "smbinstalled", \&gst_service_sysv_installed, "smb" ], + [ "dialinstalled", \&gst_file_tool_installed, "wvdial" ], + [ "interface_tmp", \&gst_network_interfaces_get ], + [ "interface", \&gst_network_suse70_get_ppp, "%dialing%", "%interface_tmp%" ], + ] + }, + + "suse-9.0" => + { + fn => + { + ROUTE_CONF => "/etc/sysconfig/network/routes", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + HOSTNAME => "/etc/HOSTNAME", + SMB_CONF => "/etc/samba/smb.conf", + }, + table => + [ + [ "hostname", \&gst_parse_fq_hostname, HOSTNAME ], + [ "domain", \&gst_parse_fq_domain, HOSTNAME ], + [ "domain", \&gst_parse_split_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_parse_split_all_unique_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array_unique, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "order", \&gst_parse_split_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_parse_split_first_bool, HOST_CONF, "multi", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_parse_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_network_rh_get_smb_desc, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_parse_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_parse_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_get_status, "smb" ], + [ "smbinstalled", \&gst_service_installed, "smb" ], + [ "dialinstalled", \&gst_parse_trivial, 1 ], + [ "interface", \&gst_network_interfaces_get ], + [ "gateway", \&gst_parse_split_first_array_pos, ROUTE_CONF, "default", 0, "[ \t]+", "[ \t]+" ], + [ "gatewaydev", \&gst_network_get_gateway_dev_from_address, "%interface%", "%gateway%" ], + ] + }, + + "pld-1.0" => + { + fn => + { + SYSCONFIG_NW => "/etc/sysconfig/network", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/smb/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "hostname", \&gst_parse_sh, SYSCONFIG_NW, HOSTNAME ], + [ "gateway", \&gst_parse_sh, SYSCONFIG_NW, GATEWAY ], + [ "gatewaydev", \&gst_parse_sh, SYSCONFIG_NW, GATEWAYDEV ], + [ "userifacectl", \&gst_parse_trivial, 1 ], + [ "nameserver", \&gst_parse_split_all_unique_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array_unique, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "domain", \&gst_parse_split_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "order", \&gst_parse_split_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_parse_split_first_bool, HOST_CONF, "multi", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_parse_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_network_rh_get_smb_desc, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_parse_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_parse_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_get_status_any, "smbd", "nmbd" ], + [ "smbinstalled", \&gst_service_sysv_installed, "smb" ], + [ "smartdhcpcd", \&gst_file_tool_installed, "pump" ], + [ "dialinstalled", \&gst_file_tool_installed, "wvdial" ], + [ "interface", \&gst_network_interfaces_get ] + ] + }, + + "slackware-9.1.0" => + { + fn => + { + RC_INET_CONF => "/etc/rc.d/rc.inet1.conf", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + HOSTNAME => "/etc/HOSTNAME", + SMB_CONF => "/etc/samba/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "hostname", \&gst_parse_fq_hostname, HOSTNAME ], + [ "nameserver", \&gst_parse_split_all_unique_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array_unique, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "domain", \&gst_parse_split_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "order", \&gst_parse_split_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_parse_split_first_bool, HOST_CONF, "multi", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_parse_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_network_rh_get_smb_desc, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_parse_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_parse_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_get_status_any, "smbd", "nmbd" ], + [ "smbinstalled", \&gst_service_installed, "/etc/rc.d/rc.samba" ], + [ "dialinstalled", \&gst_parse_trivial, 1 ], + [ "interface", \&gst_network_interfaces_get ], + [ "gateway", \&gst_parse_sh, RC_INET_CONF, GATEWAY ], + [ "gatewaydev", \&gst_network_get_gateway_dev_from_address, "%interface%", "%gateway%" ], + ] + }, + + "gentoo" => + { + fn => + { + HOSTNAME => "/etc/conf.d/hostname", + DOMAINNAME => "/etc/conf.d/domainname", + NET => "/etc/conf.d/net", + RESOLV_CONF => "/etc/resolv.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/samba/smb.conf" + }, + table => + [ + [ "hostname", \&gst_parse_sh, HOSTNAME, "HOSTNAME" ], + [ "domain", \&gst_parse_sh, DOMAINNAME, "DNSDOMAIN" ], + [ "domain", \&gst_parse_split_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_parse_split_all_unique_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array_unique, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_parse_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_network_rh_get_smb_desc, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_parse_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_parse_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_gentoo_get_status, "samba" ], + [ "smbinstalled", \&gst_service_installed, "samba" ], + [ "dialinstalled", \&gst_parse_trivial, 1 ], + [ "gateway", \&gst_network_get_default_gateway ], + [ "gatewaydev", \&gst_network_get_default_gatewaydev ], + [ "interface", \&gst_network_interfaces_get ], + ] + }, + + "freebsd-5" => + { + fn => + { + RC_CONF => "/etc/rc.conf", + RESOLV_CONF => "/etc/resolv.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/usr/local/etc/smb.conf" + }, + table => + [ + [ "hostname", \&gst_parse_sh_re, RC_CONF, hostname, "^([^\.]*)\." ], + [ "domain", \&gst_parse_split_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_parse_split_all_unique_hash_comment, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_parse_split_first_array_unique, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "statichost", \&gst_parse_split_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_parse_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_network_rh_get_smb_desc, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_parse_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_parse_ini_bool, SMB_CONF, "global", "wins support" ], + [ "dialinstalled", \&gst_parse_trivial, 1 ], + [ "smbinstalled", \&gst_service_installed, "samba" ], + [ "smbuse", \&gst_service_rcng_get_status, "smbd" ], + [ "interface", \&gst_network_interfaces_get ], + [ "gateway", \&gst_parse_sh, RC_CONF, defaultrouter ], + [ "gatewaydev", \&gst_network_get_gateway_dev_from_address, "%interface%", "%gateway%" ], + ] + }, + ); + + my $dist = $dist_map{$gst_dist}; + return %{$dist_tables{$dist}} if $dist; + + &gst_report ("platform_no_table", $gst_dist); + return undef; +} + +sub gst_network_get_interface_parse_table +{ + my %dist_map = + ( + "redhat-5.2" => "redhat-6.2", + "redhat-6.0" => "redhat-6.2", + "redhat-6.1" => "redhat-6.2", + "redhat-6.2" => "redhat-6.2", + "redhat-7.0" => "redhat-6.2", + "redhat-7.1" => "redhat-6.2", + "redhat-7.2" => "redhat-7.2", + "redhat-8.0" => "redhat-8.0", + "redhat-9" => "redhat-8.0", + "rhel-5" => "redhat-8.0", + "rhel-6" => "redhat-8.0", + "openna-1.0" => "redhat-6.2", + "mandrake-7.1" => "redhat-6.2", + "mandrake-7.2" => "redhat-6.2", + "mandrake-9.0" => "mandrake-9.0", + "mandrake-9.1" => "mandrake-9.0", + "mandrake-9.2" => "mandrake-9.0", + "mandrake-10.0" => "mandrake-9.0", + "mandrake-10.1" => "mandrake-9.0", + "mandrake-10.2" => "mandrake-9.0", + "mandriva-2006.0" => "mandrake-9.0", + "mandriva-2006.1" => "mandrake-9.0", + "mandriva-2007.0" => "mandrake-9.0", + "mandriva-2007.1" => "mandrake-9.0", + "yoper-2.2" => "redhat-6.2", + "blackpanther-4.0" => "mandrake-9.0", + "conectiva-9" => "conectiva-9", + "conectiva-10" => "conectiva-9", + "debian-2.2" => "debian-2.2", + "debian-3.0" => "debian-3.0", + "debian-3.1" => "debian-3.0", + "debian-4.0" => "debian-3.0", + "debian-5.0" => "debian-3.0", + "debian-testing" => "debian-3.0", + "ubuntu-5.04" => "debian-3.0", + "ubuntu-5.10" => "debian-3.0", + "ubuntu-6.06" => "debian-3.0", + "ubuntu-6.10" => "debian-3.0", + "ubuntu-7.04" => "debian-3.0", + "ubuntu-7.10" => "debian-3.0", + "ubuntu-8.04" => "debian-3.0", + "ubuntu-8.10" => "debian-3.0", + "ubuntu-9.04" => "debian-3.0", + "ubuntu-9.10" => "debian-3.0", + "ubuntu-10.04" => "debian-3.0", + "ubuntu-10.10" => "debian-3.0", + "suse-7.0" => "suse-7.0", + "suse-9.0" => "suse-9.0", + "suse-9.1" => "suse-9.0", + "turbolinux-7.0" => "redhat-6.2", + "pld-1.0" => "pld-1.0", + "pld-1.1" => "pld-1.0", + "pld-1.99" => "pld-1.0", + "fedora-1" => "redhat-7.2", + "fedora-2" => "redhat-7.2", + "fedora-3" => "redhat-7.2", + "fedora-4" => "redhat-7.2", + "fedora-5" => "redhat-7.2", + "fedora-15" => "redhat-7.2", + "fedora-16" => "redhat-7.2", + "fedora-17" => "redhat-7.2", + "rpath" => "redhat-7.2", + "vine-3.0" => "vine-3.0", + "vine-3.1" => "vine-3.0", + "ark" => "vine-3.0", + "slackware-9.1.0" => "slackware-9.1.0", + "slackware-10.0.0" => "slackware-9.1.0", + "slackware-10.1.0" => "slackware-9.1.0", + "slackware-10.2.0" => "slackware-9.1.0", + "slackware-11.0.0" => "slackware-9.1.0", + "slackware-12.0.0" => "slackware-9.1.0", + "slackware-12.1.0" => "slackware-9.1.0", + "slackware-12.2.0" => "slackware-9.1.0", + "slackware-13.0.0" => "slackware-9.1.0", + "slackware-13.1.0" => "slackware-9.1.0", + "slackware-13.37.0" => "slackware-9.1.0", + "slackware-14.0.0" => "slackware-9.1.0", + "gentoo" => "gentoo", + "vlos-1.2" => "gentoo", + "freebsd-5" => "freebsd-5", + "freebsd-6" => "freebsd-5", + ); + + my %dist_tables = + ( + "redhat-6.2" => + { + ifaces_get => \&gst_network_sysconfig_rh62_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network-scripts/ifcfg-#iface#", + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + PUMP => "/etc/pump.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_parse_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_parse_sh_bool, IFCFG, ONBOOT ], +# [ "user", \&gst_parse_sh_bool, IFCFG, USERCTL ], + [ "dev", \&gst_parse_sh, IFCFG, DEVICE ], + [ "address", \&gst_parse_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_parse_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_parse_sh, IFCFG, BROADCAST ], + [ "network", \&gst_parse_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_parse_sh, IFCFG, GATEWAY ], + [ "remote_address", \&gst_parse_sh, IFCFG, REMIP ], +# [ "update_dns", \&gst_network_pump_get_nodns, PUMP, "%dev%", "%bootproto%" ], +# [ "dns1", \&gst_parse_sh, IFCFG, DNS1 ], +# [ "dns2", \&gst_parse_sh, IFCFG, DNS2 ], +# [ "ppp_options", \&gst_parse_sh, IFCFG, PPPOPTIONS ], + [ "section", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, WVDIALSECT ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PEERDNS ]], + [ "mtu", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MTU ]], + [ "mru", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MRU ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, PAPNAME ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, CHAP, "%login%" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MODEMPORT ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, LINESPEED ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, DEFROUTE ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PERSIST ]], + [ "serial_escapechars", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, ESCAPECHARS ]], + [ "serial_hwctl", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, HARDFLOWCTL ]], + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ]], + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], +# [ "enabled", \&gst_network_interface_active, IFACE, +# \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_parse_trivial, 0 ] + ] + }, + + "redhat-7.2" => + { + ifaces_get => \&gst_network_sysconfig_rh72_ifaces_get_existing, + fn => + { + IFCFG => ["/etc/sysconfig/networking/profiles/default/ifcfg-#iface#", + "/etc/sysconfig/networking/devices/ifcfg-#iface#", + "/etc/sysconfig/network-scripts/ifcfg-#iface#"], + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + PUMP => "/etc/pump.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_parse_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_parse_sh_bool, IFCFG, ONBOOT ], +# [ "user", \&gst_parse_sh_bool, IFCFG, USERCTL ], +# [ "name", \&gst_parse_sh, IFCFG, NAME ], +# [ "name", \&gst_parse_trivial, IFACE ], + [ "dev", \&gst_parse_sh, IFCFG, DEVICE ], + [ "address", \&gst_parse_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_parse_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_parse_sh, IFCFG, BROADCAST ], + [ "network", \&gst_parse_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_parse_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_parse_sh, IFCFG, ESSID ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_sh, IFCFG, KEY ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_sh, IFCFG, KEY ]], + [ "remote_address", \&gst_parse_sh, IFCFG, REMIP ], +# [ "update_dns", \&gst_network_pump_get_nodns, PUMP, "%dev%", "%bootproto%" ], +# [ "dns1", \&gst_parse_sh, IFCFG, DNS1 ], +# [ "dns2", \&gst_parse_sh, IFCFG, DNS2 ], + [ "section", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, WVDIALSECT ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PEERDNS ]], + [ "mtu", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MTU ]], + [ "mru", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MRU ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, PAPNAME ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, CHAP, "%login%" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MODEMPORT ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, LINESPEED ]], +# [ "ppp_options", \&gst_parse_sh, IFCFG, PPPOPTIONS ], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, DEFROUTE ]], +# [ "debug", \&gst_parse_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PERSIST ]], + [ "serial_escapechars", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, ESCAPECHARS ]], + [ "serial_hwctl", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, HARDFLOWCTL ]], + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ]], +# [ "enabled", \&gst_network_interface_active, "%dev%", +# \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_network_interface_active, IFACE, +# \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_parse_trivial, 0 ] + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "redhat-8.0" => + { + ifaces_get => \&gst_network_sysconfig_rh72_ifaces_get_existing, + fn => + { + IFCFG => ["/etc/sysconfig/networking/profiles/default/ifcfg-#iface#", + "/etc/sysconfig/networking/devices/ifcfg-#iface#", + "/etc/sysconfig/network-scripts/ifcfg-#iface#"], + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + PUMP => "/etc/pump.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_parse_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_parse_sh_bool, IFCFG, ONBOOT ], +# [ "user", \&gst_parse_sh_bool, IFCFG, USERCTL ], +# [ "name", \&gst_parse_sh, IFCFG, NAME ], +# [ "name", \&gst_parse_trivial, IFACE ], + [ "dev", \&gst_parse_sh, IFCFG, DEVICE ], + [ "address", \&gst_parse_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_parse_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_parse_sh, IFCFG, BROADCAST ], + [ "network", \&gst_parse_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_parse_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_parse_sh, IFCFG, WIRELESS_ESSID ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_sh, IFCFG, WIRELESS_KEY ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_sh, IFCFG, WIRELESS_KEY ]], + [ "remote_address", \&gst_parse_sh, IFCFG, REMIP ], +# [ "update_dns", \&gst_network_pump_get_nodns, PUMP, "%dev%", "%bootproto%" ], +# [ "dns1", \&gst_parse_sh, IFCFG, DNS1 ], +# [ "dns2", \&gst_parse_sh, IFCFG, DNS2 ], + [ "section", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, WVDIALSECT ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PEERDNS ]], + [ "mtu", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MTU ]], + [ "mru", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MRU ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, PAPNAME ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, CHAP, "%login%" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MODEMPORT ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, LINESPEED ]], +# [ "ppp_options", \&gst_parse_sh, IFCFG, PPPOPTIONS ], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, DEFROUTE ]], +# [ "debug", \&gst_parse_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PERSIST ]], + [ "serial_escapechars", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, ESCAPECHARS ]], + [ "serial_hwctl", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, HARDFLOWCTL ]], + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ]], +# [ "enabled", \&gst_network_interface_active, "%dev%", +# \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_network_interface_active, IFACE, +# \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_parse_trivial, 0 ] + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "vine-3.0" => + { + ifaces_get => \&gst_network_sysconfig_rh62_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network-scripts/ifcfg-#iface#", + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + PUMP => "/etc/pump.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_parse_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_parse_sh_bool, IFCFG, ONBOOT ], +# [ "user", \&gst_parse_sh_bool, IFCFG, USERCTL ], +# [ "name", \&gst_parse_sh, IFCFG, NAME ], + [ "dev", \&gst_parse_sh, IFCFG, DEVICE ], + [ "address", \&gst_parse_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_parse_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_parse_sh, IFCFG, BROADCAST ], + [ "network", \&gst_parse_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_parse_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_parse_sh, IFCFG, ESSID ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_sh, IFCFG, KEY ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_sh, IFCFG, KEY ]], + [ "remote_address", \&gst_parse_sh, IFCFG, REMIP ], +# [ "update_dns", \&gst_network_pump_get_nodns, PUMP, "%dev%", "%bootproto%" ], +# [ "dns1", \&gst_parse_sh, IFCFG, DNS1 ], +# [ "dns2", \&gst_parse_sh, IFCFG, DNS2 ], + [ "section", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, WVDIALSECT ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PEERDNS ]], + [ "mtu", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MTU ]], + [ "mru", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MRU ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, PAPNAME ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, CHAP, "%login%" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MODEMPORT ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, LINESPEED ]], +# [ "ppp_options", \&gst_parse_sh, IFCFG, PPPOPTIONS ], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, DEFROUTE ]], +# [ "debug", \&gst_parse_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PERSIST ]], + [ "serial_escapechars", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, ESCAPECHARS ]], + [ "serial_hwctl", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, HARDFLOWCTL ]], + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ]], +# [ "enabled", \&gst_network_interface_active, IFACE, \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_parse_trivial, 0 ] + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "mandrake-9.0" => + { + ifaces_get => \&gst_network_sysconfig_rh62_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network-scripts/ifcfg-#iface#", + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + PUMP => "/etc/pump.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_parse_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_parse_sh_bool, IFCFG, ONBOOT ], +# [ "user", \&gst_parse_sh_bool, IFCFG, USERCTL ], +# [ "name", \&gst_parse_sh, IFCFG, NAME ], + [ "dev", \&gst_parse_sh, IFCFG, DEVICE ], + [ "address", \&gst_parse_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_parse_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_parse_sh, IFCFG, BROADCAST ], + [ "network", \&gst_parse_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_parse_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_parse_sh, IFCFG, WIRELESS_ESSID ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_sh, IFCFG, WIRELESS_KEY ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_sh, IFCFG, WIRELESS_KEY ]], + [ "remote_address", \&gst_parse_sh, IFCFG, REMIP ], +# [ "update_dns", \&gst_network_pump_get_nodns, PUMP, "%dev%", "%bootproto%" ], +# [ "dns1", \&gst_parse_sh, IFCFG, DNS1 ], +# [ "dns2", \&gst_parse_sh, IFCFG, DNS2 ], + [ "section", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, WVDIALSECT ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PEERDNS ]], + [ "mtu", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MTU ]], + [ "mru", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MRU ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, PAPNAME ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, CHAP, "%login%" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MODEMPORT ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, LINESPEED ]], +# [ "ppp_options", \&gst_parse_sh, IFCFG, PPPOPTIONS ], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, DEFROUTE ]], +# [ "debug", \&gst_parse_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PERSIST ]], + [ "serial_escapechars", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, ESCAPECHARS ]], + [ "serial_hwctl", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, HARDFLOWCTL ]], + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ]], +# [ "enabled", \&gst_network_interface_active, IFACE, +# \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_parse_trivial, 0 ] + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "conectiva-9" => + { + ifaces_get => \&gst_network_sysconfig_rh62_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network-scripts/ifcfg-#iface#", + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + PUMP => "/etc/pump.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_parse_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_parse_sh_bool, IFCFG, ONBOOT ], +# [ "user", \&gst_parse_sh_bool, IFCFG, USERCTL ], +# [ "name", \&gst_parse_sh, IFCFG, NAME ], + [ "dev", \&gst_parse_sh, IFCFG, DEVICE ], + [ "address", \&gst_parse_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_parse_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_parse_sh, IFCFG, BROADCAST ], + [ "network", \&gst_parse_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_parse_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_parse_sh, IFCFG, WIRELESS_ESSID ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_sh, IFCFG, WIRELESS_KEY ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_sh, IFCFG, WIRELESS_KEY ]], + [ "remote_address", \&gst_parse_sh, IFCFG, REMIP ], +# [ "update_dns", \&gst_network_pump_get_nodns, PUMP, "%dev%", "%bootproto%" ], +# [ "dns1", \&gst_parse_sh, IFCFG, DNS1 ], +# [ "dns2", \&gst_parse_sh, IFCFG, DNS2 ], + [ "section", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, WVDIALSECT ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PEERDNS ]], + [ "mtu", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MTU ]], + [ "mru", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MRU ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, PAPNAME ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_network_get_pap_passwd, CHAP, "%login%" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, MODEMPORT ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, LINESPEED ]], + [ "ppp_options", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh, IFCFG, PPPOPTIONS ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, DEFROUTE ]], +# [ "debug", \&gst_parse_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, PERSIST ]], + [ "serial_escapechars", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, ESCAPECHARS ]], + [ "serial_hwctl", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_sh_bool, IFCFG, HARDFLOWCTL ]], + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ]], +# [ "enabled", \&gst_network_interface_active, IFACE, +# \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_parse_trivial, 0 ] + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_parse_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "debian-2.2" => + { + ifaces_get => \&gst_network_debian_ifaces_get_existing, + fn => + { + INTERFACES => "/etc/network/interfaces", + IFACE => "#iface#", + CHAT => "/etc/chatscripts/%section%", + PPP_OPTIONS => "/etc/ppp/peers/%section%", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + PUMP => "/etc/pump.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ +# [ "user", \&gst_parse_trivial, 0 ], # not supported. + [ "dev", \&gst_parse_trivial, IFACE ], + [ "bootproto", \&gst_network_deb22_parse_bootproto, [INTERFACES, IFACE]], + [ "auto", \&gst_parse_interfaces_option_kw_not, [INTERFACES, IFACE], "noauto" ], +# [ "name", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "name" ], + [ "address", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "address" ], + [ "netmask", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "netmask" ], + [ "broadcast", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "broadcast" ], + [ "network", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "network" ], + [ "gateway", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "gateway" ], + [ "essid", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "wireless[_-]essid" ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_interfaces_option_str, INTERFACES, IFACE, "wireless[_-]key1?" ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_interfaces_option_str, INTERFACES, IFACE, "wireless[_-]key1?" ]], + [ "remote_address", \&gst_network_debian_parse_remote_address, [INTERFACES, IFACE]], + [ "section", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "provider" ], + [ "update_dns", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "usepeerdns" ]], + [ "noauth", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "noauth" ]], + [ "mtu", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_split_first_str, PPP_OPTIONS, "mtu", "[ \t]+" ]], + [ "mru", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_split_first_str, PPP_OPTIONS, "mru", "[ \t]+" ]], + [ "serial_port", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^(/dev/[^ \t]+)" ]], + [ "serial_speed", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^([0-9]+)" ]], + [ "login", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^login \"?([^\"]*)\"?" ]], + [ "password", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_pap_passwd, CHAP, "%login%" ]], + [ "ppp_options", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_unsup, PPP_OPTIONS ]], + [ "set_default_gw", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "defaultroute" ]], + [ "debug", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "debug" ]], + [ "persist", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "persist" ]], + [ "serial_escapechars", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_split_first_str, PPP_OPTIONS, "escape", "[ \t]+" ]], + [ "serial_hwctl", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "crtscts" ]], + [ "external_line", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_chat, CHAT, "atd[^0-9]([0-9*#]*)[wW]" ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_chat, CHAT, "atd.*[ptwW]([0-9, -]+)" ]], + [ "dial_command", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_chat, CHAT, "(atd[tp])[0-9, -w]+" ]], + [ "volume", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_modem_volume, CHAT ]], +# [ "enabled", \&gst_network_interface_active, IFACE, +# \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_parse_trivial, 0 ] + ] + }, + + # Basicly the same as debian-2.2, but the "auto" option changes. + "debian-3.0" => + { + ifaces_get => \&gst_network_debian_ifaces_get_existing, + fn => + { + INTERFACES => "/etc/network/interfaces", + IFACE => "#iface#", + CHAT => "/etc/chatscripts/%section%", + PPP_OPTIONS => "/etc/ppp/peers/%section%", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + }, + table => + [ +# [ "user", \&gst_parse_trivial, 0 ], # not supported. + [ "dev", \&gst_parse_trivial, IFACE ], + [ "bootproto", \&gst_network_deb22_parse_bootproto, [INTERFACES, IFACE]], + [ "auto", \&gst_network_debian_woody_get_auto, [INTERFACES, IFACE]], +# [ "name", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "name" ], + [ "address", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "address" ], + [ "netmask", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "netmask" ], + [ "broadcast", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "broadcast" ], + [ "network", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "network" ], + [ "gateway", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "gateway" ], + [ "essid", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "wireless[_-]essid" ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_interfaces_option_str, INTERFACES, IFACE, "wireless[_-]key1?" ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_interfaces_option_str, INTERFACES, IFACE, "wireless[_-]key1?" ]], + [ "remote_address", \&gst_network_debian_parse_remote_address, [INTERFACES, IFACE]], + [ "section", \&gst_parse_interfaces_option_str, [INTERFACES, IFACE], "provider" ], + [ "update_dns", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_parse_kw, PPP_OPTIONS, "usepeerdns" ]], + [ "noauth", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_parse_kw, PPP_OPTIONS, "noauth" ]], + [ "mtu", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_parse_split_first_str, PPP_OPTIONS, "mtu", "[ \t]+" ]], + [ "mru", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_parse_split_first_str, PPP_OPTIONS, "mru", "[ \t]+" ]], + [ "serial_port", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^(/dev/[^ \t]+)" ]], + [ "serial_speed", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^([0-9]+)" ]], + [ "login", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^user \"?([^\"]*)\"?" ]], + [ "password", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_network_get_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_network_get_pap_passwd, CHAP, "%login%" ]], + [ "ppp_options", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_unsup, PPP_OPTIONS ]], + [ "set_default_gw", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_parse_kw, PPP_OPTIONS, "defaultroute" ]], + [ "debug", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_parse_kw, PPP_OPTIONS, "debug" ]], + [ "persist", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_parse_kw, PPP_OPTIONS, "persist" ]], + [ "serial_escapechars", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_split_first_str, PPP_OPTIONS, "escape", "[ \t]+" ]], + [ "serial_hwctl", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "crtscts" ]], + [ "external_line", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_chat, CHAT, "atd[^0-9]([0-9*#]*)[wW]" ]], + [ "external_line", \&gst_network_check_type, [IFACE, "isdn", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^number[ \t]+(.+)[wW]" ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "isdn", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^number.*[wW \t](.*)" ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_chat, CHAT, "atd.*[ptwW]([0-9, -]+)" ]], + [ "dial_command", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_chat, CHAT, "(atd[tp])[0-9, -w]+" ]], + [ "volume", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_modem_volume, CHAT ]], +# [ "enabled", \&gst_network_interface_active, IFACE, +# \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_parse_trivial, 0 ] + ] + }, + + "suse-7.0" => + { + ifaces_get => \&gst_network_suse70_ifaces_get_existing, + fn => + { + IFCFG => "/etc/rc.config", + IFACE => "#iface#" + }, + table => + [ + [ "bootproto", \&gst_network_suse70_parse_bootproto, [IFCFG, IFACE] ], + [ "auto", \&gst_network_suse70_parse_iface_auto, [IFCFG, IFACE], NETCONFIG ], + [ "user", \&gst_parse_trivial, 0 ], # not supported. + [ "name", \&gst_network_suse70_parse_iface_sh, [IFCFG, IFACE], GST_IFACE_NAME ], + [ "dev", \&gst_network_suse70_parse_iface_sh, [IFCFG, IFACE], NETDEV ], + [ "address", \&gst_network_suse70_parse_iface_sh, [IFCFG, IFACE], IPADDR ], + [ "netmask", \&gst_network_suse70_get_ifconfig_arg, [IFCFG, IFACE], netmask ], + [ "broadcast", \&gst_network_suse70_get_ifconfig_arg, [IFCFG, IFACE], broadcast ], +# [ "network", \&gst_parse_trivial, 0 ], # not supported. +# [ "gateway", \&gst_parse_sh, IFCFG, GATEWAY ], # not supported + [ "remote_address", \&gst_network_suse70_get_ifconfig_arg, [IFCFG, IFACE], pointopoint ], + [ "enabled", \&gst_network_interface_active, IFACE, + \&gst_network_suse70_active_interfaces_get ], + [ "enabled", \&gst_parse_trivial, 0 ] + ] + }, + + "suse-9.0" => + { + ifaces_get => \&gst_network_suse90_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network/ifcfg-#iface#", + ROUTE_CONF => "/etc/sysconfig/network/routes", + IFACE => "#iface#" + }, + table => + [ + [ "dev", \&gst_network_suse9_get_dev_name, IFACE ], +# [ "enabled", \&gst_network_interface_active, "%dev%", \&gst_network_active_interfaces_get ], + [ "auto", \&gst_network_suse90_get_auto, IFCFG, STARTMODE ], + [ "bootproto", \&gst_network_parse_bootproto, IFCFG, BOOTPROTO ], + [ "address", \&gst_parse_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_parse_sh, IFCFG, NETMASK ], + [ "remote_address", \&gst_parse_sh, IFCFG, REMOTE_IPADDR ], + [ "essid", \&gst_parse_sh, IFCFG, WIRELESS_ESSID ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_sh, IFCFG, WIRELESS_KEY ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_sh, IFCFG, WIRELESS_KEY ]], + [ "gateway", \&gst_network_suse90_get_gateway, ROUTE_CONF, "%address%", "%netmask%" ], + [ "gateway", \&gst_network_suse90_get_plip_gateway, ROUTE_CONF, "%remote_address%" ], + # Modem stuff goes here + [ "serial_port", \&gst_parse_sh, IFCFG, MODEM_DEVICE ], + [ "serial_speed", \&gst_parse_sh, IFCFG, SPEED ], + [ "mtu", \&gst_parse_sh, IFCFG, MTU ], + [ "mru", \&gst_parse_sh, IFCFG, MRU ], +# [ "ppp_options", \&gst_parse_sh, IFCFG, PPPD_OPTIONS ], + [ "dial_command", \&gst_parse_sh, IFCFG, DIALCOMMAND ], + [ "external_line", \&gst_parse_sh, IFCFG, DIALPREFIX ], + [ "section", \&gst_parse_sh, IFCFG, PROVIDER ], + [ "volume", \&gst_parse_sh_re, IFCFG, INIT8, "AT.*[ml]([0-3])" ], + [ "login", \&gst_network_suse90_parse_provider_file, "%section%", USERNAME ], + [ "password", \&gst_network_suse90_parse_provider_file, "%section%", PASSWORD ], + [ "phone_number", \&gst_network_suse90_parse_provider_file, "%section%", PHONE ], + [ "dns1", \&gst_network_suse90_parse_provider_file, "%section%", DNS1 ], + [ "dns2", \&gst_network_suse90_parse_provider_file, "%section%", DNS2 ], + [ "update_dns", \&gst_network_suse90_parse_provider_file_bool, "%section%", MODIFYDNS ], + [ "persist", \&gst_network_suse90_parse_provider_file_bool, "%section%", PERSIST ], + [ "stupid", \&gst_network_suse90_parse_provider_file_bool, "%section%", STUPIDMODE ], + [ "set_default_gw", \&gst_network_suse90_parse_provider_file_bool, "%section%", DEFAULTROUTE ], + ] + }, + + "pld-1.0" => + { + ifaces_get => \&gst_network_sysconfig_pld10_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/interfaces/ifcfg-#iface#", + CHAT => "/etc/sysconfig/interfaces/data/chat-#iface#", + IFACE => "#iface#", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + PUMP => "/etc/pump.conf" + }, + table => + [ + [ "bootproto", \&gst_network_pld10_parse_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_parse_sh_bool, IFCFG, ONBOOT ], +# [ "user", \&gst_parse_sh_bool, IFCFG, USERCTL ], +# [ "name", \&gst_parse_sh, IFCFG, DEVICE ], + [ "dev", \&gst_parse_sh, IFCFG, DEVICE ], + [ "address", \&gst_network_pld10_get_ipaddr, IFCFG, IPADDR, "address" ], + [ "netmask", \&gst_network_pld10_get_ipaddr, IFCFG, IPADDR, "netmask" ], +# [ "broadcast", \&gst_parse_sh, IFCFG, BROADCAST ], +# [ "network", \&gst_parse_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_parse_sh, IFCFG, GATEWAY ], + [ "remote_address", \&gst_parse_sh, IFCFG, REMIP ], +# [ "update_dns", \&gst_network_pump_get_nodns, PUMP, "%dev%", "%bootproto%" ], +# [ "dns1", \&gst_parse_sh, IFCFG, DNS1 ], +# [ "dns2", \&gst_parse_sh, IFCFG, DNS2 ], + [ "update_dns", \&gst_parse_sh_bool, IFCFG, PEERDNS ], + [ "mtu", \&gst_parse_sh, IFCFG, MTU ], + [ "mru", \&gst_parse_sh, IFCFG, MRU ], + [ "login", \&gst_parse_sh, IFCFG, PAPNAME ], + [ "password", \&gst_network_get_pap_passwd, PAP, "%login%" ], + [ "password", \&gst_network_get_pap_passwd, CHAP, "%login%" ], + [ "serial_port", \&gst_parse_sh, IFCFG, MODEMPORT ], + [ "serial_speed", \&gst_parse_sh, IFCFG, LINESPEED ], +# [ "ppp_options", \&gst_parse_sh, IFCFG, PPPOPTIONS ], +# [ "section", \&gst_parse_sh, IFCFG, WVDIALSECT ], + [ "set_default_gw", \&gst_parse_sh_bool, IFCFG, DEFROUTE ], +# [ "debug", \&gst_parse_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_parse_sh_bool, IFCFG, PERSIST ], + [ "serial_escapechars", \&gst_parse_sh_bool, IFCFG, ESCAPECHARS ], + [ "serial_hwctl", \&gst_parse_sh_bool, IFCFG, HARDFLOWCTL ], + [ "phone_number", \&gst_parse_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ], +# [ "enabled", \&gst_network_interface_active, IFACE, \&gst_network_active_interfaces_get ], +# [ "enabled", \&gst_parse_trivial, 0 ] + ] + }, + "slackware-9.1.0" => + { + ifaces_get => \&gst_network_slackware91_ifaces_get_existing, + fn => + { + RC_INET_CONF => "/etc/rc.d/rc.inet1.conf", + RC_INET => "/etc/rc.d/rc.inet1", + RC_LOCAL => "/etc/rc.d/rc.local", + IFACE => "#iface#", + WIRELESS => "/etc/pcmcia/wireless.opts", + PPP_OPTIONS => "/etc/ppp/options", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + CHAT => "/etc/ppp/pppscript", + }, + table => + [ + [ "user", \&gst_parse_trivial, 0 ], # not supported. + [ "dev", \&gst_parse_trivial, IFACE ], + [ "address", \&gst_parse_rcinet1conf, [RC_INET_CONF, IFACE], IPADDR ], + [ "netmask", \&gst_parse_rcinet1conf, [RC_INET_CONF, IFACE], NETMASK ], + [ "gateway", \&gst_network_get_gateway, RC_INET_CONF, GATEWAY, "%address%", "%netmask%" ], + [ "auto", \&gst_network_slackware91_get_auto, [RC_INET, RC_LOCAL, IFACE]], + [ "bootproto", \&gst_network_slackware91_parse_bootproto, [RC_INET_CONF, IFACE]], + [ "essid", \&gst_parse_wireless_opts, [ WIRELESS, IFACE ], \&gst_network_get_wireless_ifaces, ESSID ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_wireless_opts, WIRELESS, IFACE, \&gst_network_get_wireless_ifaces, KEY ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_wireless_opts, WIRELESS, IFACE, \&gst_network_get_wireless_ifaces, KEY ]], + [ "enabled", \&gst_network_interface_active, IFACE, \&gst_network_active_interfaces_get ], + # Modem stuff + [ "update_dns", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "usepeerdns" ]], + [ "noauth", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "noauth" ]], + [ "mtu", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_split_first_str, PPP_OPTIONS, "mtu", "[ \t]+" ]], + [ "mru", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_split_first_str, PPP_OPTIONS, "mru", "[ \t]+" ]], + [ "serial_port", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^(/dev/[^ \t]+)" ]], + [ "serial_speed", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^([0-9]+)" ]], + [ "login", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_re, PPP_OPTIONS, "^name \"?([^\"]*)\"?" ]], + [ "password", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_pap_passwd, CHAP, "%login%" ]], + [ "ppp_options", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_ppp_options_unsup, PPP_OPTIONS ]], + [ "set_default_gw", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "defaultroute" ]], + [ "debug", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "debug" ]], + [ "persist", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "persist" ]], + [ "serial_escapechars", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_split_first_str, PPP_OPTIONS, "escape", "[ \t]+" ]], + [ "serial_hwctl", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_kw, PPP_OPTIONS, "crtscts" ]], + [ "external_line", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_chat, CHAT, "atd[^0-9]*([0-9*#]*)[wW]" ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_chat, CHAT, "atd.*[ptw]([0-9, -]+)" ]], + [ "dial_command", \&gst_network_check_type, [IFACE, "modem", \&gst_parse_chat, CHAT, "(atd[tp])[0-9, -w]+" ]], + [ "volume", \&gst_network_check_type, [IFACE, "modem", \&gst_network_get_modem_volume, CHAT ]], + ] + }, + + "gentoo" => + { + ifaces_get => \&gst_network_gentoo_ifaces_get_existing, + fn => + { + NET => "/etc/conf.d/net", + PPPNET => "/etc/conf.d/net.#iface#", + INIT => "net.#iface#", + IFACE => "#iface#", + WIRELESS => "/etc/conf.d/wireless", + }, + table => + [ + [ "auto", \&gst_service_gentoo_get_service_status, INIT, "default" ], + [ "user", \&gst_parse_trivial, 0 ], # not supported. + [ "dev", \&gst_parse_trivial, IFACE ], + [ "address", \&gst_parse_confd_net_re, NET, "config_%dev%", "^[ \t]*([0-9\.]+)" ], + [ "netmask", \&gst_parse_confd_net_re, NET, "config_%dev%", "netmask[ \t]+([0-9\.]*)" ], + [ "remote_address", \&gst_parse_confd_net_re, NET, "config_%dev%", "dest_address[ \t]+([0-9\.]*)" ], +# [ "gateway", \&gst_parse_sh_re, NET, "gateway", "%dev%/([0-9\.\:]*)" ], + [ "gateway", \&gst_network_gentoo_parse_gateway, [ NET, IFACE ]], + [ "enabled", \&gst_network_interface_active, IFACE, \&gst_network_active_interfaces_get ], + [ "bootproto", \&gst_network_gentoo_parse_bootproto, [ NET, IFACE ]], + [ "essid", \&gst_parse_sh, WIRELESS, "essid_%dev%" ], + [ "key_type", \&gst_network_get_wep_key_type, [ \&gst_parse_sh, WIRELESS, "key_%essid%" ]], + [ "key", \&gst_network_get_wep_key, [ \&gst_parse_sh, WIRELESS, "key_%essid%" ]], + # modem stuff + [ "update_dns", \&gst_parse_sh_bool, PPPNET, PEERDNS ], + [ "mtu", \&gst_parse_sh, PPPNET, MTU ], + [ "mru", \&gst_parse_sh, PPPNET, MRU ], + [ "serial_port", \&gst_parse_sh, PPPNET, MODEMPORT ], + [ "serial_speed", \&gst_parse_sh, PPPNET, LINESPEED ], + [ "login", \&gst_parse_sh, PPPNET, USERNAME ], + [ "password", \&gst_parse_sh, PPPNET, PASSWORD ], + [ "ppp_options", \&gst_parse_sh, PPPNET, PPPOPTIONS ], + [ "set_default_gw", \&gst_parse_sh_bool, PPPNET, DEFROUTE ], + [ "debug", \&gst_parse_sh_bool, PPPNET, DEBUG ], + [ "persist", \&gst_parse_sh_bool, PPPNET, PERSIST ], + [ "serial_escapechars", \&gst_parse_sh_bool, PPPNET, ESCAPECHARS ], + [ "serial_hwctl", \&gst_parse_sh_bool, PPPNET, HARDFLOWCTL ], + [ "external_line", \&gst_parse_sh_re, PPPNET, NUMBER, "^([0-9*#]*)wW" ], + [ "phone_number", \&gst_parse_sh_re, PPPNET, NUMBER, "w?([0-9]*)\$" ], + [ "volume", \&gst_parse_sh_re, PPPNET, INITSTRING, "^at.*[ml]([0-3])" ], + ] + }, + + "freebsd-5" => + { + ifaces_get => \&gst_network_freebsd_ifaces_get_existing, + fn => + { + RC_CONF => "/etc/rc.conf", + RC_CONF_DEFAULT => "/etc/defaults/rc.conf", + STARTIF => "/etc/start_if.#iface#", + PPPCONF => "/etc/ppp/ppp.conf", + IFACE => "#iface#", + }, + table => + [ + [ "auto", \&gst_network_freebsd5_get_auto, [RC_CONF, RC_CONF_DEFAULT, IFACE ]], + [ "user", \&gst_parse_trivial, 0 ], # not supported. + [ "dev", \&gst_parse_trivial, IFACE ], + # we need to double check these values both in the start_if and in the rc.conf files, in this order + [ "address", \&gst_parse_startif, STARTIF, "inet[ \t]+([0-9\.]+)" ], + [ "address", \&gst_parse_sh_re, RC_CONF, "ifconfig_%dev%", "inet[ \t]+([0-9\.]+)" ], + [ "netmask", \&gst_parse_startif, STARTIF, "netmask[ \t]+([0-9\.]+)" ], + [ "netmask", \&gst_parse_sh_re, RC_CONF, "ifconfig_%dev%", "netmask[ \t]+([0-9\.]+)" ], + [ "remote_address", \&gst_parse_startif, STARTIF, "dest_address[ \t]+([0-9\.]+)" ], + [ "remote_address", \&gst_parse_sh_re, RC_CONF, "ifconfig_%dev%", "dest_address[ \t]+([0-9\.]+)" ], + [ "essid", \&gst_parse_startif, STARTIF, "ssid[ \t]+(\".*\"|[^\"][^ ]+)" ], + [ "essid", \&gst_parse_sh_re, RC_CONF, "ifconfig_%dev%", "ssid[ \t]+([^ ]*)" ], + # this is for plip interfaces + [ "gateway", \&gst_network_get_plip_gateway, RC_CONF, "defaultrouter", "%remote_address%" ], + [ "gateway", \&gst_network_get_gateway, RC_CONF, "defaultrouter", "%address%", "%netmask%" ], + [ "enabled", \&gst_network_interface_active, IFACE, \&gst_network_freebsd5_active_interfaces_get ], + [ "bootproto", \&gst_network_parse_bootproto, RC_CONF, "ifconfig_%dev%" ], + # Modem stuff + [ "serial_port", \&gst_network_parse_pppconf, [ PPPCONF, STARTIF, IFACE ], "device" ], + [ "serial_speed", \&gst_network_parse_pppconf, [ PPPCONF, STARTIF, IFACE ], "speed" ], + [ "mtu", \&gst_network_parse_pppconf, [ PPPCONF, STARTIF, IFACE ], "mtu" ], + [ "mru", \&gst_network_parse_pppconf, [ PPPCONF, STARTIF, IFACE ], "mru" ], + [ "login", \&gst_network_parse_pppconf, [ PPPCONF, STARTIF, IFACE ], "authname" ], + [ "password", \&gst_network_parse_pppconf, [ PPPCONF, STARTIF, IFACE ], "authkey" ], + [ "update_dns", \&gst_network_parse_pppconf_bool, [ PPPCONF, STARTIF, IFACE ], "dns" ], + [ "set_default_gw", \&gst_network_parse_pppconf_bool, [ PPPCONF, STARTIF, IFACE ], "default HISADDR" ], + [ "external_line", \&gst_network_parse_pppconf_re, [ PPPCONF, STARTIF, IFACE ], "phone", "[ \t]+([0-9]+)[wW]" ], + [ "phone_number", \&gst_network_parse_pppconf_re, [ PPPCONF, STARTIF, IFACE ], "phone", "[wW]?([0-9]+)[ \t]*\$" ], + [ "dial_command", \&gst_network_parse_pppconf_re, [ PPPCONF, STARTIF, IFACE ], "dial", "(ATD[TP])" ], + [ "volume", \&gst_network_parse_pppconf_re, [ PPPCONF, STARTIF, IFACE ], "dial", "AT.*[ml]([0-3]) OK " ], + [ "persist", \&gst_network_get_freebsd5_ppp_persist, [ STARTIF, IFACE ]], + ] + }, + ); + + my $dist = $dist_map{$gst_dist}; + return %{$dist_tables{$dist}} if $dist; + + &gst_report ("platform_no_table", $gst_dist); + return undef; +} + +sub gst_network_get_replace_table +{ + my %dist_map = + ( + "redhat-5.2" => "redhat-5.2", + "redhat-6.0" => "redhat-6.2", + "redhat-6.1" => "redhat-6.2", + "redhat-6.2" => "redhat-6.2", + "redhat-7.0" => "redhat-7.0", + "redhat-7.1" => "redhat-7.0", + "redhat-7.2" => "redhat-7.2", + "redhat-8.0" => "redhat-7.2", + "redhat-9" => "redhat-7.2", + "rhel-5" => "redhat-7.2", + "rhel-6" => "redhat-7.2", + "mandrake-7.1" => "redhat-6.2", + "mandrake-7.2" => "redhat-6.2", + "mandrake-9.0" => "redhat-7.0", + "mandrake-9.1" => "redhat-7.0", + "mandrake-9.2" => "redhat-7.0", + "mandrake-10.0" => "redhat-7.0", + "mandrake-10.1" => "redhat-7.0", + "mandrake-10.2" => "redhat-7.0", + "mandriva-2006.0" => "redhat-7.0", + "mandriva-2006.1" => "redhat-7.0", + "mandriva-2007.0" => "redhat-7.0", + "mandriva-2007.1" => "redhat-7.0", + "yoper-2.2" => "redhat-7.0", + "blackpanther-4.0" => "redhat-7.0", + "conectiva-9" => "redhat-7.0", + "conectiva-10" => "redhat-7.0", + "debian-2.2" => "debian-2.2", + "debian-3.0" => "debian-2.2", + "debian-3.1" => "debian-2.2", + "debian-4.0" => "debian-2.2", + "debian-5.0" => "debian-2.2", + "debian-testing" => "debian-2.2", + "ubuntu-5.04" => "debian-2.2", + "ubuntu-5.10" => "debian-2.2", + "ubuntu-6.06" => "debian-2.2", + "ubuntu-6.10" => "debian-2.2", + "ubuntu-7.04" => "debian-2.2", + "ubuntu-7.10" => "debian-2.2", + "ubuntu-8.04" => "debian-2.2", + "ubuntu-8.10" => "debian-2.2", + "ubuntu-9.04" => "debian-2.2", + "ubuntu-9.10" => "debian-2.2", + "ubuntu-10.04" => "debian-2.2", + "ubuntu-10.10" => "debian-2.2", + "suse-7.0" => "suse-7.0", + "suse-9.0" => "suse-9.0", + "suse-9.1" => "suse-9.0", + "turbolinux-7.0" => "redhat-7.0", + "pld-1.0" => "pld-1.0", + "pld-1.1" => "pld-1.0", + "pld-1.99" => "pld-1.0", + "fedora-1" => "redhat-7.2", + "fedora-2" => "redhat-7.2", + "fedora-3" => "redhat-7.2", + "fedora-4" => "redhat-7.2", + "fedora-5" => "redhat-7.2", + "fedora-15" => "redhat-7.2", + "fedora-16" => "redhat-7.2", + "fedora-17" => "redhat-7.2", + "rpath" => "redhat-7.2", + "vine-3.0" => "redhat-7.0", + "vine-3.1" => "redhat-7.0", + "ark" => "redhat-7.0", + "slackware-9.1.0" => "slackware-9.1.0", + "slackware-10.0.0" => "slackware-9.1.0", + "slackware-10.1.0" => "slackware-9.1.0", + "slackware-10.2.0" => "slackware-9.1.0", + "slackware-11.0.0" => "slackware-9.1.0", + "slackware-12.0.0" => "slackware-9.1.0", + "slackware-12.1.0" => "slackware-9.1.0", + "slackware-12.2.0" => "slackware-9.1.0", + "slackware-13.0.0" => "slackware-9.1.0", + "slackware-13.1.0" => "slackware-9.1.0", + "slackware-13.37.0" => "slackware-9.1.0", + "slackware-14.0.0" => "slackware-9.1.0", + "gentoo" => "gentoo", + "vlos-1.2" => "gentoo", + "freebsd-5" => "freebsd-5", + "freebsd-6" => "freebsd-5", + ); + + my %dist_tables = + ( + "redhat-6.2" => + { + fn => + { + SYSCONFIG_NW => "/etc/sysconfig/network", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "auto", \&gst_replace_sh_bool, SYSCONFIG_NW, NETWORKING ], + [ "hostname", \&gst_replace_sh, SYSCONFIG_NW, HOSTNAME ], + [ "hostname", \&gst_network_run_hostname ], + [ "gateway", \&gst_replace_sh, SYSCONFIG_NW, GATEWAY], + [ "gatewaydev", \&gst_replace_sh, SYSCONFIG_NW, GATEWAYDEV], + [ "domain", \&gst_replace_sh, SYSCONFIG_NW, DOMAIN], + [ "domain", \&gst_replace_join_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_replace_join_all, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_replace_join_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "order", \&gst_replace_join_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_replace_join_first_bool, HOST_CONF, "multi", "[ \t]+", "on", "off" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_set_status, 91, "smb", "%smbuse%" ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ], + [ "gateway", \&gst_network_route_set_default_gw, "%gatewaydev%" ] + ] + }, + + "redhat-7.0" => + { + fn => + { + SYSCONFIG_NW => "/etc/sysconfig/network", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/samba/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "auto", \&gst_replace_sh_bool, SYSCONFIG_NW, NETWORKING ], + [ "hostname", \&gst_replace_sh, SYSCONFIG_NW, HOSTNAME ], + [ "hostname", \&gst_network_run_hostname ], + [ "gateway", \&gst_replace_sh, SYSCONFIG_NW, GATEWAY], + [ "gatewaydev", \&gst_replace_sh, SYSCONFIG_NW, GATEWAYDEV], + [ "domain", \&gst_replace_sh, SYSCONFIG_NW, DOMAIN], + [ "domain", \&gst_replace_join_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_replace_join_all, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_replace_join_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "order", \&gst_replace_join_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_replace_join_first_bool, HOST_CONF, "multi", "[ \t]+", "on", "off" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_set_status, 91, "smb", "%smbuse%" ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ], + [ "gateway", \&gst_network_route_set_default_gw, "%gatewaydev%" ] + ] + }, + + "redhat-7.2" => + { + fn => + { + SYSCONFIG_NW => ["/etc/sysconfig/networking/profiles/default/network", + "/etc/sysconfig/networking/network", + "/etc/sysconfig/network"], + RESOLV_CONF => ["/etc/sysconfig/networking/profiles/default/resolv.conf", + "/etc/resolv.conf"], + HOST_CONF => "/etc/host.conf", + HOSTS => ["/etc/sysconfig/networking/profiles/default/hosts", + "/etc/hosts"], + SMB_CONF => "/etc/samba/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "auto", \&gst_replace_sh_bool, SYSCONFIG_NW, NETWORKING ], + [ "hostname", \&gst_replace_sh, SYSCONFIG_NW, HOSTNAME ], + [ "hostname", \&gst_network_run_hostname ], + [ "gateway", \&gst_replace_sh, SYSCONFIG_NW, GATEWAY], + [ "gatewaydev", \&gst_replace_sh, SYSCONFIG_NW, GATEWAYDEV], + [ "domain", \&gst_replace_sh, SYSCONFIG_NW, DOMAIN], + [ "domain", \&gst_replace_join_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_replace_join_all, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_replace_join_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "order", \&gst_replace_join_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_replace_join_first_bool, HOST_CONF, "multi", "[ \t]+", "on", "off" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_set_status, 91, "smb", "%smbuse%" ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ], + [ "gateway", \&gst_network_route_set_default_gw, "%gatewaydev%" ] + ] + }, + + "debian-2.2" => + { + fn => + { + OPTIONS => "/etc/network/options", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + HOSTNAME => "/etc/hostname", + SMB_CONF => "/etc/samba/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "hostname", \&gst_replace_line_first, HOSTNAME ], + [ "hostname", \&gst_network_run_hostname ], + [ "domain", \&gst_replace_join_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_replace_join_all, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_replace_join_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "order", \&gst_replace_join_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_replace_join_first_bool, HOST_CONF, "multi", "[ \t]+", "on", "off" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_set_status, 91, "samba" ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ] + ] + }, + + "suse-7.0" => + { + fn => + { + RC_CONFIG => "/etc/rc.config", + ROUTE_CONF => "/etc/route.conf", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/smb.conf", + WVDIAL => "/etc/wvdial.conf", + SUSECONFIG => "SuSEconfig" + }, + table => + [ + [ "hostname", \&gst_replace_sh_set_hostname, RC_CONFIG, FQHOSTNAME ], + [ "hostname", \&gst_network_run_hostname ], + [ "gateway", \&gst_replace_join_first_str, ROUTE_CONF, "default", "[ \t]+" ], + [ "gateway", \&gst_replace_join_first_str, ROUTE_CONF, "0.0.0.0", "[ \t]+" ], + [ "domain", \&gst_replace_sh_set_domain, RC_CONFIG, FQHOSTNAME ], + [ "nameserver", \&gst_replace_sh_join, RC_CONFIG, NAMESERVER, "[ \t]+" ], + [ "searchdomain", \&gst_replace_sh_join, RC_CONFIG, SEARCHLIST, "[ \t]+" ], +# Remove /etc/resolv.conf so SuSEconfig sets the new values. + [ "searchdomain", \&gst_file_remove, RESOLV_CONF ], + [ "order", \&gst_replace_join_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_replace_join_first_bool, HOST_CONF, "multi", "[ \t]+", "on", "off" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_set_status, 20, "smb", "%smbuse%" ], + [ "interface", \&gst_network_suse70_set_ppp, [WVDIAL, "%dialing%"] ], +# We're calling this sepparated cuz we are going to call wvdial to activate. + [ "interface", \&gst_network_suse70_activate_ppp ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ], + [ "_always_", \&gst_file_run, SUSECONFIG ], + ] + }, + + "suse-9.0" => + { + fn => + { + ROUTE_CONF => "/etc/sysconfig/network/routes", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + HOSTNAME => "/etc/HOSTNAME", + SMB_CONF => "/etc/samba/smb.conf", + }, + table => + [ + [ "hostname", \&gst_replace_fq_hostname, HOSTNAME, "%hostname%", "%domain%" ], + [ "hostname", \&gst_network_run_hostname ], + [ "domain", \&gst_replace_join_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_replace_join_all, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_replace_join_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "order", \&gst_replace_join_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_replace_join_first_bool, HOST_CONF, "multi", "[ \t]+", "on", "off" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_suse_set_status, "smb" ], + [ "gateway", \&gst_replace_join_first_str, ROUTE_CONF, "default", "[ \t]+", "%gateway% - -" ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ], + ] + }, + + "pld-1.0" => + { + fn => + { + SYSCONFIG_NW => "/etc/sysconfig/network", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/smb/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "auto", \&gst_replace_sh_bool, SYSCONFIG_NW, NETWORKING ], + [ "hostname", \&gst_replace_sh, SYSCONFIG_NW, HOSTNAME ], + [ "hostname", \&gst_network_run_hostname ], + [ "gateway", \&gst_replace_sh, SYSCONFIG_NW, GATEWAY], + [ "gatewaydev", \&gst_replace_sh, SYSCONFIG_NW, GATEWAYDEV], +# [ "domain", \&gst_replace_sh, SYSCONFIG_NW, DOMAIN], + [ "domain", \&gst_replace_join_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_replace_join_all, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_replace_join_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "order", \&gst_replace_join_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_replace_join_first_bool, HOST_CONF, "multi", "[ \t]+", "on", "off" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_sysv_set_status, 91, "smb", "%smbuse%" ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ], + [ "gateway", \&gst_network_route_set_default_gw, "%gatewaydev%" ] + ] + }, + "slackware-9.1.0" => + { + fn => + { + RC_INET_CONF => "/etc/rc.d/rc.inet1.conf", + RESOLV_CONF => "/etc/resolv.conf", + HOST_CONF => "/etc/host.conf", + HOSTS => "/etc/hosts", + HOSTNAME => "/etc/HOSTNAME", + SMB_CONF => "/etc/samba/smb.conf", + WVDIAL => "/etc/wvdial.conf" + }, + table => + [ + [ "hostname", \&gst_replace_fq_hostname, HOSTNAME, "%hostname%", "%domain%" ], + [ "hostname", \&gst_network_run_hostname ], + [ "gateway", \&gst_replace_rcinet1conf_global, RC_INET_CONF, GATEWAY ], + [ "domain", \&gst_replace_join_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_replace_join_all, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_replace_join_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "order", \&gst_replace_join_first_array, HOST_CONF, "order", "[ \t]+", ",[ \t]*" ], + [ "hostmatch", \&gst_replace_join_first_bool, HOST_CONF, "multi", "[ \t]+", "on", "off" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_bsd_set_status, "/etc/rc.d/rc.samba" ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ], + [ "gateway", \&gst_network_route_set_default_gw, "%gatewaydev%" ] + ] + }, + + "gentoo" => + { + fn => + { + HOSTNAME => "/etc/conf.d/hostname", + DOMAINNAME => "/etc/conf.d/domainname", + NET => "/etc/conf.d/net", + RESOLV_CONF => "/etc/resolv.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/etc/samba/smb.conf" + }, + table => + [ + [ "hostname", \&gst_replace_sh, HOSTNAME, "HOSTNAME" ], + [ "hostname", \&gst_network_run_hostname ], + [ "gateway", \&gst_network_route_set_default_gw, "%gatewaydev%" ], + [ "domain", \&gst_replace_sh, DOMAINNAME, "DNSDOMAIN" ], + [ "domain", \&gst_replace_join_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_replace_join_all, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_replace_join_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_gentoo_set_status, "samba", 1 ], + # first set the gateway to something like "eth0", then add the IP address like "eth0/1.1.1.1" +# [ "gatewaydev", \&gst_replace_sh, NET, gateway ], +# [ "gateway", \&gst_replace_sh_re, NET, gateway, "\/[0-9\.]*\$", "/%gateway%" ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ] + ] + }, + + "freebsd-5" => + { + fn => + { + RC_CONF => "/etc/rc.conf", + RESOLV_CONF => "/etc/resolv.conf", + HOSTS => "/etc/hosts", + SMB_CONF => "/usr/local/etc/smb.conf" + }, + table => + [ + [ "hostname", \&gst_replace_sh, RC_CONF, "hostname", "%hostname%.%domain%" ], + [ "hostname", \&gst_network_run_hostname, "%hostname%.%domain%" ], + [ "domain", \&gst_replace_join_first_str, RESOLV_CONF, "domain", "[ \t]+" ], + [ "nameserver", \&gst_replace_join_all, RESOLV_CONF, "nameserver", "[ \t]+" ], + [ "searchdomain", \&gst_replace_join_first_array, RESOLV_CONF, "search", "[ \t]+", "[ \t]+" ], + [ "statichost", \&gst_replace_join_hash, HOSTS, "[ \t]+", "[ \t]+" ], + [ "workgroup", \&gst_replace_ini, SMB_CONF, "global", "workgroup" ], + [ "smbdesc", \&gst_replace_ini, SMB_CONF, "global", "server string", "%hostname%" ], + [ "winsserver", \&gst_replace_ini, SMB_CONF, "global", "wins server" ], + [ "winsuse", \&gst_replace_ini_bool, SMB_CONF, "global", "wins support" ], + [ "smbuse", \&gst_service_rcng_set_status, "samba" ], + [ "gateway", \&gst_replace_sh, RC_CONF, "defaultrouter" ], + [ "interface", \&gst_network_interfaces_set, OLD_HASH ] + ] + } + ); + + my $dist = $dist_map{$gst_dist}; + return %{$dist_tables{$dist}} if $dist; + + &gst_report ("platform_no_table", $gst_dist); + return undef; +} + +sub gst_network_get_interface_replace_table +{ + my %dist_map = + ( + "redhat-5.2" => "redhat-5.2", + "redhat-6.0" => "redhat-6.2", + "redhat-6.1" => "redhat-6.2", + "redhat-6.2" => "redhat-6.2", + "redhat-7.0" => "redhat-6.2", + "redhat-7.1" => "redhat-6.2", + "redhat-7.2" => "redhat-7.2", + "redhat-8.0" => "redhat-8.0", + "redhat-9" => "redhat-8.0", + "rhel-5" => "redhat-8.0", + "rhel-6" => "redhat-8.0", + "mandrake-7.1" => "redhat-6.2", + "mandrake-7.2" => "redhat-6.2", + "mandrake-9.0" => "mandrake-9.0", + "mandrake-9.1" => "mandrake-9.0", + "mandrake-9.2" => "mandrake-9.0", + "mandrake-10.0" => "mandrake-9.0", + "mandrake-10.1" => "mandrake-9.0", + "mandrake-10.2" => "mandrake-9.0", + "mandriva-2006.0" => "mandrake-9.0", + "mandriva-2006.1" => "mandrake-9.0", + "mandriva-2007.0" => "mandrake-9.0", + "mandriva-2007.1" => "mandrake-9.0", + "yoper-2.2" => "redhat-6.2", + "blackpanther-4.0" => "mandrake-9.0", + "conectiva-9" => "conectiva-9", + "conectiva-10" => "conectiva-9", + "debian-2.2" => "debian-2.2", + "debian-3.0" => "debian-3.0", + "debian-3.1" => "debian-3.0", + "debian-4.0" => "debian-3.0", + "debian-5.0" => "debian-3.0", + "debian-testing" => "debian-3.0", + "ubuntu-5.04" => "debian-3.0", + "ubuntu-5.10" => "debian-3.0", + "ubuntu-6.06" => "debian-3.0", + "ubuntu-6.10" => "debian-3.0", + "ubuntu-7.04" => "debian-3.0", + "ubuntu-7.10" => "debian-3.0", + "ubuntu-8.04" => "debian-3.0", + "ubuntu-8.10" => "debian-3.0", + "ubuntu-9.04" => "debian-3.0", + "ubuntu-9.10" => "debian-3.0", + "ubuntu-10.04" => "debian-3.0", + "ubuntu-10.10" => "debian-3.0", + "suse-7.0" => "suse-7.0", + "suse-9.0" => "suse-9.0", + "suse-9.1" => "suse-9.0", + "turbolinux-7.0" => "redhat-6.2", + "pld-1.0" => "pld-1.0", + "pld-1.1" => "pld-1.0", + "pld-1.99" => "pld-1.0", + "fedora-1" => "redhat-7.2", + "fedora-2" => "redhat-7.2", + "fedora-3" => "redhat-7.2", + "fedora-4" => "redhat-7.2", + "fedora-5" => "redhat-7.2", + "fedora-15" => "redhat-7.2", + "fedora-16" => "redhat-7.2", + "fedora-17" => "redhat-7.2", + "rpath" => "redhat-7.2", + "vine-3.0" => "vine-3.0", + "vine-3.1" => "vine-3.0", + "ark" => "vine-3.0", + "slackware-9.1.0" => "slackware-9.1.0", + "slackware-10.0.0" => "slackware-9.1.0", + "slackware-10.1.0" => "slackware-9.1.0", + "slackware-10.2.0" => "slackware-9.1.0", + "slackware-11.0.0" => "slackware-9.1.0", + "slackware-12.0.0" => "slackware-9.1.0", + "slackware-12.1.0" => "slackware-9.1.0", + "slackware-12.2.0" => "slackware-9.1.0", + "slackware-13.0.0" => "slackware-9.1.0", + "slackware-13.1.0" => "slackware-9.1.0", + "slackware-13.37.0" => "slackware-9.1.0", + "slackware-14.0.0" => "slackware-9.1.0", + "gentoo" => "gentoo", + "vlos-1.2" => "gentoo", + "freebsd-5" => "freebsd-5", + "freebsd-6" => "freebsd-5", + ); + + my %dist_tables = + ( + "redhat-6.2" => + { + iface_set => \&gst_network_rh62_interface_activate, + iface_delete => \&gst_network_rh62_interface_delete, + ifaces_get => \&gst_network_sysconfig_rh62_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network-scripts/ifcfg-#iface#", + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + WVDIAL => "/etc/wvdial.conf", + PUMP => "/etc/pump.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_replace_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_replace_sh_bool, IFCFG, ONBOOT ], + [ "user", \&gst_replace_sh_bool, IFCFG, USERCTL ], + [ "dev", \&gst_replace_sh, IFCFG, NAME ], + [ "dev", \&gst_replace_sh, IFCFG, DEVICE ], + [ "address", \&gst_replace_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_replace_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_replace_sh, IFCFG, BROADCAST ], + [ "network", \&gst_replace_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_replace_sh, IFCFG, GATEWAY ], + [ "update_dns", \&gst_network_pump_set_nodns, PUMP, "%dev%", "%bootproto%" ], + [ "update_dns", \&gst_replace_sh_bool, IFCFG, PEERDNS ], + [ "dns1", \&gst_replace_sh, IFCFG, DNS1 ], + [ "dns2", \&gst_replace_sh, IFCFG, DNS2 ], + [ "mtu", \&gst_replace_sh, IFCFG, MTU ], + [ "mru", \&gst_replace_sh, IFCFG, MRU ], + [ "remote_address", \&gst_replace_sh, IFCFG, REMIP ], + [ "login", \&gst_replace_sh, IFCFG, PAPNAME ], + [ "serial_port", \&gst_replace_sh, IFCFG, MODEMPORT ], + [ "serial_speed", \&gst_replace_sh, IFCFG, LINESPEED ], + [ "ppp_options", \&gst_replace_sh, IFCFG, PPPOPTIONS ], + [ "section", \&gst_replace_sh, IFCFG, WVDIALSECT ], + [ "set_default_gw", \&gst_replace_sh_bool, IFCFG, DEFROUTE ], + [ "debug", \&gst_replace_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_replace_sh_bool, IFCFG, PERSIST ], + [ "serial_escapechars", \&gst_replace_sh_bool, IFCFG, ESCAPECHARS ], + [ "serial_hwctl", \&gst_replace_sh_bool, IFCFG, HARDFLOWCTL ], + [ "phone_number", \&gst_replace_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ], + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "redhat-7.2" => + { + iface_set => \&gst_network_rh62_interface_activate, + iface_delete => \&gst_network_rh72_interface_delete, + ifaces_get => \&gst_network_sysconfig_rh72_ifaces_get_existing, + fn => + { + IFCFG => ["/etc/sysconfig/network-scripts/ifcfg-#iface#", + "/etc/sysconfig/networking/profiles/default/ifcfg-#iface#", + "/etc/sysconfig/networking/devices/ifcfg-#iface#"], + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + WVDIAL => "/etc/wvdial.conf", + PUMP => "/etc/pump.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_replace_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_replace_sh_bool, IFCFG, ONBOOT ], + [ "user", \&gst_replace_sh_bool, IFCFG, USERCTL ], + [ "name", \&gst_replace_sh, IFCFG, NAME ], + [ "dev", \&gst_replace_sh, IFCFG, DEVICE ], + [ "address", \&gst_replace_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_replace_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_replace_sh, IFCFG, BROADCAST ], + [ "network", \&gst_replace_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_replace_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_replace_sh, IFCFG, ESSID ], + [ "key", \&gst_replace_sh, IFCFG, KEY ], + [ "key_type", \&gst_network_set_wep_key_type, [ \&gst_replace_sh, IFCFG, KEY, "%key%" ]], + [ "update_dns", \&gst_network_pump_set_nodns, PUMP, "%dev%", "%bootproto%" ], + [ "update_dns", \&gst_replace_sh_bool, IFCFG, PEERDNS ], + [ "dns1", \&gst_replace_sh, IFCFG, DNS1 ], + [ "dns2", \&gst_replace_sh, IFCFG, DNS2 ], + [ "mtu", \&gst_replace_sh, IFCFG, MTU ], + [ "mru", \&gst_replace_sh, IFCFG, MRU ], + [ "remote_address", \&gst_replace_sh, IFCFG, REMIP ], + [ "login", \&gst_replace_sh, IFCFG, PAPNAME ], + [ "serial_port", \&gst_replace_sh, IFCFG, MODEMPORT ], + [ "serial_speed", \&gst_replace_sh, IFCFG, LINESPEED ], + [ "ppp_options", \&gst_replace_sh, IFCFG, PPPOPTIONS ], + [ "section", \&gst_replace_sh, IFCFG, WVDIALSECT ], + [ "set_default_gw", \&gst_replace_sh_bool, IFCFG, DEFROUTE ], + [ "debug", \&gst_replace_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_replace_sh_bool, IFCFG, PERSIST ], + [ "serial_escapechars", \&gst_replace_sh_bool, IFCFG, ESCAPECHARS ], + [ "serial_hwctl", \&gst_replace_sh_bool, IFCFG, HARDFLOWCTL ], + [ "phone_number", \&gst_replace_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ], + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "redhat-8.0" => + { + iface_set => \&gst_network_rh62_interface_activate, + iface_delete => \&gst_network_rh72_interface_delete, + ifaces_get => \&gst_network_sysconfig_rh72_ifaces_get_existing, + fn => + { + IFCFG => ["/etc/sysconfig/network-scripts/ifcfg-#iface#", + "/etc/sysconfig/networking/profiles/default/ifcfg-#iface#", + "/etc/sysconfig/networking/devices/ifcfg-#iface#"], + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + WVDIAL => "/etc/wvdial.conf", + PUMP => "/etc/pump.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_replace_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_replace_sh_bool, IFCFG, ONBOOT ], + [ "user", \&gst_replace_sh_bool, IFCFG, USERCTL ], + [ "name", \&gst_replace_sh, IFCFG, NAME ], + [ "dev", \&gst_replace_sh, IFCFG, DEVICE ], + [ "address", \&gst_replace_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_replace_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_replace_sh, IFCFG, BROADCAST ], + [ "network", \&gst_replace_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_replace_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_replace_sh, IFCFG, WIRELESS_ESSID ], + [ "key", \&gst_replace_sh, IFCFG, WIRELESS_KEY ], + [ "key_type", \&gst_network_set_wep_key_type, [ \&gst_replace_sh, IFCFG, WIRELESS_KEY, "%key%" ]], + [ "update_dns", \&gst_network_pump_set_nodns, PUMP, "%dev%", "%bootproto%" ], + [ "update_dns", \&gst_replace_sh_bool, IFCFG, PEERDNS ], + [ "dns1", \&gst_replace_sh, IFCFG, DNS1 ], + [ "dns2", \&gst_replace_sh, IFCFG, DNS2 ], + [ "mtu", \&gst_replace_sh, IFCFG, MTU ], + [ "mru", \&gst_replace_sh, IFCFG, MRU ], + [ "remote_address", \&gst_replace_sh, IFCFG, REMIP ], + [ "login", \&gst_replace_sh, IFCFG, PAPNAME ], + [ "serial_port", \&gst_replace_sh, IFCFG, MODEMPORT ], + [ "serial_speed", \&gst_replace_sh, IFCFG, LINESPEED ], + [ "ppp_options", \&gst_replace_sh, IFCFG, PPPOPTIONS ], + [ "section", \&gst_replace_sh, IFCFG, WVDIALSECT ], + [ "set_default_gw", \&gst_replace_sh_bool, IFCFG, DEFROUTE ], + [ "debug", \&gst_replace_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_replace_sh_bool, IFCFG, PERSIST ], + [ "serial_escapechars", \&gst_replace_sh_bool, IFCFG, ESCAPECHARS ], + [ "serial_hwctl", \&gst_replace_sh_bool, IFCFG, HARDFLOWCTL ], + [ "phone_number", \&gst_replace_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ], + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "vine-3.0" => + { + iface_set => \&gst_network_rh62_interface_activate, + iface_delete => \&gst_network_rh62_interface_delete, + ifaces_get => \&gst_network_sysconfig_rh62_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network-scripts/ifcfg-#iface#", + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + WVDIAL => "/etc/wvdial.conf", + PUMP => "/etc/pump.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_replace_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_replace_sh_bool, IFCFG, ONBOOT ], + [ "user", \&gst_replace_sh_bool, IFCFG, USERCTL ], + [ "name", \&gst_replace_sh, IFCFG, NAME ], + [ "dev", \&gst_replace_sh, IFCFG, DEVICE ], + [ "address", \&gst_replace_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_replace_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_replace_sh, IFCFG, BROADCAST ], + [ "network", \&gst_replace_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_replace_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_replace_sh, IFCFG, ESSID ], + [ "key", \&gst_replace_sh, IFCFG, KEY ], + [ "key_type", \&gst_network_set_wep_key_type, [ \&gst_replace_sh, IFCFG, KEY, "%key%" ]], + [ "update_dns", \&gst_network_pump_set_nodns, PUMP, "%dev%", "%bootproto%" ], + [ "update_dns", \&gst_replace_sh_bool, IFCFG, PEERDNS ], + [ "dns1", \&gst_replace_sh, IFCFG, DNS1 ], + [ "dns2", \&gst_replace_sh, IFCFG, DNS2 ], + [ "mtu", \&gst_replace_sh, IFCFG, MTU ], + [ "mru", \&gst_replace_sh, IFCFG, MRU ], + [ "remote_address", \&gst_replace_sh, IFCFG, REMIP ], + [ "login", \&gst_replace_sh, IFCFG, PAPNAME ], + [ "serial_port", \&gst_replace_sh, IFCFG, MODEMPORT ], + [ "serial_speed", \&gst_replace_sh, IFCFG, LINESPEED ], + [ "ppp_options", \&gst_replace_sh, IFCFG, PPPOPTIONS ], + [ "section", \&gst_replace_sh, IFCFG, WVDIALSECT ], + [ "set_default_gw", \&gst_replace_sh_bool, IFCFG, DEFROUTE ], + [ "debug", \&gst_replace_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_replace_sh_bool, IFCFG, PERSIST ], + [ "serial_escapechars", \&gst_replace_sh_bool, IFCFG, ESCAPECHARS ], + [ "serial_hwctl", \&gst_replace_sh_bool, IFCFG, HARDFLOWCTL ], + [ "phone_number", \&gst_replace_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ], + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "mandrake-9.0" => + { + iface_set => \&gst_network_rh62_interface_activate, + iface_delete => \&gst_network_rh62_interface_delete, + ifaces_get => \&gst_network_sysconfig_rh62_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network-scripts/ifcfg-#iface#", + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + WVDIAL => "/etc/wvdial.conf", + PUMP => "/etc/pump.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_replace_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_replace_sh_bool, IFCFG, ONBOOT ], + [ "user", \&gst_replace_sh_bool, IFCFG, USERCTL ], + [ "name", \&gst_replace_sh, IFCFG, NAME ], + [ "dev", \&gst_replace_sh, IFCFG, DEVICE ], + [ "address", \&gst_replace_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_replace_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_replace_sh, IFCFG, BROADCAST ], + [ "network", \&gst_replace_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_replace_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_replace_sh, IFCFG, WIRELESS_ESSID ], + [ "key", \&gst_replace_sh, IFCFG, WIRELESS_KEY ], + [ "key_type", \&gst_network_set_wep_key_type, [ \&gst_replace_sh, IFCFG, WIRELESS_KEY, "%key%" ]], + [ "update_dns", \&gst_network_pump_set_nodns, PUMP, "%dev%", "%bootproto%" ], + [ "update_dns", \&gst_replace_sh_bool, IFCFG, PEERDNS ], + [ "dns1", \&gst_replace_sh, IFCFG, DNS1 ], + [ "dns2", \&gst_replace_sh, IFCFG, DNS2 ], + [ "mtu", \&gst_replace_sh, IFCFG, MTU ], + [ "mru", \&gst_replace_sh, IFCFG, MRU ], + [ "remote_address", \&gst_replace_sh, IFCFG, REMIP ], + [ "login", \&gst_replace_sh, IFCFG, PAPNAME ], + [ "serial_port", \&gst_replace_sh, IFCFG, MODEMPORT ], + [ "serial_speed", \&gst_replace_sh, IFCFG, LINESPEED ], + [ "ppp_options", \&gst_replace_sh, IFCFG, PPPOPTIONS ], + [ "section", \&gst_replace_sh, IFCFG, WVDIALSECT ], + [ "set_default_gw", \&gst_replace_sh_bool, IFCFG, DEFROUTE ], + [ "debug", \&gst_replace_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_replace_sh_bool, IFCFG, PERSIST ], + [ "serial_escapechars", \&gst_replace_sh_bool, IFCFG, ESCAPECHARS ], + [ "serial_hwctl", \&gst_replace_sh_bool, IFCFG, HARDFLOWCTL ], + [ "phone_number", \&gst_replace_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ], + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "conectiva-9" => + { + iface_set => \&gst_network_rh62_interface_activate, + iface_delete => \&gst_network_rh62_interface_delete, + ifaces_get => \&gst_network_sysconfig_rh62_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network-scripts/ifcfg-#iface#", + CHAT => "/etc/sysconfig/network-scripts/chat-#iface#", + IFACE => "#iface#", + WVDIAL => "/etc/wvdial.conf", + PUMP => "/etc/pump.conf" + }, + table => + [ + [ "bootproto", \&gst_network_rh62_replace_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_replace_sh_bool, IFCFG, ONBOOT ], + [ "user", \&gst_replace_sh_bool, IFCFG, USERCTL ], + [ "name", \&gst_replace_sh, IFCFG, NAME ], + [ "dev", \&gst_replace_sh, IFCFG, DEVICE ], + [ "address", \&gst_replace_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_replace_sh, IFCFG, NETMASK ], + [ "broadcast", \&gst_replace_sh, IFCFG, BROADCAST ], + [ "network", \&gst_replace_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_replace_sh, IFCFG, GATEWAY ], + [ "essid", \&gst_replace_sh, IFCFG, WIRELESS_ESSID ], + [ "key", \&gst_replace_sh, IFCFG, WIRELESS_KEY ], + [ "key_type", \&gst_network_set_wep_key_type, [ \&gst_replace_sh, IFCFG, WIRELESS_KEY, "%key%" ]], + [ "update_dns", \&gst_network_pump_set_nodns, PUMP, "%dev%", "%bootproto%" ], + [ "update_dns", \&gst_replace_sh_bool, IFCFG, PEERDNS ], + [ "dns1", \&gst_replace_sh, IFCFG, DNS1 ], + [ "dns2", \&gst_replace_sh, IFCFG, DNS2 ], + [ "mtu", \&gst_replace_sh, IFCFG, MTU ], + [ "mru", \&gst_replace_sh, IFCFG, MRU ], + [ "remote_address", \&gst_replace_sh, IFCFG, REMIP ], + [ "login", \&gst_replace_sh, IFCFG, PAPNAME ], + [ "serial_port", \&gst_replace_sh, IFCFG, MODEMPORT ], + [ "serial_speed", \&gst_replace_sh, IFCFG, LINESPEED ], + [ "ppp_options", \&gst_replace_sh, IFCFG, PPPOPTIONS ], + [ "section", \&gst_replace_sh, IFCFG, WVDIALSECT ], + [ "set_default_gw", \&gst_replace_sh_bool, IFCFG, DEFROUTE ], + [ "debug", \&gst_replace_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_replace_sh_bool, IFCFG, PERSIST ], + [ "serial_escapechars", \&gst_replace_sh_bool, IFCFG, ESCAPECHARS ], + [ "serial_hwctl", \&gst_replace_sh_bool, IFCFG, HARDFLOWCTL ], + [ "phone_number", \&gst_replace_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ], + # wvdial settings + [ "phone_number", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Phone" ]], + [ "update_dns", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto DNS" ]], + [ "login", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Username" ]], + [ "password", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Password" ]], + [ "serial_port", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Modem" ]], + [ "serial_speed", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Baud" ]], + [ "set_default_gw", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Check Def Route" ]], + [ "persist", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Auto Reconnect" ]], + [ "dial_command", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Command" ]], + [ "external_line", \&gst_network_check_type, ["%dev%", "modem", \&gst_replace_ini, WVDIAL, "Dialer %section%", "Dial Prefix" ]], + ] + }, + + "debian-2.2" => + { + iface_set => \&gst_network_rh62_interface_activate, # They use the same ifup/ifdown cmds. + iface_delete => \&gst_network_deb22_interface_delete, + ifaces_get => \&gst_network_debian_ifaces_get_existing, + fn => + { + INTERFACES => "/etc/network/interfaces", + IFACE => "#iface#", + CHAT => "/etc/chatscripts/%section%", + PPP_OPTIONS => "/etc/ppp/peers/%section%", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + PUMP => "/etc/pump.conf" + }, + table => + [ +# not sup [ "user", \&gst_parse_sh_bool, IFCFG, USERCTL ], + [ "_always_", \&gst_network_deb22_replace_bootproto, [INTERFACES, IFACE]], + [ "bootproto", \&gst_network_deb22_replace_bootproto, [INTERFACES, IFACE]], + [ "auto", \&gst_replace_interfaces_option_kw_not, [INTERFACES, IFACE], "noauto" ], + [ "name", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "name" ], + [ "address", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "address" ], + [ "netmask", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "netmask" ], + [ "broadcast", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "broadcast" ], + [ "network", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "network" ], + [ "gateway", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "gateway" ], + [ "section", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "provider" ], + [ "update_dns", \&gst_network_pump_set_nodns, PUMP, "%dev%", "%bootproto%" ], + [ "update_dns", \&gst_replace_kw, PPP_OPTIONS, "usepeerdns" ], +# not sup [ "dns1", \&gst_replace_sh, IFCFG, DNS1 ], +# not sup [ "dns2", \&gst_replace_sh, IFCFG, DNS2 ], + [ "noauth", \&gst_replace_kw, PPP_OPTIONS, "noauth" ], + [ "mtu", \&gst_replace_join_first_str, PPP_OPTIONS, "mtu", "[ \t]+" ], + [ "mru", \&gst_replace_join_first_str, PPP_OPTIONS, "mru", "[ \t]+" ], + [ "remote_address", \&gst_network_debian_replace_remote_address, [INTERFACES, IFACE]], + [ "login", \&gst_replace_join_first_str, PPP_OPTIONS, "user", "[ \t]+" ], + [ "serial_port", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^(/dev/[^ \t]+)" ], + [ "serial_speed", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^([0-9]+)" ], + [ "section", \&gst_network_set_ppp_options_connect, PPP_OPTIONS ], + [ "ppp_options", \&gst_network_set_ppp_options_unsup, PPP_OPTIONS ], + [ "set_default_gw", \&gst_replace_kw, PPP_OPTIONS, "defaultroute" ], + [ "debug", \&gst_replace_kw, PPP_OPTIONS, "debug" ], + [ "persist", \&gst_replace_kw, PPP_OPTIONS, "persist" ], + [ "serial_escapechars", \&gst_replace_join_first_str, PPP_OPTIONS, "escape", "[ \t]+" ], + [ "serial_hwctl", \&gst_replace_kw, PPP_OPTIONS, "crtscts" ], + [ "phone_number", \&gst_replace_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ], + ] + }, + + # Basicly the same as debian-2.2, but the "auto" option changes. + "debian-3.0" => + { + iface_set => \&gst_network_rh62_interface_activate, # They use the same ifup/ifdown cmds. + iface_delete => \&gst_network_deb22_interface_delete, + ifaces_get => \&gst_network_debian_ifaces_get_existing, + fn => + { + INTERFACES => "/etc/network/interfaces", + IFACE => "#iface#", + CHAT => "/etc/chatscripts/%section%", + PPP_OPTIONS => "/etc/ppp/peers/%section%", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + }, + table => + [ + [ "_always_", \&gst_network_deb22_replace_bootproto, [INTERFACES, IFACE]], + [ "bootproto", \&gst_network_deb22_replace_bootproto, [INTERFACES, IFACE]], + [ "auto", \&gst_network_debian_woody_set_auto, [INTERFACES, IFACE]], + [ "address", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "address" ], + [ "netmask", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "netmask" ], + [ "gateway", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "gateway" ], + [ "essid", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "wireless-essid" ], + [ "key", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "wireless-key" ], + [ "key_type", \&gst_network_set_wep_key_type, [ \&gst_replace_interfaces_option_str, INTERFACES, IFACE, "wireless-key", "%key%" ]], + # ugly hack for deleting undesired options (due to syntax duality) + [ "essid", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "wireless_essid", "" ], + [ "key", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "wireless_key", "" ], + [ "key", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "wireless_key1", "" ], + # End of hack + [ "section", \&gst_replace_interfaces_option_str, [INTERFACES, IFACE], "provider" ], + [ "remote_address", \&gst_network_debian_replace_remote_address, [INTERFACES, IFACE]], + # Modem stuff + [ "section", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_ppp_options_connect, PPP_OPTIONS ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "modem", \&gst_network_create_pppscript, CHAT ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "isdn", \&gst_network_create_isdn_options, PPP_OPTIONS ]], + [ "update_dns", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_replace_kw, PPP_OPTIONS, "usepeerdns" ]], + [ "noauth", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_replace_kw, PPP_OPTIONS, "noauth" ]], + [ "set_default_gw", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_replace_kw, PPP_OPTIONS, "defaultroute" ]], + [ "debug", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_replace_kw, PPP_OPTIONS, "debug" ]], + [ "persist", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_replace_kw, PPP_OPTIONS, "persist" ]], + [ "serial_hwctl", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_kw, PPP_OPTIONS, "crtscts" ]], + [ "mtu", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_replace_join_first_str, PPP_OPTIONS, "mtu", "[ \t]+" ]], + [ "mru", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_replace_join_first_str, PPP_OPTIONS, "mru", "[ \t]+" ]], + [ "serial_port", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^(/dev/[^ \t]+)" ]], + [ "serial_speed", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^([0-9]+)" ]], + [ "login", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^user (.*)", "user \"%login%\"" ]], + [ "password", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_network_set_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, [IFACE, "(modem|isdn)", \&gst_network_set_pap_passwd, CHAP, "%login%" ]], + [ "serial_escapechars", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_join_first_str, PPP_OPTIONS, "escape", "[ \t]+" ]], + [ "dial_command", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_chat, CHAT, "(atd[tp])[0-9w, -]+" ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_chat, CHAT, "atd[tp]([0-9w]+)" ]], + [ "external_line", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_chat, CHAT, "atd[tp]([0-9w, -]+)", "%external_line%W%phone_number%" ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "isdn", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^number (.*)", "number %phone_number%" ]], + [ "external_line", \&gst_network_check_type, [IFACE, "isdn", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^number (.*)", "number %external_line%W%phone_number%" ]], + [ "volume", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_modem_volume, CHAT ]], + ] + }, + + "suse-7.0" => + { + iface_set => \&gst_network_suse70_interface_activate, + iface_delete => \&gst_network_suse70_interface_delete, + ifaces_get => \&gst_network_suse70_ifaces_get_existing, + fn => + { + IFCFG => "/etc/rc.config", + IFACE => "#iface#", + PPP_OPTIONS => "/etc/ppp/options" + }, + table => + [ +# bootproto has to go second for suse, as it uses the same value for bootproto and params. + [ "bootproto", \&gst_network_suse70_replace_bootproto, [IFCFG, IFACE] ], + [ "auto", \&gst_network_suse70_replace_iface_auto, [IFCFG, IFACE], NETCONFIG ], + [ "dev", \&gst_network_suse70_replace_iface_sh, [IFCFG, IFACE], NETDEV ], +# not sup [ "user", \&gst_parse_trivial, 0 ], # not supported. + [ "name", \&gst_network_suse70_replace_iface_sh, [IFCFG, IFACE], GST_IFACE_NAME ], + [ "address", \&gst_network_suse70_replace_iface_sh, [IFCFG, IFACE], IPADDR ], + [ "address", \&gst_network_suse70_set_ifconfig_ip, [IFCFG, IFACE] ], + [ "netmask", \&gst_network_suse70_set_ifconfig_arg, [IFCFG, IFACE], netmask ], + [ "broadcast", \&gst_network_suse70_set_ifconfig_arg, [IFCFG, IFACE], broadcast ], +# [ "network", \&gst_parse_trivial, 0 ], # not supported. +# [ "gateway", \&gst_parse_sh, IFCFG, GATEWAY ], # not supported + [ "remote_address", \&gst_network_suse70_set_ifconfig_arg, [IFCFG, IFACE], pointopoint ], + [ "update_dns", \&gst_replace_kw, PPP_OPTIONS, "usepeerdns" ] + ] + }, + + "suse-9.0" => + { + iface_set => \&gst_network_suse9_interface_activate, + iface_delete => \&gst_network_suse90_interface_delete, + ifaces_get => \&gst_network_suse90_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/network/ifcfg-#iface#", + ROUTE_CONF => "/etc/sysconfig/network/routes", + IFACE => "#iface#", + PPP_OPTIONS => "/etc/ppp/options" + }, + table => + [ + [ "auto", \&gst_network_suse90_set_auto, IFCFG, STARTMODE ], + [ "bootproto", \&gst_network_suse90_replace_bootproto, IFCFG, BOOTPROTO ], + [ "address", \&gst_replace_sh, IFCFG, IPADDR ], + [ "netmask", \&gst_replace_sh, IFCFG, NETMASK ], + [ "remote_address", \&gst_replace_sh, IFCFG, REMOTE_IPADDR ], + [ "essid", \&gst_replace_sh, IFCFG, WIRELESS_ESSID ], + [ "key", \&gst_replace_sh, IFCFG, WIRELESS_KEY ], + [ "key_type", \&gst_network_set_wep_key_type, [ \&gst_replace_sh, IFCFG, WIRELESS_KEY, "%key%" ]], + # Modem stuff goes here + [ "serial_port", \&gst_replace_sh, IFCFG, MODEM_DEVICE ], + [ "serial_speed", \&gst_replace_sh, IFCFG, SPEED ], + [ "mtu", \&gst_replace_sh, IFCFG, MTU ], + [ "mru", \&gst_replace_sh, IFCFG, MRU ], + [ "ppp_options", \&gst_replace_sh, IFCFG, PPPD_OPTIONS ], + [ "dial_command", \&gst_replace_sh, IFCFG, DIALCOMMAND ], + [ "external_line", \&gst_replace_sh, IFCFG, DIALPREFIX ], + [ "provider", \&gst_replace_sh, IFCFG, PROVIDER ], + [ "volume", \&gst_network_check_type, [ IFACE, "modem", \&gst_network_set_modem_volume_string, IFCFG, INIT8 ]], + [ "login", \&gst_network_suse90_replace_provider_file, "%provider%", USERNAME ], + [ "password", \&gst_network_suse90_replace_provider_file, "%provider%", PASSWORD ], + [ "phone_number", \&gst_network_suse90_replace_provider_file, "%provider%", PHONE ], + [ "dns1", \&gst_network_suse90_replace_provider_file, "%provider%", DNS1 ], + [ "dns2", \&gst_network_suse90_replace_provider_file, "%provider%", DNS2 ], + [ "update_dns", \&gst_network_suse90_replace_provider_file_bool, "%provider%", MODIFYDNS ], + [ "stupid", \&gst_network_suse90_replace_provider_file_bool, "%provider%", STUPIDMODE ], + [ "persist", \&gst_network_suse90_replace_provider_file_bool, "%provider%", PERSIST ], + [ "set_default_gw", \&gst_network_suse90_replace_provider_file_bool, "%provider%", DEFAULTROUTE ], + ] + }, + + "pld-1.0" => + { + iface_set => \&gst_network_rh62_interface_activate, + iface_delete => \&gst_network_pld10_interface_delete, + ifaces_get => \&gst_network_sysconfig_pld10_ifaces_get_existing, + fn => + { + IFCFG => "/etc/sysconfig/interfaces/ifcfg-#iface#", + CHAT => "/etc/sysconfig/interfaces/data/chat-#iface#", + IFACE => "#iface#", + WVDIAL => "/etc/wvdial.conf", + PUMP => "/etc/pump.conf" + }, + table => + [ + [ "bootproto", \&gst_network_pld10_replace_bootproto, IFCFG, BOOTPROTO ], + [ "auto", \&gst_replace_sh_bool, IFCFG, ONBOOT ], + [ "user", \&gst_replace_sh_bool, IFCFG, USERCTL ], +# [ "name", \&gst_replace_sh, IFCFG, NAME ], + [ "dev", \&gst_replace_sh, IFCFG, DEVICE ], + [ "address", \&gst_network_pld10_set_ipaddr, IFCFG, IPADDR, "address" ], + [ "netmask", \&gst_network_pld10_set_ipaddr, IFCFG, IPADDR, "netmask" ], +# [ "broadcast", \&gst_replace_sh, IFCFG, BROADCAST ], +# [ "network", \&gst_replace_sh, IFCFG, NETWORK ], + [ "gateway", \&gst_replace_sh, IFCFG, GATEWAY ], +# [ "update_dns", \&gst_network_pump_set_nodns, PUMP, "%dev%", "%bootproto%" ], + [ "update_dns", \&gst_replace_sh_bool, IFCFG, PEERDNS ], +# [ "dns1", \&gst_replace_sh, IFCFG, DNS1 ], +# [ "dns2", \&gst_replace_sh, IFCFG, DNS2 ], + [ "mtu", \&gst_replace_sh, IFCFG, MTU ], + [ "mru", \&gst_replace_sh, IFCFG, MRU ], + [ "remote_address", \&gst_replace_sh, IFCFG, REMIP ], + [ "login", \&gst_replace_sh, IFCFG, PAPNAME ], + [ "serial_port", \&gst_replace_sh, IFCFG, MODEMPORT ], + [ "serial_speed", \&gst_replace_sh, IFCFG, LINESPEED ], + [ "ppp_options", \&gst_replace_sh, IFCFG, PPPOPTIONS ], +# [ "section", \&gst_replace_sh, IFCFG, WVDIALSECT ], + [ "set_default_gw", \&gst_replace_sh_bool, IFCFG, DEFROUTE ], + [ "debug", \&gst_replace_sh_bool, IFCFG, DEBUG ], + [ "persist", \&gst_replace_sh_bool, IFCFG, PERSIST ], + [ "serial_escapechars", \&gst_replace_sh_bool, IFCFG, ESCAPECHARS ], + [ "serial_hwctl", \&gst_replace_sh_bool, IFCFG, HARDFLOWCTL ], + [ "phone_number", \&gst_replace_chat, CHAT, "^atd[^0-9]*([0-9, -]+)" ] + ] + }, + + "slackware-9.1.0" => + { + iface_set => \&gst_network_slackware91_interface_activate, + iface_delete => \&gst_network_slackware91_interface_delete, + ifaces_get => \&gst_network_slackware91_ifaces_get_existing, + fn => + { + RC_INET_CONF => "/etc/rc.d/rc.inet1.conf", + RC_INET => "/etc/rc.d/rc.inet1", + RC_LOCAL => "/etc/rc.d/rc.local", + IFACE => "#iface#", + WIRELESS => "/etc/pcmcia/wireless.opts", + PPP_OPTIONS => "/etc/ppp/options", + PAP => "/etc/ppp/pap-secrets", + CHAP => "/etc/ppp/chap-secrets", + CHAT => "/etc/ppp/pppscript", + }, + table => + [ + [ "address", \&gst_replace_rcinet1conf, [ RC_INET_CONF, IFACE ], IPADDR ], + [ "netmask", \&gst_replace_rcinet1conf, [ RC_INET_CONF, IFACE ], NETMASK ], + [ "gateway", \&gst_replace_rcinet1conf_global, RC_INET_CONF, GATEWAY ], + [ "bootproto", \&gst_network_slackware91_replace_bootproto, [ RC_INET_CONF, IFACE ] ], + [ "auto", \&gst_network_slackware91_set_auto, [ RC_INET, RC_LOCAL, IFACE ] ], + [ "essid", \&gst_replace_wireless_opts, [ WIRELESS, IFACE ], \&gst_network_get_wireless_ifaces, ESSID ], + [ "key", \&gst_replace_wireless_opts, [ WIRELESS, IFACE ], \&gst_network_get_wireless_ifaces, KEY ], + [ "key_type", \&gst_network_set_wep_key_type, [ \&gst_replace_wireless_opts, [ WIRELESS, IFACE ], \&gst_network_get_wireless_ifaces, KEY, "%key%" ]], + # Modem stuff + [ "phone_number", \&gst_network_check_type, [IFACE, "modem", \&gst_network_create_pppscript, CHAT ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "modem", \&gst_network_slackware91_create_pppgo ]], + [ "update_dns", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_kw, PPP_OPTIONS, "usepeerdns" ]], + [ "noauth", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_kw, PPP_OPTIONS, "noauth" ]], + [ "set_default_gw", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_kw, PPP_OPTIONS, "defaultroute" ]], + [ "debug", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_kw, PPP_OPTIONS, "debug" ]], + [ "persist", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_kw, PPP_OPTIONS, "persist" ]], + [ "serial_hwctl", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_kw, PPP_OPTIONS, "crtscts" ]], + [ "mtu", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_join_first_str, PPP_OPTIONS, "mtu", "[ \t]+" ]], + [ "mru", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_join_first_str, PPP_OPTIONS, "mru", "[ \t]+" ]], + [ "serial_port", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^(/dev/[^ \t]+)" ]], + [ "serial_speed", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^([0-9]+)" ]], + [ "login", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_ppp_options_re, PPP_OPTIONS, "^name \"(.*)\"", "name \"%login%\"" ]], + [ "ppp_options", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_ppp_options_unsup, PPP_OPTIONS ]], + [ "serial_escapechars", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_join_first_str, PPP_OPTIONS, "escape", "[ \t]+" ]], + [ "password", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_pap_passwd, PAP, "%login%" ]], + [ "password", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_pap_passwd, CHAP, "%login%" ]], + [ "dial_command", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_chat, CHAT, "(atd[tp])[0-9w, -]+" ]], + [ "phone_number", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_chat, CHAT, "atd[tp]([0-9w]+)" ]], + [ "external_line", \&gst_network_check_type, [IFACE, "modem", \&gst_replace_chat, CHAT, "atd[tp]([0-9w, -]+)", "%external_line%W%phone_number%" ]], + [ "volume", \&gst_network_check_type, [IFACE, "modem", \&gst_network_set_modem_volume, CHAT ]], + ] + }, + + "gentoo" => + { + iface_set => \&gst_network_gentoo_interface_activate, + iface_delete => \&gst_network_gentoo_interface_delete, + ifaces_get => \&gst_network_gentoo_ifaces_get_existing, + fn => + { + NET => "/etc/conf.d/net", + PPPNET => "/etc/conf.d/net.#iface#", + INIT => "net.#iface#", + IFACE => "#iface#", + WIRELESS => "/etc/conf.d/wireless", + }, + table => + [ + [ "dev", \&gst_network_gentoo_create_files ], + [ "auto", \&gst_service_gentoo_set_status, INIT , 0 ], + [ "bootproto", \&gst_network_gentoo_replace_bootproto, [ NET, IFACE ]], + [ "address", \&gst_replace_confd_net_re, NET, "config_%dev%", "^[ \t]*([0-9\.]+)" ], + [ "address", \&gst_replace_confd_net_re, NET, "config_%dev%", "^[ \t]*([0-9\.]+)" ], + [ "netmask", \&gst_replace_confd_net_re, NET, "config_%dev%", "[ \t]+netmask[ \t]+[0-9\.]*", " netmask %netmask%"], + [ "broadcast", \&gst_replace_confd_net_re, NET, "config_%dev%", "[ \t]+broadcast[ \t]+[0-9\.]*", " broadcast %broadcast%" ], + [ "remote_address", \&gst_replace_confd_net_re, NET, "config_%dev%", "[ \t]+dest_address[ \t]+[0-9\.]*", " dest_address %remote_address%" ], + [ "gateway", \&gst_replace_confd_net_re, NET, "routes_%dev%", "[ \t]*default[ \t]+(via|gw)[ \t]+[0-9\.\:]*", "default via %gateway%" ], + [ "essid", \&gst_replace_sh, WIRELESS, "essid_%dev%" ], + [ "key", \&gst_replace_sh, WIRELESS, "key_%essid%" ], + [ "key_type", \&gst_network_set_wep_key_type, [ \&gst_replace_sh, WIRELESS, "key_%essid%", "%key%" ]], + # modem stuff + [ "dev", \&gst_network_check_type, [ IFACE, "modem", \&gst_replace_sh, PPPNET, PEER ]], + [ "update_dns", \&gst_network_check_type, [ IFACE, "modem", \&gst_replace_sh_bool, PPPNET, PEERDNS ]], + [ "mtu", \&gst_replace_sh, PPPNET, MTU ], + [ "mru", \&gst_replace_sh, PPPNET, MRU ], + [ "serial_port", \&gst_replace_sh, PPPNET, MODEMPORT ], + [ "serial_speed", \&gst_replace_sh, PPPNET, LINESPEED ], + [ "login", \&gst_replace_sh, PPPNET, USERNAME ], + [ "password", \&gst_replace_sh, PPPNET, PASSWORD ], + [ "ppp_options", \&gst_replace_sh, PPPNET, PPPOPTIONS ], + [ "set_default_gw", \&gst_replace_sh_bool, PPPNET, DEFROUTE ], + [ "debug", \&gst_replace_sh_bool, PPPNET, DEBUG ], + [ "persist", \&gst_replace_sh_bool, PPPNET, PERSIST ], + [ "serial_escapechars", \&gst_replace_sh_bool, PPPNET, ESCAPECHARS ], + [ "serial_hwctl", \&gst_replace_sh_bool, PPPNET, HARDFLOWCTL ], + [ "phone_number", \&gst_replace_sh, PPPNET, NUMBER ], + [ "external_line", \&gst_replace_sh, PPPNET, NUMBER, "%external_line%W%phone_number%" ], + [ "volume", \&gst_network_set_modem_volume_string, PPPNET, INITSTRING ], + ] + }, + + "freebsd-5" => + { + iface_set => \&gst_network_freebsd_interface_activate, + iface_delete => \&gst_network_freebsd_interface_delete, + ifaces_get => \&gst_network_freebsd_ifaces_get_existing, + fn => + { + RC_CONF => "/etc/rc.conf", + STARTIF => "/etc/start_if.#iface#", + PPPCONF => "/etc/ppp/ppp.conf", + IFACE => "#iface#", + }, + table => + [ + [ "auto", \&gst_network_freebsd5_set_auto, [ RC_CONF, IFACE ]], + [ "bootproto", \&gst_network_freebsd5_replace_bootproto, [ RC_CONF, IFACE ]], + [ "address", \&gst_replace_sh_re, RC_CONF, "ifconfig_%dev%", "inet[ \t]+([0-9\.]+)", "inet %address%" ], + [ "netmask", \&gst_replace_sh_re, RC_CONF, "ifconfig_%dev%", "netmask[ \t]+([0-9\.]+)", " netmask %netmask%" ], + [ "remote_address", \&gst_replace_sh_re, RC_CONF, "ifconfig_%dev%", "dest_address[ \t]+([0-9\.]+)", " dest_address %remote_address%" ], + [ "essid", \&gst_network_freebsd5_replace_essid, [ RC_CONF, STARTIF, IFACE ]], + # Modem stuff + # we need this for putting an empty ifconfig_tunX command in rc.conf + [ "phone_number", \&gst_replace_sh, RC_CONF, "ifconfig_%dev%", " " ], + [ "file", \&gst_network_freebsd_create_ppp_startif, [ STARTIF, IFACE ]], + [ "persist", \&gst_network_freebsd_create_ppp_startif, [ STARTIF, IFACE ], "%file%" ], + [ "serial_port", \&gst_network_replace_pppconf, [ PPPCONF, STARTIF, IFACE ], "device" ], + [ "serial_speed", \&gst_network_replace_pppconf, [ PPPCONF, STARTIF, IFACE ], "speed" ], + [ "mtu", \&gst_network_replace_pppconf, [ PPPCONF, STARTIF, IFACE ], "mtu" ], + [ "mru", \&gst_network_replace_pppconf, [ PPPCONF, STARTIF, IFACE ], "mru" ], + [ "login", \&gst_network_replace_pppconf, [ PPPCONF, STARTIF, IFACE ], "authname" ], + [ "password", \&gst_network_replace_pppconf, [ PPPCONF, STARTIF, IFACE ], "authkey" ], + [ "update_dns", \&gst_network_replace_pppconf_bool, [ PPPCONF, STARTIF, IFACE ], "dns" ], + [ "set_default_gw", \&gst_network_replace_pppconf_route, [ PPPCONF, STARTIF, IFACE ], "default HISADDR" ], + [ "phone_number", \&gst_network_replace_pppconf, [ PPPCONF, STARTIF, IFACE ], "phone" ], + [ "external_line", \&gst_network_replace_pppconf, [ PPPCONF, STARTIF, IFACE ], "phone", "%external_line%W%phone_number%" ], + [ "dial_command", \&gst_network_replace_pppconf_dial_command, [ PPPCONF, STARTIF, IFACE ]], + [ "volume", \&gst_network_replace_pppconf_volume, [ PPPCONF, STARTIF, IFACE ]], + ] + } + ); + + my $dist = $dist_map{$gst_dist}; + return %{$dist_tables{$dist}} if $dist; + + &gst_report ("platform_no_table", $gst_dist); + return undef; +} + +1; |