testautomation/framework/optional/includes/security_macrosecurity.inc

   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: security_macrosecurity.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-08-28 11:40:28 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  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.
  20 '*
  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).
  26 '*
  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.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '*  owner : joerg.skottke@sun.com
  35 '*
  36 '*  short description : Macros with all security-levels
  37 '*
  38 '\******************************************************************************
  39
  40 sub tMacroSecurityLevelsControlModule
  41
  42     dim iApplication as integer
  43
  44     for iApplication = 1 to 6
  45
  46         printlog( "" )
  47         printlog( hNumericDocType( iApplication ) )
  48         call tMacroSecurityLevels( "current" )
  49         call tMacroSecurityLevels( "645" )
  50
  51     next iApplication
  52
  53 end sub
  54
  55 '*******************************************************************************
  56
  57 testcase tMacroSecurityLevels( cFileFormat )
  58
  59     '///<H1>Macro execution in all security levels</H1>
  60     '///<ul>
  61
  62     dim cWorkFile as string
  63         cWorkFile = gTesttoolPath & "framework\optional\input\BasicDocs\"
  64         cWorkFile = cWorkFile & "basic" & hGetSuffix( cFileFormat )
  65         cWorkFile = convertpath( cWorkFile )
  66         cWorkFile = convertToURL( cWorkFile )
  67
  68     dim iSecLevel as integer
  69     dim brc as boolean
  70
  71     ' We have quite a bunch of possible combinations here. Some trigger a security warning
  72     ' others do not. Depending on the security level we either get no warning at all, the
  73     ' "classic" Security Warning or a message that the macros will not be executed (Blocked)
  74
  75     '         |---------------------------------------------------------|
  76     '         | Trusted |     Security Level / Warning displayed        |
  77     '         |  Path   |   Low     |  Medium   |   High    | Very High |
  78     '         |---------------------------------------------------------|
  79     '         |  Yes*)  |     No    |    No     |     No    |    No     |
  80     '         |---------------------------------------------------------|
  81     '         |   No    |     No    |    Yes    |  Blocked  |  Blocked  |
  82     '         |---------------------------------------------------------|
  83     ' *) Covered by test "f_sec_trusted_path.bas"
  84
  85     '///+<li>Cycle through all four security levels and load a document with macro</li>
  86     '///<ul>
  87     for iSecLevel = 0 to 3
  88
  89         '///+<li>Set the macro security level</li>
  90         printlog( "" )
  91         hSetMacroSecurityAPI( iSecLevel )
  92         FileOpen( "URL", cWorkFile, "FrameName", "_default" )
  93         '///+<li>Load a file from ..\framework\optional\input\BasicDocs\</li>
  94         '///<ul>
  95         select case iSecLevel
  96         '///+<li>For security level &eq; 0: Macro should be executed</li>
  97         case 0 : brc = hIdentifyExecutedMacro()
  98                  if ( not brc ) then
  99                      if ( gApplication = "MATH" ) then
 100                          qaerrorlog( "#i68291# Math document forgets eventbinding" )
 101                      else
 102                          qaerrorlog( "#i53711# Macro was not found/executed" )
 103                      endif
 104                  endif
 105
 106         '///+<li>For security level &eq; 1: Macro should be executed after security warning</li>
 107         case 1 : brc = hAllowMacroExecution()
 108                  if ( not brc ) then
 109                      warnlog( "Macro execution warning missing, chek the file/security settings" )
 110                  endif
 111                  brc = hIdentifyExecutedMacro()
 112                  if ( not brc ) then
 113                      if ( gApplication = "MATH" ) then
 114                          qaerrorlog( "#i68291# Math document forgets eventbinding" )
 115                      else
 116                          qaerrorlog( "#i53711# Macro was not found/executed" )
 117                          'warnlog( "#i65885# - CWS Warnings01/Macro not executed on load" )
 118                      endif
 119                  endif
 120
 121         '///+<li>For security level &eq; 2: Macro should *not* be executed (it is not in trusted path)</li>
 122         case 2 : brc = hHandleActivesOnLoad( 1 , 1 )
 123                  if ( not brc ) then
 124                      qaerrorlog( "#i53710# unexpected second messagebox" )
 125                  endif
 126                  brc = hIdentifyExecutedMacro()
 127                  if ( brc ) then
 128                      warnlog( "Macro was executed" )
 129                  endif
 130
 131         '///+<li>For security level &eq; 3: Macro should *never* be executed</li>
 132         case 3 : brc = hHandleActivesOnLoad( 1 , 0 )
 133                  brc = hIdentifyExecutedMacro()
 134                  if ( brc ) then
 135                      warnlog( "Macro was executed" )
 136                  endif
 137         end select
 138         '///</ul>
 139
 140         brc = hDestroyDocument()
 141
 142     next iSecLevel
 143     '///</ul>
 144
 145     '///+<li>Reset macro security level to default (High)</li>
 146     hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
 147     '///</ul>
 148
 149 endcase
 150
 151 '*******************************************************************************
 152
 153 function hIdentifyExecutedMacro() as boolean
 154
 155     '///<h3>Function to identify the macro just being executed</h3>
 156     '///This is a tiny helper function that compares the string from the message-
 157     '///+box with a reference - TTMacro3 - and returns TRUE if the macro is the
 158     '///+ correct one. FALSE in any other case.
 159
 160     dim cMessage as string
 161     const CFN = "hIdentifyExecutedMacro::"
 162
 163     sleep( 1 )
 164
 165     kontext "active"
 166     if ( active.exists( 3 ) ) then
 167
 168         cMessage = active.getText()
 169
 170         if ( cMessage = "TTMacro3" ) then
 171             printlog( CFN & "The Macro has been executed" )
 172             hIdentifyExecutedMacro() = true
 173             active.ok()
 174         else
 175             warnlog( CFN & "The WRONG macro/dialog is open" )
 176             hIdentifyExecutedMacro() = false
 177             hHandleActivesOnLoad( 0 , 2 )
 178         endif
 179
 180     else
 181
 182         printlog( CFN & "No macro/dialog is open" )
 183         hIdentifyExecutedMacro() = false
 184
 185     endif
 186
 187 end function