/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ /************************************************************************* * * 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 * * for a copy of the LGPLv3 License. * ************************************************************************/ // MARKER(update_precomp.py): autogen include statement, do not remove #include "precompiled_scripting.hxx" #include "scripthandler.hxx" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "com/sun/star/uno/XComponentContext.hpp" #include "com/sun/star/uri/XUriReference.hpp" #include "com/sun/star/uri/XUriReferenceFactory.hpp" #include "com/sun/star/uri/XVndSunStarScriptUrl.hpp" #include "com/sun/star/beans/XPropertySet.hpp" using namespace ::com::sun::star; using namespace ::com::sun::star::uno; using namespace ::com::sun::star::frame; using namespace ::com::sun::star::util; using namespace ::com::sun::star::beans; using namespace ::com::sun::star::lang; using namespace ::com::sun::star::script; using namespace ::com::sun::star::script::provider; using namespace ::com::sun::star::document; namespace scripting_protocolhandler { const sal_Char * const MYSERVICENAME = "com.sun.star.frame.ProtocolHandler"; const sal_Char * const MYIMPLNAME = "com.sun.star.comp.ScriptProtocolHandler"; const sal_Char * MYSCHEME = "vnd.sun.star.script"; const sal_Int32 MYSCHEME_LEN = 20; void SAL_CALL ScriptProtocolHandler::initialize( const css::uno::Sequence < css::uno::Any >& aArguments ) throw ( css::uno::Exception ) { if ( m_bInitialised ) { return ; } // first argument contains a reference to the frame (may be empty or the desktop, // but usually it's a "real" frame) if ( aArguments.getLength() && sal_False == ( aArguments[ 0 ] >>= m_xFrame ) ) { ::rtl::OUString temp = OUSTR( "ScriptProtocolHandler::initialize: could not extract reference to the frame" ); throw RuntimeException( temp, Reference< XInterface >() ); } ENSURE_OR_THROW( m_xFactory.is(), "ScriptProtocolHandler::initialize: No Service Manager available" ); m_bInitialised = true; } Reference< XDispatch > SAL_CALL ScriptProtocolHandler::queryDispatch( const URL& aURL, const ::rtl::OUString& sTargetFrameName, sal_Int32 nSearchFlags ) throw( ::com::sun::star::uno::RuntimeException ) { (void)sTargetFrameName; (void)nSearchFlags; Reference< XDispatch > xDispatcher; // get scheme of url Reference< uri::XUriReferenceFactory > xFac ( m_xFactory->createInstance( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.uri.UriReferenceFactory")) ) , UNO_QUERY ); if ( xFac.is() ) { Reference< uri::XUriReference > uriRef( xFac->parse( aURL.Complete ), UNO_QUERY ); if ( uriRef.is() ) { if ( uriRef->getScheme().equals( ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYSCHEME ) ) ) { xDispatcher = this; } } } return xDispatcher; } Sequence< Reference< XDispatch > > SAL_CALL ScriptProtocolHandler::queryDispatches( const Sequence < DispatchDescriptor >& seqDescriptor ) throw( RuntimeException ) { sal_Int32 nCount = seqDescriptor.getLength(); Sequence< Reference< XDispatch > > lDispatcher( nCount ); for ( sal_Int32 i = 0; i < nCount; ++i ) { lDispatcher[ i ] = this->queryDispatch( seqDescriptor[ i ].FeatureURL, seqDescriptor[ i ].FrameName, seqDescriptor[ i ].SearchFlags ); } return lDispatcher; } void SAL_CALL ScriptProtocolHandler::dispatchWithNotification( const URL& aURL, const Sequence < PropertyValue >& lArgs, const Reference< XDispatchResultListener >& xListener ) throw ( RuntimeException ) { sal_Bool bSuccess = sal_False; Any invokeResult; bool bCaughtException = sal_False; Any aException; if ( m_bInitialised ) { try { bool bIsDocumentScript = ( aURL.Complete.indexOfAsciiL( RTL_CONSTASCII_STRINGPARAM( "document" ) ) !=-1 ); // TODO: isn't this somewhat strange? This should be a test for a location=document parameter, shouldn't it? if ( bIsDocumentScript ) { // obtain the component for our security check Reference< XEmbeddedScripts > xDocumentScripts; if ( getScriptInvocation() ) xDocumentScripts.set( m_xScriptInvocation->getScriptContainer(), UNO_SET_THROW ); OSL_ENSURE( xDocumentScripts.is(), "ScriptProtocolHandler::dispatchWithNotification: can't do the security check!" ); if ( !xDocumentScripts.is() || !xDocumentScripts->getAllowMacroExecution() ) return; } // Creates a ScriptProvider ( if one is not created allready ) createScriptProvider(); Reference< provider::XScript > xFunc = m_xScriptProvider->getScript( aURL.Complete ); ENSURE_OR_THROW( xFunc.is(), "ScriptProtocolHandler::dispatchWithNotification: validate xFunc - unable to obtain XScript interface" ); Sequence< Any > inArgs( 0 ); Sequence< Any > outArgs( 0 ); Sequence< sal_Int16 > outIndex; if ( lArgs.getLength() > 0 ) { int argCount = 0; for ( int index = 0; index < lArgs.getLength(); index++ ) { // Sometimes we get a propertyval with name = "Referer" // this is not an argument to be passed to script, so // ignore. if ( lArgs[ index ].Name.compareToAscii("Referer") != 0 || lArgs[ index ].Name.getLength() == 0 ) { inArgs.realloc( ++argCount ); inArgs[ argCount - 1 ] = lArgs[ index ].Value; } } } // attempt to protect the document against the script tampering with its Undo Context ::std::auto_ptr< ::framework::DocumentUndoGuard > pUndoGuard; if ( bIsDocumentScript ) pUndoGuard.reset( new ::framework::DocumentUndoGuard( m_xScriptInvocation ) ); bSuccess = sal_False; while ( !bSuccess ) { Any aFirstCaughtException; try { invokeResult = xFunc->invoke( inArgs, outIndex, outArgs ); bSuccess = sal_True; } catch( const provider::ScriptFrameworkErrorException& se ) { if ( !aFirstCaughtException.hasValue() ) aFirstCaughtException = ::cppu::getCaughtException(); if ( se.errorType != provider::ScriptFrameworkErrorType::NO_SUCH_SCRIPT ) // the only condition which allows us to retry is if there is no method with the // given name/signature ::cppu::throwException( aFirstCaughtException ); if ( inArgs.getLength() == 0 ) // no chance to retry if we can't strip more in-args ::cppu::throwException( aFirstCaughtException ); // strip one argument, then retry inArgs.realloc( inArgs.getLength() - 1 ); } } } // Office doesn't handle exceptions rethrown here very well, it cores, // all we can is log them and then set fail for the dispatch event! // (if there is a listener of course) catch ( const Exception & e ) { aException = ::cppu::getCaughtException(); ::rtl::OUString reason = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScriptProtocolHandler::dispatch: caught " ) ); invokeResult <<= reason.concat( aException.getValueTypeName() ).concat( e.Message ); bCaughtException = sal_True; } } else { ::rtl::OUString reason(RTL_CONSTASCII_USTRINGPARAM( "ScriptProtocolHandler::dispatchWithNotification failed, ScriptProtocolHandler not initialised" )); invokeResult <<= reason; } if ( bCaughtException ) { SfxAbstractDialogFactory* pFact = SfxAbstractDialogFactory::Create(); if ( pFact != NULL ) { VclAbstractDialog* pDlg = pFact->CreateScriptErrorDialog( NULL, aException ); if ( pDlg != NULL ) { pDlg->Execute(); delete pDlg; } } } if ( xListener.is() ) { // always call dispatchFinished(), because we didn't load a document but // executed a macro instead! ::com::sun::star::frame::DispatchResultEvent aEvent; aEvent.Source = static_cast< ::cppu::OWeakObject* >( this ); aEvent.Result = invokeResult; if ( bSuccess ) { aEvent.State = ::com::sun::star::frame::DispatchResultState::SUCCESS; } else { aEvent.State = ::com::sun::star::frame::DispatchResultState::FAILURE; } try { xListener->dispatchFinished( aEvent ) ; } catch(RuntimeException & e) { OSL_TRACE( "ScriptProtocolHandler::dispatchWithNotification: caught RuntimeException" "while dispatchFinished %s", ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer ); } } } void SAL_CALL ScriptProtocolHandler::dispatch( const URL& aURL, const Sequence< PropertyValue >& lArgs ) throw ( RuntimeException ) { dispatchWithNotification( aURL, lArgs, Reference< XDispatchResultListener >() ); } void SAL_CALL ScriptProtocolHandler::addStatusListener( const Reference< XStatusListener >& xControl, const URL& aURL ) throw ( RuntimeException ) { (void)xControl; (void)aURL; // implement if status is supported } void SAL_CALL ScriptProtocolHandler::removeStatusListener( const Reference< XStatusListener >& xControl, const URL& aURL ) throw ( RuntimeException ) { (void)xControl; (void)aURL; } bool ScriptProtocolHandler::getScriptInvocation() { if ( !m_xScriptInvocation.is() && m_xFrame.is() ) { Reference< XController > xController = m_xFrame->getController(); if ( xController .is() ) { // try to obtain an XScriptInvocationContext interface, preferred from the // mode, then from the controller if ( !m_xScriptInvocation.set( xController->getModel(), UNO_QUERY ) ) m_xScriptInvocation.set( xController, UNO_QUERY ); } } return m_xScriptInvocation.is(); } void ScriptProtocolHandler::createScriptProvider() { if ( m_xScriptProvider.is() ) return; try { // first, ask the component supporting the XScriptInvocationContext interface // (if there is one) for a script provider if ( getScriptInvocation() ) { Reference< XScriptProviderSupplier > xSPS( m_xScriptInvocation, UNO_QUERY ); if ( xSPS.is() ) m_xScriptProvider = xSPS->getScriptProvider(); } // second, ask the model in our frame if ( !m_xScriptProvider.is() && m_xFrame.is() ) { Reference< XController > xController = m_xFrame->getController(); if ( xController .is() ) { Reference< XScriptProviderSupplier > xSPS( xController->getModel(), UNO_QUERY ); if ( xSPS.is() ) m_xScriptProvider = xSPS->getScriptProvider(); } } // as a fallback, ask the controller if ( !m_xScriptProvider.is() && m_xFrame.is() ) { Reference< XScriptProviderSupplier > xSPS( m_xFrame->getController(), UNO_QUERY ); if ( xSPS.is() ) m_xScriptProvider = xSPS->getScriptProvider(); } // if nothing of this is successful, use the master script provider if ( !m_xScriptProvider.is() ) { Reference< XPropertySet > xProps( m_xFactory, UNO_QUERY_THROW ); ::rtl::OUString dc( RTL_CONSTASCII_USTRINGPARAM( "DefaultContext" ) ); Reference< XComponentContext > xCtx( xProps->getPropertyValue( dc ), UNO_QUERY_THROW ); ::rtl::OUString tmspf(RTL_CONSTASCII_USTRINGPARAM( "/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory")); Reference< provider::XScriptProviderFactory > xFac( xCtx->getValueByName( tmspf ), UNO_QUERY_THROW ); Any aContext; if ( getScriptInvocation() ) aContext = makeAny( m_xScriptInvocation ); m_xScriptProvider = Reference< provider::XScriptProvider > ( xFac->createScriptProvider( aContext ), UNO_QUERY_THROW ); } } catch ( RuntimeException & e ) { ::rtl::OUString temp = OUSTR( "ScriptProtocolHandler::createScriptProvider(), " ); throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() ); } catch ( Exception & e ) { ::rtl::OUString temp = OUSTR( "ScriptProtocolHandler::createScriptProvider: " ); throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() ); } } ScriptProtocolHandler::ScriptProtocolHandler( Reference< css::lang::XMultiServiceFactory > const& rFact ) : m_bInitialised( false ), m_xFactory( rFact ) { } ScriptProtocolHandler::~ScriptProtocolHandler() { } /* XServiceInfo */ ::rtl::OUString SAL_CALL ScriptProtocolHandler::getImplementationName( ) throw( RuntimeException ) { return impl_getStaticImplementationName(); } /* XServiceInfo */ sal_Bool SAL_CALL ScriptProtocolHandler::supportsService( const ::rtl::OUString& sServiceName ) throw( RuntimeException ) { Sequence< ::rtl::OUString > seqServiceNames = getSupportedServiceNames(); const ::rtl::OUString* pArray = seqServiceNames.getConstArray(); for ( sal_Int32 nCounter = 0; nCounter < seqServiceNames.getLength(); nCounter++ ) { if ( pArray[ nCounter ] == sServiceName ) { return sal_True ; } } return sal_False ; } /* XServiceInfo */ Sequence< ::rtl::OUString > SAL_CALL ScriptProtocolHandler::getSupportedServiceNames() throw( RuntimeException ) { return impl_getStaticSupportedServiceNames(); } /* Helper for XServiceInfo */ Sequence< ::rtl::OUString > ScriptProtocolHandler::impl_getStaticSupportedServiceNames() { ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() ); Sequence< ::rtl::OUString > seqServiceNames( 1 ); seqServiceNames.getArray() [ 0 ] = ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYSERVICENAME ); return seqServiceNames ; } /* Helper for XServiceInfo */ ::rtl::OUString ScriptProtocolHandler::impl_getStaticImplementationName() { return ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYIMPLNAME ); } /* Helper for registry */ Reference< XInterface > SAL_CALL ScriptProtocolHandler::impl_createInstance( const Reference< css::lang::XMultiServiceFactory >& xServiceManager ) throw( RuntimeException ) { return Reference< XInterface > ( *new ScriptProtocolHandler( xServiceManager ) ); } /* Factory for registration */ Reference< XSingleServiceFactory > ScriptProtocolHandler::impl_createFactory( const Reference< XMultiServiceFactory >& xServiceManager ) { Reference< XSingleServiceFactory > xReturn ( cppu::createSingleFactory( xServiceManager, ScriptProtocolHandler::impl_getStaticImplementationName(), ScriptProtocolHandler::impl_createInstance, ScriptProtocolHandler::impl_getStaticSupportedServiceNames() ) ); return xReturn; } } // namespace scripting_protocolhandler extern "C" { #undef css #define css ::com::sun::star SAL_DLLPUBLIC_EXPORT void* SAL_CALL component_getFactory( const sal_Char * pImplementationName , void * pServiceManager , void * pRegistryKey ) { (void)pRegistryKey; // Set default return value for this operation - if it failed. void * pReturn = NULL ; if ( ( pImplementationName != NULL ) && ( pServiceManager != NULL ) ) { // Define variables which are used in following macros. ::com::sun::star::uno::Reference< ::com::sun::star::lang::XSingleServiceFactory > xFactory ; ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > xServiceManager( reinterpret_cast< ::com::sun::star::lang::XMultiServiceFactory* >( pServiceManager ) ) ; if ( ::scripting_protocolhandler::ScriptProtocolHandler::impl_getStaticImplementationName().equals( ::rtl::OUString::createFromAscii( pImplementationName ) ) ) { xFactory = ::scripting_protocolhandler::ScriptProtocolHandler::impl_createFactory( xServiceManager ); } // Factory is valid - service was found. if ( xFactory.is() ) { xFactory->acquire(); pReturn = xFactory.get(); } } // Return with result of this operation. return pReturn ; } } // extern "C" /* vim:set shiftwidth=4 softtabstop=4 expandtab: */