merge the formfield patch from ooo-build
[ooovba.git] / testautomation / framework / optional / f_security_trusted_path.bas
blob9977812b9cae438ca64215813480410ed25c9c06
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: f_security_trusted_path.bas,v $
11 '* $Revision: 1.3 $
13 '* last change: $Author: jsk $ $Date: 2008-06-20 08:07:02 $
15 '* This file is part of OpenOffice.org.
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
32 '/******************************************************************************
34 '* owner : joerg.skottke@sun.com
36 '* short description : Execute macros from trusted path
38 '\******************************************************************************
40 sub main
42 use "framework\optional\includes\security_trusted_path.inc"
45 ' this is the trusted path we want to add to the list
46 dim cWorkPath as string
47 cWorkPath = gTesttoolPath & "framework\optional\input\BasicDocs\"
48 cWorkPath = convertpath( cWorkPath )
50 ' this is the file to be loaded, located directly below trusted path
51 dim cWorkFile as string
53 dim iApplication as integer ' Index of the application WRITER, CALC ...
54 dim cApplication as string ' Name of the current application
56 dim iSecurityLevel as integer ' Security from loweset to highest (0...4)
58 call hStatusIn( "framework" , "f_security_trusted_path.bas" )
60 ' Add a trusted path which contains a number of files with macros
61 hAddTrustedPath( cWorkPath )
63 ' For each security level we verify that macros are executed
64 for iSecurityLevel = 0 to 3
66 hSetMacroSecurityAPI( iSecurityLevel )
68 ' Cycle through the six main applications for the most recent documenttype
69 for iApplication = 1 to 6 step 2 ' Do not test all, does not seem to be required.
71 cWorkFile = cWorkPath & "basic" & hGetSuffix( "current" )
72 cApplication = hNumericDoctype( iApplication )
74 printlog( "" )
75 printlog( cApplication )
76 call tSecTrustedPath( cWorkFile, iSecurityLevel )
78 next iApplication
80 next iSecurityLevel
82 ' Reset the trusted path, reset macro security level.
83 hRemoveTrustedPath( cWorkPath )
84 hSetMacrosecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
86 call hStatusOut()
88 end sub
90 '-------------------------------------------------------------------------
92 sub LoadIncludeFiles
94 use "global\system\includes\master.inc"
95 use "global\system\includes\gvariabl.inc"
97 use "global\tools\includes\optional\t_filetools.inc"
98 use "global\tools\includes\optional\t_docfuncs.inc"
99 use "global\tools\includes\optional\t_security_tools.inc"
100 use "global\tools\includes\optional\t_stringtools.inc"
102 gApplication = "WRITER"
103 call GetUseFiles()
105 end sub