8 files changed, 147 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
Binary files differ
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}
diff --git a/user/Test/dml/index.htc b/user/Test/dml/index.htc
new file mode 100644
index 0000000..41bf4cb
--- /dev/null
+++ b/user/Test/dml/index.htc
@@ -0,0 +1,5 @@
+\clearance{TEST}
+\alias{DML}
+\dmled.init{test}{rydberg+lists@fy.chalmers.se}
+\page{\dmled.page}
+\onpost{\dmled.onpost}
diff --git a/user/Test/index.htc b/user/Test/index.htc
new file mode 100644
index 0000000..e234949
--- /dev/null
+++ b/user/Test/index.htc
@@ -0,0 +1,72 @@
+\clearance{}
+%\clearance.domain{.default}
+%\clearance.cookie{LANG}{en}
+\alias{Test}
+\setpara{\para}
+\page{
+  \title{\req.useragent}
+  \h3{\req.accept.lang}
+  \[\T.test\]
+  <br>
+  \h1{&#163;}
+  <br>
+  \h1{&#182;}
+  \h3{&#182;}
+  \h5{&#182;}
+  &#182;
+  [(first \resp.getstatus) == 200]
+  aaa
+  
+\*{
+  <form action="http://www.ausys.se/servlet/PSP" method="post">
+  <input type=hidden name=iNodeID value=822>
+  <input type=hidden name=firstTime value=false>
+  <input type=hidden name=chSearchWords value="test">
+  <input type=hidden name=iSearchType value=2>
+  <input type=hidden name=chArea value=AU-System>
+  <input type=submit value="Search">
+  </form>
+}
+  bbb
+  %\sleep(2)
+  %\for(i:=0)(i<10)(i+=1){\sleep(1)}
+  %\log{something}
+  %\throw{halleluja}
+  [test:={
+    how
+    does
+    this\\
+    come out?
+  }];
+  \run.local{test}
+  <pre>
+  %\tok
+  </pre>
+  \form.multi{
+    \file{image/*}{FILE}{40}
+    \button{try}
+  }
+  hello?
+}
+\onpost{
+  \sleep{3}
+  %\save{/tmp/\filesafe{\T.FILE}}{T.FILE}
+  \output{
+    OK?
+  }
+}
diff --git a/user/Test/pub.htc b/user/Test/pub.htc
new file mode 100644
index 0000000..9d5cbf2
--- /dev/null
+++ b/user/Test/pub.htc
@@ -0,0 +1,34 @@
+\clearance{};
+\alias{Publ};
+\cache{\days{1}};
+\ldef{code}{x}{[\1>>16]-[\1&65535]};
+\ldef{fld}{xr}{\on.loc{\1}{\2 [[\1]]}};
+\statopen{aprdb}{data/apr.hdb}
+\page{
+  \db{aprdb}{
+    \table{
+      \query(1){
+        \tr{
+          \td{
+            \code(APR)
+            [title:=\run.local{TITLE}];
+            \if(count URL){\href(URL)(title)}{\bf [title]}
+            <br>
+            \run.local{AUTHOR}
+            \fld{JOURNAL}{,};
+            \fld{BOOKTITLE}{,};
+            \fld{VOLUME}{,};
+            \fld{PAGES}{,};
+            \fld{EDITOR}{,\it Eds.};
+            \fld{PUBLISHER}{,};
+            \fld{ADDRESS}{,};
+            \on.loc{NOTE}{\run.local{NOTE}};
+            (\sub{\time2htc(CTIME)}{20}{4})
+          }
+        }
+      }
+    }
+  }
+}
diff --git a/user/Test/test.html b/user/Test/test.html
new file mode 100644
index 0000000..995bf39
--- /dev/null
+++ b/user/Test/test.html
@@ -0,0 +1,6 @@
+<body>
+test1
+</body>
+<body>
+test2
+</body>
diff --git a/user/Test/upload/WRITABLE b/user/Test/upload/WRITABLE
new file mode 100644
index 0000000..2a02d41
--- /dev/null
+++ b/user/Test/upload/WRITABLE
@@ -0,0 +1 @@
+TEST
diff --git a/user/Test/upload/index.htc b/user/Test/upload/index.htc
new file mode 100644
index 0000000..e25ba1a
--- /dev/null
+++ b/user/Test/upload/index.htc
@@ -0,0 +1 @@
+\clearance{TEST}

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
Binary files differ


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 @@
	1	#!/home/tfy2/rydberg/bin/htc
	2	\create{dml}{
	3	INDEX TIME AUTHOR SUBJECT BROADCAST MIME PROTECT BODY ATTACH PARENT BREAK
	4	}{INDEX}{<}
	5	\def{add}{r}{
	6	\open{tmp}{\1}
	7	\db{tmp}{
	8	\query{1}{
	9	[t.<-@];
	10	\db{dml}(
	11	s.INDEX:=t.INDEX;
	12	s.TIME:=t.TIME;
	13	s.AUTHOR:=\getuser(t.USER);
	14	s.SUBJECT:=t.SUBJECT;
	15	s.BROADCAST:=(t.SENDTO eq "Broadcast");
	16	s.MIME:=\switch(t.TYPE){Text}{text/plain}{HTML}{text/html}{HTC}{text/x-htc};
	17	s.PROTECT:=(t.STATUS eq "Protected");
	18	s.BODY:=t.BODY;
	19	s.ATTACH:=t.ATTACH;
	20	s.PARENT:=t.PARENT;
	21	s.BREAK:="";\forall{i}(t.BREAK)(s.BREAK=s.BREAK+++\getuser(i));
	22	@<-s.;
	23	)
	24	}
	25	}
	26	}
	27	\add{dml.hdb}
	28	\save{dml2.hdb}{dml}


diff --git a/user/Test/dml/index.htc b/user/Test/dml/index.htc new file mode 100644 index 0000000..41bf4cb --- /dev/null +++ b/user/Test/dml/index.htc
@@ -0,0 +1,5 @@
	1	\clearance{TEST}
	2	\alias{DML}
	3	\dmled.init{test}{rydberg+lists@fy.chalmers.se}
	4	\page{\dmled.page}
	5	\onpost{\dmled.onpost}


diff --git a/user/Test/index.htc b/user/Test/index.htc new file mode 100644 index 0000000..e234949 --- /dev/null +++ b/user/Test/index.htc
@@ -0,0 +1,72 @@
	1	\clearance{}
	2	%\clearance.domain{.default}
	3	%\clearance.cookie{LANG}{en}
	4	\alias{Test}
	5	\setpara{\para}
	6	\page{
	7	\title{\req.useragent}
	8
	9	\h3{\req.accept.lang}
	10
	11	\[\T.test\]
	12
	13	<br>
	14	\h1{£}
	15	<br>
	16	\h1{¶}
	17	\h3{¶}
	18	\h5{¶}
	19	¶
	20
	21	[(first \resp.getstatus) == 200]
	22
	23	aaa
	24
	25	\*{
	26	<form action="http://www.ausys.se/servlet/PSP" method="post">
	27	<input type=hidden name=iNodeID value=822>
	28	<input type=hidden name=firstTime value=false>
	29	<input type=hidden name=chSearchWords value="test">
	30	<input type=hidden name=iSearchType value=2>
	31	<input type=hidden name=chArea value=AU-System>
	32	<input type=submit value="Search">
	33	</form>
	34	}
	35
	36	bbb
	37
	38	%\sleep(2)
	39
	40	%\for(i:=0)(i<10)(i+=1){\sleep(1)}
	41
	42	%\log{something}
	43
	44	%\throw{halleluja}
	45
	46	[test:={
	47	how
	48
	49	does
	50
	51	this\\
	52	come out?
	53	}];
	54	\run.local{test}
	55
	56	<pre>
	57	%\tok
	58	</pre>
	59
	60	\form.multi{
	61	\file{image/*}{FILE}{40}
	62	\button{try}
	63	}
	64	hello?
	65	}
	66	\onpost{
	67	\sleep{3}
	68	%\save{/tmp/\filesafe{\T.FILE}}{T.FILE}
	69	\output{
	70	OK?
	71	}
	72	}


diff --git a/user/Test/pub.htc b/user/Test/pub.htc new file mode 100644 index 0000000..9d5cbf2 --- /dev/null +++ b/user/Test/pub.htc
@@ -0,0 +1,34 @@
	1	\clearance{};
	2	\alias{Publ};
	3	\cache{\days{1}};
	4	\ldef{code}{x}{[\1>>16]-[\1&65535]};
	5	\ldef{fld}{xr}{\on.loc{\1}{\2 [[\1]]}};
	6	\statopen{aprdb}{data/apr.hdb}
	7	\page{
	8	\db{aprdb}{
	9	\table{
	10	\query(1){
	11	\tr{
	12	\td{
	13	\code(APR)
	14	[title:=\run.local{TITLE}];
	15	\if(count URL){\href(URL)(title)}{\bf [title]}
	16	<br>
	17	\run.local{AUTHOR}
	18	\fld{JOURNAL}{,};
	19	\fld{BOOKTITLE}{,};
	20	\fld{VOLUME}{,};
	21	\fld{PAGES}{,};
	22	\fld{EDITOR}{,\it Eds.};
	23	\fld{PUBLISHER}{,};
	24	\fld{ADDRESS}{,};
	25	\on.loc{NOTE}{\run.local{NOTE}};
	26	(\sub{\time2htc(CTIME)}{20}{4})
	27	}
	28	}
	29	}
	30	}
	31	}
	32	}
	33
	34


diff --git a/user/Test/test.html b/user/Test/test.html new file mode 100644 index 0000000..995bf39 --- /dev/null +++ b/user/Test/test.html
@@ -0,0 +1,6 @@
	1	<body>
	2	test1
	3	</body>
	4	<body>
	5	test2
	6	</body>


diff --git a/user/Test/upload/WRITABLE b/user/Test/upload/WRITABLE new file mode 100644 index 0000000..2a02d41 --- /dev/null +++ b/user/Test/upload/WRITABLE
@@ -0,0 +1 @@
		TEST


diff --git a/user/Test/upload/index.htc b/user/Test/upload/index.htc new file mode 100644 index 0000000..e25ba1a --- /dev/null +++ b/user/Test/upload/index.htc
@@ -0,0 +1 @@
		\clearance{TEST}