share/db/update.sh

diff --git a/share/db/sys.sql b/share/db/sys.sql
index 0eb1e83585a93b92baf2db520070586652c27361..39c0f99a917c98bf24785405147b81dd1f5b90b2 100644 (file)
--- a/share/db/sys.sql
+++ b/share/db/sys.sql
@@ -1,9 +1,9 @@
---DROP TABLE IF EXISTS service;
-CREATE TABLE IF NOT EXISTS service (
-  name VARCHAR(100),
-  description VARCHAR(200),
-  PRIMARY KEY (port,name)
-);
+DROP TABLE IF EXISTS service;
+-- NB 25.10.17 CREATE TABLE IF NOT EXISTS service (
+-- NB 25.10.17   name VARCHAR(100),
+-- NB 25.10.17   description VARCHAR(200),
+-- NB 25.10.17   PRIMARY KEY (port,name)
+-- NB 25.10.17 );
 
 --DROP TABLE IF EXISTS service_port;
 DROP TABLE IF EXISTS service_port;

diff --git a/share/db/update.sh b/share/db/update.sh
index 98eaf46a58c68fe84bd559a5f8709081191144c9..cec39f30cc3bf202bd4d3b294d9ab20c44283a31 100755 (executable)
--- a/share/db/update.sh
+++ b/share/db/update.sh
@@ -37,10 +37,10 @@ EOF
 data_src() {
   #pwd
 
-  perl -ne 'm,^(\w+)\s+\d+/\w+\s+#\s*(.*?)$, and $_=join(qq|\t|,map(/^\s*(.*?)\s*$/,$1,$2)).qq|\n| and !$h{$_}++ and print' \
-    /etc/services \
-    > "$tmp/service.csv"
-  csv2table service "$tmp/service.csv"
+# NB 25.10.17   perl -ne 'm,^(\w+)\s+\d+/\w+\s+#\s*(.*?)$, and $_=join(qq|\t|,map(/^\s*(.*?)\s*$/,$1,$2)).qq|\n| and !$h{$_}++ and print' \
+# NB 25.10.17     /etc/services \
+# NB 25.10.17     > "$tmp/service.csv"
+# NB 25.10.17   csv2table service "$tmp/service.csv"
 
   perl -ne 'm,^(\w+)\s+(\d+)/(\w+)\s+#\s*(.*?)$, and print join(qq|\t|,map(/^\s*(.*?)\s*$/,$2,$3,$1)).qq|\n|' \
     /etc/services \