globegit-postgresql-plruby 0.5.4

data/test/conv_network/test.out

@@ -0,0 +1,237 @@
+create table pl_inet (
+  host text, abbrev text, masklen int,
+  network inet, netmask inet, first inet, last inet
+);
+create or replace function inet_val(inet) returns pl_inet as '
+   a = args[0]
+   [a.host, a.abbrev, a.masklen, a.network, a.netmask, 
+    a.first, a.last]
+ ' language 'plruby';
+select * from inet_val('192.168.1'::cidr);
+    host     |     abbrev     | masklen |    network     |    netmask    |     first      |     last      
+-------------+----------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.226/24'::inet);
+     host      |      abbrev      | masklen |    network     |    netmask    |     first      |     last      
+---------------+------------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.226 | 192.168.1.226/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.0/24'::cidr);
+    host     |     abbrev     | masklen |    network     |    netmask    |     first      |     last      
+-------------+----------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.226'::inet);
+     host      |    abbrev     | masklen |    network    |     netmask     |     first     |     last      
+---------------+---------------+---------+---------------+-----------------+---------------+---------------
+ 192.168.1.226 | 192.168.1.226 |      32 | 192.168.1.226 | 255.255.255.255 | 192.168.1.226 | 192.168.1.226
+(1 row)
+
+select * from inet_val('192.168.1'::cidr);
+    host     |     abbrev     | masklen |    network     |    netmask    |     first      |     last      
+-------------+----------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.0/24'::inet);
+    host     |     abbrev     | masklen |    network     |    netmask    |     first      |     last      
+-------------+----------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1'::cidr);
+    host     |     abbrev     | masklen |    network     |    netmask    |     first      |     last      
+-------------+----------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.0/25'::inet);
+    host     |     abbrev     | masklen |    network     |     netmask     |     first      |     last      
+-------------+----------------+---------+----------------+-----------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/25 |      25 | 192.168.1.0/25 | 255.255.255.128 | 192.168.1.0/25 | 192.168.1.127
+(1 row)
+
+select * from inet_val('192.168.1'::cidr);
+    host     |     abbrev     | masklen |    network     |    netmask    |     first      |     last      
+-------------+----------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.255/24'::inet);
+     host      |      abbrev      | masklen |    network     |    netmask    |     first      |     last      
+---------------+------------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.255 | 192.168.1.255/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1'::cidr);
+    host     |     abbrev     | masklen |    network     |    netmask    |     first      |     last      
+-------------+----------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.255/25'::inet);
+     host      |      abbrev      | masklen |     network      |     netmask     |      first       |     last      
+---------------+------------------+---------+------------------+-----------------+------------------+---------------
+ 192.168.1.255 | 192.168.1.255/25 |      25 | 192.168.1.128/25 | 255.255.255.128 | 192.168.1.128/25 | 192.168.1.255
+(1 row)
+
+select * from inet_val('10'::cidr);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.0.0.0 | 10.0.0.0/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10.1.2.3/8'::inet);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.1.2.3 | 10.1.2.3/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10.0.0.0'::cidr);
+   host   |  abbrev  | masklen | network  |     netmask     |  first   |   last   
+----------+----------+---------+----------+-----------------+----------+----------
+ 10.0.0.0 | 10.0.0.0 |      32 | 10.0.0.0 | 255.255.255.255 | 10.0.0.0 | 10.0.0.0
+(1 row)
+
+select * from inet_val('10.1.2.3/8'::inet);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.1.2.3 | 10.1.2.3/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10.1.2.3'::cidr);
+   host   |  abbrev  | masklen | network  |     netmask     |  first   |   last   
+----------+----------+---------+----------+-----------------+----------+----------
+ 10.1.2.3 | 10.1.2.3 |      32 | 10.1.2.3 | 255.255.255.255 | 10.1.2.3 | 10.1.2.3
+(1 row)
+
+select * from inet_val('10.1.2.3/32'::inet);
+   host   |  abbrev  | masklen | network  |     netmask     |  first   |   last   
+----------+----------+---------+----------+-----------------+----------+----------
+ 10.1.2.3 | 10.1.2.3 |      32 | 10.1.2.3 | 255.255.255.255 | 10.1.2.3 | 10.1.2.3
+(1 row)
+
+select * from inet_val('10.1.2'::cidr);
+   host   |   abbrev    | masklen |   network   |    netmask    |    first    |    last    
+----------+-------------+---------+-------------+---------------+-------------+------------
+ 10.1.2.0 | 10.1.2.0/24 |      24 | 10.1.2.0/24 | 255.255.255.0 | 10.1.2.0/24 | 10.1.2.255
+(1 row)
+
+select * from inet_val('10.1.2.3/24'::inet);
+   host   |   abbrev    | masklen |   network   |    netmask    |    first    |    last    
+----------+-------------+---------+-------------+---------------+-------------+------------
+ 10.1.2.3 | 10.1.2.3/24 |      24 | 10.1.2.0/24 | 255.255.255.0 | 10.1.2.0/24 | 10.1.2.255
+(1 row)
+
+select * from inet_val('10.1'::cidr);
+   host   |   abbrev    | masklen |   network   |   netmask   |    first    |     last     
+----------+-------------+---------+-------------+-------------+-------------+--------------
+ 10.1.0.0 | 10.1.0.0/16 |      16 | 10.1.0.0/16 | 255.255.0.0 | 10.1.0.0/16 | 10.1.255.255
+(1 row)
+
+select * from inet_val('10.1.2.3/16'::inet);
+   host   |   abbrev    | masklen |   network   |   netmask   |    first    |     last     
+----------+-------------+---------+-------------+-------------+-------------+--------------
+ 10.1.2.3 | 10.1.2.3/16 |      16 | 10.1.0.0/16 | 255.255.0.0 | 10.1.0.0/16 | 10.1.255.255
+(1 row)
+
+select * from inet_val('10'::cidr);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.0.0.0 | 10.0.0.0/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10.1.2.3/8'::inet);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.1.2.3 | 10.1.2.3/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10'::cidr);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.0.0.0 | 10.0.0.0/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('11.1.2.3/8'::inet);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 11.1.2.3 | 11.1.2.3/8 |       8 | 11.0.0.0/8 | 255.0.0.0 | 11.0.0.0/8 | 11.255.255.255
+(1 row)
+
+select * from inet_val('10'::cidr);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.0.0.0 | 10.0.0.0/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('9.1.2.3/8'::inet);
+  host   |  abbrev   | masklen |  network  |  netmask  |   first   |     last      
+---------+-----------+---------+-----------+-----------+-----------+---------------
+ 9.1.2.3 | 9.1.2.3/8 |       8 | 9.0.0.0/8 | 255.0.0.0 | 9.0.0.0/8 | 9.255.255.255
+(1 row)
+
+select * from inet_val('10:23::f1'::cidr);
+   host    |  abbrev   | masklen |  network  |                 netmask                 |   first   |   last    
+-----------+-----------+---------+-----------+-----------------------------------------+-----------+-----------
+ 10:23::f1 | 10:23::f1 |     128 | 10:23::f1 | ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff | 10:23::f1 | 10:23::f1
+(1 row)
+
+select * from inet_val('10:23::f1/64'::inet);
+   host    |    abbrev    | masklen |  network   |        netmask        |   first    |            last            
+-----------+--------------+---------+------------+-----------------------+------------+----------------------------
+ 10:23::f1 | 10:23::f1/64 |      64 | 10:23::/64 | ffff:ffff:ffff:ffff:: | 10:23::/64 | 10:23::ffff:ffff:ffff:ffff
+(1 row)
+
+select * from inet_val('10:23::8000/113'::cidr);
+    host     |     abbrev      | masklen |     network     |                 netmask                 |      first      |    last     
+-------------+-----------------+---------+-----------------+-----------------------------------------+-----------------+-------------
+ 10:23::8000 | 10:23::8000/113 |     113 | 10:23::8000/113 | ffff:ffff:ffff:ffff:ffff:ffff:ffff:8000 | 10:23::8000/113 | 10:23::ffff
+(1 row)
+
+select * from inet_val('10:23::ffff'::inet);
+    host     |   abbrev    | masklen |   network   |                 netmask                 |    first    |    last     
+-------------+-------------+---------+-------------+-----------------------------------------+-------------+-------------
+ 10:23::ffff | 10:23::ffff |     128 | 10:23::ffff | ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff | 10:23::ffff | 10:23::ffff
+(1 row)
+
+select * from inet_val('::ffff:1.2.3.4'::cidr);
+      host      |     abbrev     | masklen |    network     |                 netmask                 |     first      |      last      
+----------------+----------------+---------+----------------+-----------------------------------------+----------------+----------------
+ ::ffff:1.2.3.4 | ::ffff:1.2.3.4 |     128 | ::ffff:1.2.3.4 | ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff | ::ffff:1.2.3.4 | ::ffff:1.2.3.4
+(1 row)
+
+select * from inet_val('::4.3.2.1/24'::inet);
+   host    |    abbrev    | masklen | network |   netmask   | first |                last                
+-----------+--------------+---------+---------+-------------+-------+------------------------------------
+ ::4.3.2.1 | ::4.3.2.1/24 |      24 | ::/24   | ffff:ff00:: | ::/24 | 0:ff:ffff:ffff:ffff:ffff:ffff:ffff
+(1 row)
+
+create or replace function mac_cmp(macaddr, macaddr) returns int as '
+   args[0] <=> args[1]
+' language 'plruby';
+select mac_cmp('00:07:E9:85:3E:C5'::macaddr, '00:E0:29:3E:E7:25'::macaddr);
+ mac_cmp 
+---------
+      -1
+(1 row)
+
+create or replace function mac_trunc(macaddr) returns macaddr as '
+   args[0].truncate
+' language 'plruby';
+select mac_trunc('00:07:E9:85:3E:C5'::macaddr);
+     mac_trunc     
+-------------------
+ 00:07:e9:00:00:00
+(1 row)
+
+select mac_trunc('00:E0:29:3E:E7:25'::macaddr);
+     mac_trunc     
+-------------------
+ 00:e0:29:00:00:00
+(1 row)
+

data/test/conv_network/test_mklang.sql

@@ -0,0 +1,8 @@
+ 
+   create function plruby_call_handler() returns language_handler
+    as '/home/dberger/Repositories/postgresql-plruby/src/plruby.so'
+   language 'C';
+ 
+   create trusted procedural language 'plruby'
+        handler plruby_call_handler
+        lancompiler 'PL/Ruby';

data/test/conv_network/test_queries.sql

@@ -0,0 +1,60 @@
+create table pl_inet (
+  host text, abbrev text, masklen int,
+  network inet, netmask inet, first inet, last inet
+);
+
+
+create or replace function inet_val(inet) returns pl_inet as '
+   a = args[0]
+   [a.host, a.abbrev, a.masklen, a.network, a.netmask, 
+    a.first, a.last]
+ ' language 'plruby';
+
+
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.226/24'::inet);
+select * from inet_val('192.168.1.0/24'::cidr);
+select * from inet_val('192.168.1.226'::inet);
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.0/24'::inet);
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.0/25'::inet);
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.255/24'::inet);
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.255/25'::inet);
+select * from inet_val('10'::cidr);
+select * from inet_val('10.1.2.3/8'::inet);
+select * from inet_val('10.0.0.0'::cidr);
+select * from inet_val('10.1.2.3/8'::inet);
+select * from inet_val('10.1.2.3'::cidr);
+select * from inet_val('10.1.2.3/32'::inet);
+select * from inet_val('10.1.2'::cidr);
+select * from inet_val('10.1.2.3/24'::inet);
+select * from inet_val('10.1'::cidr);
+select * from inet_val('10.1.2.3/16'::inet);
+select * from inet_val('10'::cidr);
+select * from inet_val('10.1.2.3/8'::inet);
+select * from inet_val('10'::cidr);
+select * from inet_val('11.1.2.3/8'::inet);
+select * from inet_val('10'::cidr);
+select * from inet_val('9.1.2.3/8'::inet);
+select * from inet_val('10:23::f1'::cidr);
+select * from inet_val('10:23::f1/64'::inet);
+select * from inet_val('10:23::8000/113'::cidr);
+select * from inet_val('10:23::ffff'::inet);
+select * from inet_val('::ffff:1.2.3.4'::cidr);
+select * from inet_val('::4.3.2.1/24'::inet);
+
+create or replace function mac_cmp(macaddr, macaddr) returns int as '
+   args[0] <=> args[1]
+' language 'plruby';
+
+select mac_cmp('00:07:E9:85:3E:C5'::macaddr, '00:E0:29:3E:E7:25'::macaddr);
+
+create or replace function mac_trunc(macaddr) returns macaddr as '
+   args[0].truncate
+' language 'plruby';
+
+select mac_trunc('00:07:E9:85:3E:C5'::macaddr);
+select mac_trunc('00:E0:29:3E:E7:25'::macaddr);

data/test/conv_network/test_queries.sql.in

@@ -0,0 +1,60 @@
+create table pl_inet (
+  host text, abbrev text, masklen int,
+  network inet, netmask inet, first inet, last inet
+);
+
+
+create or replace function inet_val(inet) returns pl_inet as '
+   a = args[0]
+   [a.host, a.abbrev, a.masklen, a.network, a.netmask, 
+    a.first, a.last]
+ ' language 'plruby';
+
+
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.226/24'::inet);
+select * from inet_val('192.168.1.0/24'::cidr);
+select * from inet_val('192.168.1.226'::inet);
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.0/24'::inet);
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.0/25'::inet);
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.255/24'::inet);
+select * from inet_val('192.168.1'::cidr);
+select * from inet_val('192.168.1.255/25'::inet);
+select * from inet_val('10'::cidr);
+select * from inet_val('10.1.2.3/8'::inet);
+select * from inet_val('10.0.0.0'::cidr);
+select * from inet_val('10.1.2.3/8'::inet);
+select * from inet_val('10.1.2.3'::cidr);
+select * from inet_val('10.1.2.3/32'::inet);
+select * from inet_val('10.1.2'::cidr);
+select * from inet_val('10.1.2.3/24'::inet);
+select * from inet_val('10.1'::cidr);
+select * from inet_val('10.1.2.3/16'::inet);
+select * from inet_val('10'::cidr);
+select * from inet_val('10.1.2.3/8'::inet);
+select * from inet_val('10'::cidr);
+select * from inet_val('11.1.2.3/8'::inet);
+select * from inet_val('10'::cidr);
+select * from inet_val('9.1.2.3/8'::inet);
+select * from inet_val('10:23::f1'::cidr);
+select * from inet_val('10:23::f1/64'::inet);
+select * from inet_val('10:23::8000/113'::cidr);
+select * from inet_val('10:23::ffff'::inet);
+select * from inet_val('::ffff:1.2.3.4'::cidr);
+select * from inet_val('::4.3.2.1/24'::inet);
+
+create or replace function mac_cmp(macaddr, macaddr) returns int as '
+   args[0] <=> args[1]
+' language 'plruby';
+
+select mac_cmp('00:07:E9:85:3E:C5'::macaddr, '00:E0:29:3E:E7:25'::macaddr);
+
+create or replace function mac_trunc(macaddr) returns macaddr as '
+   args[0].truncate
+' language 'plruby';
+
+select mac_trunc('00:07:E9:85:3E:C5'::macaddr);
+select mac_trunc('00:E0:29:3E:E7:25'::macaddr);

data/test/plp/b.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/ruby
+require 'rbconfig'
+include Config
+pwd = Dir.pwd
+pwd.sub!(%r{[^/]+/[^/]+$}, "")
+
+language, extension = 'C', '_new_trigger'
+opaque = 'language_handler'
+
+version = ARGV[0].to_i
+suffix = ARGV[1].to_s
+
+begin
+   f = File.new("test_setup.sql", "w")
+   IO.foreach("test_setup.sql.in") do |x| 
+      x.gsub!(/language\s+'plruby'/i, "language 'plruby#{suffix}'")
+      f.print x
+   end
+   f.close
+   f = File.new("test_mklang.sql", "w")
+   f.print <<EOF
+ 
+   create function plruby#{suffix}_call_handler() returns #{opaque}
+    as '#{pwd}src/plruby#{suffix}.#{CONFIG["DLEXT"]}'
+   language '#{language}';
+ 
+   create trusted procedural language 'plruby#{suffix}'
+        handler plruby#{suffix}_call_handler
+        lancompiler 'PL/Ruby';
+EOF
+   f.close
+rescue
+   raise "Why I can't write #$!"
+end

data/test/plp/runtest

@@ -0,0 +1,29 @@
+#!/bin/sh
+
+DBNAME=plruby_test
+export DBNAME
+
+sleep 1
+echo "**** Destroy old database $DBNAME ****"
+dropdb $DBNAME
+
+echo "**** Create test database $DBNAME ****"
+createdb $DBNAME
+
+echo "**** Create procedural language plruby$2 ****"
+"${RUBY-ruby}" b.rb $*
+psql -q -n -X $DBNAME < test_mklang.sql
+
+echo "**** Create tables, functions and triggers ****"
+psql -q -n -X $DBNAME < test_setup.sql
+
+echo "**** Running test queries ****"
+psql -q -n -X -e $DBNAME < test_queries.sql > test.out 2>&1
+
+if cmp -s test.expected.$1 test.out; then
+    echo "    Tests passed O.K."
+else
+    echo "    Tests failed - look at diffs between"
+    echo "    test.expected.$1 and test.out"
+fi
+

data/test/plp/test.expected.73

@@ -0,0 +1,472 @@
+insert into Room values ('001', 'Entrance');
+insert into Room values ('002', 'Office');
+insert into Room values ('003', 'Office');
+insert into Room values ('004', 'Technical');
+insert into Room values ('101', 'Office');
+insert into Room values ('102', 'Conference');
+insert into Room values ('103', 'Restroom');
+insert into Room values ('104', 'Technical');
+insert into Room values ('105', 'Office');
+insert into Room values ('106', 'Office');
+insert into WSlot values ('WS.001.1a', '001', '', '');
+insert into WSlot values ('WS.001.1b', '001', '', '');
+insert into WSlot values ('WS.001.2a', '001', '', '');
+insert into WSlot values ('WS.001.2b', '001', '', '');
+insert into WSlot values ('WS.001.3a', '001', '', '');
+insert into WSlot values ('WS.001.3b', '001', '', '');
+insert into WSlot values ('WS.002.1a', '002', '', '');
+insert into WSlot values ('WS.002.1b', '002', '', '');
+insert into WSlot values ('WS.002.2a', '002', '', '');
+insert into WSlot values ('WS.002.2b', '002', '', '');
+insert into WSlot values ('WS.002.3a', '002', '', '');
+insert into WSlot values ('WS.002.3b', '002', '', '');
+insert into WSlot values ('WS.003.1a', '003', '', '');
+insert into WSlot values ('WS.003.1b', '003', '', '');
+insert into WSlot values ('WS.003.2a', '003', '', '');
+insert into WSlot values ('WS.003.2b', '003', '', '');
+insert into WSlot values ('WS.003.3a', '003', '', '');
+insert into WSlot values ('WS.003.3b', '003', '', '');
+insert into WSlot values ('WS.101.1a', '101', '', '');
+insert into WSlot values ('WS.101.1b', '101', '', '');
+insert into WSlot values ('WS.101.2a', '101', '', '');
+insert into WSlot values ('WS.101.2b', '101', '', '');
+insert into WSlot values ('WS.101.3a', '101', '', '');
+insert into WSlot values ('WS.101.3b', '101', '', '');
+insert into WSlot values ('WS.102.1a', '102', '', '');
+insert into WSlot values ('WS.102.1b', '102', '', '');
+insert into WSlot values ('WS.102.2a', '102', '', '');
+insert into WSlot values ('WS.102.2b', '102', '', '');
+insert into WSlot values ('WS.102.3a', '102', '', '');
+insert into WSlot values ('WS.102.3b', '102', '', '');
+insert into WSlot values ('WS.105.1a', '105', '', '');
+insert into WSlot values ('WS.105.1b', '105', '', '');
+insert into WSlot values ('WS.105.2a', '105', '', '');
+insert into WSlot values ('WS.105.2b', '105', '', '');
+insert into WSlot values ('WS.105.3a', '105', '', '');
+insert into WSlot values ('WS.105.3b', '105', '', '');
+insert into WSlot values ('WS.106.1a', '106', '', '');
+insert into WSlot values ('WS.106.1b', '106', '', '');
+insert into WSlot values ('WS.106.2a', '106', '', '');
+insert into WSlot values ('WS.106.2b', '106', '', '');
+insert into WSlot values ('WS.106.3a', '106', '', '');
+insert into WSlot values ('WS.106.3b', '106', '', '');
+insert into PField values ('PF0_1', 'Wallslots basement');
+insert into PSlot values ('PS.base.a1', 'PF0_1', '', '');
+insert into PSlot values ('PS.base.a2', 'PF0_1', '', '');
+insert into PSlot values ('PS.base.a3', 'PF0_1', '', '');
+insert into PSlot values ('PS.base.a4', 'PF0_1', '', '');
+insert into PSlot values ('PS.base.a5', 'PF0_1', '', '');
+insert into PSlot values ('PS.base.a6', 'PF0_1', '', '');
+insert into PSlot values ('PS.base.b1', 'PF0_1', '', 'WS.002.1a');
+insert into PSlot values ('PS.base.b2', 'PF0_1', '', 'WS.002.1b');
+insert into PSlot values ('PS.base.b3', 'PF0_1', '', 'WS.002.2a');
+insert into PSlot values ('PS.base.b4', 'PF0_1', '', 'WS.002.2b');
+insert into PSlot values ('PS.base.b5', 'PF0_1', '', 'WS.002.3a');
+insert into PSlot values ('PS.base.b6', 'PF0_1', '', 'WS.002.3b');
+insert into PSlot values ('PS.base.c1', 'PF0_1', '', 'WS.003.1a');
+insert into PSlot values ('PS.base.c2', 'PF0_1', '', 'WS.003.1b');
+insert into PSlot values ('PS.base.c3', 'PF0_1', '', 'WS.003.2a');
+insert into PSlot values ('PS.base.c4', 'PF0_1', '', 'WS.003.2b');
+insert into PSlot values ('PS.base.c5', 'PF0_1', '', 'WS.003.3a');
+insert into PSlot values ('PS.base.c6', 'PF0_1', '', 'WS.003.3b');
+insert into PField values ('PF0_X', 'Phonelines basement');
+insert into PSlot values ('PS.base.ta1', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.ta2', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.ta3', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.ta4', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.ta5', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.ta6', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.tb1', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.tb2', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.tb3', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.tb4', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.tb5', 'PF0_X', '', '');
+insert into PSlot values ('PS.base.tb6', 'PF0_X', '', '');
+insert into PField values ('PF1_1', 'Wallslots 1st floor');
+insert into PSlot values ('PS.1st.a1', 'PF1_1', '', 'WS.101.1a');
+insert into PSlot values ('PS.1st.a2', 'PF1_1', '', 'WS.101.1b');
+insert into PSlot values ('PS.1st.a3', 'PF1_1', '', 'WS.101.2a');
+insert into PSlot values ('PS.1st.a4', 'PF1_1', '', 'WS.101.2b');
+insert into PSlot values ('PS.1st.a5', 'PF1_1', '', 'WS.101.3a');
+insert into PSlot values ('PS.1st.a6', 'PF1_1', '', 'WS.101.3b');
+insert into PSlot values ('PS.1st.b1', 'PF1_1', '', 'WS.102.1a');
+insert into PSlot values ('PS.1st.b2', 'PF1_1', '', 'WS.102.1b');
+insert into PSlot values ('PS.1st.b3', 'PF1_1', '', 'WS.102.2a');
+insert into PSlot values ('PS.1st.b4', 'PF1_1', '', 'WS.102.2b');
+insert into PSlot values ('PS.1st.b5', 'PF1_1', '', 'WS.102.3a');
+insert into PSlot values ('PS.1st.b6', 'PF1_1', '', 'WS.102.3b');
+insert into PSlot values ('PS.1st.c1', 'PF1_1', '', 'WS.105.1a');
+insert into PSlot values ('PS.1st.c2', 'PF1_1', '', 'WS.105.1b');
+insert into PSlot values ('PS.1st.c3', 'PF1_1', '', 'WS.105.2a');
+insert into PSlot values ('PS.1st.c4', 'PF1_1', '', 'WS.105.2b');
+insert into PSlot values ('PS.1st.c5', 'PF1_1', '', 'WS.105.3a');
+insert into PSlot values ('PS.1st.c6', 'PF1_1', '', 'WS.105.3b');
+insert into PSlot values ('PS.1st.d1', 'PF1_1', '', 'WS.106.1a');
+insert into PSlot values ('PS.1st.d2', 'PF1_1', '', 'WS.106.1b');
+insert into PSlot values ('PS.1st.d3', 'PF1_1', '', 'WS.106.2a');
+insert into PSlot values ('PS.1st.d4', 'PF1_1', '', 'WS.106.2b');
+insert into PSlot values ('PS.1st.d5', 'PF1_1', '', 'WS.106.3a');
+insert into PSlot values ('PS.1st.d6', 'PF1_1', '', 'WS.106.3b');
+update PSlot set backlink = 'WS.001.1a' where slotname = 'PS.base.a1';
+update PSlot set backlink = 'WS.001.1b' where slotname = 'PS.base.a3';
+select * from WSlot where roomno = '001' order by slotname;
+ slotname  | roomno | slotlink |  backlink  
+-----------+--------+----------+------------
+ WS.001.1a | 001    |          | PS.base.a1
+ WS.001.1b | 001    |          | PS.base.a3
+ WS.001.2a | 001    |          | 
+ WS.001.2b | 001    |          | 
+ WS.001.3a | 001    |          | 
+ WS.001.3b | 001    |          | 
+(6 rows)
+
+select * from PSlot where slotname ~ 'PS.base.a' order by slotname;
+  slotname  | pfname | slotlink | backlink  
+------------+--------+----------+-----------
+ PS.base.a1 | PF0_1  |          | WS.001.1a
+ PS.base.a2 | PF0_1  |          | 
+ PS.base.a3 | PF0_1  |          | WS.001.1b
+ PS.base.a4 | PF0_1  |          | 
+ PS.base.a5 | PF0_1  |          | 
+ PS.base.a6 | PF0_1  |          | 
+(6 rows)
+
+update PSlot set backlink = 'WS.001.2a' where slotname = 'PS.base.a3';
+select * from WSlot where roomno = '001' order by slotname;
+ slotname  | roomno | slotlink |  backlink  
+-----------+--------+----------+------------
+ WS.001.1a | 001    |          | PS.base.a1
+ WS.001.1b | 001    |          | 
+ WS.001.2a | 001    |          | PS.base.a3
+ WS.001.2b | 001    |          | 
+ WS.001.3a | 001    |          | 
+ WS.001.3b | 001    |          | 
+(6 rows)
+
+select * from PSlot where slotname ~ 'PS.base.a' order by slotname;
+  slotname  | pfname | slotlink | backlink  
+------------+--------+----------+-----------
+ PS.base.a1 | PF0_1  |          | WS.001.1a
+ PS.base.a2 | PF0_1  |          | 
+ PS.base.a3 | PF0_1  |          | WS.001.2a
+ PS.base.a4 | PF0_1  |          | 
+ PS.base.a5 | PF0_1  |          | 
+ PS.base.a6 | PF0_1  |          | 
+(6 rows)
+
+update PSlot set backlink = 'WS.001.1b' where slotname = 'PS.base.a2';
+select * from WSlot where roomno = '001' order by slotname;
+ slotname  | roomno | slotlink |  backlink  
+-----------+--------+----------+------------
+ WS.001.1a | 001    |          | PS.base.a1
+ WS.001.1b | 001    |          | PS.base.a2
+ WS.001.2a | 001    |          | PS.base.a3
+ WS.001.2b | 001    |          | 
+ WS.001.3a | 001    |          | 
+ WS.001.3b | 001    |          | 
+(6 rows)
+
+select * from PSlot where slotname ~ 'PS.base.a' order by slotname;
+  slotname  | pfname | slotlink | backlink  
+------------+--------+----------+-----------
+ PS.base.a1 | PF0_1  |          | WS.001.1a
+ PS.base.a2 | PF0_1  |          | WS.001.1b
+ PS.base.a3 | PF0_1  |          | WS.001.2a
+ PS.base.a4 | PF0_1  |          | 
+ PS.base.a5 | PF0_1  |          | 
+ PS.base.a6 | PF0_1  |          | 
+(6 rows)
+
+update WSlot set backlink = 'PS.base.a4' where slotname = 'WS.001.2b';
+update WSlot set backlink = 'PS.base.a6' where slotname = 'WS.001.3a';
+select * from WSlot where roomno = '001' order by slotname;
+ slotname  | roomno | slotlink |  backlink  
+-----------+--------+----------+------------
+ WS.001.1a | 001    |          | PS.base.a1
+ WS.001.1b | 001    |          | PS.base.a2
+ WS.001.2a | 001    |          | PS.base.a3
+ WS.001.2b | 001    |          | PS.base.a4
+ WS.001.3a | 001    |          | PS.base.a6
+ WS.001.3b | 001    |          | 
+(6 rows)
+
+select * from PSlot where slotname ~ 'PS.base.a' order by slotname;
+  slotname  | pfname | slotlink | backlink  
+------------+--------+----------+-----------
+ PS.base.a1 | PF0_1  |          | WS.001.1a
+ PS.base.a2 | PF0_1  |          | WS.001.1b
+ PS.base.a3 | PF0_1  |          | WS.001.2a
+ PS.base.a4 | PF0_1  |          | WS.001.2b
+ PS.base.a5 | PF0_1  |          | 
+ PS.base.a6 | PF0_1  |          | WS.001.3a
+(6 rows)
+
+update WSlot set backlink = 'PS.base.a6' where slotname = 'WS.001.3b';
+select * from WSlot where roomno = '001' order by slotname;
+ slotname  | roomno | slotlink |  backlink  
+-----------+--------+----------+------------
+ WS.001.1a | 001    |          | PS.base.a1
+ WS.001.1b | 001    |          | PS.base.a2
+ WS.001.2a | 001    |          | PS.base.a3
+ WS.001.2b | 001    |          | PS.base.a4
+ WS.001.3a | 001    |          | 
+ WS.001.3b | 001    |          | PS.base.a6
+(6 rows)
+
+select * from PSlot where slotname ~ 'PS.base.a' order by slotname;
+  slotname  | pfname | slotlink | backlink  
+------------+--------+----------+-----------
+ PS.base.a1 | PF0_1  |          | WS.001.1a
+ PS.base.a2 | PF0_1  |          | WS.001.1b
+ PS.base.a3 | PF0_1  |          | WS.001.2a
+ PS.base.a4 | PF0_1  |          | WS.001.2b
+ PS.base.a5 | PF0_1  |          | 
+ PS.base.a6 | PF0_1  |          | WS.001.3b
+(6 rows)
+
+update WSlot set backlink = 'PS.base.a5' where slotname = 'WS.001.3a';
+select * from WSlot where roomno = '001' order by slotname;
+ slotname  | roomno | slotlink |  backlink  
+-----------+--------+----------+------------
+ WS.001.1a | 001    |          | PS.base.a1
+ WS.001.1b | 001    |          | PS.base.a2
+ WS.001.2a | 001    |          | PS.base.a3
+ WS.001.2b | 001    |          | PS.base.a4
+ WS.001.3a | 001    |          | PS.base.a5
+ WS.001.3b | 001    |          | PS.base.a6
+(6 rows)
+
+select * from PSlot where slotname ~ 'PS.base.a' order by slotname;
+  slotname  | pfname | slotlink | backlink  
+------------+--------+----------+-----------
+ PS.base.a1 | PF0_1  |          | WS.001.1a
+ PS.base.a2 | PF0_1  |          | WS.001.1b
+ PS.base.a3 | PF0_1  |          | WS.001.2a
+ PS.base.a4 | PF0_1  |          | WS.001.2b
+ PS.base.a5 | PF0_1  |          | WS.001.3a
+ PS.base.a6 | PF0_1  |          | WS.001.3b
+(6 rows)
+
+insert into PField values ('PF1_2', 'Phonelines 1st floor');
+insert into PSlot values ('PS.1st.ta1', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.ta2', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.ta3', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.ta4', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.ta5', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.ta6', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.tb1', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.tb2', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.tb3', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.tb4', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.tb5', 'PF1_2', '', '');
+insert into PSlot values ('PS.1st.tb6', 'PF1_2', '', '');
+update PField set name = 'PF0_2' where name = 'PF0_X';
+select * from PSlot order by slotname;
+  slotname   | pfname | slotlink | backlink  
+-------------+--------+----------+-----------
+ PS.1st.a1   | PF1_1  |          | WS.101.1a
+ PS.1st.a2   | PF1_1  |          | WS.101.1b
+ PS.1st.a3   | PF1_1  |          | WS.101.2a
+ PS.1st.a4   | PF1_1  |          | WS.101.2b
+ PS.1st.a5   | PF1_1  |          | WS.101.3a
+ PS.1st.a6   | PF1_1  |          | WS.101.3b
+ PS.1st.b1   | PF1_1  |          | WS.102.1a
+ PS.1st.b2   | PF1_1  |          | WS.102.1b
+ PS.1st.b3   | PF1_1  |          | WS.102.2a
+ PS.1st.b4   | PF1_1  |          | WS.102.2b
+ PS.1st.b5   | PF1_1  |          | WS.102.3a
+ PS.1st.b6   | PF1_1  |          | WS.102.3b
+ PS.1st.c1   | PF1_1  |          | WS.105.1a
+ PS.1st.c2   | PF1_1  |          | WS.105.1b
+ PS.1st.c3   | PF1_1  |          | WS.105.2a
+ PS.1st.c4   | PF1_1  |          | WS.105.2b
+ PS.1st.c5   | PF1_1  |          | WS.105.3a
+ PS.1st.c6   | PF1_1  |          | WS.105.3b
+ PS.1st.d1   | PF1_1  |          | WS.106.1a
+ PS.1st.d2   | PF1_1  |          | WS.106.1b
+ PS.1st.d3   | PF1_1  |          | WS.106.2a
+ PS.1st.d4   | PF1_1  |          | WS.106.2b
+ PS.1st.d5   | PF1_1  |          | WS.106.3a
+ PS.1st.d6   | PF1_1  |          | WS.106.3b
+ PS.1st.ta1  | PF1_2  |          | 
+ PS.1st.ta2  | PF1_2  |          | 
+ PS.1st.ta3  | PF1_2  |          | 
+ PS.1st.ta4  | PF1_2  |          | 
+ PS.1st.ta5  | PF1_2  |          | 
+ PS.1st.ta6  | PF1_2  |          | 
+ PS.1st.tb1  | PF1_2  |          | 
+ PS.1st.tb2  | PF1_2  |          | 
+ PS.1st.tb3  | PF1_2  |          | 
+ PS.1st.tb4  | PF1_2  |          | 
+ PS.1st.tb5  | PF1_2  |          | 
+ PS.1st.tb6  | PF1_2  |          | 
+ PS.base.a1  | PF0_1  |          | WS.001.1a
+ PS.base.a2  | PF0_1  |          | WS.001.1b
+ PS.base.a3  | PF0_1  |          | WS.001.2a
+ PS.base.a4  | PF0_1  |          | WS.001.2b
+ PS.base.a5  | PF0_1  |          | WS.001.3a
+ PS.base.a6  | PF0_1  |          | WS.001.3b
+ PS.base.b1  | PF0_1  |          | WS.002.1a
+ PS.base.b2  | PF0_1  |          | WS.002.1b
+ PS.base.b3  | PF0_1  |          | WS.002.2a
+ PS.base.b4  | PF0_1  |          | WS.002.2b
+ PS.base.b5  | PF0_1  |          | WS.002.3a
+ PS.base.b6  | PF0_1  |          | WS.002.3b
+ PS.base.c1  | PF0_1  |          | WS.003.1a
+ PS.base.c2  | PF0_1  |          | WS.003.1b
+ PS.base.c3  | PF0_1  |          | WS.003.2a
+ PS.base.c4  | PF0_1  |          | WS.003.2b
+ PS.base.c5  | PF0_1  |          | WS.003.3a
+ PS.base.c6  | PF0_1  |          | WS.003.3b
+ PS.base.ta1 | PF0_2  |          | 
+ PS.base.ta2 | PF0_2  |          | 
+ PS.base.ta3 | PF0_2  |          | 
+ PS.base.ta4 | PF0_2  |          | 
+ PS.base.ta5 | PF0_2  |          | 
+ PS.base.ta6 | PF0_2  |          | 
+ PS.base.tb1 | PF0_2  |          | 
+ PS.base.tb2 | PF0_2  |          | 
+ PS.base.tb3 | PF0_2  |          | 
+ PS.base.tb4 | PF0_2  |          | 
+ PS.base.tb5 | PF0_2  |          | 
+ PS.base.tb6 | PF0_2  |          | 
+(66 rows)
+
+select * from WSlot order by slotname;
+ slotname  | roomno | slotlink |  backlink  
+-----------+--------+----------+------------
+ WS.001.1a | 001    |          | PS.base.a1
+ WS.001.1b | 001    |          | PS.base.a2
+ WS.001.2a | 001    |          | PS.base.a3
+ WS.001.2b | 001    |          | PS.base.a4
+ WS.001.3a | 001    |          | PS.base.a5
+ WS.001.3b | 001    |          | PS.base.a6
+ WS.002.1a | 002    |          | PS.base.b1
+ WS.002.1b | 002    |          | PS.base.b2
+ WS.002.2a | 002    |          | PS.base.b3
+ WS.002.2b | 002    |          | PS.base.b4
+ WS.002.3a | 002    |          | PS.base.b5
+ WS.002.3b | 002    |          | PS.base.b6
+ WS.003.1a | 003    |          | PS.base.c1
+ WS.003.1b | 003    |          | PS.base.c2
+ WS.003.2a | 003    |          | PS.base.c3
+ WS.003.2b | 003    |          | PS.base.c4
+ WS.003.3a | 003    |          | PS.base.c5
+ WS.003.3b | 003    |          | PS.base.c6
+ WS.101.1a | 101    |          | PS.1st.a1
+ WS.101.1b | 101    |          | PS.1st.a2
+ WS.101.2a | 101    |          | PS.1st.a3
+ WS.101.2b | 101    |          | PS.1st.a4
+ WS.101.3a | 101    |          | PS.1st.a5
+ WS.101.3b | 101    |          | PS.1st.a6
+ WS.102.1a | 102    |          | PS.1st.b1
+ WS.102.1b | 102    |          | PS.1st.b2
+ WS.102.2a | 102    |          | PS.1st.b3
+ WS.102.2b | 102    |          | PS.1st.b4
+ WS.102.3a | 102    |          | PS.1st.b5
+ WS.102.3b | 102    |          | PS.1st.b6
+ WS.105.1a | 105    |          | PS.1st.c1
+ WS.105.1b | 105    |          | PS.1st.c2
+ WS.105.2a | 105    |          | PS.1st.c3
+ WS.105.2b | 105    |          | PS.1st.c4
+ WS.105.3a | 105    |          | PS.1st.c5
+ WS.105.3b | 105    |          | PS.1st.c6
+ WS.106.1a | 106    |          | PS.1st.d1
+ WS.106.1b | 106    |          | PS.1st.d2
+ WS.106.2a | 106    |          | PS.1st.d3
+ WS.106.2b | 106    |          | PS.1st.d4
+ WS.106.3a | 106    |          | PS.1st.d5
+ WS.106.3b | 106    |          | PS.1st.d6
+(42 rows)
+
+insert into PLine values ('PL.001', '-0', 'Central call', 'PS.base.ta1');
+insert into PLine values ('PL.002', '-101', '', 'PS.base.ta2');
+insert into PLine values ('PL.003', '-102', '', 'PS.base.ta3');
+insert into PLine values ('PL.004', '-103', '', 'PS.base.ta5');
+insert into PLine values ('PL.005', '-104', '', 'PS.base.ta6');
+insert into PLine values ('PL.006', '-106', '', 'PS.base.tb2');
+insert into PLine values ('PL.007', '-108', '', 'PS.base.tb3');
+insert into PLine values ('PL.008', '-109', '', 'PS.base.tb4');
+insert into PLine values ('PL.009', '-121', '', 'PS.base.tb5');
+insert into PLine values ('PL.010', '-122', '', 'PS.base.tb6');
+insert into PLine values ('PL.015', '-134', '', 'PS.1st.ta1');
+insert into PLine values ('PL.016', '-137', '', 'PS.1st.ta3');
+insert into PLine values ('PL.017', '-139', '', 'PS.1st.ta4');
+insert into PLine values ('PL.018', '-362', '', 'PS.1st.tb1');
+insert into PLine values ('PL.019', '-363', '', 'PS.1st.tb2');
+insert into PLine values ('PL.020', '-364', '', 'PS.1st.tb3');
+insert into PLine values ('PL.021', '-365', '', 'PS.1st.tb5');
+insert into PLine values ('PL.022', '-367', '', 'PS.1st.tb6');
+insert into PLine values ('PL.028', '-501', 'Fax entrance', 'PS.base.ta2');
+insert into PLine values ('PL.029', '-502', 'Fax 1st floor', 'PS.1st.ta1');
+insert into PHone values ('PH.hc001', 'Hicom standard', 'WS.001.1a');
+update PSlot set slotlink = 'PS.base.ta1' where slotname = 'PS.base.a1';
+insert into PHone values ('PH.hc002', 'Hicom standard', 'WS.002.1a');
+update PSlot set slotlink = 'PS.base.ta5' where slotname = 'PS.base.b1';
+insert into PHone values ('PH.hc003', 'Hicom standard', 'WS.002.2a');
+update PSlot set slotlink = 'PS.base.tb2' where slotname = 'PS.base.b3';
+insert into PHone values ('PH.fax001', 'Canon fax', 'WS.001.2a');
+update PSlot set slotlink = 'PS.base.ta2' where slotname = 'PS.base.a3';
+insert into Hub values ('base.hub1', 'Patchfield PF0_1 hub', 16);
+insert into System values ('orion', 'PC');
+insert into IFace values ('IF', 'orion', 'eth0', 'WS.002.1b');
+update PSlot set slotlink = 'HS.base.hub1.1' where slotname = 'PS.base.b2';
+select * from PField_v1 where pfname = 'PF0_1' order by slotname;
+ pfname |  slotname  |                         backside                         |                     patch                     
+--------+------------+----------------------------------------------------------+-----------------------------------------------
+ PF0_1  | PS.base.a1 | WS.001.1a in room 001 -> Phone PH.hc001 (Hicom standard) | PS.base.ta1 -> Phone line -0 (Central call)
+ PF0_1  | PS.base.a2 | WS.001.1b in room 001 -> -                               | -
+ PF0_1  | PS.base.a3 | WS.001.2a in room 001 -> Phone PH.fax001 (Canon fax)     | PS.base.ta2 -> Phone line -501 (Fax entrance)
+ PF0_1  | PS.base.a4 | WS.001.2b in room 001 -> -                               | -
+ PF0_1  | PS.base.a5 | WS.001.3a in room 001 -> -                               | -
+ PF0_1  | PS.base.a6 | WS.001.3b in room 001 -> -                               | -
+ PF0_1  | PS.base.b1 | WS.002.1a in room 002 -> Phone PH.hc002 (Hicom standard) | PS.base.ta5 -> Phone line -103
+ PF0_1  | PS.base.b2 | WS.002.1b in room 002 -> orion IF eth0 (PC)              | Patchfield PF0_1 hub slot 1
+ PF0_1  | PS.base.b3 | WS.002.2a in room 002 -> Phone PH.hc003 (Hicom standard) | PS.base.tb2 -> Phone line -106
+ PF0_1  | PS.base.b4 | WS.002.2b in room 002 -> -                               | -
+ PF0_1  | PS.base.b5 | WS.002.3a in room 002 -> -                               | -
+ PF0_1  | PS.base.b6 | WS.002.3b in room 002 -> -                               | -
+ PF0_1  | PS.base.c1 | WS.003.1a in room 003 -> -                               | -
+ PF0_1  | PS.base.c2 | WS.003.1b in room 003 -> -                               | -
+ PF0_1  | PS.base.c3 | WS.003.2a in room 003 -> -                               | -
+ PF0_1  | PS.base.c4 | WS.003.2b in room 003 -> -                               | -
+ PF0_1  | PS.base.c5 | WS.003.3a in room 003 -> -                               | -
+ PF0_1  | PS.base.c6 | WS.003.3b in room 003 -> -                               | -
+(18 rows)
+
+select * from PField_v1 where pfname = 'PF0_2' order by slotname;
+ pfname |  slotname   |            backside            |                                 patch                                  
+--------+-------------+--------------------------------+------------------------------------------------------------------------
+ PF0_2  | PS.base.ta1 | Phone line -0 (Central call)   | PS.base.a1 -> WS.001.1a in room 001 -> Phone PH.hc001 (Hicom standard)
+ PF0_2  | PS.base.ta2 | Phone line -501 (Fax entrance) | PS.base.a3 -> WS.001.2a in room 001 -> Phone PH.fax001 (Canon fax)
+ PF0_2  | PS.base.ta3 | Phone line -102                | -
+ PF0_2  | PS.base.ta4 | -                              | -
+ PF0_2  | PS.base.ta5 | Phone line -103                | PS.base.b1 -> WS.002.1a in room 002 -> Phone PH.hc002 (Hicom standard)
+ PF0_2  | PS.base.ta6 | Phone line -104                | -
+ PF0_2  | PS.base.tb1 | -                              | -
+ PF0_2  | PS.base.tb2 | Phone line -106                | PS.base.b3 -> WS.002.2a in room 002 -> Phone PH.hc003 (Hicom standard)
+ PF0_2  | PS.base.tb3 | Phone line -108                | -
+ PF0_2  | PS.base.tb4 | Phone line -109                | -
+ PF0_2  | PS.base.tb5 | Phone line -121                | -
+ PF0_2  | PS.base.tb6 | Phone line -122                | -
+(12 rows)
+
+insert into PField values ('PF1_1', 'should fail due to unique index');
+ERROR:  Cannot insert a duplicate key into unique index pfield_name
+update PSlot set backlink = 'WS.not.there' where slotname = 'PS.base.a1';
+ERROR:  WS.not.there does not exist in WSlot
+update PSlot set backlink = 'XX.illegal' where slotname = 'PS.base.a1';
+ERROR:  illegal backlink beginning with XX
+update PSlot set slotlink = 'PS.not.there' where slotname = 'PS.base.a1';
+ERROR:  undefined method `stlotlink_unset' for PLtemp:Module
+update PSlot set slotlink = 'XX.illegal' where slotname = 'PS.base.a1';
+ERROR:  undefined method `stlotlink_unset' for PLtemp:Module
+insert into HSlot values ('HS', 'base.hub1', 1, '');
+ERROR:  Cannot insert a duplicate key into unique index hslot_name
+insert into HSlot values ('HS', 'base.hub1', 20, '');
+ERROR:  no manual manipulation of HSlot
+delete from HSlot;
+ERROR:  no manual manipulation of HSlot
+insert into IFace values ('IF', 'notthere', 'eth0', '');
+insert into IFace values ('IF', 'orion', 'ethernet_interface_name_too_long', '');
+ERROR:  IFace slotname IF.orion.ethernet_interface_name_too_long too long (20 char max)