File: upload.rvt

package info (click to toggle)
libapache2-mod-rivet 3.2.0-1
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 5,868 kB
  • sloc: xml: 8,496; tcl: 7,212; ansic: 6,959; sh: 5,030; makefile: 261; sql: 91; lisp: 78
file content (24 lines) | stat: -rw-r--r-- 1,088 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<?
    set names_res   [catch { set up_names  [::rivet::upload names] }]
    set exists_res  [catch { set up_exists [::rivet::upload exists uploadtest] }]
    set size_res    [catch { set up_size   [::rivet::upload size uploadtest] }]
    set type_res    [catch { set up_type   [::rivet::upload type uploadtest] }]
    set filen_res   [catch { set up_filen  [::rivet::upload filename uploadtest] }]
 
    if {$names_res || $exists_res || $size_res || $type_res || $filen_res } {
        puts [join [list $names_res $exists_res $size_res $type_res $filen_res] "|"]
    } else {
        puts [join [list $up_names $up_exists $up_size $up_type $up_filen] "|"]
    }


    #if {[catch {
    #    puts [join [list [::rivet::upload names]                \
    #                     [::rivet::upload exists uploadtest]    \
    #                     [::rivet::upload size uploadtest]      \
    #                     [::rivet::upload type uploadtest]      \
    #                     [::rivet::upload filename uploadtest]] "|"] 
    #    } e einfo]} {
    #    puts "Error $e: $einfo"
    #}
?>