Adding the old test user

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

2 files changed, 28 insertions, 0 deletions

diff --git a/user/Test/dml/data/dml.hdb b/user/Test/dml/data/dml.hdb
new file mode 100644
index 0000000..8f96b32
--- /dev/null
+++ b/user/Test/dml/data/dml.hdb
diff --git a/user/Test/dml/data/migrate.htx b/user/Test/dml/data/migrate.htx
new file mode 100644
index 0000000..a9270a3
--- /dev/null
+++ b/user/Test/dml/data/migrate.htx
@@ -0,0 +1,28 @@
+#!/home/tfy2/rydberg/bin/htc
+\create{dml}{
+  INDEX TIME AUTHOR SUBJECT BROADCAST MIME PROTECT BODY ATTACH PARENT BREAK
+}{INDEX}{<}
+\def{add}{r}{
+  \open{tmp}{\1}
+  \db{tmp}{
+    \query{1}{
+      [t.<-@];
+      \db{dml}(
+        s.INDEX:=t.INDEX;
+        s.TIME:=t.TIME;
+        s.AUTHOR:=\getuser(t.USER);
+        s.SUBJECT:=t.SUBJECT;
+        s.BROADCAST:=(t.SENDTO eq "Broadcast");
+        s.MIME:=\switch(t.TYPE){Text}{text/plain}{HTML}{text/html}{HTC}{text/x-htc};
+        s.PROTECT:=(t.STATUS eq "Protected");
+        s.BODY:=t.BODY;
+        s.ATTACH:=t.ATTACH;
+        s.PARENT:=t.PARENT;
+        s.BREAK:="";\forall{i}(t.BREAK)(s.BREAK=s.BREAK+++\getuser(i));
+        @<-s.;
+      )
+    }
+  }
+}
+\add{dml.hdb}
+\save{dml2.hdb}{dml}