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"
#}
?>
|
