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/dml.hdb     | Bin 0 -> 98304 bytes
 user/Test/dml/data/migrate.htx |  28 ++++++++++++++++
 user/Test/dml/index.htc        |   5 +++
 user/Test/index.htc            |  72 +++++++++++++++++++++++++++++++++++++++++
 user/Test/pub.htc              |  34 +++++++++++++++++++
 user/Test/test.html            |   6 ++++
 user/Test/upload/WRITABLE      |   1 +
 user/Test/upload/index.htc     |   1 +
 8 files changed, 147 insertions(+)
 create mode 100644 user/Test/dml/data/dml.hdb
 create mode 100644 user/Test/dml/data/migrate.htx
 create mode 100644 user/Test/dml/index.htc
 create mode 100644 user/Test/index.htc
 create mode 100644 user/Test/pub.htc
 create mode 100644 user/Test/test.html
 create mode 100644 user/Test/upload/WRITABLE
 create mode 100644 user/Test/upload/index.htc

(limited to 'user/Test')

diff --git a/user/Test/dml/data/dml.hdb b/user/Test/dml/data/dml.hdb
new file mode 100644
index 0000000..8f96b32
Binary files /dev/null and b/user/Test/dml/data/dml.hdb 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}
-- 
cgit v1.2.3