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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' This file is part of OpenOffice.org.
'
' OpenOffice.org is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License version 3
' only, as published by the Free Software Foundation.
'
' OpenOffice.org is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU Lesser General Public License version 3 for more details
' (a copy is included in the LICENSE file that accompanied this code).
'
' You should have received a copy of the GNU Lesser General Public License
' version 3 along with OpenOffice.org. If not, see
' <http://www.openoffice.org/license.html>
' for a copy of the LGPLv3 License.
'
'/************************************************************************
'*
'* owner : helge.delfs@sun.com
'*
'* short description : Establish facts of the operating system
'*
'************************************************************************
'*
' #1 PlatFormInit ' Insert the list variables PlatformName, PlatformExt and PlatormGroup
' #1 getToolPlatform ' Affected variables: gtSystemPath, gTesttoolIni, gtPlatform, gSamePC, gtSYSName, gUser and gHost.
' #1 GetOfficePlatform ' Affected variables: gSamePC, gSystemPath, gSYSName, gTesttoolPath and gOfficePath.
' #1 hGetSystemLanguage ' Get the system language
' #0 hfGetTTProfileName
'*
'\***********************************************************************
' define the global definitions for operating systems
'
Global Const MAX_PLATFORM = 25
Global gSystemnummer as Integer
' Systeme und Versionen
Global Const SYS_00 = 0
Global Const SYS_W95 = 1
Global Const SYS_W98 = 2
Global Const SYS_WSE = 3
Global Const SYS_WME = 4
Global Const SYS_WNT = 5
Global Const SYS_W2K = 6
Global Const SYS_WXP = 7
Global Const SYS_MAC = 8
Global Const SYS_SOL = 9
Global Const SYS_LIN = 10
Global Const SYS_x86 = 11
Global Const SYS_OSX = 12
Global Const SYS_PPC = 13
Global Const SYS_SCO = 14
Global Const SYS_AIX = 15
Global Const SYS_HP = 17
Global Const SYS_FBSD = 18
Global Const SYS_NBSD = 19
Global Const SYS_LIN64 = 20
Global Const SYS_LINSPARC = 21
Global Const SYS_ECS = 22
Global PlatFormGroup(MAX_PLATFORM) as String
Global PlatFormName(MAX_PLATFORM) as String
Global PlatFormExt(MAX_PLATFORM) as String
sub PlatFormInit
'///<b>Initialize information arrays</b>
'///+Supported Operating Systems:
'///+<TABLE BORDER=1><TR><TH>Name</TH><TH>Short Name</TH><TH>Platgroup</TH></TR>
'///+<TR><TD>Win95</TD><TD>w95</TD><TD>w95</TD></TR>
'///+<TR><TD>Win98</TD><TD>w98</TD><TD>w95</TD></TR>
'///+<TR><TD>Win98SE</TD><TD>wse</TD><TD>w95</TD></TR>
'///+<TR><TD>Win98ME</TD><TD>wme</TD><TD>s95</TD></TR>
'///+<TR><TD>WinNT</TD><TD>wnt</TD><TD>w95</TD></TR>
'///+<TR><TD>Win2000</TD><TD>w2k</TD><TD>w95</TD></TR>
'///+<TR><TD>WinXP</TD><TD>wxp</TD><TD>w95</TD></TR>
'///+<TR><TD>Solaris SPARC</TD><TD>sol</TD><TD>unx</TD></TR>
'///+<TR><TD>Solaris x86</TD><TD>x86</TD><TD>unx</TD></TR>
'///+<TR><TD>Linux</TD><TD>lin</TD><TD>unx</TD></TR>
'///+<TR><TD>Mac OS X</TD><TD>osx</TD><TD>unx</TD></TR>
'///+<TR><TD>Linux PPC</TD><TD>ppc</TD><TD>unx</TD></TR>
'///+<TR><TD>SCO UNIX</TD><TD>sco</TD><TD>unx</TD></TR>
'///+<TR><TD>AIX</TD><TD>aix</TD><TD>unx</TD></TR>
'///+<TR><TD>HP UNIX</TD><TD>hp</TD><TD>unx</TD></TR>
'///+<TR><TD>FreeBSD</TD><TD>fbsd</TD><TD>unx</TD></TR>
'///+<TR><TD>NetBSD</TD><TD>nbsd</TD><TD>unx</TD></TR>
'///+<TR><TD>Linux 64 bit</TD><TD>lin64</TD><TD>unx</TD></TR>
'///+<TR><TD>Linux SPARC</TD><TD>linsparc</TD><TD>unx</TD></TR>
'///+<TR><TD>eComStation</TD><TD>ecs</TD><TD>ecs</TD></TR>
'///+</TABLE>
PlatFormName(SYS_00) = "Unknown" : PlatFormExt(SYS_00) = "a00"
PlatFormName(SYS_W95) = "Win95" : PlatFormExt(SYS_W95) = "w95"
PlatFormName(SYS_W98) = "Win98" : PlatFormExt(SYS_W98) = "w98"
PlatFormName(SYS_WSE) = "Win98SE" : PlatFormExt(SYS_WSE) = "wse"
PlatFormName(SYS_WME) = "Win98ME" : PlatFormExt(SYS_WME) = "wme"
PlatFormName(SYS_WNT) = "WinNT" : PlatFormExt(SYS_WNT) = "wnt"
PlatFormName(SYS_W2K) = "Win2000" : PlatFormExt(SYS_W2K) = "w2k"
PlatFormName(SYS_WXP) = "WinXP" : PlatFormExt(SYS_WXP) = "wxp"
PlatFormName(SYS_SOL) = "Solaris SPARC" : PlatFormExt(SYS_SOL) = "sol"
PlatFormName(SYS_X86) = "Solaris x86" : PlatFormExt(SYS_X86) = "x86"
PlatFormName(SYS_LIN) = "Linux" : PlatFormExt(SYS_LIN) = "lin"
PlatformName(SYS_OSX) = "Mac OS X" : PlatformExt(SYS_OSX) = "osx"
PlatformName(SYS_PPC) = "Linux PPC" : PlatformExt(SYS_PPC) = "ppc"
PlatFormName(SYS_SCO) = "SCO Unix" : PlatFormExt(SYS_SCO) = "sco"
PlatFormName(SYS_AIX) = "AIX" : PlatFormExt(SYS_AIX) = "aix"
PlatFormName(SYS_HP) = "HP UNIX" : PlatFormExt(SYS_Hp) = "hp"
PlatFormName(SYS_FBSD) = "FreeBSD" : PlatFormExt(SYS_FBSD) = "fbsd"
PlatFormName(SYS_NBSD) = "NetBSD" : PlatFormExt(SYS_NBSD) = "nbsd"
PlatFormName(SYS_LIN64) = "Linux 64 bit" : PlatFormExt(SYS_LIN64)= "lin64"
PlatFormName(SYS_LINSPARC) = "Linux SPARC" : PlatFormExt(SYS_LINSPARC) = "linsparc"
PlatFormName(SYS_ECS) = "eComStation" : PlatFormExt(SYS_ECS) = "ecs"
PlatFormGroup(SYS_00) = "a00"
PlatFormGroup(SYS_W95) = "w95"
PlatFormGroup(SYS_W98) = "w95"
PlatFormGroup(SYS_WSE) = "w95"
PlatFormGroup(SYS_WME) = "w95"
PlatFormGroup(SYS_WNT) = "w95"
PlatFormGroup(SYS_W2K) = "w95"
PlatFormGroup(SYS_WXP) = "w95"
PlatFormGroup(SYS_SOL) = "unx"
PlatFormGroup(SYS_X86) = "unx"
PlatFormGroup(SYS_LIN) = "unx"
PlatFormGroup(SYS_OSX) = "unx"
PlatFormGroup(SYS_PPC) = "unx"
PlatFormGroup(SYS_SCO) = "unx"
PlatFormGroup(SYS_AIX) = "unx"
PlatFormGroup(SYS_HP) = "unx"
PlatFormGroup(SYS_FBSD) = "unx"
PlatFormGroup(SYS_NBSD) = "unx"
PlatFormGroup(SYS_LIN64)= "unx"
PlatFormGroup(SYS_LINSPARC) = "unx"
PlatFormGroup(SYS_ECS) = "ecs"
end sub
'-------------------------------------------------------------------------
sub GetToolPlatform
'///<b>Get all information about the system where the testtool runs.</b>
'///The following global variables will be set:
'///+<ul><li><i>gtSystemPath</i>: Systenmpath of the operating system (Testtool)</li>
'///+<li><i>gTesttoolIni</i>: Path to <i>testtool.ini</i></li>
'///+<li><i>gtPlatform</i>: Name of the operating system (3 digit e.g. 'w95')</li>
'///+<li><i>gSamePC</i>: Bolean if the testtool and the office run on same system</li>
'///+<li><i>gtSYSName</i>: Full name of the operating system</li>
'///+<li><i>gUser</i>: Username on the testtool system</li>
'///+<li><i>gHost</i>: The hostname</li></ul>
Dim GUI as Integer
Dim iGUIVersion as Integer
Dim gtIniPath as String
Dim i% : Dim k%
Call PlatFormInit
'///Get GUI information -> global definition of the operating system (Windows, UNIX, etc.)
'///+ GUI is a systemvariable, it can get by testtool (1 =" Windows; 4 => UNIX [<b>depricated</b> 2 was " OS/2;])
GUI = GetGUIType
select case GUI
case 1 : gtSystemPath = GetApplicationPath + "\" 'Change from 'windir' to internal instruction
gUser = environ ("vcsid")
if (gUser = "") then
gUser = environ ("USERNAME")
end if
gtIniPath = gtSystemPath
case 2 : ' For eComStation all variables must point to the same directory
gUser = environ ("HOME")
if ( gUser = "" ) then
warnlog( "Please add the HOME variable to the environment and make it point to the directory you wat to store your personal setting in."
end if
gtSystemPath = gUser & "\"
gtIniPath = gtSystemPath
case 4 : gtSystemPath = getApplicationPath + "/"
gUser = environ ("USER")
if (gUser = "") then
gUser = environ ("LOGNAME") ' on some Unix systems
end if
gtIniPath = gtSystemPath
case else : QAErrorLog "Not supported operating system! Please write an issue about it (qa/testscripts)! The 'GetGUIType' command is returning '" & GUI & "'."
QAErrorLog "Setting 'GUI' variable to 4 (=Unix) to try testing. If it fails you have to wait until your issue will have been fixed."
GUI = 4
gtSystemPath = getApplicationPath + "/"
gUser = environ ("USER")
if (gUser = "") then
gUser = environ ("LOGNAME") ' on some Unix systems
end if
gtIniPath = gtSystemPath
end select
'///Get GUI version -> Detailed definition of the operating system (Win95, WinNT, Win2000, Linux, Sparc, x86 etc.)
'///+This data can be get only out of the <i>testtool.ini/.testtoolrc</i>
'///+Here is the list, which entries for which OS
'///+<TABLE BORDER=1><TR><TH>Name</TH><TH>Value</TH></TR>
'///+<TR><TD>Win95</TD><TD>100</TD></TR>
'///+<TR><TD>Win98</TD><TD>395</TD></TR>
'///+<TR><TD>WinNT</TD><TD>351 or 400</TD></TR>
'///+<TR><TD>WinSE</TD><TD>410</TD></TR>
'///+<TR><TD>WinME</TD><TD>490</TD></TR>
'///+<TR><TD>Win2000</TD><TD>500</TD></TR>
'///+<TR><TD>WinXP</TD><TD>501</TD></TR>
'///+<TR><TD>Solaris SPARC</TD><TD>01</TD></TR>
'///+<TR><TD>Linux</TD><TD>03</TD></TR>
'///+<TR><TD>Solaris x86</TD><TD>05</TD></TR>
'///+<TR><TD>Mac OS X</TD><TD>12</TD></TR>
'///+<TR><TD>Linux PPC</TD><TD>13</TD></TR>
'///+<TR><TD>SCO UNIX</TD><TD>02</TD></TR>
'///+<TR><TD>AIX</TD><TD>04</TD></TR>
'///+<TR><TD>HP UNIX</TD><TD>07</TD></TR>
'///+<TR><TD>FreeBSD</TD><TD>08</TD></TR>
'///+<TR><TD>NetBSD</TD><TD>14</TD></TR>
'///+<TR><TD>Linux 64 bit</TD><TD>15</TD></TR>
'///+<TR><TD>Linux SPARC</TD><TD>16</TD></TR>
'///+<TR><TD>eComStation</TD><TD>17</TD></TR>
'///+</TABLE>
'///Get the path to <i>testtool.ini/.testtoolrc</i>
if GUI = 4 then
gTesttoolIni = gtIniPath + ".testtoolrc"
gSVersionIni = gtIniPath + ".sversionrc"
else
gTesttoolIni = gtIniPath + "testtool.ini"
gSVersionIni = gtIniPath + "sversion.ini"
end if
if Dir (gTesttoolIni) = "" then
if GUI <> 4 then
MsgBox ("The Test ends, because 'testtool.ini' is missing at : "+ Chr(13) + gTesttoolIni, 1, "Config-file for testtool is missing")
else
MsgBox ("The Test ends, because '.testtoolrc' is missing at : " + Chr(13) + gTesttoolIni, 1, "Config-file for testtool is missing")
end if
end
end if
'///Get <b>iGuiVersion</b> out of <i>testtool.ini/.testtoolrc</i>
iGuiVersion = GetIniValue (gTesttoolIni, "GUI Platform", "Current")
if iGuiVersion = 0 then
if GUI <> 4 then
iGuiVersion = 400
qaErrorLog("The GUI-entry in '" + gTesttoolIni + "' is missing!"+Chr(13)+"Please insert the correct number for your operating system! In Section [GUI Platform], entry Current= "+Chr(13)+"Win95....: 100"+Chr(13)+"Win98....: 395"+Chr(13)+"WinNT....: 351 or 400"+Chr(13)+"WinSE....: 410"+Chr(13)+"WinME....: 490"+Chr(13)+"Win2000..: 500"+Chr(13)+"WinXP....: 501")
else
iGuiVersion = 01
QAErrorLog("The GUI value in '" + gTesttoolIni + "' is missing!"+Chr(13)+"Please insert the correct number for your operating system! In Section [GUI Platform], entry Current= "+Chr(13)+"Solaris SPARC.: 01"+Chr(13)+"SCO UNIX......: 02"+Chr(13)+"Linux.........: 03"+Chr(13)+"AIX...........: 04"+Chr(13)+"Solaris x86...: 05"+Chr(13)+"HP-UX.........: 07"+Chr(13)+"FreeBSD........: 08"+Chr(13)+"Mac OS X......: 12"+Chr(13)+"Linux PPC.....: 13"+Chr(13)+"NetBSD.....: 14"+Chr(13)+"Linux 64 bit.....: 15"+Chr(13)+"Linux SPARC.....: 16")
end if
end if
'///Get the variable <b>gSamePC</b>
gHost = GetIniValue (gTesttoolIni, "Communication", "Host")
if (gHost = "") then gHost = "LOCALHOST" ' if entry is not in configuration file set default value
if uCase (gHost) = "LOCALHOST" then ' ein Client kann immer nur lokal sein
gSamePC = TRUE
else
gSamePC = FALSE
end if
'///Set <b>gtPlatform</b> and <b>gtSYSName</b>
select case GUI
case 1:
'Windows
select case iGuiVersion
case 100: gSystemnummer = SYS_W95
case 351: gSystemnummer = SYS_WNT
case 395: gSystemnummer = SYS_W95
case 400: gSystemnummer = SYS_WNT
case 410: gSystemnummer = SYS_WSE
case 490: gSystemnummer = SYS_WME
case 500: gSystemnummer = SYS_W2K
case 501: gSystemnummer = SYS_WXP
case else: Print "Unknown OS ("+GUI+"/"+iGuiVersion+") please insert in sysinfo.inc::GetToolPlatform, WinNT will be used now."
gSystemnummer = SYS_WNT
end select
case 2:
'eComStation
select case iGuiVersion
case 17: gSystemNummer = SYS_ECS
case else: Print "Unknown OS ("+GUI+"/"+iGuiVersion+") please insert in sysinfo.inc::GetToolPlatform, WinNT will be used now."
gSystemNummer = SYS_ECS
end select
case 3:
'Deprecated OSes: - (2) OS/2 2.x, 3.x, 4 (Merlin), 4.5 (Aurora)
' - (3) Mac OS Classic
print "Deprecated OS ("+GUI+"/"+iGuiVersion+") please insert in sysinfo.inc::GetToolPlatform."
gSystemnummer = SYS_SOL
case 4:
'UNIX
select case iGuiVersion
case 01 : gSystemnummer = SYS_SOL
case 02 : gSystemnummer = SYS_SCO
case 03 : gSystemnummer = SYS_LIN
case 04 : gSystemnummer = SYS_AIX
case 05 : gSystemnummer = SYS_X86
case 07 : gSystemnummer = SYS_HP
case 08 : gSystemnummer = SYS_FBSD
case 12 : gSystemnummer = SYS_OSX
case 13 : gSystemnummer = SYS_PPC
case 14 : gSystemnummer = SYS_NBSD
case 15 : gSystemnummer = SYS_LIN64
case 16 : gSystemnummer = SYS_LINSPARC
case else: Print "Unknown OS ("+GUI+"/"+iGuiVersion+") please insert in sysinfo.inc::GetToolPlatform. TestTool will try to use the same environment as Solaris SPARC uses."
gSystemnummer = SYS_SOL
end select
end select
gtPlatform = PlatFormExt(gSystemnummer)
gtSYSName = PlatFormName(gSystemnummer)
end sub
'-------------------------------------------------------------------------
sub GetOfficePlatform
'///<b>Get all information about the system where the office is running.</b>
'///The following global variables will be set:
'///+<ul><li><i>gPlatform</i>: Name of the operating system (3 digit e.g. 'w95')</li>
'///+<li><i>gSYSName</i>: Full name of the operating system</li>
'///+<li><i>gPlatGroup</i>: Groupname of the operation system (w95, unx)</li></ul>
'///If the Testtool and the office are running on the same machine (<b>gSamePC = TRUE</b>) then all variables have the same value.
'///+If not the value of <i>Aktuell</i> in section <i>[Office Platform]</i> has to be set in <i>testtool.ini/.testtoolrc</i> (testing remotely)
'///+the variables are :
'///+<TABLE BORDER=1><TR><TH>Name</TH><TH>Entry in <i>testtool.ini</i></TH></TR>
'///+<TR><TD>Win95</TD><TD>WIN95</TD></TR>
'///+<TR><TD>Win98</TD><TD>WIN98</TD></TR>
'///+<TR><TD>WinSE</TD><TD>WIN98SE</TD></TR>
'///+<TR><TD>WinME</TD><TD>WIN98ME</TD></TR>
'///+<TR><TD>WinNT</TD><TD>WINNT</TD></TR>
'///+<TR><TD>Win2000</TD><TD>WIN2000</TD></TR>
'///+<TR><TD>WinXP</TD><TD>WINXP</TD></TR>
'///+<TR><TD>Solaris SPARC</TD><TD>SOLARIS</TD></TR>
'///+<TR><TD>Linux</TD><TD>LINUX</TD></TR>
'///+<TR><TD>Solaris x86</TD><TD>X86</TD></TR>
'///+<TR><TD>Mac OS X</TD><TD>OSX</TD></TR>
'///+<TR><TD>Linux PPC</TD><TD>PPC</TD></TR>
'///+<TR><TD>SCO UNIX</TD><TD>SCO</TD></TR>
'///+<TR><TD>AIX</TD><TD>AIX</TD></TR>
'///+<TR><TD>HP UNIX</TD><TD>HP</TD></TR>
'///+<TR><TD>FreeBSD</TD><TD>FBSD</TD></TR>
'///+<TR><TD>NetBSD</TD><TD>NBSD</TD></TR>
'///+<TR><TD>Linux 64 bit</TD><TD>LIN64</TD></TR>
'///+<TR><TD>Linux SPARC</TD><TD>LINSPARC</TD></TR>
'///+<TR><TD>eComStation</TD><TD>ecs</TD></TR>
'///+</TABLE>
Dim GuiString as String
Dim GUI as Integer
if gSamePC = FALSE then
GuiString = UCase (GetIniValue (gTesttoolIni, "Office Platform", "Current"))
select case GuiString
case "WIN95" : GUI = 1
case "WIN98" : GUI = 2
case "WIN98SE" : GUI = 3
case "WIN98ME" : GUI = 4
case "WINNT" : GUI = 5
case "WIN2000" : GUI = 6
case "WINXP" : GUI = 7
case "SOLARIS" : GUI = 9
case "LINUX" : GUI = 10
case "X86" : GUI = 11
case "OSX" : GUI = 12
case "PPC" : GUI = 13
case "SCO" : GUI = 14
case "AIX" : GUI = 15
case "HP" : GUI = 17
case "FBSD" : GUI = 18
case "NBSD" : GUI = 19
case "LIN64" : GUI = 20
case "LINSPARC": GUI = 21
case "ECS" : GUI = 22
case else : print "Unknown operating system : '" & GuiString & "'. The test run should be canceled."
exit sub
end select
gPlatform = PlatFormExt(GUI)
gSYSName = PlatFormName(GUI)
gPlatGroup = PlatFormGroup(GUI)
else
gPlatform = gtPlatform
gSYSName = gtSYSName
gPlatGroup = PlatFormGroup(gSystemnummer)
end if
end sub
'-------------------------------------------------------------------------
function hGetSystemLanguage as Integer
'///Get the systemlanguage (ID)
Dim sDummy as String
hGetSystemLanguage = 0
try
sDummy = GetSystemLanguage
catch
print "You are testing an Office, that wasn't synced at least with version srx 644r Build 8509! \n Please call the Developer, that provided the CWS to you and tell him to resync !!!!!!!!!!"
end
endcatch
if sDummy = "" then
warnlog "sysinfo.inc::hGetSystemLanguage: The Systemlanguage is unknown, the default will be 01 = English (USA)."
hGetSystemLanguage = 1
else
hGetSystemLanguage = ConvertCodeToLanguage (sDummy)
end if
end function
'-------------------------------------------------------------------------
function hfGetTTProfileName as string
' Author: JSI, 22. January 2003
'/// Get the current profile name in the TestTool control file (testtool.ini / .testtoolrc).
hfGetTTProfileName = GetIniValue (gTesttoolIni, "Misc", "CurrentProfile")
end function
|
