File: fqrivet_var.tcl

package info (click to toggle)
libapache2-mod-rivet 3.2.2-1
  • links: PTS
  • area: main
  • in suites: bookworm
  • size: 6,296 kB
  • sloc: xml: 8,554; tcl: 7,568; ansic: 7,094; sh: 5,017; makefile: 195; sql: 91; lisp: 78
file content (40 lines) | stat: -rw-r--r-- 1,287 bytes parent folder | download | duplicates (4)
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
switch [::rivet::var_qs get t1] {

    1 {
        set qsvariables   [dict create {*}[::rivet::var_qs all]]
        set postvariables [dict create {*}[::rivet::var_post all]]

        set qsvar   {qsarg1 qsarg2}
        set postvar {postarg1 postarg2}

        set qs ""
        set post ""
        foreach v $qsvar {lappend qs $v [dict get $qsvariables $v]}
        foreach v $postvar {lappend post $v [dict get $postvariables $v]}
        puts -nonewline "var_qs = $qs\nvar_post = $post"
    }
    2 {
        #::rivet::parray server
        # GET request: no var_post variables are supposed to be returned 

        set qsvariables   [dict create {*}[::rivet::var_qs all]]
        set postvariables [dict create {*}[::rivet::var_post all]]

        if {[dict exists $postvariables qsarg1] || [dict exists $postvariables qsarg2]} { 
            puts "KO: [::rivet::var_post all]" 
        } else {
            puts -nonewline "OK"
        }

    }
    3 {
        set qsvariables   [dict create {*}[::rivet::var_qs all]]
        set postvariables [dict create {*}[::rivet::var_post all]]

        if {[dict exists $qsvariables postarg1] || [dict exists $qsvariables postarg2]} { 
            puts "KO: $qsvariables" 
        } else {
            puts -nonewline "OK"
        }
    }
}