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
32
33
34
|
puts "========"
puts "OCC181"
puts "OCC701"
puts "========"
######################################################
# Resource_Manager class doesn't return status of saving resources in a file.
######################################################
# Add method BuildPath to OSD_Directory
######################################################
# Clear tmp-data
######################################################################
set tmp ${imagedir}
######################################################################
pload QAcommands
set log [OCC181 OCC181 ${imagedir} ${tmp}/2/2/3 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"
}
if { ! [file exists ${tmp}/2/2/3/OCC181] } {
puts "Error: user resource file is not found!"
}
file delete -force ${tmp}/2
|
