File: env.rvt

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 (25 lines) | stat: -rw-r--r-- 444 bytes parent folder | download | duplicates (2) 
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
 
<?

if {[::rivet::var_qs exists protocol]} {

    puts [::rivet::env SERVER_PROTOCOL]

} else {

    set load_env_f [::rivet::var get load_env 0]

    if {[string is true $load_env_f]} {

        # test env-1.1

        ::rivet::load_env
        puts "env(DOCUMENT_NAME) = $env(DOCUMENT_NAME)\n"
    } else {

        # test env-1.2

        set doc_name [::rivet::env DOCUMENT_NAME]
        puts "env(DOCUMENT_NAME) = $doc_name\n"
    }
} 
?>