From 1880e66be505f49a768d83e491fd5bda1ed9e2de Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Thu, 4 Sep 2008 10:22:30 +0000 Subject: * dropped no longer maintained old test tools from repo git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2202 95ad53e4-c205-0410-b2fa-d234c58c8868 --- config-db/devel-tools/test-config-db.pl | 207 ------------------------ config-db/devel-tools/test-config-demuxer.pl | 225 --------------------------- 2 files changed, 432 deletions(-) delete mode 100755 config-db/devel-tools/test-config-db.pl delete mode 100755 config-db/devel-tools/test-config-demuxer.pl (limited to 'config-db') diff --git a/config-db/devel-tools/test-config-db.pl b/config-db/devel-tools/test-config-db.pl deleted file mode 100755 index 825800c4..00000000 --- a/config-db/devel-tools/test-config-db.pl +++ /dev/null @@ -1,207 +0,0 @@ -#! /usr/bin/perl -# -# test-config-db.pl - test-script for the OpenSLX config-db & MetaDB modules. -# -# (c) 2006 - OpenSLX.com -# -# Oliver Tappe -# -use strict; - -# add the lib-folder and the config-db folder to perl's search -# path for modules: -use FindBin; -use lib "$FindBin::RealBin/../../lib"; -use lib "$FindBin::RealBin/.."; - # development path to config-db stuff - -print "THIS IS CURRENTLY BROKEN!!!\n"; -exit 5; - -use OpenSLX::Basics; -use OpenSLX::ConfigDB; - -openslxInit(); - -my $openslxDB = connectConfigDB(); - -addVendorOS($openslxDB, { - 'name' => "suse-93-minimal", - 'descr' => "SuSE 9.3 minimale Installation", -}); - -addVendorOS($openslxDB, { - 'name' => "suse-93-KDE", - 'descr' => "SuSE 9.3 grafische Installation mit KDE", -}); - -addVendorOS($openslxDB, { - 'name' => "debian-31", - 'descr' => "Debian 3.1 Default-Installation", -}); - -my @systems; -foreach my $id (1..10) { - push @systems, { - 'name' => "name of $id", - 'descr' => "descr of $id", - 'vendor_os_id' => 1 + $id % 3, - }; -} -addSystem($openslxDB, \@systems); - -removeSystem($openslxDB, [1,3,5,7,9,11,13,15,17,19] ); - -changeSystem($openslxDB, [ 2 ], [ { 'name' => 'new name of 2'} ] ); - -changeSystem($openslxDB, [ 0 ], [ { 'attrStartX' => 'kde,gnome'} ] ); -changeSystem($openslxDB, [ 1,2,3 ], [ { 'attrHwMonitor' => '1280x1024'} ] ); -changeSystem($openslxDB, [ 4 ], [ { 'attrHwMonitor' => '800x600'} ] ); - - -changeSystem($openslxDB, 4, { 'id' => 114, 'name' => 'id should still be 4'} ); - -my $metaDB = $openslxDB->{'meta-db'}; -my $colDescrs = [ - 'id:pk', - 'name:s.30', - 'descr:s.1024', - 'counter:i', - 'hidden:b', - 'dropped1:b', - 'dropped2:b', -]; -my $initialVals = [ - { - 'name' => '123456789012345678901234567890xxx', - 'descr' => 'descr-value-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX', - 'counter' => 34567, - 'hidden' => 1, - 'dropped1' => 0, - 'dropped2' => 1, - }, - { - 'name' => 'name', - 'descr' => q[from_äöüß#'"$...\to_here], - 'counter' => -1, - 'hidden' => 0, - 'dropped1' => 1, - 'dropped2' => 0, - }, -]; - - -$metaDB->schemaAddTable('test', $colDescrs, $initialVals); - -$metaDB->schemaRenameTable('test', 'test2', $colDescrs); - -push @$colDescrs, 'added:s.20'; -push @$colDescrs, 'added2:s.20'; -$metaDB->schemaAddColumns('test2', - ['added:s.20', 'added2:b'], - [{'added' => 'added'}, {'added2' => '1'}], - $colDescrs); - -my @rows = $metaDB->_doSelect("SELECT * FROM test2"); -foreach my $row (@rows) { - foreach my $r (keys %$row) { - print "$r = $row->{$r}\n"; - } -} - -$colDescrs = [grep {$_ !~ m[dropped]} @$colDescrs]; -$metaDB->schemaDropColumns('test2', ['dropped1', 'dropped2'], $colDescrs); - - -$colDescrs = [ - map { - if ($_ =~ m[counter]) { - "count:i"; - } elsif ($_ =~ m[descr]) { - "description:s.30"; - } else { - $_ - } - } @$colDescrs -]; -$metaDB->schemaChangeColumns('test2', - { 'counter' => 'count:i', - 'descr' => 'description:s.30' }, - $colDescrs); - -@rows = $metaDB->_doSelect("SELECT * FROM test2"); -foreach my $row (@rows) { - foreach my $r (keys %$row) { - print "$r = $row->{$r}\n"; - } -} - -$metaDB->schemaDropTable('test2'); - -my $clientG01ID = addClient($openslxDB, { - 'name' => "PC-G-01", - 'mac' => "00:14:85:80:00:35", - 'boot_type' => 'pxe', -}); - -my $clientG02ID = addClient($openslxDB, { - 'name' => "PC-G-02", - 'mac' => "00:14:85:80:00:36", - 'boot_type' => 'pxe', -}); - -my $clientG03ID = addClient($openslxDB, { - 'name' => "PC-G-03", - 'mac' => "00:14:85:80:00:37", - 'boot_type' => 'pxe', -}); - -my $clientG04ID = addClient($openslxDB, { - 'name' => "PC-G-04", - 'mac' => "00:14:85:80:00:38", - 'boot_type' => 'pxe', - 'unbootable' => 1, -}); - -my $clientF01ID = addClient($openslxDB, { - 'name' => "PC-F-01", - 'mac' => "00:14:85:80:00:31", - 'boot_type' => 'other', -}); - -my $clientF02ID = addClient($openslxDB, { - 'name' => "PC-F-02", - 'mac' => "00:14:85:80:00:32", - 'boot_type' => 'pxe', -}); - -my $clientF03ID = addClient($openslxDB, { - 'name' => "PC-F-03", - 'mac' => "00:14:85:80:00:33", - 'boot_type' => 'pxe', -}); - -addClientIDsToSystem($openslxDB, 6, [$clientG01ID, $clientG02ID, $clientG03ID, $clientG04ID, $clientF01ID, $clientF02ID, $clientF03ID]); - -my $group1ID = addGroup($openslxDB, { - 'name' => "Gell-PCs", - 'descr' => "Gell-Threemansion PCs from 2002", - 'attrHwMouse' => 'serial', -}); -addClientIDsToGroup($openslxDB, $group1ID, [$clientG01ID, $clientF02ID, $clientG03ID]); - -my $group2ID = addGroup($openslxDB, { - 'name' => "Teacher-PCs", - 'descr' => "all PCs sitting on teacher's desks", - 'attrHwMonitor' => '1600x1200', -}); -addClientIDsToGroup($openslxDB, $group2ID, [$clientG01ID, $clientF01ID]); -addSystemIDsToGroup($openslxDB, $group2ID, [2, 3]); - -my $group3ID = addGroup($openslxDB, { - 'name' => "PCs in room G", - 'descr' => "all PCs of room 234", -}); -addClientIDsToGroup($openslxDB, $group3ID, [$clientG01ID, $clientG02ID, $clientG03ID, $clientG04ID]); - -disconnectConfigDB($openslxDB); diff --git a/config-db/devel-tools/test-config-demuxer.pl b/config-db/devel-tools/test-config-demuxer.pl deleted file mode 100755 index e212343f..00000000 --- a/config-db/devel-tools/test-config-demuxer.pl +++ /dev/null @@ -1,225 +0,0 @@ -#! /usr/bin/perl -# -# test-config-demuxer.pl - test-script for the OpenSLX config-demuxer. -# -# (c) 2006 - OpenSLX.com -# -# Oliver Tappe -# -use strict; - -# add the lib-folder and the config-db folder to perl's search -# path for modules: -use FindBin; -use lib "$FindBin::RealBin/../../lib"; -use lib "$FindBin::RealBin/.."; - # development path to config-db stuff - -print "THIS IS CURRENTLY BROKEN!!!\n"; -exit 5; - -use OpenSLX::Basics; -use OpenSLX::ConfigDB qw(:access :manipulation); - -openslxInit(); - -$openslxConfig{'db-name'} = 'openslx_testscript'; - # make sure to use a database of our own! - -my $openslxDB = connectConfigDB(); - -emptyDatabase($openslxDB); - -addVendorOS($openslxDB,{ - 'name' => "suse-10-minimal", - 'comment' => "SuSE 10 minimale Installation", - 'path' => "suse-10.0", - # relative to /var/lib/openslx/stage1 -}); - -addVendorOS($openslxDB, { - 'name' => "suse-10-KDE", - 'comment' => "SuSE 10 grafische Installation mit KDE", - 'path' => "suse-10.0", -}); - -addVendorOS($openslxDB, { - 'name' => "debian-31", - 'comment' => "Debian 3.1 Default-Installation", -}); - -my @systems; -foreach my $id (1..10) { - push @systems, { - 'name' => "name of $id", - 'label' => "label of $id", - 'comment' => "comment of $id", - 'vendor_os_id' => 1 + $id % 3, - 'ramfs_debug_level' => $id%2, - 'ramfs_use_glibc' => 0, - 'ramfs_use_busybox' => 0, - 'ramfs_nicmods' => ($id % 3) ? 'forcedeth e1000 e100 tg3 via-rhine r8169 pcnet32' : '', - 'ramfs_fsmods' => ($id % 3)==2 ? 'nbd ext3 nfs reiserfs xfs' : '', - 'kernel' => "boot/vmlinuz-2.6.13-15-default", - 'kernel_params' => "splash=silent", - 'export_type' => 'nfs', - }; -} -addSystem($openslxDB, \@systems); - -removeSystem($openslxDB, [1,3,5,7,9,11,13,15,17,19] ); - -changeSystem($openslxDB, [ 2 ], [ { 'name' => 'new name of 2'} ] ); - -changeSystem($openslxDB, [ 0 ], [ { 'attr_start_x' => 'kde,gnome'} ] ); -changeSystem($openslxDB, [ 1,2,3 ], [ { 'attr_hw_monitor' => '1280x1024'} ] ); -changeSystem($openslxDB, [ 4 ], [ { 'attr_hw_monitor' => '800x600'} ] ); - - -changeSystem($openslxDB, 4, { 'id' => 114, 'name' => 'id should still be 4'} ); - -my $metaDB = $openslxDB->{'meta-db'}; -my $colDescrs = [ - 'id:pk', - 'name:s.30', - 'comment:s.1024', - 'counter:i', - 'hidden:b', - 'dropped1:b', - 'dropped2:b', -]; -my $initialVals = [ - { - 'name' => '123456789012345678901234567890xxx', - 'comment' => 'comment-value-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX', - 'counter' => 34567, - 'hidden' => 1, - 'dropped1' => 0, - 'dropped2' => 1, - }, - { - 'name' => 'name', - 'comment' => q[from_äöüß#'"$...\to_here], - 'counter' => -1, - 'hidden' => 0, - 'dropped1' => 1, - 'dropped2' => 0, - }, -]; - - -$metaDB->schemaAddTable('test', $colDescrs, $initialVals); - -$metaDB->schemaRenameTable('test', 'test2', $colDescrs); - -push @$colDescrs, 'added:s.20'; -push @$colDescrs, 'added2:s.20'; -$metaDB->schemaAddColumns('test2', - ['added:s.20', 'added2:b'], - [{'added' => 'added'}, {'added2' => '1'}], - $colDescrs); - -my @rows = $metaDB->_doSelect("SELECT * FROM test2"); -foreach my $row (@rows) { - foreach my $r (keys %$row) { - print "$r = $row->{$r}\n"; - } -} - -$colDescrs = [grep {$_ !~ m[dropped]} @$colDescrs]; -$metaDB->schemaDropColumns('test2', ['dropped1', 'dropped2'], $colDescrs); - - -$colDescrs = [ - map { - if ($_ =~ m[counter]) { - "count:i"; - } elsif ($_ =~ m[comment]) { - "description:s.30"; - } else { - $_ - } - } @$colDescrs -]; -$metaDB->schemaChangeColumns('test2', - { 'counter' => 'count:i', - 'comment' => 'description:s.30' }, - $colDescrs); - -my @rows = $metaDB->_doSelect("SELECT * FROM test2"); -foreach my $row (@rows) { - foreach my $r (keys %$row) { - print "$r = $row->{$r}\n"; - } -} - -$metaDB->schemaDropTable('test2'); - -my $clientG01ID = addClient($openslxDB, { - 'name' => "PC-G-01", - 'mac' => "00:50:56:0D:03:35", - 'boot_type' => 'pxe', -}); - -my $clientG02ID = addClient($openslxDB, { - 'name' => "PC-G-02", - 'mac' => "00:50:56:0D:03:36", - 'boot_type' => 'pxe', - 'unbootable' => 1, -}); - -my $clientG03ID = addClient($openslxDB, { - 'name' => "PC-G-03", - 'mac' => "00:50:56:0D:03:37", - 'boot_type' => 'pxe', -}); - -my $clientG04ID = addClient($openslxDB, { - 'name' => "PC-G-04", - 'mac' => "00:50:56:0D:03:38", - 'boot_type' => 'pxe', - 'kernel_params' => 'console=ttyS0,19200', -}); - -my $clientF01ID = addClient($openslxDB, { - 'name' => "PC-F-01", - 'mac' => "00:50:56:0D:03:31", - 'boot_type' => 'other', -}); - -my $clientF02ID = addClient($openslxDB, { - 'name' => "PC-F-02", - 'mac' => "00:50:56:0D:03:32", - 'boot_type' => 'pxe', -}); - -my $clientF03ID = addClient($openslxDB, { - 'name' => "PC-F-03", - 'mac' => "00:50:56:0D:03:33", - 'boot_type' => 'pxe', -}); - -addClientIDsToSystem($openslxDB, 6, [$clientG01ID, $clientG02ID, $clientG03ID, $clientG04ID, $clientF01ID, $clientF02ID, $clientF03ID]); - -my $group1ID = addGroup($openslxDB, { - 'name' => "Gell-PCs", - 'comment' => "Gell-Threemansion PCs from 2002", - 'attr_hw_mouse' => 'serial', -}); -addClientIDsToGroup($openslxDB, $group1ID, [$clientG01ID, $clientF02ID, $clientG03ID]); - -my $group2ID = addGroup($openslxDB, { - 'name' => "Teacher-PCs", - 'comment' => "all PCs sitting on teacher's desks", - 'attr_hw_monitor' => '1600x1200', -}); -addClientIDsToGroup($openslxDB, $group2ID, [$clientG01ID, $clientF01ID]); -addSystemIDsToGroup($openslxDB, $group2ID, [2, 3]); - -my $group3ID = addGroup($openslxDB, { - 'name' => "PCs in room G", - 'comment' => "all PCs of room 234", -}); -addClientIDsToGroup($openslxDB, $group3ID, [$clientG01ID, $clientG02ID, $clientG03ID, $clientG04ID]); - -disconnectConfigDB($openslxDB); -- cgit v1.2.3-55-g7522