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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
(in-package :net.aserve.testwa)
(webaction-project "sitea"
:project-prefix "/sitea/"
:destination (directory-namestring *load-pathname*)
:map '(("pagea" "file1.clp")
("action"
action-sitea-pushit
action-sitea-pushit
action-sitea-pushit
"file1.clp")
("action2"
action-retname-two)
("action3"
action-retname-three)
("action4"
action-retname-four)
("act" action-sitea-pushit "file1.clp"
(:prefix t))
; push once and then redir to "action"
("redirtry" action-sitea-pushit "action")
; test that the existing file file1.clp has
; precedence over the prefix fil
("fil" action-sitea-pushit action-sitea-pushit
"file2.clp"
(:prefix t))
("testctype" "file3.clp")
("file3.clp" (:content-type "text/plain"))
))
|
