diff options
Diffstat (limited to 'knetworkconf/backends/network-conf.in')
| -rwxr-xr-x | knetworkconf/backends/network-conf.in | 641 |
1 files changed, 0 insertions, 641 deletions
diff --git a/knetworkconf/backends/network-conf.in b/knetworkconf/backends/network-conf.in deleted file mode 100755 index 6dba52f..0000000 --- a/knetworkconf/backends/network-conf.in +++ /dev/null @@ -1,641 +0,0 @@ -#!/usr/bin/env perl -#-*- Mode: perl; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- - -# Network configurator. Designed to be architecture and distribution independent. -# -# Copyright (C) 2000-2001 Ximian, Inc. -# -# Authors: Hans Petter Jansson <hpj@ximian.com> -# Michael Vogt <mvo@debian.org> (Debian Support) -# Arturo Espinosa <arturo@ximian.com> -# 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. - -# Best viewed with 100 columns of width. - -# Configuration files affected: -# -# /etc/resolv.conf -# /etc/host.conf -# /etc/hosts -# /etc/sysconfig/network -# /etc/rc.config -# /etc/smb.conf - -# Running programs affected: -# -# smbd -# nmbd -# ifconfig: check current interfaces and activate/deactivate. - -BEGIN { - $SCRIPTSDIR = "@scriptsdir@"; - if ($SCRIPTSDIR =~ /^@scriptsdir[@]/) - { - $SCRIPTSDIR = "."; - $DOTIN = ".in"; - } - - require "$SCRIPTSDIR/general.pl$DOTIN"; - require "$SCRIPTSDIR/platform.pl$DOTIN"; - require "$SCRIPTSDIR/util.pl$DOTIN"; - require "$SCRIPTSDIR/file.pl$DOTIN"; - require "$SCRIPTSDIR/xml.pl$DOTIN"; - require "$SCRIPTSDIR/network.pl$DOTIN"; -} - -# --- Tool information --- # - -$name = "network"; -$version = "@VERSION@"; -@platforms = ("redhat-5.2", "redhat-6.0", "redhat-6.1", "redhat-6.2", "redhat-7.0", "redhat-7.1", - "redhat-7.2", "redhat-8.0", "redhat-9", - "rhel-5", "rhel-6", - "openna-1.0", - "mandrake-7.1", "mandrake-7.2", "mandrake-9.0", "mandrake-9.1", "mandrake-9.2", - "mandrake-10.0", "mandrake-10.1","mandrake-10.2", "mandriva-2006.0", - "mandriva-2006.1", "mandriva-2007.0", "mandriva-2007.1", - "yoper-2.2", - "blackpanther-4.0", - "debian-2.2", "debian-3.0", "debian-3.1", "debian-4.0", "debian-5.0", "debian-testing", - "ubuntu-5.04", "ubuntu-5.10", "ubuntu-6.06", "ubuntu-6.10", "ubuntu-7.04", "ubuntu-7.10", "ubuntu-8.04", "ubuntu-8.10", "ubuntu-9.04", "ubuntu-9.10", "ubuntu-10.04", "ubuntu-10.10", - "suse-7.0", "suse-9.0", "suse-9.1", - "turbolinux-7.0", "fedora-1", "fedora-2", "fedora-3", "fedora-4", "fedora-5", "rpath", "fedora-15", "fedora-16", "fedora-17", - "pld-1.0", "pld-1.1", "pld-1.99", - "conectiva-9", "conectiva-10", - "vine-3.0", "vine-3.1", - "ark", - "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"); - -$description =<<"end_of_description;"; - Configures all network parameters and interfaces. -end_of_description; - -$progress_max = 10; - -$profile_file = "profiles.xml"; - - -# --- XML parsing --- - -# Scan XML from standard input to an internal tree. -sub xml_parse -{ - my ($tree, %hash, $elem); - # Scan XML to tree. - - $tree = &gst_xml_scan (); - - # Walk the tree recursively and extract configuration parameters. - # This is the top level - find and enter the "network" tag. - - while ($elem = shift @$tree) - { - if ($elem eq "network") { &xml_parse_network (shift @$tree, \%hash); } - else { &gst_report ("xml_unexp_tag", $elem); shift @$tree; } - } - - return(\%hash); -} - -# <network>...</network> - -sub push_unique -{ - my ($arr, $val) = @_; - my $i; - - foreach $i (@$arr) - { - return if $i eq $val; - } - - push @$arr, $val; -} - -sub xml_parse_network -{ - my ($tree, $hash) = @_; - my ($elem); - my (@searchdomain, @nameserver, @order, %statichost, %interface, %dialing); - - shift @$tree; # Skip attributes. - - while ($elem = shift @$tree) - { - if ($elem eq "auto") { $$hash{"auto"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "hostname") { $$hash{"hostname"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "gateway") { $$hash{"gateway"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "gatewaydev") { $$hash{"gatewaydev"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "domain") { $$hash{"domain"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "workgroup") { $$hash{"workgroup"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "smbdesc") { $$hash{"smbdesc"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "name") { $$hash{"name"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "description") { $$hash{"description"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "winsserver") { $$hash{"winsserver"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "winsuse") { $$hash{"winsuse"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "smbuse") { $$hash{"smbuse"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "hostmatch") { $$hash{"hostmatch"} = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "nameserver") { &push_unique (\@nameserver, &gst_xml_get_pcdata (shift @$tree)); } - elsif ($elem eq "searchdomain") { &push_unique (\@searchdomain, &gst_xml_get_pcdata (shift @$tree)); } - elsif ($elem eq "order") { push (@order, &gst_xml_get_pcdata (shift @$tree)); } - elsif ($elem eq "statichost") { &xml_parse_statichost (shift @$tree, \%statichost); } - elsif ($elem eq "interface") { &gst_network_xml_parse_interface (shift @$tree, \%interface); } - elsif ($elem eq "dialing") { &xml_parse_dialing (shift @$tree, \%dialing); } - elsif ($elem eq "dialinstalled") { shift @$tree; } - elsif ($elem eq "smbinstalled") { shift @$tree; } - elsif ($elem eq "smartdhcpcd") { shift @$tree; } - elsif ($elem eq "gwdevunsup") { shift @$tree; } - elsif ($elem eq "wireless_device") { shift @$tree; } - elsif ($elem eq "profiledb") { &xml_parse_profiledb (shift @$tree, $hash); } - else { &gst_report ("xml_unexp_tag", $elem); shift @$tree; } - } - - $$hash{"order"} = \@order unless $#order < 0; - $$hash{"searchdomain"} = \@searchdomain unless $#searchdomain < 0; - $$hash{"nameserver"} = \@nameserver unless $#nameserver < 0; - $$hash{"statichost"} = \%statichost unless scalar keys %statichost == 0; - $$hash{"interface"} = \%interface unless scalar keys %interface == 0; - $$hash{"dialing"} = \%dialing unless scalar keys %dialing == 0; -} - -# <network><statichost>...</statichost></network> -sub xml_parse_statichost -{ - my ($tree, $statichost) = @_; - my ($ip, @alias, $elem); - - shift @$tree; - - while ($elem = shift @$tree) - { - if ($elem eq "ip") { $ip = &gst_xml_get_pcdata (shift @$tree); } - elsif ($elem eq "alias") { push(@alias, &gst_xml_get_pcdata (shift @$tree)); } - else { &gst_report ("xml_unexp_tag", $elem); shift @$tree; } - } - - # common regexp for IPv4 and IPv6 - if ($ip =~ /([0-9a-fA-F\.:])+/) - { - $$statichost{$ip} = \@alias; - } -} - -sub xml_parse_dialing -{ - my ($tree, $dialing) = @_; - my (%hash, $name, $elem); - - shift @$tree; - - while ($elem = shift @$tree) - { - $hash{$elem} = &gst_xml_get_pcdata (shift @$tree); - } - - $name = $hash{"name"}; - $$dialing{$name} = \%hash; -} - -# couple of functions for fixing profiles format -sub fix_profile_modem_iface -{ - my ($configuration, $section, $dialing) = @_; - my ($s, $key, %h); - - foreach $s (keys %$dialing) - { - if ($s eq $section) - { - $h = $$dialing{$s}; - - foreach $key (keys %$h) - { - $$configuration{$key} = $$h{$key}; - } - } - } -} - -sub fix_profile_interface_format -{ - my ($interface, $dialing) = @_; - my (%configuration, $key, $section); - - return if (exists $$interface{"configuration"}); - - foreach $key (keys %$interface) - { - if ($key !~ /^(dev|enabled|hwaddr)$/) - { - if ($key eq 'wvsection') - { - &fix_profile_modem_iface (\%configuration, $$interface{$key}, $dialing); - $configuration{"section"} = $$interface{$key}; - } - else - { - $dest_key = $key; - $configuration{$key} = $$interface{$key}; - } - - delete $$interface{$key}; - } - } - - $$interface{"type"} = &gst_network_get_interface_type ($$interface{"dev"}); - - if (%configuration) - { - $$interface{"configuration"} = \%configuration; - } -} - -sub fix_profile_format -{ - my ($hash) = @_; - my ($interfaces, $dialing, $iface); - - $interfaces = $$hash{"interface"}; - $dialing = $$hash{"dialing"}; - - foreach $iface (keys %$interfaces) - { - &fix_profile_interface_format ($$interfaces{$iface}, $dialing); - } -} - -sub xml_parse_profile -{ - my ($tree, $hash) = @_; - my (%profile); - - &xml_parse_network ($tree, \%profile); - - # We've got to translate the old profiles format - &fix_profile_format (\%profile); - - push @{$hash->{"profiledb"}{"profile"}}, \%profile; -} - -sub xml_parse_profiledb -{ - my ($tree, $hash) = @_; - - shift @$tree; # Skip attributes. - - while (@$tree) - { - if ($$tree[0] eq "profile") { &xml_parse_profile ($$tree[1], $hash); } - else - { - &gst_report ("xml_unexp_tag", $$tree[0]); - } - - shift @$tree; - shift @$tree; - } -} - -# --- XML printing --- # - -sub xml_print_configuration -{ - my ($h) = @_; - my @scalar_keys = - qw(auto hostname gateway gatewaydev gwdevunsup domain - hostmatch workgroup smbdesc winsserver winsuse smbuse - smartdhcpcd smbinstalled dialinstalled name); - my @array_keys = - qw(nameserver searchdomain order); - - # Hostname, domain, search domains, nameservers. - - &gst_xml_print_scalars ($h, @scalar_keys); - &gst_xml_print_arrays ($h, @array_keys); - &network_xml_print_statichost ($h); - - &xml_print_interfaces ($$h{"interface"}); -} - -sub xml_print_profiledb -{ - my ($h) = @_; - - &gst_xml_print_vspace (); - - &gst_xml_print_line ("<profiledb>\n"); - &gst_xml_enter (); - foreach $i (@{$$h{"profiledb"}{"profile"}}) - { - gst_xml_print_line ("<profile>\n"); - gst_xml_enter (); - - &xml_print_configuration ($i); - - gst_xml_leave (); - gst_xml_print_line ("</profile>\n"); - } - gst_xml_leave (); - gst_xml_print_line ("</profiledb>\n"); -} - -sub xml_print_interfaces -{ - my ($h) = @_; - my ($dev, $type); - - foreach $dev (keys %$h) - { - if ($$h{$dev}{"type"}) - { - $type = $$h{$dev}{"type"}; - delete $$h{$dev}{"type"}; - } - else - { - $type = &gst_network_get_interface_type ($dev); - } - - &gst_xml_print_vspace (); - &gst_xml_print_line ("<interface type='$type'>"); - &gst_xml_enter (); - &gst_xml_print_hash ($$h{$dev}); - - &gst_xml_leave (); - &gst_xml_print_line ("</interface>"); - } -} - -sub xml_print -{ - my ($h) = @_; - - &gst_xml_print_begin (); - - &xml_print_configuration ($h); - &xml_print_profiledb ($h); - - &gst_xml_print_end (); -} - - -# Reading profiles -sub read_profiledb -{ - my ($hash) = @_; - my ($path); - my ($tree); - - $path = gst_file_get_data_path () . "/" . $main::tool->{"name"} . "/"; - chmod (0755, $path); - chmod (0644, $path . $profile_file); - - $tree = &gst_xml_scan ($path . $profile_file, $tool); - if ($tree && scalar @$tree) - { - if ($$tree[0] eq 'profiledb') - { - xml_parse_profiledb ($$tree[1], $hash); - } - else - { - gst_report ('xml_unexp_tag', $$tree[0]); - } - } -} - -# Writing profiles -sub write_profiledb -{ - my ($hash) = @_; - my $profiledb = $hash->{'profiledb'}; - my $path = &gst_file_get_data_path () . "/" . $main::tool->{'name'} . "/"; - chmod (0755, $path); - - if ($profiledb) { - # Write our profiles. - my $fh = &gst_file_open_write_from_names ($path . $profile_file); - if ($fh) - { - local *STDOUT = $fh; - &xml_print_profiledb ($hash); - close ($fh); - - delete $hash->{'profiledb'}; - } - } - else - { - gst_file_remove ($path . $profile_file); - } - - chmod (0644, $path . $profile_file); -} - - -# Top-level actions. -sub get -{ - my $hash; - - # network interface stuff - $hash = &gst_network_conf_get (); - &read_profiledb (\%$hash); - &gst_network_ensure_loopback ($hash); - - &gst_report_end (); - &xml_print ($hash); -} - - -sub set -{ - my $hash; - - $hash = &xml_parse (); - &write_profiledb ($hash); - &gst_network_conf_set ($hash); - &gst_report_end (); -} - -sub set_profile -{ - my ($tool, $profile_name) = @_; - my ($hash, $profiles, $profile); - - &read_profiledb (\%$hash); - $profiles = $$hash{"profiledb"}{"profile"}; - - foreach $profile (@$profiles) - { - if ($$profile{"name"} eq $profile_name) - { - &gst_network_conf_set ($profile); - } - } - - &gst_report_end (); -} - -sub save_profiles -{ - my $hash; - - $hash = &xml_parse (); - &write_profiledb ($hash); - &gst_report_end (); -} - - -# --- Filter config: XML in, XML out --- # - - -sub filter -{ - my $hash; - - $hash = &xml_parse (); - &gst_report_end (); - &xml_print ($hash); -} - -sub enable_iface -{ - my ($tool, $iface, $enabled) = @_; - my (%dist_attrib, $iface_set); - my %hash = ("configuration" => {"file" => $iface}); - - %dist_attrib = &gst_network_get_interface_replace_table (); - $iface_set = $dist_attrib{"iface_set"}; - &$iface_set (\%hash, undef, $enabled, 1); - - # small hack for ensuring that the interface is really down - # when messing ifup/ifdown/ifconfig calls - if ($enabled == 0) - { - gst_file_run ("ifconfig $iface down"); - &drop_dhcp_connection ($iface); - &drop_pppd_connection ($iface); - } - - # Don't forget to do gst_end when the reports are over! - &gst_report_end (); - # XML output would come here, but this directive returns no XML. -} - -sub enable_iface_with_config -{ - my ($tool) = @_; - my ($tree, $hash, $ret, $str); - - # Scan XML to tree. - $tree = &gst_xml_scan (); - - if (shift @$tree eq "interface") - { - $hash = &gst_network_xml_parse_interface (shift @$tree); - } - - $ret = &gst_network_enable_iface_with_config ($hash); - &gst_report_end (); - - &gst_xml_print_begin ("enable-iface"); - &gst_xml_print_pcdata ("success", ($ret == 0) ? "1" : "0"); - &gst_xml_print_end ("enable-iface"); -} - -sub list_ifaces -{ - my ($tool) = @_; - my ($ifaces, $iface, @arr); - - $ifaces = &gst_network_interfaces_get_info (); - - foreach $iface (keys %$ifaces) - { - push @arr, $$ifaces{$iface}; - } - - &gst_report_end (); - &gst_xml_print_begin ("network-ifaces"); - &gst_xml_print_structure (\@arr, "interface"); - &gst_xml_print_end ("network-ifaces"); -} - -sub detect_modem -{ - my ($tool) = @_; - my ($device); - - $device = &gst_network_autodetect_modem (); - &gst_report_end (); - - &gst_xml_print_begin ("network-modem-device"); - &gst_xml_print_pcdata ("device", $device) if ($device ne undef); - &gst_xml_print_end ("network-modem-device"); -} - -sub detect_essids -{ - my ($tool, $iface) = @_; - my (@essids); - - $essids = &gst_network_detect_essids ($iface); - &gst_report_end (); - - &gst_xml_print_begin ("essids"); - &gst_xml_print_structure ($essids, "network"); - &gst_xml_print_end ("essids"); -} - -sub set_gateway -{ - my ($tool, $iface, $address) = @_; - - &gst_network_route_set_default_gw ($iface, $address); - &gst_report_end (); -} - -# --- Main --- # - -# get, set and filter are special cases that don't need more parameters than a ref to their function. -# Read general.pl.in:gst_run_directive to know about the format of this hash. - -$directives = { - "get" => [ \&get, [], "" ], - "set" => [ \&set, [], "" ], - "filter" => [ \&filter, [], "" ], - "list_ifaces" => [ \&list_ifaces, [], - "List interfaces and active/inactive status." ], - "save_profiles" => [ \&save_profiles, [], "Save the profiles list" ], - "set_profile" => [ \&set_profile, [ "profile_name" ], - "Set a profile as the default configuration" ], - "enable_iface" => [ \&enable_iface, [ "interface", "enabled" ], - "Immediatly enable or disable a given interface. " . - "interface is the file tag value, enabled is 1 or 0." ], - "enable_iface_with_config" => [ \&enable_iface_with_config, [], - "Enable an interface with a given configuration" ], - "detect_modem" => [ \&detect_modem, [], "Detects the modem device." ], - "detect_essids" => [ \&detect_essids, [ "interface" ], "Detects active wireless networks" ], - "set_gateway" => [ \&set_gateway, [ "interface", "address" ], "Sets the default gateway" ] -}; - -$tool = &gst_init ($name, $version, $description, $directives, @ARGV); -&gst_platform_ensure_supported ($tool, @platforms); -&gst_run ($tool); |