diff options
Diffstat (limited to 'htc/upload.htc')
| -rw-r--r-- | htc/upload.htc | 26 |
1 files changed, 26 insertions, 0 deletions
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 @@ | |||
| 1 | \def{upload.clear}{x}{ | ||
| 2 | \if((\1 rpast "." eq "htc")||(\1 rleftand "/" eq \1)||(\1 cnt "WRITABLE")){ | ||
| 3 | ROOT | ||
| 4 | }{ | ||
| 5 | [path:=(\1 rleftand "/")++"WRITABLE"]\staturi(path)(\load(path) left \n){ROOT} | ||
| 6 | } | ||
| 7 | } | ||
| 8 | \def{upload.delete}{x}{ | ||
| 9 | \log{upload: DELETING \1} | ||
| 10 | \remfile{\1} | ||
| 11 | \output{ | ||
| 12 | \h3{\lang{File Deleted}{Filen raderad}} | ||
| 13 | \lang{ | ||
| 14 | \1 was sucessfully deleted. | ||
| 15 | }{ | ||
| 16 | \1 har raderats. | ||
| 17 | } | ||
| 18 | <p> | ||
| 19 | \href{\server}{\lang{Home}{Hem}} | ||
| 20 | } | ||
| 21 | } | ||
| 22 | \def{upload.put}{x}{ | ||
| 23 | \log{upload: PUTTING \1} | ||
| 24 | \save{\1}{T.body}{417} | ||
| 25 | } | ||
| 26 | |||
