From f83cc90e1ac9f252dcc36d833505ab5e00ae8e74 Mon Sep 17 00:00:00 2001
From: Henrik Rydberg <rydberg@euromail.se>
Date: Fri, 18 May 2012 10:16:04 +0200
Subject: Adding the old test user

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>
---
 user/Test/dml/data/migrate.htx | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 user/Test/dml/data/migrate.htx

(limited to 'user/Test/dml/data/migrate.htx')

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}
-- 
cgit v1.2.3