htc/upload.htc


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

\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}
}