727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
|
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
|
-
+
|
return [set $varName]
}
#
# NOTE: Fallback to using an environment variable with the same
# base name and returns its value verbatim if it exists.
#
set varName [string trim $varName :]
set varName [string map [list : ""] $varName]
if {[info exists env($varName)]} then {
return $env($varName)
}
}
#
|
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
|
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
|
-
+
|
set varName [appendArgs [getLookupVarNamePrefix] lookup_base_uri]
if {[info exists $varName]} then {
return [set $varName]
}
set varName [string trim $varName :]
set varName [string map [list : ""] $varName]
if {[info exists env($varName)]} then {
return $env($varName)
}
return [subst $lookupUri]
}
|
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
|
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
|
-
+
|
set varName [appendArgs [getLookupVarNamePrefix] submit_base_uri]
if {[info exists $varName]} then {
return [set $varName]
}
set varName [string trim $varName :]
set varName [string map [list : ""] $varName]
if {[info exists env($varName)]} then {
return $env($varName)
}
return [subst $submitUri]
}
|