scripting/source/runtimemgr/ScriptNameResolverImpl.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*************************************************************************
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * Copyright 2000, 2010 Oracle and/or its affiliates.
   7  *
   8  * OpenOffice.org - a multi-platform office productivity suite
   9  *
  10  * This file is part of OpenOffice.org.
  11  *
  12  * OpenOffice.org is free software: you can redistribute it and/or modify
  13  * it under the terms of the GNU Lesser General Public License version 3
  14  * only, as published by the Free Software Foundation.
  15  *
  16  * OpenOffice.org is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU Lesser General Public License version 3 for more details
  20  * (a copy is included in the LICENSE file that accompanied this code).
  21  *
  22  * You should have received a copy of the GNU Lesser General Public License
  23  * version 3 along with OpenOffice.org.  If not, see
  24  * <http://www.openoffice.org/license.html>
  25  * for a copy of the LGPLv3 License.
  26  *
  27  ************************************************************************/
  28
  29 // MARKER(update_precomp.py): autogen include statement, do not remove
  30 #include "precompiled_scripting.hxx"
  31
  32 #include <vector>
  33 #include <stdlib.h>
  34
  35 #include <cppuhelper/implementationentry.hxx>
  36 #include <com/sun/star/beans/XPropertySet.hpp>
  37 #include <com/sun/star/security/AccessControlException.hpp>
  38
  39 #include <util/util.hxx>
  40 #include <util/scriptingconstants.hxx>
  41
  42 #include <drafts/com/sun/star/script/framework/storage/XScriptStorageManager.hpp>
  43 #include <drafts/com/sun/star/script/framework/security/XScriptSecurity.hpp>
  44
  45 #include "ScriptNameResolverImpl.hxx"
  46 #include "ScriptRuntimeManager.hxx"
  47
  48 using namespace ::rtl;
  49 using namespace ::com::sun::star;
  50 using namespace ::com::sun::star::uno;
  51 using namespace ::drafts::com::sun::star::script::framework;
  52
  53 namespace scripting_runtimemgr
  54 {
  55
  56 const sal_Char* const LANGUAGE_TO_RESOLVE_ON[] = { "All" }; // should be configurable
  57 OUString nrs_implName = OUString::createFromAscii(
  58     "drafts.com.sun.star.script.framework.runtime.DefaultScriptNameResolver" );
  59 OUString nrs_serviceName = OUString::createFromAscii(
  60     "drafts.com.sun.star.script.framework.runtime.DefaultScriptNameResolver" );
  61 Sequence< OUString > nrs_serviceNames = Sequence< OUString >( &nrs_serviceName, 1 );
  62
  63 const char* const SCRIPTSTORAGEMANAGER_SERVICE =
  64     "/singletons/drafts.com.sun.star.script.framework.storage.theScriptStorageManager";
  65
  66 extern ::rtl_StandardModuleCount s_moduleCount;
  67
  68 // define storages to search
  69 static ::std::vector< sal_Int32 >* m_pSearchIDs = NULL;
  70
  71 //*************************************************************************
  72 ScriptNameResolverImpl::ScriptNameResolverImpl(
  73     const Reference< XComponentContext > & xContext ) :
  74     m_xContext( xContext )
  75 {
  76     OSL_TRACE( "< ScriptNameResolverImpl ctor called >\n" );
  77     validateXRef( m_xContext, "ScriptNameResolverImpl::ScriptNameResolverImpl: invalid context" );
  78     m_xMultiComFac = m_xContext->getServiceManager();
  79
  80     validateXRef( m_xMultiComFac, "ScriptNameResolverImpl::ScriptNameResolverImpl: invalid XMultiComponentFactory " );
  81
  82     if( !m_pSearchIDs )
  83     {
  84         osl::Guard< osl::Mutex > aGuard( m_mutex );
  85         if( !m_pSearchIDs )
  86         {
  87             scripting_constants::ScriptingConstantsPool& scriptingConstantsPool =
  88                 scripting_constants::ScriptingConstantsPool::instance();
  89             m_pSearchIDs = new ::std::vector< sal_Int32 >();
  90             m_pSearchIDs->push_back( scriptingConstantsPool.DOC_STORAGE_ID_NOT_SET );
  91             m_pSearchIDs->push_back( scriptingConstantsPool.USER_STORAGE_ID );
  92             m_pSearchIDs->push_back( scriptingConstantsPool.SHARED_STORAGE_ID );
  93         }
  94     }
  95
  96     s_moduleCount.modCnt.acquire( &s_moduleCount.modCnt );
  97 }
  98
  99 //*************************************************************************
 100 ScriptNameResolverImpl::~ScriptNameResolverImpl()
 101 {
 102     OSL_TRACE( "< ScriptNameResolverImpl dtor called >\n" );
 103     s_moduleCount.modCnt.release( &s_moduleCount.modCnt );
 104 }
 105
 106 //*************************************************************************
 107 Reference< storage::XScriptInfo > ScriptNameResolverImpl::resolve(
 108 const ::rtl::OUString & scriptURI, Any& invocationCtx )
 109 throw ( lang::IllegalArgumentException, script::CannotConvertException, RuntimeException )
 110 {
 111
 112     Reference< storage::XScriptInfo > resolvedName;
 113     Reference< beans::XPropertySet > xPropSetScriptingContext;
 114     scripting_constants::ScriptingConstantsPool& scriptingConstantsPool =
 115             scripting_constants::ScriptingConstantsPool::instance();
 116
 117     OSL_TRACE( "ScriptNameResolverImpl::resolve: in resolve - start" );
 118
 119     if ( sal_False == ( invocationCtx >>= xPropSetScriptingContext ) )
 120     {
 121         throw RuntimeException( OUSTR(
 122             "ScriptNameResolverImpl::resolve : unable to get XScriptingContext from param" ),
 123             Reference< XInterface > () );
 124     }
 125
 126     Any any;
 127     OUString docUri;
 128     sal_Int32 filesysScriptStorageID = -1;
 129     Reference < storage::XScriptStorageManager > xScriptStorageMgr;
 130     sal_Int32 docSid;
 131     try
 132     {
 133         any = xPropSetScriptingContext->getPropertyValue(
 134             scriptingConstantsPool.DOC_URI );
 135         OSL_TRACE( "ScriptNameResolverImpl::resolve: in resolve - got anyUri" );
 136         if ( sal_False == ( any >>= docUri ) )
 137         {
 138             throw RuntimeException( OUSTR(
 139             "ScriptNameResolverImpl::resolve : unable to get doc Uri from xPropSetScriptingContext" ),
 140                 Reference< XInterface > () );
 141         }
 142         any = xPropSetScriptingContext->getPropertyValue(
 143             scriptingConstantsPool.DOC_STORAGE_ID );
 144         if ( sal_False == ( any >>= docSid ) )
 145         {
 146             throw RuntimeException( OUSTR(
 147                 "ScriptNameResolverImpl::resolve : unable to get doc storage id from xPropSetScriptingContext" ),
 148                 Reference< XInterface > () );
 149         }
 150     }
 151     catch ( Exception & e )
 152     {
 153         OUString temp = OUSTR(
 154             "ScriptNameResolverImpl::resolve : problem with getPropertyValue" );
 155         throw RuntimeException( temp.concat( e.Message ),
 156                                 Reference< XInterface > () );
 157     }
 158 #ifdef _DEBUG
 159     catch ( ... )
 160     {
 161         throw RuntimeException( OUSTR(
 162             "ScriptNameResolverImpl::resolve Unknown Exception caught - RuntimeException rethrown" ),
 163             Reference< XInterface > () );
 164     }
 165 #endif
 166
 167
 168     ::rtl::OString docUriO(
 169         ::rtl::OUStringToOString( docUri , RTL_TEXTENCODING_ASCII_US ) );
 170     OSL_TRACE(
 171         "ScriptNameResolverImpl::resolve: *** >>> DOC URI: %s, doc sid is %d\n",
 172         docUriO.pData->buffer, docSid );
 173
 174
 175     OSL_TRACE( "ScriptNameResolverImpl::resolve Starting..." );
 176     OUString docString = OUString::createFromAscii( "location=document" );
 177     OUString userString = OUString::createFromAscii( "location=user" );
 178     OUString shareString = OUString::createFromAscii( "location=share" );
 179     OUString filesysString = OUString::createFromAscii( "location=filesystem" );
 180
 181     // initialise vector with doc, user and share
 182
 183     // m_pSearchIDs is initialised as follows,
 184     // m_pSearchIDs [ 0 ] empty
 185     // m_pSearchIDs [ 1 ] user storage id
 186     // m_pSearchIDs [ 2 ] share "      "
 187
 188     ::std::vector< sal_Int32 > m_vSearchIDs = *m_pSearchIDs;
 189     m_vSearchIDs[ 0 ] = docSid;
 190
 191     if ( scriptURI.indexOf( docString ) != -1 )
 192     {
 193         OSL_TRACE("Full resolution available, search document");
 194         // search in document
 195         m_vSearchIDs.resize( 1 );
 196     }
 197     else if ( scriptURI.indexOf( userString ) != -1 )
 198     {
 199         OSL_TRACE("Full resolution available, search user");
 200         // search in user
 201         m_vSearchIDs[ 0 ] = ( *m_pSearchIDs )[ 1 ];
 202         m_vSearchIDs.resize( 1 );
 203     }
 204     else if ( scriptURI.indexOf( shareString ) != -1 )
 205     {
 206         OSL_TRACE("Full resolution available, search share");
 207         // search in share
 208         m_vSearchIDs[ 0 ] = ( *m_pSearchIDs )[ 2 ];
 209         m_vSearchIDs.resize( 1 );
 210     }
 211     else if ( scriptURI.indexOf( filesysString ) != -1 )
 212     {
 213         OSL_TRACE("Full resolution available, create & search filesystem");
 214         OUString filesysURL;
 215         try
 216         {
 217             filesysURL = getFilesysURL( scriptURI );
 218         }
 219         catch ( lang::IllegalArgumentException & e )
 220         {
 221             OUString temp = OUSTR( "ScriptNameResolverImpl::resolve: " );
 222             throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() );
 223         }
 224         Reference< XInterface > xInterface = m_xMultiComFac->createInstanceWithContext(
 225             ::rtl::OUString::createFromAscii(
 226                     "com.sun.star.ucb.SimpleFileAccess" ), m_xContext );
 227         validateXRef( xInterface,
 228             "ScriptProvider::initialise: cannot get SimpleFileAccess Service\n" );
 229         Reference < ucb::XSimpleFileAccess > xSimpleFileAccess = Reference <
 230                     ucb::XSimpleFileAccess > ( xInterface, UNO_QUERY_THROW );
 231
 232         // do we need to encode this? hope not.
 233         OSL_TRACE( ">>>> About to create storage for %s",
 234                 ::rtl::OUStringToOString( filesysURL,
 235                     RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 236         // ask storage manager to create storage
 237         try
 238         {
 239             // need to get the ScriptStorageManager
 240             Any a = m_xContext->getValueByName(
 241                     scriptingConstantsPool.SCRIPTSTORAGEMANAGER_SERVICE );
 242             if ( sal_False == ( a >>= xScriptStorageMgr ) )
 243             {
 244                 OUString temp = OUSTR( "ScriptNameResolverImpl::resolve: failed to get ScriptStorageManager" );
 245                 throw RuntimeException( temp, Reference< XInterface >() );
 246                 // need to throw
 247             }
 248             validateXRef( xScriptStorageMgr, "Cannot get ScriptStorageManager" );
 249             filesysScriptStorageID =
 250                     xScriptStorageMgr->createScriptStorageWithURI(
 251                         xSimpleFileAccess, filesysURL );
 252                 OSL_TRACE( ">>>> Created storage %d - for %s ",
 253                     filesysScriptStorageID, ::rtl::OUStringToOString(
 254                         filesysURL, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 255         }
 256         catch ( RuntimeException & e )
 257         {
 258             OUString temp = OUSTR( "ScriptNameResolverImpl::resolve: " );
 259             throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() );
 260         }
 261         m_vSearchIDs[ 0 ] = filesysScriptStorageID;
 262         m_vSearchIDs.resize( 1 );
 263     }
 264     else
 265     {
 266         OSL_TRACE("Only partial uri available, search doc, user & share");
 267         // is this illegal or do we search in a default way
 268         // if we get to here a uri has been passed in that has:
 269         // a) not got a location specified
 270         // b) an illegal location
 271
 272         // detect illegal location
 273         if (  scriptURI.indexOf( OUString::createFromAscii( "location=" ) ) != -1 )
 274         {
 275             OSL_TRACE(
 276                 "ScriptNameResolver::resolve, throwing IllegalArgException" );
 277             throw lang::IllegalArgumentException(
 278                 OUSTR( "invalid URI: " ).concat( scriptURI ),
 279                 Reference < XInterface > (), 1 );
 280
 281         }
 282         // leave vSearchIDs take care of the search...
 283     }
 284
 285     ::std::vector< sal_Int32 >::const_iterator iter;
 286     ::std::vector< sal_Int32 >::const_iterator iterEnd = m_vSearchIDs.end();
 287
 288     for ( iter = m_vSearchIDs.begin() ; iter != iterEnd; ++iter )
 289     {
 290         try
 291         {
 292             OSL_TRACE( "** about to resolve from storage using id %d from vector of size %d",
 293                 *iter, m_vSearchIDs.size() );
 294             if ( ( resolvedName = resolveURIFromStorageID( *iter, docUri, scriptURI ) ).is() )
 295             {
 296                 OSL_TRACE( "found match in uri from storage %d", *iter );
 297                 xPropSetScriptingContext->setPropertyValue(
 298                 scriptingConstantsPool.RESOLVED_STORAGE_ID, makeAny(*iter) );
 299                 break;
 300             }
 301
 302         }
 303         catch ( css::security::AccessControlException  & e )
 304         {
 305             // no execute permission
 306             OSL_TRACE( "ScriptNameResolverImpl::resolve : AccessControlException " );
 307             continue;
 308         }
 309         catch ( beans::UnknownPropertyException & e )
 310         {
 311             OUString temp = OUSTR(
 312                 "ScriptNameResolverImpl::resolve : UnknownPropertyException" );
 313             throw RuntimeException( temp.concat( e.Message ),
 314                 Reference< XInterface > () );
 315         }
 316         catch ( beans::PropertyVetoException  & e )
 317         {
 318             OUString temp = OUSTR(
 319                 "ScriptNameResolverImpl::resolve : PropertyVetoException " );
 320             throw RuntimeException( temp.concat( e.Message ),
 321                 Reference< XInterface > () );
 322         }
 323         catch ( lang::IllegalArgumentException  & e )
 324         {
 325             OUString temp = OUSTR(
 326                 "ScriptNameResolverImpl::resolve : IllegalArgumentException " );
 327             throw lang::IllegalArgumentException( temp.concat( e.Message ),
 328                 Reference< XInterface > (), e.ArgumentPosition );
 329         }
 330         catch ( lang::WrappedTargetException & e )
 331         {
 332         OUString temp = OUSTR(
 333                 "ScriptNameResolverImpl::resolve : WrappedTargetException " );
 334             throw RuntimeException( temp.concat( e.Message ),
 335                 Reference< XInterface > () );
 336         }
 337         catch ( Exception & e )
 338         {
 339             OSL_TRACE(
 340                 "Exception thrown by storage %d, failed to match uri: %s",
 341                  *iter,
 342                  ::rtl::OUStringToOString( e.Message,
 343                  RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 344         OUString temp = OUSTR(
 345                 "ScriptNameResolverImpl::resolve : unknown exception" );
 346             throw RuntimeException( temp.concat( e.Message ),
 347                 Reference< XInterface > () );
 348         }
 349 #ifdef _DEBUG
 350         catch ( ... )
 351         {
 352             OSL_TRACE(
 353                 "unknown exception thrown by storage %d, failed to match uri",
 354                 *iter );
 355         OUString temp = OUSTR(
 356                 "ScriptNameResolverImpl::resolve Unknown exception caught - RuntimeException rethrown" );
 357             throw RuntimeException( temp,
 358                 Reference< XInterface > () );
 359         }
 360 #endif
 361
 362     }
 363     if ( !resolvedName.is() )
 364     {
 365         if( filesysScriptStorageID >  2 )
 366         {
 367             // get the filesys storage and dispose of it
 368             Reference< XInterface > xScriptStorage =
 369                 xScriptStorageMgr->getScriptStorage( filesysScriptStorageID );
 370             validateXRef( xScriptStorage,
 371                           "ScriptNameResolverImpl::getStorageInstance: cannot get Script Storage service" );
 372             Reference< storage::XScriptInfoAccess > xScriptInfoAccess = Reference<
 373                 storage::XScriptInfoAccess > ( xScriptStorage, UNO_QUERY_THROW );
 374             validateXRef( xScriptInfoAccess,
 375             "ScriptNameResolverImpl::resolveURIFromStorageID: cannot get XScriptInfoAccess" );
 376             Sequence< Reference< storage::XScriptInfo > > results =
 377                 xScriptInfoAccess->getAllImplementations( );
 378             Reference < lang::XEventListener > xEL_ScriptStorageMgr =
 379                 Reference< lang::XEventListener >
 380                     ( xScriptStorageMgr ,UNO_QUERY_THROW );
 381             validateXRef( xEL_ScriptStorageMgr, "ScriptNameResolverImpl::resolve: can't get ScriptStorageManager XEventListener interface when trying to dispose of filesystem storage" );
 382             lang::EventObject event( results[ 0 ] );
 383             xEL_ScriptStorageMgr->disposing( event );
 384         }
 385         throw lang::IllegalArgumentException( OUSTR(
 386             "ScriptNameResolverImpl::resolve: no script found for uri=" ).concat( scriptURI ),
 387             Reference< XInterface > (), 0 );
 388     }
 389     return resolvedName;
 390 }
 391
 392 //*************************************************************************
 393 OUString SAL_CALL
 394 ScriptNameResolverImpl::getImplementationName( )
 395 throw( RuntimeException )
 396 {
 397     return nrs_implName;
 398 }
 399
 400 //*************************************************************************
 401 sal_Bool SAL_CALL
 402 ScriptNameResolverImpl::supportsService( const OUString& serviceName )
 403 throw( RuntimeException )
 404 {
 405     OUString const * pNames = nrs_serviceNames.getConstArray();
 406     for ( sal_Int32 nPos = nrs_serviceNames.getLength(); nPos--; )
 407     {
 408         if ( serviceName.equals( pNames[ nPos ] ) )
 409         {
 410             return sal_True;
 411         }
 412     }
 413     return sal_False;
 414 }
 415
 416 //*************************************************************************
 417
 418 Reference< storage::XScriptInfo >
 419 ScriptNameResolverImpl::resolveURIFromStorageID
 420 ( sal_Int32 sid, const ::rtl::OUString & docURI,
 421   const ::rtl::OUString& scriptURI )
 422 SAL_THROW ( ( lang::IllegalArgumentException, css::security::AccessControlException, RuntimeException ) )
 423 {
 424     Reference< storage::XScriptInfo > resolvedScriptInfo;
 425     scripting_constants::ScriptingConstantsPool& scriptingConstantsPool =
 426         scripting_constants::ScriptingConstantsPool::instance();
 427     if ( sid == scriptingConstantsPool.DOC_STORAGE_ID_NOT_SET )
 428     {
 429         OSL_TRACE( "@@@@ **** ScriptNameResolverImpl::resolve DOC_STORAGE_ID_NOT_SET" );
 430         return resolvedScriptInfo;
 431     }
 432     try
 433     {
 434         OUString permissionURI = docURI;
 435         OUString filesysString = OUString::createFromAscii( "location=filesystem" );
 436         if ( scriptURI.indexOf( filesysString ) != -1 )
 437         {
 438             // in the case of filesys scripts we're checking whether the
 439             // location of the script, rather than the location of the document,
 440             // has execute permission
 441             try
 442             {
 443                 permissionURI = getFilesysURL( scriptURI );
 444             }
 445             catch ( lang::IllegalArgumentException & e )
 446             {
 447                 OUString temp = OUSTR( "ScriptNameResolverImpl::resolveFromURI: " );
 448                 throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() );
 449             }
 450         }
 451         Reference< storage::XScriptInfoAccess > storage = getStorageInstance( sid, permissionURI );
 452         validateXRef( storage,
 453         "ScriptNameResolverImpl::resolveURIFromStorageID: cannot get XScriptInfoAccess" );
 454         Sequence< Reference< storage::XScriptInfo > > results =
 455             storage->getImplementations( scriptURI );
 456
 457         const sal_Int32 length = results.getLength();
 458
 459         if ( !length )
 460         {
 461             return resolvedScriptInfo;
 462         }
 463
 464         OSL_TRACE( "ScriptNameResolverImpl::resolve Got some results..." );
 465         // if we get results, just return first in list,
 466         // storage has already matched language, function name etc. if
 467         // that information was in the uri
 468         resolvedScriptInfo = results[ 0 ];
 469     }
 470     catch ( css::security::AccessControlException & ace )
 471     {
 472         OUString temp = OUSTR(
 473             "ScriptRuntimeManager::resolveURIFromStorageID AccessControlException: " );
 474         throw css::security::AccessControlException( temp.concat( ace.Message ),
 475                                               Reference< XInterface > (),
 476                                                 ace.LackingPermission );
 477     }
 478     catch ( lang::IllegalArgumentException & iae )
 479     {
 480         OUString temp = OUSTR(
 481             "ScriptRuntimeManager::resolveURIFromStorageID IllegalArgumentException: " );
 482         throw lang::IllegalArgumentException( temp.concat( iae.Message ),
 483                                               Reference< XInterface > (),
 484                                               iae.ArgumentPosition );
 485     }
 486     catch ( RuntimeException & re )
 487     {
 488         OUString temp = OUSTR(
 489             "ScriptRuntimeManager::resolveURIFromStorageID RuntimeException: " );
 490         throw RuntimeException( temp.concat( re.Message ),
 491                                 Reference< XInterface > () );
 492     }
 493     catch ( Exception & e )
 494     {
 495         OUString temp = OUSTR(
 496             "ScriptNameResolverImpl::resolveURIFromStorageID : Exception caught - RuntimeException rethrown" );
 497         throw RuntimeException( temp.concat( e.Message ),
 498                                 Reference< XInterface > () );
 499     }
 500 #ifdef _DEBUG
 501     catch ( ... )
 502     {
 503         throw RuntimeException( OUSTR(
 504             "ScriptNameResolverImpl::resolveURIFromStorageID Unknown exception caught - RuntimeException rethrown" ),
 505             Reference< XInterface > () );
 506     }
 507 #endif
 508     return resolvedScriptInfo;
 509 }
 510 //*************************************************************************
 511
 512 Reference< storage::XScriptInfoAccess >
 513
 514 ScriptNameResolverImpl::getStorageInstance( sal_Int32 sid,
 515 const ::rtl::OUString & permissionURI ) SAL_THROW ( ( RuntimeException, css::security::AccessControlException, lang::IllegalArgumentException ) )
 516 {
 517     Reference< storage::XScriptInfoAccess > xScriptInfoAccess;
 518     try
 519     {
 520         Reference< XInterface > xInterface;
 521
 522         Any a = m_xContext->getValueByName(
 523                     OUString::createFromAscii( SCRIPTSTORAGEMANAGER_SERVICE ) );
 524         if ( sal_False == ( a >>= xInterface ) )
 525         {
 526             throw RuntimeException(
 527                 OUSTR( "ScriptNameResolverImpl::getStorageInstance: could not obtain ScriptStorageManager singleton" ),
 528                 Reference< XInterface >() );
 529         }
 530         validateXRef( xInterface,
 531                       "ScriptNameResolverImpl::getStorageInstance: cannot get Storage service" );
 532         // check that we have permissions for this storage
 533         Reference< dcsssf::security::XScriptSecurity > xScriptSecurity( xInterface, UNO_QUERY_THROW );
 534         validateXRef( xScriptSecurity,
 535                       "ScriptNameResolverImpl::getStorageInstance:  cannot get Script Security service" );
 536         scripting_constants::ScriptingConstantsPool& scriptingConstantsPool =
 537                 scripting_constants::ScriptingConstantsPool::instance();
 538         // if we dealing with a document storage (ie. not user or share
 539         // we need to check the permission
 540         if( ( sid != scriptingConstantsPool.USER_STORAGE_ID ) &&
 541             ( sid != scriptingConstantsPool.SHARED_STORAGE_ID ) )
 542         {
 543             xScriptSecurity->checkPermission( permissionURI,
 544                 OUString::createFromAscii( "execute" ) );
 545             // if we get here, the checkPermission hasn't thrown an
 546             // AccessControlException, ie. permission has been granted
 547             OSL_TRACE( "ScriptNameResolverImpl::getStorageInstance: got execute permission for ID=%d", sid );
 548         }
 549         Reference< storage::XScriptStorageManager > xScriptStorageManager( xInterface, UNO_QUERY_THROW );
 550         validateXRef( xScriptStorageManager,
 551                       "ScriptNameResolverImpl::getStorageInstance:  cannot get Script Storage Manager service" );
 552         Reference< XInterface > xScriptStorage =
 553             xScriptStorageManager->getScriptStorage( sid );
 554         validateXRef( xScriptStorage,
 555                       "ScriptNameResolverImpl::getStorageInstance: cannot get Script Storage service" );
 556         xScriptInfoAccess = Reference<
 557             storage::XScriptInfoAccess > ( xScriptStorage, UNO_QUERY_THROW );
 558     }
 559     catch ( lang::IllegalArgumentException & e )
 560     {
 561         OUString temp = OUSTR( "ScriptNameResolverImpl::getStorageInstance: " );
 562         throw lang::IllegalArgumentException( temp.concat( e.Message ),
 563             Reference< XInterface >(), e.ArgumentPosition );
 564     }
 565     catch ( css::security::AccessControlException & e )
 566     {
 567         OUString temp = OUSTR( "ScriptNameResolverImpl::getStorageInstance: AccessControlException " );
 568         throw css::security::AccessControlException( temp.concat( e.Message ), Reference< XInterface >(), e.LackingPermission );
 569     }
 570     catch ( RuntimeException & re )
 571     {
 572         OUString temp = OUSTR( "ScriptNameResolverImpl::getStorageInstance: " );
 573         throw RuntimeException( temp.concat( re.Message ), Reference< XInterface >() );
 574     }
 575     catch ( Exception & e )
 576     {
 577         OUString temp = OUSTR( "ScriptNameResolverImpl::getStorageInstance: " );
 578         throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() );
 579     }
 580     return xScriptInfoAccess;
 581 }
 582 //*************************************************************************
 583 OUString
 584 ScriptNameResolverImpl::getFilesysURL( const OUString & scriptURI )
 585 throw( lang::IllegalArgumentException )
 586 {
 587         OUString filePath;
 588         OUString fileName;
 589         OUString filesysString = OUString::createFromAscii( "location=filesystem" );
 590         sal_Int32 locationPos = scriptURI.indexOf( filesysString );
 591         // expect location=filesys:file:///foo/bar/myscript.bsh etc
 592         // except the file url at this point is encoded
 593         // so we should be ok searching for the '&'
 594         sal_Int32 filesysStrLen = filesysString.getLength() + 1;
 595         sal_Int32 endOfLocn = scriptURI.indexOf( '&', locationPos );
 596         if (endOfLocn == -1 )
 597         {
 598                 filePath = scriptURI.copy( locationPos + filesysString.getLength() + 1 );
 599         }
 600         else
 601         {
 602                 filePath = scriptURI.copy( locationPos + filesysStrLen,
 603                                 endOfLocn - locationPos - filesysStrLen );
 604         }
 605         //file name shoul also be encoded so again ok to search for '&'
 606         OUString functionKey = OUString::createFromAscii( "function=" );
 607         sal_Int32 functionKeyLength = functionKey.getLength();
 608         sal_Int32 functionNamePos = scriptURI.indexOf( functionKey );
 609         if ( functionNamePos > 0 )
 610         {
 611             sal_Int32 endOfFn = scriptURI.indexOf( '&', functionNamePos );
 612             if ( endOfFn == -1 )
 613             {
 614                 fileName = scriptURI.copy( functionNamePos + functionKeyLength );
 615             }
 616             else
 617             {
 618                 fileName = scriptURI.copy( functionNamePos + functionKeyLength,
 619                                 endOfFn - functionNamePos - functionKeyLength );
 620             }
 621         }
 622         else
 623         {
 624             // we need to throw
 625             OUString temp = OUSTR( "ScriptNameResolverImpl::getFilesysURL: error getting the filesysURL" );
 626             throw lang::IllegalArgumentException( temp, Reference< XInterface >(), 0 );
 627         }
 628         filePath+=fileName;
 629         OSL_TRACE( "ScriptNameResolverImpl::getFilesysURL: filesys URL = %s",
 630                  ::rtl::OUStringToOString( filePath,
 631                  RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 632         return filePath;
 633 }
 634 //*************************************************************************
 635 Sequence<OUString> SAL_CALL
 636 ScriptNameResolverImpl::getSupportedServiceNames( )
 637 throw( RuntimeException )
 638 {
 639     return nrs_serviceNames;
 640 }
 641
 642 //*************************************************************************
 643 Reference< XInterface > SAL_CALL scriptnri_create(
 644     Reference< XComponentContext > const & xComponentContext )
 645 SAL_THROW( ( Exception ) )
 646 {
 647     return ( cppu::OWeakObject * ) new ScriptNameResolverImpl( xComponentContext );
 648 }
 649
 650 //*************************************************************************
 651 Sequence< OUString > scriptnri_getSupportedServiceNames() SAL_THROW( () )
 652 {
 653     return nrs_serviceNames;
 654 }
 655
 656 //*************************************************************************
 657 OUString scriptnri_getImplementationName() SAL_THROW( () )
 658 {
 659     return nrs_implName;
 660 }
 661 } // namespace scripting_runtimemgr
 662
 663 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */