From 5df79c53745fde5d6c3340a2979b1429cd5892c1 Mon Sep 17 00:00:00 2001
From: Henrik Rydberg <rydberg@euromail.se>
Date: Sat, 8 Oct 2011 20:30:28 +0200
Subject: Initial import of htcd system 1.0

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>
---
 htc/upload.htc | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 htc/upload.htc

(limited to 'htc/upload.htc')

diff --git a/htc/upload.htc b/htc/upload.htc
new file mode 100644
index 0000000..ef3491e
--- /dev/null
+++ b/htc/upload.htc
@@ -0,0 +1,26 @@
+\def{upload.clear}{x}{
+  \if((\1 rpast "." eq "htc")||(\1 rleftand "/" eq \1)||(\1 cnt "WRITABLE")){
+    ROOT
+  }{
+    [path:=(\1 rleftand "/")++"WRITABLE"]\staturi(path)(\load(path) left \n){ROOT}
+  }
+}
+\def{upload.delete}{x}{
+  \log{upload: DELETING \1}
+  \remfile{\1}
+  \output{
+    \h3{\lang{File Deleted}{Filen raderad}}
+    \lang{
+      \1 was sucessfully deleted.
+    }{
+      \1 har raderats.
+    }
+    <p>
+    \href{\server}{\lang{Home}{Hem}}
+  }
+}
+\def{upload.put}{x}{
+  \log{upload: PUTTING \1}
+  \save{\1}{T.body}{417}
+}
+
-- 
cgit v1.2.3