Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdeadmin@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 685 insertions, 0 deletions

diff --git a/knetworkconf/backends/platform.pl.in b/knetworkconf/backends/platform.pl.in
new file mode 100644
index 0000000..c81a9e1
--- /dev/null
+++ b/knetworkconf/backends/platform.pl.in
@@ -0,0 +1,685 @@
+#!/usr/bin/env perl
+#-*- Mode: perl; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
+
+# Determine the platform we're running on.
+#
+# Copyright (C) 2000-2001 Ximian, Inc.
+#
+# Authors: Arturo Espinosa <arturo@ximian.com>
+#          Hans Petter Jansson <hpj@ximian.com>
+#
+# 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
+
+
+# --- System guessing --- #
+
+
+$SCRIPTSDIR = "@scriptsdir@";
+if ($SCRIPTSDIR =~ /^@scriptsdir[@]/)
+{
+    $SCRIPTSDIR = ".";
+    $DOTIN = ".in";
+}
+
+require "$SCRIPTSDIR/parse.pl$DOTIN";
+require "$SCRIPTSDIR/xml.pl$DOTIN";
+
+
+$PLATFORM_INFO = {
+  "debian-2.2"      => "Debian GNU/Linux 2.2 Potato",
+  "debian-3.0"      => "Debian GNU/Linux 3.0 Woody",
+  "debian-3.1"      => "Debian GNU/Linux 3.1 Sarge",
+  "debian-4.0"      => "Debian GNU/Linux 4.0 Etch",
+  "debian-5.0"      => "Debian GNU/Linux 5.0 Lenny",
+  "debian-testing"  => "Debian GNU/Linux Testing/Unstable",
+  "ubuntu-5.04"     => "Kubuntu 5.04, Hoary Hedgehog",
+  "ubuntu-5.10"     => "Kubuntu 5.10, Breezy Badger",
+  "ubuntu-6.06"     => "Kubuntu 6.06, Dapper Drake",
+  "ubuntu-6.10"     => "Kubuntu 6.10, Edgy Eft",
+  "ubuntu-7.04"     => "Kubuntu 7.04, Feisty Fawn",
+  "ubuntu-7.10"     => "Kubuntu 7.10, Gutsy Gibbon",
+  "ubuntu-8.04"     => "Kubuntu 8.04, Hardy Heron",
+  "redhat-5.2"      => "Red Hat Linux 5.2 Apollo",
+  "redhat-6.0"      => "Red Hat Linux 6.0 Hedwig",
+  "redhat-6.1"      => "Red Hat Linux 6.1 Cartman",
+  "redhat-6.2"      => "Red Hat Linux 6.2 Zoot",
+  "redhat-7.0"      => "Red Hat Linux 7.0 Guinness",
+  "redhat-7.1"      => "Red Hat Linux 7.1 Seawolf",
+  "redhat-7.2"      => "Red Hat Linux 7.2 Enigma",
+  "redhat-7.3"      => "Red Hat Linux 7.3 Valhalla",
+  "redhat-8.0"      => "Red Hat Linux 8.0 Psyche",
+  "redhat-9"        => "Red Hat Linux 9.0 Shrike",
+  "openna-1.0"      => "OpenNA Linux 1.0 VSLC",
+  "mandrake-7.1"    => "Linux Mandrake 7.1",
+  "mandrake-7.2"    => "Linux Mandrake 7.2 Odyssey",
+  "mandrake-8.0"    => "Linux Mandrake 8.0 Traktopel",
+  "mandrake-9.0"    => "Linux Mandrake 9.0 Dolphin",
+  "mandrake-9.1"    => "Linux Mandrake 9.1 Bamboo",
+  "mandrake-9.2"    => "Linux Mandrake 9.2 FiveStar",
+  "mandrake-10.0"   => "Linux Mandrake 10.0",
+  "mandrake-10.1"   => "Linux Mandrake 10.1",
+  "mandrake-10.2"   => "Linux Mandrake 2005 LE",
+  "mandriva-2006.0" => "Mandriva Linux 2006.0",
+  "mandriva-2006.1" => "Mandriva Linux 2006.1",
+  "mandriva-2007.0" => "Mandriva Linux 2007.0",
+  "mandriva-2007.1" => "Mandriva Linux 2007.1",
+  "yoper-2.2"       => "Yoper Linux 2.2",
+  "blackpanther-4.0" => "Black Panther OS 4.0",
+  "conectiva-9"     => "Conectiva Linux 9",
+  "conectiva-10"    => "Conectiva Linux 10",
+  "suse-7.0"        => "SuSE Linux 7.0",
+  "suse-9.0"        => "SuSE Linux 9.0",
+  "suse-9.1"        => "SuSE Linux 9.1",
+  "turbolinux-7.0"  => "Turbolinux 7.0",
+  "slackware-8.0.0" => "Slackware 8.0.0",
+  "slackware-8.1"   => "Slackware 8.1",
+  "slackware-9.0.0" => "Slackware 9.0.0",
+  "slackware-9.1.0" => "Slackware 9.1.0",
+  "slackware-10.0.0" => "Slackware 10.0.0",
+  "slackware-10.1.0" => "Slackware 10.1.0",
+  "slackware-10.2.0" => "Slackware 10.2.0",
+  "freebsd-4"       => "FreeBSD 4",
+  "freebsd-5"       => "FreeBSD 5",
+  "freebsd-6"       => "FreeBSD 6",
+  "gentoo"          => "Gentoo Linux",
+  "vlos-1.2"        => "Vida Linux OS 1.2",
+  "archlinux"       => "Arch Linux",
+  "pld-1.0"         => "PLD 1.0 Ra",
+  "pld-1.1"         => "PLD 1.1 Ra",
+  "pld-1.99"        => "PLD 1.99 Ac-pre",
+  "vine-3.0"        => "Vine Linux 3.0",
+  "vine-3.1"        => "Vine Linux 3.1",
+  "fedora-1"        => "Fedora Core 1 (Yarrow)",
+  "fedora-2"        => "Fedora Core 2 (Tettnang)",
+  "fedora-3"        => "Fedora Core 3 (Heidelberg)",
+  "fedora-4"        => "Fedora Core 4 (Stentz)",
+  "fedora-5"        => "Fedora Core 5 (Bordeaux)",
+  "rpath"           => "rPath Linux",
+  "ark"             => "Ark Linux",
+};
+  
+sub check_lsb
+{
+  my ($ver, $dist);
+#  my %vermap =
+#      ("3.0" => "woody");
+  
+  my %distmap =
+      ("Debian" => "debian"),
+      ("Mandrake" => "mandrake"),
+      ("Conectiva" => "conectiva"),
+      ("Blackpanther" => "blackpanther");
+
+  # gst_prefix not required here: parse already does that for us.
+  $dist = lc (&gst_parse_sh ("/etc/lsb-release", "DISTRIB_ID"));
+  $ver = lc (&gst_parse_sh ("/etc/lsb-release", "DISTRIB_RELEASE"));
+  
+#  $ver = $vermap{$ver} if exists $vermap{$ver};
+  $dist = $distmap{$dist} if exists $dirmap{$dir};
+
+  return -1 if ($dist eq "") || ($ver eq "");
+  return "$dist-$ver";
+}
+
+sub check_debian
+{
+  my ($ver, $i);
+  my %vermap =
+      ("testing/unstable" => "testing",
+       "lenny/sid"        => "testing",
+       "3.1"              => "sarge",
+       "4.0"              => "etch",
+       "5.0"              => "lenny");
+
+  open DEBIAN, "$gst_prefix/etc/debian_version" or return -1;
+  chomp ($ver = <DEBIAN>);
+  close DEBIAN;
+
+  #if $ver is not found, we will assume it is testing
+  if($ver and exists $vermap{$ver}) {
+    $ver = $vermap{$ver};
+  } else {
+    $ver = "testing";
+  }
+
+  return "debian-$ver";
+}
+
+
+sub check_redhat
+{
+  open RELEASE, "$gst_prefix/etc/redhat-release" or return -1;
+  while (<RELEASE>)
+  {
+    chomp;
+    if (/^Red Hat Linux.*\s+([0-9.]+)\s+.*/)
+    {
+      close RELEASE;
+      return "redhat-$1";
+    }
+  }
+  close RELEASE;
+  return -1;
+}
+
+sub check_openna
+{
+  open OPENNA, "$gst_prefix/etc/openna-release" or return -1;
+  while (<OPENNA>)
+  {
+    chomp;
+    if (/^OpenNA*/)
+    {
+      close OPENNA;
+      return "openna-$1";
+    }
+  }
+  close OPENNA;
+  return -1;
+}
+
+sub check_caldera
+{
+  open INSTALLED, "$gst_prefix/etc/.installed" or return -1;
+  while (<INSTALLED>)
+  {
+    chomp;
+    if (/^OpenLinux-(.*)-.*/)
+    {
+      close INSTALLED;
+      return "caldera-$1";
+    }
+  }
+  close INSTALLED;
+  return -1;
+}
+
+
+sub check_suse
+{
+  open RELEASE, "$gst_prefix/etc/SuSE-release" or return -1;
+  while (<RELEASE>)
+  {
+    chomp;
+    if (/^VERSION\s*=\s*(\S+)/)
+    {
+      close RELEASE;
+      return "suse-$1";
+    }
+  }
+  close RELEASE;
+  return -1;
+}
+
+sub check_mandrake
+{
+  open MANDRAKE, "$gst_prefix/etc/mandrake-release" or return -1;
+  while (<MANDRAKE>)
+  {
+    $ver = $_;
+    chomp ($ver);
+    if ($ver =~ /^Linux Mandrake release (\S+)/)
+    {
+      close MANDRAKE;
+      return "mandrake-$1";
+    }
+    elsif ($ver =~ /^Mandrake( L|l)inux release ([\d\.]+)/i)
+    {
+      close MANDRAKE;
+      return "mandrake-$2";
+    }
+  }
+  close MANDRAKE;
+  return -1;
+}
+
+sub check_mandriva
+{
+  open MANDRIVA, "$gst_prefix/etc/mandriva-release" or return -1;
+  while (<MANDRIVA>)
+  {
+    $ver = $_;
+    chomp ($ver);
+    if ($ver =~ /^Linux Mandriva release (\S+)/)
+    {
+      close MANDRIVA;
+      return "mandriva-$1";
+    }
+    elsif ($ver =~ /^Mandriva( L|l)inux release ([\d\.]+)/i)
+    {
+      close MANDRIVA;
+      return "mandriva-$2";
+    }
+  }
+  close MANDRIVA;
+  return -1;
+}
+
+sub check_yoper
+{
+   open YOPER, "$gst_prefix/etc/yoper-release" or return -1;
+   while (<YOPER>)
+   {
+     $ver = $_;
+     chomp ($ver);
+     if ($ver =~ m/Yoper (\S+)/)
+     {
+       close YOPER;
+       # find the first digit of our release
+       $mystring= ~m/(\d)/;
+       #store it in $fdigit
+       $fdigit= $1;
+       # the end of the release is marked with -2 so find the -
+       $end = index($ver,"-");
+       $start = index($ver,$fdigit);
+       # extract the substring into $newver
+       $newver= substr($ver,$start,$end-$start);
+       print $newver;
+       return "yoper-$newver";
+     }
+   }
+   close YOPER;
+   return -1;
+}
+
+sub check_blackpanther
+{
+  open BLACKPANTHER, "$gst_prefix/etc/blackPanther-release" or return -1;
+
+  while (<BLACKPANTHER>)
+  {
+    $ver = $_;
+    chomp ($ver);
+    if ($ver =~ /^Linux Black Panther release (\S+)/)
+    {
+      close BLACKPANTHER;
+      return "blackPanther-$1";    
+    }
+    elsif ($ver =~ /^Black Panther ( L|l)inux release ([\d\.]+)/i)
+    {
+      close BLACKPANTHER;
+      return "blackPanther-$2";     
+    }
+  }
+
+  close BLACKPANTHER;
+  return -1;
+}
+
+sub check_fedora
+{
+    open FEDORA, "$gst_prefix/etc/fedora-release" or return -1;
+    while (<FEDORA>)
+    {
+      $ver = $_;
+      chomp ($ver);
+
+      if ($ver =~ /^Fedora Core release (\S+)/)
+      {
+        close FEDORA;
+        return "fedora-$1";
+      }
+    }
+
+    close FEDORA;
+    return -1;
+}
+
+sub check_rpath
+{
+  open RPATH, "$gst_prefix/etc/distro-release" or return -1;
+
+  while (<RPATH>)
+  {
+    $ver = $_;
+    chomp ($ver);
+
+    if ($ver =~ /^rPath Linux/)
+    {
+      close RPATH;
+      return "rpath";
+    }
+    if ($ver =~ /Foresight/)
+    {
+      close RPATH;
+      return "rpath";
+    }
+  }
+
+  close RPATH;
+  return -1;
+}
+
+sub check_conectiva
+{
+  open RELEASE, "$gst_prefix/etc/conectiva-release" or return -1;
+
+  while (<RELEASE>)
+ 	{
+    chomp;
+
+    if (/^Conectiva Linux (\S+)/)
+ 		{
+      close RELEASE;
+ 			return "conectiva-$1";
+ 		}
+ 	}
+
+  close RELEASE;
+ 	return -1;
+}
+
+sub check_turbolinux
+{
+  open RELEASE, "$gst_prefix/etc/turbolinux-release" or return -1;
+  while (<RELEASE>)
+  {
+    chomp;
+    if (/^Turbolinux\s.*\s([0-9.]+)\s.*/)
+    {
+      close RELEASE;
+      return "turbolinux-$1";
+    }
+  }
+  close RELEASE;
+  return -1;
+}
+
+sub check_slackware
+{
+  open RELEASE, "$gst_prefix/etc/slackware-version" or return -1;
+  while (<RELEASE>)
+  {
+    chomp;
+    if (/^Slackware ([0-9.]+)/)
+    {
+        close RELEASE;
+        return "slackware-$1";
+    }
+  }
+  close RELEASE;
+  return -1;
+}
+
+sub check_gentoo
+{
+  return "gentoo" if stat ("$gst_prefix/usr/portage");
+  return -1;
+}
+
+sub check_vlos
+{
+  open RELEASE, "$gst_prefix/etc/vlos-release" or return -1;
+  while (<RELEASE>)
+  {
+    chomp;
+    if (/^VLOS.*\s+([0-9.]+)/)
+    {
+      close RELEASE;
+      return "vlos-$1";
+    }
+  }
+  close RELEASE;
+  return -1;
+}
+
+sub check_archlinux
+{
+  # Since Arch stores gnome in /opt/gnome, use full dir
+  return "archlinux" if stat ("/etc/arch-release");
+  return -1;
+}
+
+sub check_linuxppc
+{
+  open RELEASE, "$gst_prefix/etc/redhat-release" or return -1;
+  while (<RELEASE>)
+  {
+    chomp;
+    if (/^LinuxPPC\s+(\S+)/)
+    {
+      close RELEASE;
+      return "linuxppc-$1";
+    }
+  }
+  close RELEASE;
+  return -1;
+}
+
+sub check_pld
+{
+  open RELEASE, "$gst_prefix/etc/pld-release" or return -1;
+  while (<RELEASE>)
+  {
+    chomp;
+               if(/^([0-9.]+) PLD Linux/)
+    {
+      close RELEASE;
+      return "pld-$1";
+    }
+  }
+  close RELEASE;
+  return -1;
+}
+
+sub check_vine
+{
+  open RELEASE, "$gst_prefix/etc/vine-release" or return -1;
+  while (<RELEASE>)
+  {
+    chomp;
+    if(/^Vine Linux ([0-9.]+)\s+.*/)
+    {
+      close RELEASE;
+      return "vine-$1";
+    }
+  }
+  close RELEASE;
+  return -1;
+}
+
+sub check_ark
+{
+  open ARK, "$gst_prefix/etc/ark-release" or return -1;
+  while (<ARK>)
+  {
+    $ver = $_;
+    chomp ($ver);
+
+    if ($ver =~ /^Ark Linux/)
+    {
+      close ARK;
+      return "ark";
+    }
+  }
+
+  close ARK;
+  return -1;
+}
+
+sub check_freebsd
+{
+  my ($sysctl_cmd, @output);
+
+  $sysctl_cmd = &gst_file_locate_tool ("sysctl");
+  @output = (readpipe("$sysctl_cmd -n kern.version"));
+  foreach (@output)
+  {
+    chomp;
+    if (/^FreeBSD\s([0-9]+)\.\S+.*/)
+    {
+      return "freebsd-$1";
+    }
+  }
+  return -1;
+}
+
+sub check_solaris
+{
+  my ($fd, $dist);
+
+  #
+  # The file /etc/release is present for solaris-2.6
+  # solaris 2.5 does not have the file.  Solaris-7.0 and 8.0 have not
+  # been checked
+  #
+  # uname output
+  # Solaris 2.5: 5.5(.1)
+  # Solaris 2.6: 5.6
+  # Solaris 7:   unknown, assume 7.0
+  # Solaris 8:   unknown, assume 8.0
+  #
+  $fd = &gst_file_run_pipe_read ("uname -r");
+  return -1 if $fd eq undef;
+  chomp ($dist = <$fd>);
+  &gst_file_close ($fd);
+
+  if ($dist =~ /^5\.(\d)/) { return "solaris-2.$1" }
+  else { if ($dist =~ /^([78])\.\d/) { return "solaris-$1.0" } }
+  return -1;
+}
+
+sub gst_platform_get_system
+{
+  my ($tool) = @_;
+
+  # get the output of 'uname -s', it returns the system we are running
+  $$tool{"system"} = &gst_file_run_backtick ("uname -s");
+  chomp ($$tool{"system"});
+}
+
+sub gst_platform_guess
+{
+  my ($tool) = @_;
+
+  my %check = (
+    # Red Hat check must run after Vine, Mandrake and Fedora, and Mandrake after BlackPanther
+    "Linux" => [ \&check_lsb, \&check_debian, \&check_caldera, \&check_suse, \&check_blackpanther, \&check_vine,
+                 \&check_fedora, \&check_mandrake, \&check_mandriva, \&check_conectiva, \&check_linuxppc, \&check_redhat, \&check_openna,
+                 \&check_turbolinux, \&check_slackware, \&check_vlos, \&check_gentoo, \&check_pld, \&check_rpath, \&check_archlinux, \&check_ark ],
+    "FreeBSD" => [ \&check_freebsd ],
+    "SunOS"    => [ \&check_solaris ]
+               );
+  my $plat;
+
+  # Fool-the-backend hack.
+  if (exists $ENV{"GST_DIST"})
+  {
+    $$tool{"platform"} = $gst_dist = $ENV{"GST_DIST"};
+    return;
+  }
+
+  foreach $plat (keys %check)
+  {
+    if ($$tool{"system"} =~ /$plat/)
+    {
+      my ($check, $dist);
+      
+      foreach $check (@{$check{$plat}})
+      {
+        $dist = &$check ();
+        if ($dist != -1)
+        {
+          $$tool{"platform"} = $gst_dist = $dist;
+          return;
+        }
+      }
+    }
+  }
+
+  $$tool{"platform"} = $gst_dist = "unknown";
+}
+
+
+# gst_platform_ensure_supported
+#
+# Takes a list of supported platforms and sees if the one detected is found in
+# this list. If not, will report a list of supported platforms and fail.
+
+sub gst_platform_ensure_supported
+{
+  my ($tool, @supported) = @_;
+
+  $$tool{"platforms"} = [ @supported ];
+
+  foreach $platform (@supported)
+  {
+    if ($platform eq $$tool{"platform"})
+    {
+      &gst_report ("platform_success", $platform, $$PLATFORM_INFO{$platform});
+      return;
+    }
+  }
+
+  # Not supported.
+  if (exists $$tool{"platform"})
+  {
+    &gst_report ("platform_unsup", $$tool{"platform"});
+  }
+  else
+  {
+    &gst_report ("platform_undet");
+  }
+}
+
+
+# A directive handler that sets the currently selected platform.
+sub gst_platform_set
+{
+  my ($tool, $platform) = @_;
+  my ($p);
+
+  foreach $p (@{ $$tool{"platforms"}})
+  {
+    if ($p eq $platform)
+    {
+      $$tool{"platform"} = $gst_dist = $platform;
+      &gst_report ("platform_success", $platform, $$PLATFORM_INFO{$platform});
+      &gst_report_end ();
+      return;
+    }
+  }
+
+  &gst_report ("platform_unsup", $platform);
+  &gst_report_end ();
+}
+
+sub gst_platform_print_list
+{
+  my ($platforms) = @_;
+  my ($platform, $name);
+
+  &gst_xml_print_begin ("platforms");
+  foreach $platform (sort @$platforms)
+  {
+    $name = $$PLATFORM_INFO{$platform};
+
+    &gst_xml_container_enter ("platform");
+    &gst_xml_print_line ("<key>$platform</key>");
+    &gst_xml_print_line ("<name>$name</name>");
+    &gst_xml_container_leave ();
+  }
+  &gst_xml_print_end ("platforms");
+}
+
+sub gst_platform_list
+{
+  my ($tool) = @_;
+
+  &gst_report_end ();
+  &gst_platform_print_list ($$tool{"platforms"});
+}
+
+1;