Kleiner netter neuer Versuch.

[people/pmueller/ipfire-2.x.git] / src / hwinfo / src / ids / cdb_x11

#!/usr/bin/perl -w
# Copyright (c) 1996 SuSE GmbH Nuernberg, Germany.  All rights reserved.
#
# Author: Dirk Hessing <dhess@suse.de>, 08/2001
#
# Exporting hw-data for x11 from developer-CDB


use DBI;
use strict;
use IO::Handle;
use Getopt::Long;

# MySQL-Host / MySQL-User
my $hostname     = "cdbintern.suse.de";
my $mysql_user   = "cdbclient";
my $mysql_passwd = "cdb";
my $target       = "cdb";

my $driver       = DBI->install_driver('mysql');
my $dbh          = DBI->connect('DBI:mysql:'.$target.':'.$hostname,$mysql_user,$mysql_passwd)
  or die "Can't connect to the MySQL Database, table $target";

### Log-Handle und STDOUT-Handle auf ungepufferte Ausgabe setzten (schlechtere Performance ;-)
STDOUT->autoflush();


my $dist_name = "Stable";
my $date      = localtime();

my (@query,$x,$result,$arch_name,@arch_names,$filename,$count);
my ($product_id,$product_name,$vendor_name,$bus_name,$subclass_name);
my ($vId,$dId,$sdId,$svId);
my (%tooltopics,$tooltopic_name,$vario_name,$charvalue);

my $opt_dir = "tmp";


# convert to new id format
sub new_id
{
  my ($old_id, $id_class, $tag, $id);

  ($old_id, $id_class) = @_;

  if($old_id =~ /^([us]?)(\S{4})$/) {
    $tag = $1;
    $id = $2;
  }
  else {
    die "invalid id format: \"$old_id\"\n";
  }

  if($tag eq "" && $id_class && $id_class =~ /^([us]?)(\S{4})$/) {
    $tag = $1;
  }

  if($tag eq "s") {
    $tag = "special ";
  }
  elsif($tag eq "u") {
    $tag = "usb ";
  }
  elsif($tag eq "") {
    $tag = "pci ";
  }
  else {
    die "invalid id format: \"$old_id\"\n";
  }

  return "${tag}0x$id";
}


# write data to FH
sub write_info
{
  my ($arch, $xfree, $has3d, $vId, $dId, $svId, $sdId, $vName, $dName, $tt, $raw, @raw);

  ($arch, $xfree, $has3d, $vId, $dId, $svId, $sdId, $vName, $dName, $tt) = @_;

  return unless $vId ne "" && $dId ne "";

  # print FH "\n# vId = $vId, dId = $dId, svId = $svId, sdId = $sdId, vName = \"$vName\", dName = \"$dName\"\n";

  if($svId ne "" && $sdId ne "") {
    print FH "\n vendor.id\t\t${\new_id $vId}\n";
    print FH "+vendor.name\t\t$vName\n";

    print FH "\n vendor.id\t\t${\new_id $vId}\n";
    print FH "&device.id\t\t${\new_id $dId, $vId}\n";
    print FH "&subvendor.id\t\t${\new_id $svId, $vId}\n";
    print FH "&subdevice.id\t\t${\new_id $sdId, $vId}\n";
    print FH "+subdevice.name\t\t$dName\n";
  }
  else {
    print FH "\n vendor.id\t\t${\new_id $vId}\n";
    print FH "+vendor.name\t\t$vName\n";

    print FH "\n vendor.id\t\t${\new_id $vId}\n";
    print FH "&device.id\t\t${\new_id $dId, $vId}\n";
    print FH "+device.name\t\t$dName\n";
  }

  if($$tt{resol} ne "") {
    $$tt{resol} =~ s/bpp//g;
  }
	
  # Teste ob mehr als ein driver- oder installscript-topic vorhanden ist:
  if(($$tt{driver} =~ /,/) || ($$tt{installscript} =~ /,/)) {
    warn
      "\nMore than one driver- or installscript-topic.\n" .
      "  Product-id = $product_id, Vario = $vario_name, Arch = $arch\n" .
      "  Id = (${\new_id $vId}, ${\new_id $dId, $vId}), Name = $dName\n" .
      "  Driver = \"$$tt{driver}\", script = \"$$tt{installscript}\"\n";
  }

  print FH
    "+driver.xfree\t\t$xfree|$$tt{driver}|" .
    ($has3d ? "3d" : "") .
    "|$$tt{package}|$$tt{extension}|$$tt{option}|$$tt{resol}||$$tt{installscript}|\n";

  if ($$tt{raw} ne "") {
    @raw = (split(',',$$tt{raw}));
    foreach $raw (@raw) {
      print FH "+driver.xfree.config\t$raw\n";
    }
  }
}


# get product info and write everything to FH
sub get_info
{
  my ($arch_name, $xfree, $has3d);

  ($arch_name, $vario_name) = @_;

  $xfree = $vario_name =~ /XFree3/ ? 3 : 4;
  $has3d = $vario_name =~ /3D/ ? 1 : 0;

  $tooltopics{driver} = "";
  $tooltopics{package} = "";
  $tooltopics{extension} = "";
  $tooltopics{option} = "";
  $tooltopics{resol} = "";
  $tooltopics{installscript} = "";
  $tooltopics{raw} = "";

  # Product supported=full?
  $query[2] = $dbh->prepare("SELECT toolproperty.charvalue FROM toolproperty
                                 LEFT JOIN tooltopic ON toolproperty.tooltopic_id=tooltopic.id
                                 LEFT JOIN arch_dist_l_vario ON toolproperty.arch_dist_l_vario_id=arch_dist_l_vario.id
                                 LEFT JOIN arch ON arch_dist_l_vario.arch_id=arch.id
                                 LEFT JOIN distribution ON arch_dist_l_vario.distribution_id=distribution.id
                                 LEFT JOIN vario ON arch_dist_l_vario.vario_id=vario.id
                                 WHERE toolproperty.product_id=$product_id
                                   AND tooltopic.name='supported'
                                   AND arch.name='$arch_name'
                                   AND distribution.name='$dist_name'
                                   AND vario.name='$vario_name'
                                   AND toolproperty.valid=1
                                   AND tooltopic.valid=1
                                   AND arch_dist_l_vario.valid=1")
    or die "Can\'t select table toolproperty";
  $query[2]->execute or die "Can\'t select table toolproperty";

  undef $result;
  $count = 0;
  while ($x = $query[2]->fetchrow_array) {
    $result = $x if defined $x;
    multiple_supportedtopics($dbh,$product_id,$product_name,$arch_name,$dist_name,$vario_name) if $count > 0;
    $count++;
  }
  $result = "" if not defined $result;

  if ($result eq "full") {
    $query[2] = $dbh->prepare("SELECT tooltopic.name,toolproperty.charvalue FROM toolproperty
                                 LEFT JOIN tooltopic ON toolproperty.tooltopic_id=tooltopic.id
                                 LEFT JOIN arch_dist_l_vario ON toolproperty.arch_dist_l_vario_id=arch_dist_l_vario.id
                                 LEFT JOIN arch ON arch_dist_l_vario.arch_id=arch.id
                                 LEFT JOIN distribution ON arch_dist_l_vario.distribution_id=distribution.id
                                 LEFT JOIN language ON arch_dist_l_vario.lang_id=language.id
                                 LEFT JOIN vario ON arch_dist_l_vario.vario_id=vario.id
                                   WHERE arch.name='$arch_name'
                                     AND distribution.name='$dist_name'
                                     AND vario.name='$vario_name'
                                     AND toolproperty.product_id=$product_id
                                     AND tooltopic.name != 'supported'
                                     AND toolproperty.valid=1
                                     AND tooltopic.valid=1
                                     AND arch_dist_l_vario.valid=1")
      or die "Can\'t select table toolproperty";
    $query[2]->execute or die "Can\'t select table toolproperty"; 

    while ( ($tooltopic_name,$charvalue) = ($query[2]->fetchrow_array) ) {
      if (($charvalue eq "none") || ($charvalue eq "None")) {
	  $charvalue = "";
      }
      next if $charvalue eq "";
      if (!$tooltopics{"$tooltopic_name"}) {
        $tooltopics{"$tooltopic_name"} = $charvalue;
      } else {
        $tooltopics{"$tooltopic_name"} .= ",".$charvalue;
      }
    }

    write_info $arch_name, $xfree, $has3d, $vId, $dId, $svId, $sdId, $vendor_name, $product_name, \%tooltopics;
  }
}


GetOptions(
  'dir=s' => \$opt_dir
) ;


print "\n\nGenerating x11.hwinfo-files, one for each architecture.\n";
mkdir($opt_dir, 0755) || die "\nmkdir: $opt_dir: $!\n" unless -d $opt_dir;

print "\nStoring files in \"$opt_dir\"\n\n";

$query[0] = $dbh->prepare("SELECT name FROM arch WHERE valid=1")
  or die "Can\'t select table arch";
$query[0]->execute or die "Can\'t select table arch";
while ($result = $query[0]->fetchrow_array) {
  push(@arch_names,$result);
}