Skip to content

Commit 94218aa

Browse files
shohaghcsesustshohaghcsesust
committed
Test file for helping TCL formating;
1 parent f2690fd commit 94218aa

File tree

2 files changed

+285
-0
lines changed

2 files changed

+285
-0
lines changed

‎Test.txt

Lines changed: 57 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,57 @@
1+
user Pori PDU Service Viewer 3 read,show
2+
user SHA Service viewer 3 read,show
3+
user PM SymBelt viewer 3 read,show
4+
user Karlstad global tissue service viewer 3 read,show
5+
user NA Spares viewer 3 read,show
6+
user NA Roll viewer 3 read,show
7+
user Sundsvall COM Viewer 3 read,show
8+
user Sundsvall MFU Viewer 3 read,show
9+
user Sundsvall CPU Viewer 3 read,show
10+
user Sundsvall PDU Viewer 3 read,show
11+
user Valkeakoski PBL Viewer 3 read,show
12+
user EIF System importer read,modify,checkin,changeowner,promote,demote,schedule,create,revise,changevault,changename,changepolicy,changetype,fromconnect,toconnect,fromdisconnect,todisconnect,execute,show
13+
user MFK Service Viewer 3 read,show
14+
user MFK Viewer 3 read,show
15+
user Structure editor read,modify,toconnect,show
16+
user GDI viewer 3 read,show
17+
user Pori WHL Viewer 3 read,show
18+
user Pori PDU Viewer 3 read,show
19+
user Sundsvall Service COM Viewer 3 read,show
20+
user Sundsvall Service MFU Viewer 3 read,show
21+
user Sundsvall Service PDU Viewer 3 read,show
22+
user Sundsvall Service CPU Viewer 3 read,show
23+
user Power viewer read,show
24+
user JKL PDU Viewer 3 read,show
25+
user Sundsvall Viewer 3 read,show
26+
user Sundsvall Service Viewer 3 read,show
27+
user Grastorp Viewer 3 read,show
28+
user Grastorp Service Viewer 3 read,show
29+
user Model structure reader read,checkout,todisconnect,show
30+
user Model structure releaser todisconnect,show
31+
user Model structure editor read,checkout,changeowner,demote,revise,changevault,changepolicy,toconnect,todisconnect,show
32+
user Model structure manager read,checkout,demote,revise,fromconnect,fromdisconnect,todisconnect,show
33+
user Translation editor read,checkout,todisconnect,show
34+
user Local system administrator read,modify,delete,checkout,checkin,lock,unlock,changeowner,promote,demote,create,revise,changevault,changepolicy,fromconnect,toconnect,fromdisconnect,todisconnect,execute,show
35+
user Global system administrator read,modify,delete,checkout,checkin,lock,unlock,changeowner,promote,demote,create,revise,changevault,changepolicy,fromconnect,toconnect,fromdisconnect,todisconnect,execute,show
36+
user Structure spare part editor read,checkout,fromconnect,fromdisconnect,todisconnect,show
37+
user Metso paper viewer 1 read,todisconnect,show
38+
user Metso paper viewer 2 read,checkout,todisconnect,show
39+
user Metso paper viewer 3 read,checkout,todisconnect,show
40+
user JAR viewer 3 read,show
41+
user NA Finishing viewer 3 read,show
42+
user NA Paper Machine viewer 3 read,show
43+
user NA Wood Systems viewer 3 read,show
44+
user NA Fiber viewer 3 read,show
45+
user Valkeakoski Viewer 3 read,show
46+
user Pori Viewer 3 read,show
47+
user Valkeakoski Service Viewer 3 read,show
48+
user JKL Service viewer 3 read,show
49+
user TKU Service viewer 3 read,show
50+
user JAR Service viewer 3 read,show
51+
user NA Finishing Service viewer 3 read,show
52+
user NA Paper Machine Service viewer 3 read,show
53+
user MPIT viewer 3 read,show
54+
user Karlstad tissue service viewer 3 read,show
55+
user MPJ Service Viewer 3 read,show
56+
user JKL PM Engineering viewer 3 read,show
57+
user Shanghai Wet End Viewer 3 read,show

‎TestOutput.txt

Lines changed: 228 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,228 @@
1+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Pori PDU Service Viewer 3" read,show};
2+
puts "Adding user Pori PDU Service Viewer 3 :access: read,show into ODI Skeleton policy;"
3+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
4+
5+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "SHA Service viewer 3" read,show};
6+
puts "Adding user SHA Service viewer 3 :access: read,show into ODI Skeleton policy;"
7+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
8+
9+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "PM SymBelt viewer 3" read,show};
10+
puts "Adding user PM SymBelt viewer 3 :access: read,show into ODI Skeleton policy;"
11+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
12+
13+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Karlstad global tissue service viewer 3" read,show};
14+
puts "Adding user Karlstad global tissue service viewer 3 :access: read,show into ODI Skeleton policy;"
15+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
16+
17+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "NA Spares viewer 3" read,show};
18+
puts "Adding user NA Spares viewer 3 :access: read,show into ODI Skeleton policy;"
19+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
20+
21+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "NA Roll viewer 3" read,show};
22+
puts "Adding user NA Roll viewer 3 :access: read,show into ODI Skeleton policy;"
23+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
24+
25+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall COM Viewer 3" read,show};
26+
puts "Adding user Sundsvall COM Viewer 3 :access: read,show into ODI Skeleton policy;"
27+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
28+
29+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall MFU Viewer 3" read,show};
30+
puts "Adding user Sundsvall MFU Viewer 3 :access: read,show into ODI Skeleton policy;"
31+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
32+
33+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall CPU Viewer 3" read,show};
34+
puts "Adding user Sundsvall CPU Viewer 3 :access: read,show into ODI Skeleton policy;"
35+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
36+
37+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall PDU Viewer 3" read,show};
38+
puts "Adding user Sundsvall PDU Viewer 3 :access: read,show into ODI Skeleton policy;"
39+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
40+
41+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Valkeakoski PBL Viewer 3" read,show};
42+
puts "Adding user Valkeakoski PBL Viewer 3 :access: read,show into ODI Skeleton policy;"
43+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
44+
45+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "EIF System importer" read,modify,checkin,changeowner,promote,demote,schedule,create,revise,changevault,changename,changepolicy,changetype,fromconnect,toconnect,fromdisconnect,todisconnect,execute,show};
46+
puts "Adding user EIF System importer :access: read,modify,checkin,changeowner,promote,demote,schedule,create,revise,changevault,changename,changepolicy,changetype,fromconnect,toconnect,fromdisconnect,todisconnect,execute,show into ODI Skeleton policy;"
47+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
48+
49+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "MFK Service Viewer 3" read,show};
50+
puts "Adding user MFK Service Viewer 3 :access: read,show into ODI Skeleton policy;"
51+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
52+
53+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "MFK Viewer 3" read,show};
54+
puts "Adding user MFK Viewer 3 :access: read,show into ODI Skeleton policy;"
55+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
56+
57+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Structure editor" read,modify,toconnect,show};
58+
puts "Adding user Structure editor :access: read,modify,toconnect,show into ODI Skeleton policy;"
59+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
60+
61+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "GDI viewer 3" read,show};
62+
puts "Adding user GDI viewer 3 :access: read,show into ODI Skeleton policy;"
63+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
64+
65+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Pori WHL Viewer 3" read,show};
66+
puts "Adding user Pori WHL Viewer 3 :access: read,show into ODI Skeleton policy;"
67+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
68+
69+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Pori PDU Viewer 3" read,show};
70+
puts "Adding user Pori PDU Viewer 3 :access: read,show into ODI Skeleton policy;"
71+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
72+
73+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall Service COM Viewer 3" read,show};
74+
puts "Adding user Sundsvall Service COM Viewer 3 :access: read,show into ODI Skeleton policy;"
75+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
76+
77+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall Service MFU Viewer 3" read,show};
78+
puts "Adding user Sundsvall Service MFU Viewer 3 :access: read,show into ODI Skeleton policy;"
79+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
80+
81+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall Service PDU Viewer 3" read,show};
82+
puts "Adding user Sundsvall Service PDU Viewer 3 :access: read,show into ODI Skeleton policy;"
83+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
84+
85+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall Service CPU Viewer 3" read,show};
86+
puts "Adding user Sundsvall Service CPU Viewer 3 :access: read,show into ODI Skeleton policy;"
87+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
88+
89+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Power viewer" read,show};
90+
puts "Adding user Power viewer :access: read,show into ODI Skeleton policy;"
91+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
92+
93+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "JKL PDU Viewer 3" read,show};
94+
puts "Adding user JKL PDU Viewer 3 :access: read,show into ODI Skeleton policy;"
95+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
96+
97+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall Viewer 3" read,show};
98+
puts "Adding user Sundsvall Viewer 3 :access: read,show into ODI Skeleton policy;"
99+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
100+
101+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Sundsvall Service Viewer 3" read,show};
102+
puts "Adding user Sundsvall Service Viewer 3 :access: read,show into ODI Skeleton policy;"
103+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
104+
105+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Grastorp Viewer 3" read,show};
106+
puts "Adding user Grastorp Viewer 3 :access: read,show into ODI Skeleton policy;"
107+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
108+
109+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Grastorp Service Viewer 3" read,show};
110+
puts "Adding user Grastorp Service Viewer 3 :access: read,show into ODI Skeleton policy;"
111+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
112+
113+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Model structure reader" read,checkout,todisconnect,show};
114+
puts "Adding user Model structure reader :access: read,checkout,todisconnect,show into ODI Skeleton policy;"
115+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
116+
117+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Model structure releaser" todisconnect,show};
118+
puts "Adding user Model structure releaser :access: todisconnect,show into ODI Skeleton policy;"
119+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
120+
121+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Model structure editor" read,checkout,changeowner,demote,revise,changevault,changepolicy,toconnect,todisconnect,show};
122+
puts "Adding user Model structure editor :access: read,checkout,changeowner,demote,revise,changevault,changepolicy,toconnect,todisconnect,show into ODI Skeleton policy;"
123+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
124+
125+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Model structure manager" read,checkout,demote,revise,fromconnect,fromdisconnect,todisconnect,show};
126+
puts "Adding user Model structure manager :access: read,checkout,demote,revise,fromconnect,fromdisconnect,todisconnect,show into ODI Skeleton policy;"
127+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
128+
129+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Translation editor" read,checkout,todisconnect,show};
130+
puts "Adding user Translation editor :access: read,checkout,todisconnect,show into ODI Skeleton policy;"
131+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
132+
133+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Local system administrator" read,modify,delete,checkout,checkin,lock,unlock,changeowner,promote,demote,create,revise,changevault,changepolicy,fromconnect,toconnect,fromdisconnect,todisconnect,execute,show};
134+
puts "Adding user Local system administrator :access: read,modify,delete,checkout,checkin,lock,unlock,changeowner,promote,demote,create,revise,changevault,changepolicy,fromconnect,toconnect,fromdisconnect,todisconnect,execute,show into ODI Skeleton policy;"
135+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
136+
137+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Global system administrator" read,modify,delete,checkout,checkin,lock,unlock,changeowner,promote,demote,create,revise,changevault,changepolicy,fromconnect,toconnect,fromdisconnect,todisconnect,execute,show};
138+
puts "Adding user Global system administrator :access: read,modify,delete,checkout,checkin,lock,unlock,changeowner,promote,demote,create,revise,changevault,changepolicy,fromconnect,toconnect,fromdisconnect,todisconnect,execute,show into ODI Skeleton policy;"
139+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
140+
141+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Structure spare part editor" read,checkout,fromconnect,fromdisconnect,todisconnect,show};
142+
puts "Adding user Structure spare part editor :access: read,checkout,fromconnect,fromdisconnect,todisconnect,show into ODI Skeleton policy;"
143+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
144+
145+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Metso paper viewer 1" read,todisconnect,show};
146+
puts "Adding user Metso paper viewer 1 :access: read,todisconnect,show into ODI Skeleton policy;"
147+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
148+
149+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Metso paper viewer 2" read,checkout,todisconnect,show};
150+
puts "Adding user Metso paper viewer 2 :access: read,checkout,todisconnect,show into ODI Skeleton policy;"
151+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
152+
153+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Metso paper viewer 3" read,checkout,todisconnect,show};
154+
puts "Adding user Metso paper viewer 3 :access: read,checkout,todisconnect,show into ODI Skeleton policy;"
155+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
156+
157+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "JAR viewer 3" read,show};
158+
puts "Adding user JAR viewer 3 :access: read,show into ODI Skeleton policy;"
159+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
160+
161+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "NA Finishing viewer 3" read,show};
162+
puts "Adding user NA Finishing viewer 3 :access: read,show into ODI Skeleton policy;"
163+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
164+
165+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "NA Paper Machine viewer 3" read,show};
166+
puts "Adding user NA Paper Machine viewer 3 :access: read,show into ODI Skeleton policy;"
167+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
168+
169+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "NA Wood Systems viewer 3" read,show};
170+
puts "Adding user NA Wood Systems viewer 3 :access: read,show into ODI Skeleton policy;"
171+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
172+
173+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "NA Fiber viewer 3" read,show};
174+
puts "Adding user NA Fiber viewer 3 :access: read,show into ODI Skeleton policy;"
175+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
176+
177+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Valkeakoski Viewer 3" read,show};
178+
puts "Adding user Valkeakoski Viewer 3 :access: read,show into ODI Skeleton policy;"
179+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
180+
181+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Pori Viewer 3" read,show};
182+
puts "Adding user Pori Viewer 3 :access: read,show into ODI Skeleton policy;"
183+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
184+
185+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Valkeakoski Service Viewer 3" read,show};
186+
puts "Adding user Valkeakoski Service Viewer 3 :access: read,show into ODI Skeleton policy;"
187+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
188+
189+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "JKL Service viewer 3" read,show};
190+
puts "Adding user JKL Service viewer 3 :access: read,show into ODI Skeleton policy;"
191+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
192+
193+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "TKU Service viewer 3" read,show};
194+
puts "Adding user TKU Service viewer 3 :access: read,show into ODI Skeleton policy;"
195+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
196+
197+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "JAR Service viewer 3" read,show};
198+
puts "Adding user JAR Service viewer 3 :access: read,show into ODI Skeleton policy;"
199+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
200+
201+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "NA Finishing Service viewer 3" read,show};
202+
puts "Adding user NA Finishing Service viewer 3 :access: read,show into ODI Skeleton policy;"
203+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
204+
205+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "NA Paper Machine Service viewer 3" read,show};
206+
puts "Adding user NA Paper Machine Service viewer 3 :access: read,show into ODI Skeleton policy;"
207+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
208+
209+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "MPIT viewer 3" read,show};
210+
puts "Adding user MPIT viewer 3 :access: read,show into ODI Skeleton policy;"
211+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
212+
213+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Karlstad tissue service viewer 3" read,show};
214+
puts "Adding user Karlstad tissue service viewer 3 :access: read,show into ODI Skeleton policy;"
215+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
216+
217+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "MPJ Service Viewer 3" read,show};
218+
puts "Adding user MPJ Service Viewer 3 :access: read,show into ODI Skeleton policy;"
219+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
220+
221+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "JKL PM Engineering viewer 3" read,show};
222+
puts "Adding user JKL PM Engineering viewer 3 :access: read,show into ODI Skeleton policy;"
223+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
224+
225+
set mqlCmd { mql modify policy "ODI skeleton" state "Forbidden" add user "Shanghai Wet End Viewer 3" read,show};
226+
puts "Adding user Shanghai Wet End Viewer 3 :access: read,show into ODI Skeleton policy;"
227+
executeCmd $fp_LogFile $mqlCmd $name $type $op ;
228+

0 commit comments

Comments
 (0)