12c696243SAndrew Rist /**************************************************************
2cdf0e10cSrcweir *
32c696243SAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one
42c696243SAndrew Rist * or more contributor license agreements. See the NOTICE file
52c696243SAndrew Rist * distributed with this work for additional information
62c696243SAndrew Rist * regarding copyright ownership. The ASF licenses this file
72c696243SAndrew Rist * to you under the Apache License, Version 2.0 (the
82c696243SAndrew Rist * "License"); you may not use this file except in compliance
92c696243SAndrew Rist * with the License. You may obtain a copy of the License at
102c696243SAndrew Rist *
112c696243SAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0
122c696243SAndrew Rist *
132c696243SAndrew Rist * Unless required by applicable law or agreed to in writing,
142c696243SAndrew Rist * software distributed under the License is distributed on an
152c696243SAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
162c696243SAndrew Rist * KIND, either express or implied. See the License for the
172c696243SAndrew Rist * specific language governing permissions and limitations
182c696243SAndrew Rist * under the License.
192c696243SAndrew Rist *
202c696243SAndrew Rist *************************************************************/
212c696243SAndrew Rist
222c696243SAndrew Rist
23cdf0e10cSrcweir
24cdf0e10cSrcweir // MARKER(update_precomp.py): autogen include statement, do not remove
25cdf0e10cSrcweir #include "precompiled_scripting.hxx"
26cdf0e10cSrcweir #include "scripthandler.hxx"
27cdf0e10cSrcweir
28cdf0e10cSrcweir #include <osl/mutex.hxx>
29cdf0e10cSrcweir
30cdf0e10cSrcweir #include <com/sun/star/frame/DispatchResultEvent.hpp>
31cdf0e10cSrcweir #include <com/sun/star/frame/DispatchResultState.hpp>
32cdf0e10cSrcweir #include <com/sun/star/frame/XController.hpp>
33cdf0e10cSrcweir #include <com/sun/star/frame/XModel.hpp>
34cdf0e10cSrcweir
35cdf0e10cSrcweir #include <com/sun/star/document/XEmbeddedScripts.hpp>
36cdf0e10cSrcweir #include <com/sun/star/document/XScriptInvocationContext.hpp>
37cdf0e10cSrcweir
38cdf0e10cSrcweir #include <com/sun/star/lang/XSingleServiceFactory.hpp>
39cdf0e10cSrcweir
40cdf0e10cSrcweir #include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>
41cdf0e10cSrcweir #include <com/sun/star/script/provider/XScriptProviderFactory.hpp>
42cdf0e10cSrcweir #include <com/sun/star/script/provider/ScriptFrameworkErrorType.hpp>
43cdf0e10cSrcweir
44cdf0e10cSrcweir #include <sfx2/objsh.hxx>
45cdf0e10cSrcweir #include <sfx2/frame.hxx>
46cdf0e10cSrcweir #include <sfx2/sfxdlg.hxx>
47cdf0e10cSrcweir #include <vcl/abstdlg.hxx>
48cdf0e10cSrcweir #include <tools/diagnose_ex.h>
49cdf0e10cSrcweir
50cdf0e10cSrcweir #include <cppuhelper/factory.hxx>
51cdf0e10cSrcweir #include <cppuhelper/exc_hlp.hxx>
527110543dSDamjan Jovanovic #include <cppuhelper/implementationentry.hxx>
53cdf0e10cSrcweir #include <util/util.hxx>
54cdf0e10cSrcweir #include <framework/documentundoguard.hxx>
55cdf0e10cSrcweir
56cdf0e10cSrcweir #include "com/sun/star/uno/XComponentContext.hpp"
57cdf0e10cSrcweir #include "com/sun/star/uri/XUriReference.hpp"
587110543dSDamjan Jovanovic #include "com/sun/star/uri/UriReferenceFactory.hpp"
59cdf0e10cSrcweir #include "com/sun/star/uri/XUriReferenceFactory.hpp"
60cdf0e10cSrcweir #include "com/sun/star/uri/XVndSunStarScriptUrl.hpp"
6142773270SDamjan Jovanovic #include <com/sun/star/uri/XVndSunStarScriptUrlReference.hpp>
62cdf0e10cSrcweir #include "com/sun/star/beans/XPropertySet.hpp"
63cdf0e10cSrcweir
64cdf0e10cSrcweir using namespace ::com::sun::star;
65cdf0e10cSrcweir using namespace ::com::sun::star::uno;
66cdf0e10cSrcweir using namespace ::com::sun::star::frame;
67cdf0e10cSrcweir using namespace ::com::sun::star::util;
68cdf0e10cSrcweir using namespace ::com::sun::star::beans;
69cdf0e10cSrcweir using namespace ::com::sun::star::lang;
70cdf0e10cSrcweir using namespace ::com::sun::star::script;
71cdf0e10cSrcweir using namespace ::com::sun::star::script::provider;
72cdf0e10cSrcweir using namespace ::com::sun::star::document;
73cdf0e10cSrcweir
74cdf0e10cSrcweir namespace scripting_protocolhandler
75cdf0e10cSrcweir {
76cdf0e10cSrcweir
77cdf0e10cSrcweir const sal_Char * const MYSERVICENAME = "com.sun.star.frame.ProtocolHandler";
78cdf0e10cSrcweir const sal_Char * const MYIMPLNAME = "com.sun.star.comp.ScriptProtocolHandler";
79cdf0e10cSrcweir const sal_Char * MYSCHEME = "vnd.sun.star.script";
80cdf0e10cSrcweir const sal_Int32 MYSCHEME_LEN = 20;
81cdf0e10cSrcweir
827110543dSDamjan Jovanovic rtl_StandardModuleCount g_moduleCount = MODULE_COUNT_INIT;
837110543dSDamjan Jovanovic
initialize(const css::uno::Sequence<css::uno::Any> & aArguments)84cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::initialize(
85cdf0e10cSrcweir const css::uno::Sequence < css::uno::Any >& aArguments )
86cdf0e10cSrcweir throw ( css::uno::Exception )
87cdf0e10cSrcweir {
88cdf0e10cSrcweir if ( m_bInitialised )
89cdf0e10cSrcweir {
90cdf0e10cSrcweir return ;
91cdf0e10cSrcweir }
92cdf0e10cSrcweir
93cdf0e10cSrcweir // first argument contains a reference to the frame (may be empty or the desktop,
94cdf0e10cSrcweir // but usually it's a "real" frame)
95cdf0e10cSrcweir if ( aArguments.getLength() &&
96cdf0e10cSrcweir sal_False == ( aArguments[ 0 ] >>= m_xFrame ) )
97cdf0e10cSrcweir {
98cdf0e10cSrcweir ::rtl::OUString temp = OUSTR( "ScriptProtocolHandler::initialize: could not extract reference to the frame" );
99cdf0e10cSrcweir throw RuntimeException( temp, Reference< XInterface >() );
100cdf0e10cSrcweir }
101cdf0e10cSrcweir
1027110543dSDamjan Jovanovic ENSURE_OR_THROW( m_xCtx.is(), "ScriptProtocolHandler::initialize: No Component Context available" );
103cdf0e10cSrcweir m_bInitialised = true;
104cdf0e10cSrcweir }
105cdf0e10cSrcweir
queryDispatch(const URL & aURL,const::rtl::OUString & sTargetFrameName,sal_Int32 nSearchFlags)106cdf0e10cSrcweir Reference< XDispatch > SAL_CALL ScriptProtocolHandler::queryDispatch(
107cdf0e10cSrcweir const URL& aURL, const ::rtl::OUString& sTargetFrameName, sal_Int32 nSearchFlags )
108cdf0e10cSrcweir throw( ::com::sun::star::uno::RuntimeException )
109cdf0e10cSrcweir {
110cdf0e10cSrcweir (void)sTargetFrameName;
111cdf0e10cSrcweir (void)nSearchFlags;
112cdf0e10cSrcweir
113cdf0e10cSrcweir Reference< XDispatch > xDispatcher;
114cdf0e10cSrcweir // get scheme of url
115cdf0e10cSrcweir
1167110543dSDamjan Jovanovic Reference< uri::XUriReferenceFactory > xFac ( uri::UriReferenceFactory::create( m_xCtx ) );
117cdf0e10cSrcweir if ( xFac.is() )
118cdf0e10cSrcweir {
119cdf0e10cSrcweir Reference< uri::XUriReference > uriRef(
120cdf0e10cSrcweir xFac->parse( aURL.Complete ), UNO_QUERY );
121cdf0e10cSrcweir if ( uriRef.is() )
122cdf0e10cSrcweir {
123cdf0e10cSrcweir if ( uriRef->getScheme().equals( ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYSCHEME ) ) )
124cdf0e10cSrcweir {
125cdf0e10cSrcweir xDispatcher = this;
126cdf0e10cSrcweir }
127cdf0e10cSrcweir }
128cdf0e10cSrcweir }
129cdf0e10cSrcweir
130cdf0e10cSrcweir return xDispatcher;
131cdf0e10cSrcweir }
132cdf0e10cSrcweir
133cdf0e10cSrcweir Sequence< Reference< XDispatch > > SAL_CALL
queryDispatches(const Sequence<DispatchDescriptor> & seqDescriptor)134cdf0e10cSrcweir ScriptProtocolHandler::queryDispatches(
135cdf0e10cSrcweir const Sequence < DispatchDescriptor >& seqDescriptor )
136cdf0e10cSrcweir throw( RuntimeException )
137cdf0e10cSrcweir {
138cdf0e10cSrcweir sal_Int32 nCount = seqDescriptor.getLength();
139cdf0e10cSrcweir Sequence< Reference< XDispatch > > lDispatcher( nCount );
140cdf0e10cSrcweir for ( sal_Int32 i = 0; i < nCount; ++i )
141cdf0e10cSrcweir {
142cdf0e10cSrcweir lDispatcher[ i ] = this->queryDispatch( seqDescriptor[ i ].FeatureURL,
143cdf0e10cSrcweir seqDescriptor[ i ].FrameName,
144cdf0e10cSrcweir seqDescriptor[ i ].SearchFlags );
145cdf0e10cSrcweir }
146cdf0e10cSrcweir return lDispatcher;
147cdf0e10cSrcweir }
148cdf0e10cSrcweir
dispatchWithNotification(const URL & aURL,const Sequence<PropertyValue> & lArgs,const Reference<XDispatchResultListener> & xListener)149cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::dispatchWithNotification(
150cdf0e10cSrcweir const URL& aURL, const Sequence < PropertyValue >& lArgs,
151cdf0e10cSrcweir const Reference< XDispatchResultListener >& xListener )
152cdf0e10cSrcweir throw ( RuntimeException )
153cdf0e10cSrcweir {
154cdf0e10cSrcweir
155cdf0e10cSrcweir sal_Bool bSuccess = sal_False;
156cdf0e10cSrcweir Any invokeResult;
157cdf0e10cSrcweir bool bCaughtException = sal_False;
158cdf0e10cSrcweir Any aException;
159*3ec0f849SArrigo Marchiori Sequence< Any > inArgs( 0 );
160cdf0e10cSrcweir
161cdf0e10cSrcweir if ( m_bInitialised )
162cdf0e10cSrcweir {
163*3ec0f849SArrigo Marchiori ::rtl::OUString aReferer;
164*3ec0f849SArrigo Marchiori if ( lArgs.getLength() > 0 )
165*3ec0f849SArrigo Marchiori {
166*3ec0f849SArrigo Marchiori int argCount = 0;
167*3ec0f849SArrigo Marchiori for ( int index = 0; index < lArgs.getLength(); index++ )
168*3ec0f849SArrigo Marchiori {
169*3ec0f849SArrigo Marchiori // The propertyval named "Referer"
170*3ec0f849SArrigo Marchiori // is not an argument to be passed to script
171*3ec0f849SArrigo Marchiori if ( lArgs[ index ].Name.compareToAscii("Referer") == 0 ) {
172*3ec0f849SArrigo Marchiori lArgs [ index ].Value >>= aReferer;
173*3ec0f849SArrigo Marchiori } else {
174*3ec0f849SArrigo Marchiori inArgs.realloc( ++argCount );
175*3ec0f849SArrigo Marchiori inArgs[ argCount - 1 ] = lArgs[ index ].Value;
176*3ec0f849SArrigo Marchiori }
177*3ec0f849SArrigo Marchiori }
178*3ec0f849SArrigo Marchiori }
179cdf0e10cSrcweir try
180cdf0e10cSrcweir {
18142773270SDamjan Jovanovic Reference< uri::XUriReferenceFactory > xFac( uri::UriReferenceFactory::create( m_xCtx ) );
18242773270SDamjan Jovanovic Reference< uri::XVndSunStarScriptUrlReference > xScriptUri( xFac->parse( aURL.Complete ), UNO_QUERY_THROW );
18342773270SDamjan Jovanovic ::rtl::OUString sLocation = xScriptUri->getParameter( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "location" ) ) );
18442773270SDamjan Jovanovic bool bIsDocumentScript = ( sLocation == ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "document" ) ) );
185*3ec0f849SArrigo Marchiori bool bRefererIsTrusted = ( aReferer.compareToAscii("private:", 8) == 0 );
186cdf0e10cSrcweir
18725458736SArrigo Marchiori // obtain the component for our security check. We could check bIsDocumentScript but the "location" could be forged
18825458736SArrigo Marchiori if ( getScriptInvocation() ) {
18925458736SArrigo Marchiori Reference< XEmbeddedScripts > xDocumentScripts;
190cdf0e10cSrcweir xDocumentScripts.set( m_xScriptInvocation->getScriptContainer(), UNO_SET_THROW );
191cdf0e10cSrcweir
192cdf0e10cSrcweir OSL_ENSURE( xDocumentScripts.is(), "ScriptProtocolHandler::dispatchWithNotification: can't do the security check!" );
193*3ec0f849SArrigo Marchiori if ( !xDocumentScripts.is() ||
194*3ec0f849SArrigo Marchiori ( !bRefererIsTrusted && !xDocumentScripts->getAllowMacroExecution() ) )
195718aea48STsutomu Uchino {
196718aea48STsutomu Uchino if ( xListener.is() )
197718aea48STsutomu Uchino {
198718aea48STsutomu Uchino ::com::sun::star::frame::DispatchResultEvent aEvent(
199718aea48STsutomu Uchino static_cast< ::cppu::OWeakObject* >( this ),
200718aea48STsutomu Uchino ::com::sun::star::frame::DispatchResultState::FAILURE,
201718aea48STsutomu Uchino invokeResult );
202718aea48STsutomu Uchino try
203718aea48STsutomu Uchino {
204718aea48STsutomu Uchino xListener->dispatchFinished( aEvent ) ;
205718aea48STsutomu Uchino }
206718aea48STsutomu Uchino catch(RuntimeException & e)
207718aea48STsutomu Uchino {
208718aea48STsutomu Uchino OSL_TRACE(
209718aea48STsutomu Uchino "ScriptProtocolHandler::dispatchWithNotification: caught RuntimeException"
210718aea48STsutomu Uchino "while dispatchFinished with failture of the execution %s",
211718aea48STsutomu Uchino ::rtl::OUStringToOString( e.Message,
212718aea48STsutomu Uchino RTL_TEXTENCODING_ASCII_US ).pData->buffer );
213718aea48STsutomu Uchino }
214718aea48STsutomu Uchino }
215cdf0e10cSrcweir return;
216718aea48STsutomu Uchino }
217cdf0e10cSrcweir }
218cdf0e10cSrcweir
21986e1cf34SPedro Giffuni // Creates a ScriptProvider ( if one is not created already )
220cdf0e10cSrcweir createScriptProvider();
221cdf0e10cSrcweir
222cdf0e10cSrcweir Reference< provider::XScript > xFunc =
223cdf0e10cSrcweir m_xScriptProvider->getScript( aURL.Complete );
224cdf0e10cSrcweir ENSURE_OR_THROW( xFunc.is(),
225cdf0e10cSrcweir "ScriptProtocolHandler::dispatchWithNotification: validate xFunc - unable to obtain XScript interface" );
226cdf0e10cSrcweir
227cdf0e10cSrcweir
228cdf0e10cSrcweir Sequence< Any > outArgs( 0 );
229cdf0e10cSrcweir Sequence< sal_Int16 > outIndex;
230cdf0e10cSrcweir
231cdf0e10cSrcweir // attempt to protect the document against the script tampering with its Undo Context
232cdf0e10cSrcweir ::std::auto_ptr< ::framework::DocumentUndoGuard > pUndoGuard;
233cdf0e10cSrcweir if ( bIsDocumentScript )
234cdf0e10cSrcweir pUndoGuard.reset( new ::framework::DocumentUndoGuard( m_xScriptInvocation ) );
235cdf0e10cSrcweir
236cdf0e10cSrcweir bSuccess = sal_False;
237cdf0e10cSrcweir while ( !bSuccess )
238cdf0e10cSrcweir {
239cdf0e10cSrcweir Any aFirstCaughtException;
240cdf0e10cSrcweir try
241cdf0e10cSrcweir {
242cdf0e10cSrcweir invokeResult = xFunc->invoke( inArgs, outIndex, outArgs );
243cdf0e10cSrcweir bSuccess = sal_True;
244cdf0e10cSrcweir }
245cdf0e10cSrcweir catch( const provider::ScriptFrameworkErrorException& se )
246cdf0e10cSrcweir {
247cdf0e10cSrcweir if ( !aFirstCaughtException.hasValue() )
248cdf0e10cSrcweir aFirstCaughtException = ::cppu::getCaughtException();
249cdf0e10cSrcweir
250cdf0e10cSrcweir if ( se.errorType != provider::ScriptFrameworkErrorType::NO_SUCH_SCRIPT )
251cdf0e10cSrcweir // the only condition which allows us to retry is if there is no method with the
252cdf0e10cSrcweir // given name/signature
253cdf0e10cSrcweir ::cppu::throwException( aFirstCaughtException );
254cdf0e10cSrcweir
255cdf0e10cSrcweir if ( inArgs.getLength() == 0 )
256cdf0e10cSrcweir // no chance to retry if we can't strip more in-args
257cdf0e10cSrcweir ::cppu::throwException( aFirstCaughtException );
258cdf0e10cSrcweir
259cdf0e10cSrcweir // strip one argument, then retry
260cdf0e10cSrcweir inArgs.realloc( inArgs.getLength() - 1 );
261cdf0e10cSrcweir }
262cdf0e10cSrcweir }
263cdf0e10cSrcweir }
264cdf0e10cSrcweir // Office doesn't handle exceptions rethrown here very well, it cores,
265cdf0e10cSrcweir // all we can is log them and then set fail for the dispatch event!
266cdf0e10cSrcweir // (if there is a listener of course)
267cdf0e10cSrcweir catch ( const Exception & e )
268cdf0e10cSrcweir {
269cdf0e10cSrcweir aException = ::cppu::getCaughtException();
270cdf0e10cSrcweir
271cdf0e10cSrcweir ::rtl::OUString reason = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScriptProtocolHandler::dispatch: caught " ) );
272cdf0e10cSrcweir
273cdf0e10cSrcweir invokeResult <<= reason.concat( aException.getValueTypeName() ).concat( e.Message );
274cdf0e10cSrcweir
275cdf0e10cSrcweir bCaughtException = sal_True;
276cdf0e10cSrcweir }
277cdf0e10cSrcweir }
278cdf0e10cSrcweir else
279cdf0e10cSrcweir {
280cdf0e10cSrcweir ::rtl::OUString reason = ::rtl::OUString::createFromAscii(
281cdf0e10cSrcweir "ScriptProtocolHandler::dispatchWithNotification failed, ScriptProtocolHandler not initialised"
282cdf0e10cSrcweir );
283cdf0e10cSrcweir invokeResult <<= reason;
284cdf0e10cSrcweir }
285cdf0e10cSrcweir
286cdf0e10cSrcweir if ( bCaughtException )
287cdf0e10cSrcweir {
288cdf0e10cSrcweir SfxAbstractDialogFactory* pFact = SfxAbstractDialogFactory::Create();
289cdf0e10cSrcweir
290cdf0e10cSrcweir if ( pFact != NULL )
291cdf0e10cSrcweir {
292cdf0e10cSrcweir VclAbstractDialog* pDlg =
293cdf0e10cSrcweir pFact->CreateScriptErrorDialog( NULL, aException );
294cdf0e10cSrcweir
295cdf0e10cSrcweir if ( pDlg != NULL )
296cdf0e10cSrcweir {
297cdf0e10cSrcweir pDlg->Execute();
298cdf0e10cSrcweir delete pDlg;
299cdf0e10cSrcweir }
300cdf0e10cSrcweir }
301cdf0e10cSrcweir }
302cdf0e10cSrcweir
303cdf0e10cSrcweir if ( xListener.is() )
304cdf0e10cSrcweir {
305cdf0e10cSrcweir // always call dispatchFinished(), because we didn't load a document but
306cdf0e10cSrcweir // executed a macro instead!
307cdf0e10cSrcweir ::com::sun::star::frame::DispatchResultEvent aEvent;
308cdf0e10cSrcweir
309cdf0e10cSrcweir aEvent.Source = static_cast< ::cppu::OWeakObject* >( this );
310cdf0e10cSrcweir aEvent.Result = invokeResult;
311cdf0e10cSrcweir if ( bSuccess )
312cdf0e10cSrcweir {
313cdf0e10cSrcweir aEvent.State = ::com::sun::star::frame::DispatchResultState::SUCCESS;
314cdf0e10cSrcweir }
315cdf0e10cSrcweir else
316cdf0e10cSrcweir {
317cdf0e10cSrcweir aEvent.State = ::com::sun::star::frame::DispatchResultState::FAILURE;
318cdf0e10cSrcweir }
319cdf0e10cSrcweir
320cdf0e10cSrcweir try
321cdf0e10cSrcweir {
322cdf0e10cSrcweir xListener->dispatchFinished( aEvent ) ;
323cdf0e10cSrcweir }
324cdf0e10cSrcweir catch(RuntimeException & e)
325cdf0e10cSrcweir {
326cdf0e10cSrcweir OSL_TRACE(
327cdf0e10cSrcweir "ScriptProtocolHandler::dispatchWithNotification: caught RuntimeException"
328cdf0e10cSrcweir "while dispatchFinished %s",
329cdf0e10cSrcweir ::rtl::OUStringToOString( e.Message,
330cdf0e10cSrcweir RTL_TEXTENCODING_ASCII_US ).pData->buffer );
331cdf0e10cSrcweir }
332cdf0e10cSrcweir }
333cdf0e10cSrcweir }
334cdf0e10cSrcweir
dispatch(const URL & aURL,const Sequence<PropertyValue> & lArgs)335cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::dispatch(
336cdf0e10cSrcweir const URL& aURL, const Sequence< PropertyValue >& lArgs )
337cdf0e10cSrcweir throw ( RuntimeException )
338cdf0e10cSrcweir {
339cdf0e10cSrcweir dispatchWithNotification( aURL, lArgs, Reference< XDispatchResultListener >() );
340cdf0e10cSrcweir }
341cdf0e10cSrcweir
addStatusListener(const Reference<XStatusListener> & xControl,const URL & aURL)342cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::addStatusListener(
343cdf0e10cSrcweir const Reference< XStatusListener >& xControl, const URL& aURL )
344cdf0e10cSrcweir throw ( RuntimeException )
345cdf0e10cSrcweir {
346cdf0e10cSrcweir (void)xControl;
347cdf0e10cSrcweir (void)aURL;
348cdf0e10cSrcweir
349cdf0e10cSrcweir // implement if status is supported
350cdf0e10cSrcweir }
351cdf0e10cSrcweir
removeStatusListener(const Reference<XStatusListener> & xControl,const URL & aURL)352cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::removeStatusListener(
353cdf0e10cSrcweir const Reference< XStatusListener >& xControl, const URL& aURL )
354cdf0e10cSrcweir throw ( RuntimeException )
355cdf0e10cSrcweir {
356cdf0e10cSrcweir (void)xControl;
357cdf0e10cSrcweir (void)aURL;
358cdf0e10cSrcweir }
359cdf0e10cSrcweir
360cdf0e10cSrcweir bool
getScriptInvocation()361cdf0e10cSrcweir ScriptProtocolHandler::getScriptInvocation()
362cdf0e10cSrcweir {
363cdf0e10cSrcweir if ( !m_xScriptInvocation.is() && m_xFrame.is() )
364cdf0e10cSrcweir {
365cdf0e10cSrcweir Reference< XController > xController = m_xFrame->getController();
366cdf0e10cSrcweir if ( xController .is() )
367cdf0e10cSrcweir {
368cdf0e10cSrcweir // try to obtain an XScriptInvocationContext interface, preferred from the
369cdf0e10cSrcweir // mode, then from the controller
370cdf0e10cSrcweir if ( !m_xScriptInvocation.set( xController->getModel(), UNO_QUERY ) )
371cdf0e10cSrcweir m_xScriptInvocation.set( xController, UNO_QUERY );
372cdf0e10cSrcweir }
373718aea48STsutomu Uchino else
374718aea48STsutomu Uchino {
375718aea48STsutomu Uchino Reference< XFrame > xFrame( m_xFrame.get(), UNO_QUERY );
376718aea48STsutomu Uchino if ( xFrame.is() )
377718aea48STsutomu Uchino {
378718aea48STsutomu Uchino SfxFrame* pFrame = NULL;
379718aea48STsutomu Uchino for ( pFrame = SfxFrame::GetFirst(); pFrame; pFrame = SfxFrame::GetNext( *pFrame ) )
380718aea48STsutomu Uchino {
381718aea48STsutomu Uchino if ( pFrame->GetFrameInterface() == xFrame )
382718aea48STsutomu Uchino break;
383718aea48STsutomu Uchino }
384718aea48STsutomu Uchino SfxObjectShell* pDocShell = pFrame ? pFrame->GetCurrentDocument() : SfxObjectShell::Current();
385718aea48STsutomu Uchino if ( pDocShell )
386718aea48STsutomu Uchino {
387718aea48STsutomu Uchino Reference< XModel > xModel( pDocShell->GetModel() );
388718aea48STsutomu Uchino m_xScriptInvocation.set( xModel, UNO_QUERY );
389718aea48STsutomu Uchino }
390718aea48STsutomu Uchino }
391718aea48STsutomu Uchino }
392cdf0e10cSrcweir }
393cdf0e10cSrcweir return m_xScriptInvocation.is();
394cdf0e10cSrcweir }
395cdf0e10cSrcweir
createScriptProvider()396cdf0e10cSrcweir void ScriptProtocolHandler::createScriptProvider()
397cdf0e10cSrcweir {
398cdf0e10cSrcweir if ( m_xScriptProvider.is() )
399cdf0e10cSrcweir return;
400cdf0e10cSrcweir
401cdf0e10cSrcweir try
402cdf0e10cSrcweir {
403cdf0e10cSrcweir // first, ask the component supporting the XScriptInvocationContext interface
404cdf0e10cSrcweir // (if there is one) for a script provider
405cdf0e10cSrcweir if ( getScriptInvocation() )
406cdf0e10cSrcweir {
407cdf0e10cSrcweir Reference< XScriptProviderSupplier > xSPS( m_xScriptInvocation, UNO_QUERY );
408cdf0e10cSrcweir if ( xSPS.is() )
409cdf0e10cSrcweir m_xScriptProvider = xSPS->getScriptProvider();
410cdf0e10cSrcweir }
411cdf0e10cSrcweir
412cdf0e10cSrcweir // second, ask the model in our frame
413cdf0e10cSrcweir if ( !m_xScriptProvider.is() && m_xFrame.is() )
414cdf0e10cSrcweir {
415cdf0e10cSrcweir Reference< XController > xController = m_xFrame->getController();
416cdf0e10cSrcweir if ( xController .is() )
417cdf0e10cSrcweir {
418cdf0e10cSrcweir Reference< XScriptProviderSupplier > xSPS( xController->getModel(), UNO_QUERY );
419cdf0e10cSrcweir if ( xSPS.is() )
420cdf0e10cSrcweir m_xScriptProvider = xSPS->getScriptProvider();
421cdf0e10cSrcweir }
422cdf0e10cSrcweir }
423cdf0e10cSrcweir
424cdf0e10cSrcweir
425cdf0e10cSrcweir // as a fallback, ask the controller
426cdf0e10cSrcweir if ( !m_xScriptProvider.is() && m_xFrame.is() )
427cdf0e10cSrcweir {
428cdf0e10cSrcweir Reference< XScriptProviderSupplier > xSPS( m_xFrame->getController(), UNO_QUERY );
429cdf0e10cSrcweir if ( xSPS.is() )
430cdf0e10cSrcweir m_xScriptProvider = xSPS->getScriptProvider();
431cdf0e10cSrcweir }
432cdf0e10cSrcweir
433cdf0e10cSrcweir // if nothing of this is successful, use the master script provider
434cdf0e10cSrcweir if ( !m_xScriptProvider.is() )
435cdf0e10cSrcweir {
436cdf0e10cSrcweir ::rtl::OUString tmspf = ::rtl::OUString::createFromAscii(
437cdf0e10cSrcweir "/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory");
438cdf0e10cSrcweir
439cdf0e10cSrcweir Reference< provider::XScriptProviderFactory > xFac(
4407110543dSDamjan Jovanovic m_xCtx->getValueByName( tmspf ), UNO_QUERY_THROW );
441cdf0e10cSrcweir
442cdf0e10cSrcweir Any aContext;
443cdf0e10cSrcweir if ( getScriptInvocation() )
444cdf0e10cSrcweir aContext = makeAny( m_xScriptInvocation );
445cdf0e10cSrcweir m_xScriptProvider = Reference< provider::XScriptProvider > (
446cdf0e10cSrcweir xFac->createScriptProvider( aContext ), UNO_QUERY_THROW );
447cdf0e10cSrcweir }
448cdf0e10cSrcweir }
449cdf0e10cSrcweir catch ( RuntimeException & e )
450cdf0e10cSrcweir {
451cdf0e10cSrcweir ::rtl::OUString temp = OUSTR( "ScriptProtocolHandler::createScriptProvider(), " );
452cdf0e10cSrcweir throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() );
453cdf0e10cSrcweir }
454cdf0e10cSrcweir catch ( Exception & e )
455cdf0e10cSrcweir {
456cdf0e10cSrcweir ::rtl::OUString temp = OUSTR( "ScriptProtocolHandler::createScriptProvider: " );
457cdf0e10cSrcweir throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() );
458cdf0e10cSrcweir }
459cdf0e10cSrcweir }
460cdf0e10cSrcweir
ScriptProtocolHandler(Reference<css::uno::XComponentContext> const & xCtx)461cdf0e10cSrcweir ScriptProtocolHandler::ScriptProtocolHandler(
4627110543dSDamjan Jovanovic Reference< css::uno::XComponentContext > const& xCtx ) :
4637110543dSDamjan Jovanovic m_bInitialised( false ), m_xCtx( xCtx )
464cdf0e10cSrcweir {
465cdf0e10cSrcweir }
466cdf0e10cSrcweir
~ScriptProtocolHandler()467cdf0e10cSrcweir ScriptProtocolHandler::~ScriptProtocolHandler()
468cdf0e10cSrcweir {
469cdf0e10cSrcweir }
470cdf0e10cSrcweir
471cdf0e10cSrcweir /* XServiceInfo */
getImplementationName()472cdf0e10cSrcweir ::rtl::OUString SAL_CALL ScriptProtocolHandler::getImplementationName( )
473cdf0e10cSrcweir throw( RuntimeException )
474cdf0e10cSrcweir {
475cdf0e10cSrcweir return impl_getStaticImplementationName();
476cdf0e10cSrcweir }
477cdf0e10cSrcweir
478cdf0e10cSrcweir /* XServiceInfo */
supportsService(const::rtl::OUString & sServiceName)479cdf0e10cSrcweir sal_Bool SAL_CALL ScriptProtocolHandler::supportsService(
480cdf0e10cSrcweir const ::rtl::OUString& sServiceName )
481cdf0e10cSrcweir throw( RuntimeException )
482cdf0e10cSrcweir {
483cdf0e10cSrcweir Sequence< ::rtl::OUString > seqServiceNames = getSupportedServiceNames();
484cdf0e10cSrcweir const ::rtl::OUString* pArray = seqServiceNames.getConstArray();
485cdf0e10cSrcweir for ( sal_Int32 nCounter = 0; nCounter < seqServiceNames.getLength(); nCounter++ )
486cdf0e10cSrcweir {
487cdf0e10cSrcweir if ( pArray[ nCounter ] == sServiceName )
488cdf0e10cSrcweir {
489cdf0e10cSrcweir return sal_True ;
490cdf0e10cSrcweir }
491cdf0e10cSrcweir }
492cdf0e10cSrcweir
493cdf0e10cSrcweir return sal_False ;
494cdf0e10cSrcweir }
495cdf0e10cSrcweir
496cdf0e10cSrcweir /* XServiceInfo */
getSupportedServiceNames()497cdf0e10cSrcweir Sequence< ::rtl::OUString > SAL_CALL ScriptProtocolHandler::getSupportedServiceNames()
498cdf0e10cSrcweir throw( RuntimeException )
499cdf0e10cSrcweir {
500cdf0e10cSrcweir return impl_getStaticSupportedServiceNames();
501cdf0e10cSrcweir }
502cdf0e10cSrcweir
503cdf0e10cSrcweir /* Helper for XServiceInfo */
impl_getStaticSupportedServiceNames()504cdf0e10cSrcweir Sequence< ::rtl::OUString > ScriptProtocolHandler::impl_getStaticSupportedServiceNames()
505cdf0e10cSrcweir {
506cdf0e10cSrcweir ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
507cdf0e10cSrcweir Sequence< ::rtl::OUString > seqServiceNames( 1 );
508cdf0e10cSrcweir seqServiceNames.getArray() [ 0 ] =
509cdf0e10cSrcweir ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYSERVICENAME );
510cdf0e10cSrcweir return seqServiceNames ;
511cdf0e10cSrcweir }
512cdf0e10cSrcweir
513cdf0e10cSrcweir /* Helper for XServiceInfo */
impl_getStaticImplementationName()514cdf0e10cSrcweir ::rtl::OUString ScriptProtocolHandler::impl_getStaticImplementationName()
515cdf0e10cSrcweir {
516cdf0e10cSrcweir return ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYIMPLNAME );
517cdf0e10cSrcweir }
518cdf0e10cSrcweir
519cdf0e10cSrcweir /* Helper for registry */
impl_createInstance(const Reference<css::uno::XComponentContext> & xCtx)520cdf0e10cSrcweir Reference< XInterface > SAL_CALL ScriptProtocolHandler::impl_createInstance(
5217110543dSDamjan Jovanovic const Reference< css::uno::XComponentContext > & xCtx)
522cdf0e10cSrcweir throw( RuntimeException )
523cdf0e10cSrcweir {
5247110543dSDamjan Jovanovic return Reference < XInterface >( *new ScriptProtocolHandler( xCtx ) );
525cdf0e10cSrcweir }
526cdf0e10cSrcweir
5277110543dSDamjan Jovanovic static struct ::cppu::ImplementationEntry g_entries[] =
528cdf0e10cSrcweir {
5297110543dSDamjan Jovanovic {
5307110543dSDamjan Jovanovic ScriptProtocolHandler::impl_createInstance,
5317110543dSDamjan Jovanovic ScriptProtocolHandler::impl_getStaticImplementationName,
5327110543dSDamjan Jovanovic ScriptProtocolHandler::impl_getStaticSupportedServiceNames,
5337110543dSDamjan Jovanovic ::cppu::createSingleComponentFactory,
5347110543dSDamjan Jovanovic &g_moduleCount.modCnt,
5357110543dSDamjan Jovanovic 0
5367110543dSDamjan Jovanovic },
5377110543dSDamjan Jovanovic { 0, 0, 0, 0, 0, 0 }
5387110543dSDamjan Jovanovic };
539cdf0e10cSrcweir
540cdf0e10cSrcweir } // namespace scripting_protocolhandler
541cdf0e10cSrcweir
542cdf0e10cSrcweir /* exported functions for registration */
543cdf0e10cSrcweir extern "C"
544cdf0e10cSrcweir {
545cdf0e10cSrcweir
546cdf0e10cSrcweir #undef css
547cdf0e10cSrcweir #define css ::com::sun::star
548cdf0e10cSrcweir
component_getImplementationEnvironment(const sal_Char ** ppEnvironmentTypeName,uno_Environment ** ppEnvironment)549cdf0e10cSrcweir void SAL_CALL component_getImplementationEnvironment(
550cdf0e10cSrcweir const sal_Char** ppEnvironmentTypeName, uno_Environment** ppEnvironment )
551cdf0e10cSrcweir {
552cdf0e10cSrcweir (void)ppEnvironment;
553cdf0e10cSrcweir
554cdf0e10cSrcweir *ppEnvironmentTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME ;
555cdf0e10cSrcweir }
556cdf0e10cSrcweir
component_getFactory(const sal_Char * pImplementationName,void * pServiceManager,void * pRegistryKey)557cdf0e10cSrcweir void* SAL_CALL component_getFactory( const sal_Char * pImplementationName ,
558cdf0e10cSrcweir void * pServiceManager ,
559cdf0e10cSrcweir void * pRegistryKey )
560cdf0e10cSrcweir {
5617110543dSDamjan Jovanovic return component_getFactoryHelper( pImplementationName, pServiceManager, pRegistryKey, scripting_protocolhandler::g_entries );
562cdf0e10cSrcweir }
563cdf0e10cSrcweir } // extern "C"
564cdf0e10cSrcweir
565cdf0e10cSrcweir
566