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
|
puts "========"
puts "OCC181"
puts "OCC701"
puts "========"
######################################################
# Resource_Manager class doen't return status of saving resources in a file.
######################################################
# Add method BuildPath to OSD_Directory
######################################################
# Clear tmp-data
######################################################################
set tmp ${imagedir}
######################################################################
pload QAcommands
file delete -force ${tmp}/1
set log [OCC181 OCC181 ${imagedir} ${tmp}/1 0]
set list [split ${log}]
set ll [llength ${list}]
set status [lindex ${list} [expr ${ll} - 2] ]
if { ${status} == "TRUE"} then {
puts "OCC181: OK"
} else {
puts "OCC181: Error"
}
|
