user/Test/dml/data/migrate.htx


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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}