dbaccess/source/ui/dlg/ConnectionHelper.cxx

   1 /*************************************************************************
   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: ConnectionHelper.cxx,v $
  10  * $Revision: 1.19.48.1 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_dbaccess.hxx"
  33
  34 #include "dsnItem.hxx"
  35 #ifndef DBAUI_CONNECTIONHELPER_HXX
  36 #include "ConnectionHelper.hxx"
  37 #endif
  38 #ifndef _DBAUI_AUTOCONTROLS_HRC_
  39 #include "AutoControls.hrc"
  40 #endif
  41 #ifndef _DBU_DLG_HRC_
  42 #include "dbu_dlg.hrc"
  43 #endif
  44 #ifndef _DBU_MISC_HRC_
  45 #include "dbu_misc.hrc"
  46 #endif
  47 #ifndef _SFXITEMSET_HXX
  48 #include <svtools/itemset.hxx>
  49 #endif
  50 #ifndef INCLUDED_SVTOOLS_MODULEOPTIONS_HXX
  51 #include <svtools/moduleoptions.hxx>
  52 #endif
  53 #ifndef _SFX_FCONTNR_HXX
  54 #include <sfx2/fcontnr.hxx>
  55 #endif
  56 #ifndef INCLUDED_SVTOOLS_PATHOPTIONS_HXX
  57 #include <svtools/pathoptions.hxx>
  58 #endif
  59 #ifndef _SFXSTRITEM_HXX
  60 #include <svtools/stritem.hxx>
  61 #endif
  62 #ifndef _SFXENUMITEM_HXX
  63 #include <svtools/eitem.hxx>
  64 #endif
  65 #ifndef _SFXINTITEM_HXX
  66 #include <svtools/intitem.hxx>
  67 #endif
  68 #ifndef _DBAUI_DATASOURCEITEMS_HXX_
  69 #include "dsitems.hxx"
  70 #endif
  71 #ifndef _DBA_DBACCESS_HELPID_HRC_
  72 #include "dbaccess_helpid.hrc"
  73 #endif
  74 #ifndef _DBAUI_LOCALRESACCESS_HXX_
  75 #include "localresaccess.hxx"
  76 #endif
  77 #ifndef _OSL_PROCESS_H_
  78 #include <osl/process.h>
  79 #endif
  80 #ifndef _SV_MSGBOX_HXX
  81 #include <vcl/msgbox.hxx>
  82 #endif
  83 #ifndef _FILEDLGHELPER_HXX
  84 #include <sfx2/filedlghelper.hxx>
  85 #endif
  86 #ifndef _DBAUI_DBADMIN_HXX_
  87 #include "dbadmin.hxx"
  88 #endif
  89 #ifndef _COMPHELPER_TYPES_HXX_
  90 #include <comphelper/types.hxx>
  91 #endif
  92 #ifndef _VCL_STDTEXT_HXX
  93 #include <vcl/stdtext.hxx>
  94 #endif
  95 #ifndef _DBAUI_SQLMESSAGE_HXX_
  96 #include "sqlmessage.hxx"
  97 #endif
  98 #ifndef _DBAUI_ODBC_CONFIG_HXX_
  99 #include "odbcconfig.hxx"
 100 #endif
 101 #ifndef _DBAUI_DSSELECT_HXX_
 102 #include "dsselect.hxx"
 103 #endif
 104 #ifndef SVTOOLS_FILENOTATION_HXX_
 105 #include <svtools/filenotation.hxx>
 106 #endif
 107 #ifndef DBACCESS_SHARED_DBUSTRINGS_HRC
 108 #include "dbustrings.hrc"
 109 #endif
 110 #ifndef _COM_SUN_STAR_UI_DIALOGS_XFOLDERPICKER_HPP_
 111 #include <com/sun/star/ui/dialogs/XFolderPicker.hpp>
 112 #endif
 113 #ifndef _COM_SUN_STAR_SDBC_XROW_HPP_
 114 #include <com/sun/star/sdbc/XRow.hpp>
 115 #endif
 116 #ifndef _COM_SUN_STAR_AWT_XWINDOW_HPP_
 117 #include <com/sun/star/awt/XWindow.hpp>
 118 #endif
 119 // #106016# ------------------------------------
 120 #ifndef _COM_SUN_STAR_TASK_XINTERACTIONHANDLER_HPP_
 121 #include <com/sun/star/task/XInteractionHandler.hpp>
 122 #endif
 123 #ifndef _COM_SUN_STAR_TASK_XPROGRESSHANDLER_HPP_
 124 #include <com/sun/star/ucb/XProgressHandler.hpp>
 125 #endif
 126 #ifndef DBAUI_TOOLS_HXX
 127 #include "UITools.hxx"
 128 #endif
 129 #ifndef _UNOTOOLS_LOCALFILEHELPER_HXX
 130 #include <unotools/localfilehelper.hxx>
 131 #endif
 132 #ifndef _UNOTOOLS_UCBHELPER_HXX
 133 #include <unotools/ucbhelper.hxx>
 134 #endif
 135 #ifndef _UCBHELPER_COMMANDENVIRONMENT_HXX
 136 #include <ucbhelper/commandenvironment.hxx>
 137 #endif
 138 #ifndef DBAUI_FILEPICKER_INTERACTION_HXX
 139 #include "finteraction.hxx"
 140 #endif
 141 #ifndef _CONNECTIVITY_COMMONTOOLS_HXX_
 142 #include <connectivity/CommonTools.hxx>
 143 #endif
 144 #ifndef _URLOBJ_HXX
 145 #include <tools/urlobj.hxx>
 146 #endif
 147 #ifndef TOOLS_DIAGNOSE_EX_H
 148 #include <tools/diagnose_ex.h>
 149 #endif
 150 #ifndef _SFX_DOCFILT_HACK_HXX
 151 #include <sfx2/docfilt.hxx>
 152 #endif
 153 #if !defined(WINDOWS_VISTA_PSDK) && (defined(WIN) || defined(WNT))
 154 #define _ADO_DATALINK_BROWSE_
 155 #endif
 156
 157 #ifdef _ADO_DATALINK_BROWSE_
 158 #if defined( WNT )
 159     #include <tools/prewin.h>
 160     #include <windows.h>
 161     #include <tools/postwin.h>
 162 #endif
 163 #ifndef _SV_SYSDATA_HXX
 164 #include <vcl/sysdata.hxx>
 165 #endif
 166 #ifndef _DBAUI_ADO_DATALINK_HXX_
 167 #include "adodatalinks.hxx"
 168 #endif
 169 #endif //_ADO_DATALINK_BROWSE_
 170
 171 #ifndef _COM_SUN_STAR_MOZILLA_XMOZILLABOOTSTRAP_HPP_
 172 #include <com/sun/star/mozilla/XMozillaBootstrap.hpp>
 173 #endif
 174 #include <unotools/processfactory.hxx>
 175
 176
 177
 178 //.........................................................................
 179 namespace dbaui
 180 {
 181 //.........................................................................
 182     using namespace ::com::sun::star::uno;
 183     using namespace ::com::sun::star::ucb;
 184     using namespace ::com::sun::star::ui::dialogs;
 185     using namespace ::com::sun::star::sdbc;
 186     using namespace ::com::sun::star::beans;
 187     using namespace ::com::sun::star::lang;
 188     using namespace ::com::sun::star::container;
 189     using namespace ::com::sun::star::mozilla;
 190     using namespace ::dbtools;
 191     using namespace ::svt;
 192
 193
 194 DBG_NAME(OConnectionHelper)
 195
 196     OConnectionHelper::OConnectionHelper( Window* pParent, const ResId& _rId, const SfxItemSet& _rCoreAttrs)
 197         :OGenericAdministrationPage(pParent, _rId, _rCoreAttrs)
 198         ,m_aFT_Connection   ( this, ResId( FT_AUTOBROWSEURL, *_rId.GetResMgr() ) )
 199            ,m_aConnectionURL   ( this, ResId( ET_AUTOBROWSEURL, *_rId.GetResMgr() ) )
 200         ,m_aPB_Connection   ( this, ResId( PB_AUTOBROWSEURL, *_rId.GetResMgr() ) )
 201     {
 202         DBG_CTOR(OConnectionHelper,NULL);
 203
 204         // extract the datasource type collection from the item set
 205         DbuTypeCollectionItem* pCollectionItem = PTR_CAST(DbuTypeCollectionItem, _rCoreAttrs.GetItem(DSID_TYPECOLLECTION));
 206         if (pCollectionItem)
 207             m_pCollection = pCollectionItem->getCollection();
 208         m_aPB_Connection.SetClickHdl(LINK(this, OConnectionHelper, OnBrowseConnections));
 209         DBG_ASSERT(m_pCollection, "OConnectionHelper::OConnectionHelper : really need a DSN type collection !");
 210         m_aConnectionURL.SetTypeCollection(m_pCollection);
 211     }
 212
 213
 214     OConnectionHelper::~OConnectionHelper()
 215     {
 216
 217         DBG_DTOR(OConnectionHelper,NULL);
 218     }
 219
 220
 221     // -----------------------------------------------------------------------
 222     void OConnectionHelper::implInitControls(const SfxItemSet& _rSet, sal_Bool _bSaveValue)
 223     {
 224         // check whether or not the selection is invalid or readonly (invalid implies readonly, but not vice versa)
 225         sal_Bool bValid, bReadonly;
 226         getFlags(_rSet, bValid, bReadonly);
 227
 228         m_aFT_Connection.Show();
 229         m_aConnectionURL.Show();
 230         m_aConnectionURL.ShowPrefix( ::dbaccess::DST_JDBC == m_pCollection->determineType(m_eType) );
 231
 232         BOOL bEnableBrowseButton = m_pCollection->supportsBrowsing( m_eType );
 233         m_aPB_Connection.Show( bEnableBrowseButton );
 234
 235         SFX_ITEMSET_GET(_rSet, pUrlItem, SfxStringItem, DSID_CONNECTURL, sal_True);
 236
 237         // forward the values to the controls
 238         if ( bValid )
 239         {
 240             String sUrl = pUrlItem->GetValue();
 241             setURL( sUrl );
 242
 243             checkTestConnection();
 244             m_aConnectionURL.ClearModifyFlag();
 245         }
 246
 247         OGenericAdministrationPage::implInitControls(_rSet, _bSaveValue);
 248     }
 249
 250     // -----------------------------------------------------------------------
 251     void OConnectionHelper::implUpdateURLDependentStates() const
 252     {
 253         OSL_PRECOND( m_pAdminDialog, "OConnectionHelper::implUpdateURLDependentStates: no admin dialog!" );
 254         if ( !m_pAdminDialog )
 255             return;
 256
 257         if ( m_pCollection->isFileSystemBased(m_eType) )
 258             m_pAdminDialog->enableConfirmSettings( getURLNoPrefix().Len() > 0 );
 259     }
 260
 261     // -----------------------------------------------------------------------
 262     IMPL_LINK(OConnectionHelper, OnBrowseConnections, PushButton*, /*_pButton*/)
 263     {
 264         OSL_ENSURE(m_pAdminDialog,"No Admin dialog set! ->GPF");
 265         const ::dbaccess::DATASOURCE_TYPE eType = m_pCollection->determineType(m_eType);
 266         switch ( eType )
 267         {
 268             case  ::dbaccess::DST_DBASE:
 269             case  ::dbaccess::DST_FLAT:
 270             {
 271                 try
 272                 {
 273                     ::rtl::OUString sFolderPickerService = ::rtl::OUString::createFromAscii(SERVICE_UI_FOLDERPICKER);
 274                     Reference< XFolderPicker > xFolderPicker(m_xORB->createInstance(sFolderPickerService), UNO_QUERY);
 275                     if (!xFolderPicker.is())
 276                     {
 277                         ShowServiceNotAvailableError(GetParent(), sFolderPickerService, sal_True);
 278                         break;
 279                     }
 280
 281                     sal_Bool bDoBrowse = sal_False;
 282                     String sOldPath = getURLNoPrefix();
 283                     do
 284                     {
 285                         if (sOldPath.Len())
 286                             xFolderPicker->setDisplayDirectory(sOldPath);
 287                         if (0 == xFolderPicker->execute())
 288                             // cancelled by the user
 289                             return 0L;
 290
 291                         sOldPath = xFolderPicker->getDirectory();
 292                         switch (checkPathExistence(sOldPath))
 293                         {
 294                             case RET_RETRY:
 295                                 bDoBrowse = sal_True;
 296                                 break;
 297                             case RET_CANCEL:
 298                                 return 0L;
 299                             default:
 300                                 break;
 301                         }
 302                     }
 303                     while (bDoBrowse);
 304
 305                     String sSelectedDirectory = xFolderPicker->getDirectory();
 306                     INetURLObject aSelectedDirectory( sSelectedDirectory, INetURLObject::WAS_ENCODED, RTL_TEXTENCODING_UTF8 );
 307
 308                     // for UI purpose, we don't want to have the path encoded
 309                     sSelectedDirectory = aSelectedDirectory.GetMainURL( INetURLObject::DECODE_WITH_CHARSET, RTL_TEXTENCODING_UTF8  );
 310
 311                     setURLNoPrefix( sSelectedDirectory );
 312                     SetRoadmapStateValue(sal_True);
 313                     callModifiedHdl();
 314                 }
 315                 catch( const Exception& )
 316                 {
 317                     DBG_UNHANDLED_EXCEPTION();
 318                 }
 319             }
 320             break;
 321             case  ::dbaccess::DST_CALC:
 322             {
 323                 SvtModuleOptions aModule;
 324                 ::sfx2::FileDialogHelper aFileDlg(WB_3DLOOK | WB_STDMODAL | WB_OPEN
 325                                                 ,aModule.GetFactoryEmptyDocumentURL(SvtModuleOptions::E_CALC)
 326                                                 ,SFX_FILTER_IMPORT);
 327                 askForFileName(aFileDlg);
 328             }
 329             break;
 330             case  ::dbaccess::DST_MSACCESS:
 331             {
 332                 const ::rtl::OUString sExt(RTL_CONSTASCII_USTRINGPARAM("*.mdb"));
 333                 String sFilterName(ModuleRes (STR_MSACCESS_FILTERNAME));
 334                 ::sfx2::FileDialogHelper aFileDlg(WB_3DLOOK | WB_STDMODAL | WB_OPEN);
 335                 aFileDlg.AddFilter(sFilterName,sExt);
 336                 aFileDlg.SetCurrentFilter(sFilterName);
 337                 askForFileName(aFileDlg);
 338             }
 339             break;
 340             case  ::dbaccess::DST_MSACCESS_2007:
 341             {
 342                 const ::rtl::OUString sAccdb(RTL_CONSTASCII_USTRINGPARAM("*.accdb"));
 343                 String sFilterName2(ModuleRes (STR_MSACCESS_2007_FILTERNAME));
 344                 ::sfx2::FileDialogHelper aFileDlg(WB_3DLOOK | WB_STDMODAL | WB_OPEN);
 345                 aFileDlg.AddFilter(sFilterName2,sAccdb);
 346                 aFileDlg.SetCurrentFilter(sFilterName2);
 347                 askForFileName(aFileDlg);
 348             }
 349             break;
 350             case  ::dbaccess::DST_ADABAS:
 351             {
 352                 // collect all names from the config dir
 353                 // and all dir's of the DBWORK/wrk or DBROOT/wrk dir
 354                 // compare the names
 355
 356                 // collect the names of the installed databases
 357                 StringBag aInstalledDBs;
 358                 ::rtl::OUString sAdabasConfigDir,sAdabasWorkDir,sRootDir;
 359                 ::rtl::OUString sEnvVarName(RTL_CONSTASCII_USTRINGPARAM("DBWORK"));
 360                 rtl_uString* pDbVar = NULL;
 361                 if(osl_getEnvironment(sEnvVarName.pData,&pDbVar) == osl_Process_E_None && pDbVar)
 362                 {
 363                     sAdabasWorkDir = pDbVar;
 364                     String sURL;
 365                     utl::LocalFileHelper::ConvertPhysicalNameToURL(sAdabasWorkDir,sURL);
 366                     sAdabasWorkDir = sURL;
 367                     rtl_uString_release(pDbVar);
 368                     pDbVar = NULL;
 369                 }
 370
 371                 sEnvVarName = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DBCONFIG"));
 372                 if(osl_getEnvironment(sEnvVarName.pData,&pDbVar) == osl_Process_E_None && pDbVar)
 373                 {
 374                     sAdabasConfigDir = pDbVar;
 375                     String sURL;
 376                     utl::LocalFileHelper::ConvertPhysicalNameToURL(sAdabasConfigDir,sURL);
 377                     sAdabasConfigDir = sURL;
 378                     rtl_uString_release(pDbVar);
 379                     pDbVar = NULL;
 380                 }
 381
 382                 sEnvVarName = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DBROOT"));
 383                 if(osl_getEnvironment(sEnvVarName.pData,&pDbVar) == osl_Process_E_None && pDbVar)
 384                 {
 385                     sRootDir = pDbVar;
 386                     String sURL;
 387                     utl::LocalFileHelper::ConvertPhysicalNameToURL(sRootDir,sURL);
 388                     sRootDir = sURL;
 389                     rtl_uString_release(pDbVar);
 390                     pDbVar = NULL;
 391                 }
 392
 393                 sal_Bool bOldFashion = sAdabasConfigDir.getLength() && sAdabasWorkDir.getLength();
 394
 395                 if(!bOldFashion) // we have a normal adabas installation
 396                 {        // so we check the local database names in $DBROOT/config
 397                     sAdabasConfigDir    = sRootDir;
 398                     sAdabasWorkDir              = sRootDir;
 399                 }
 400
 401                 if(sAdabasConfigDir.getLength() && sAdabasWorkDir.getLength() && sRootDir.getLength())
 402                 {
 403
 404                     aInstalledDBs       = getInstalledAdabasDBs(sAdabasConfigDir,sAdabasWorkDir);
 405
 406                     if(!aInstalledDBs.size() && bOldFashion)
 407                     {
 408                         sAdabasConfigDir        = sRootDir;
 409                         sAdabasWorkDir          = sRootDir;
 410                         aInstalledDBs           = getInstalledAdabasDBs(sAdabasConfigDir,sAdabasWorkDir);
 411                     }
 412
 413                     ODatasourceSelectDialog aSelector(GetParent(), aInstalledDBs, true,m_pItemSetHelper->getWriteOutputSet());
 414                     if (RET_OK == aSelector.Execute())
 415                     {
 416                         setURLNoPrefix(aSelector.GetSelected());
 417                         //      checkCreateDatabase( ::dbaccess::DST_ADABAS);
 418                         SetRoadmapStateValue(sal_True);
 419                         callModifiedHdl();
 420                     }
 421                 }
 422                 else
 423                 {
 424                     LocalResourceAccess aLocRes( PAGE_CONNECTION, RSC_TABPAGE );
 425                     String sError = String(ModuleRes(STR_NO_ADABASE_DATASOURCES));
 426                     ErrorBox aBox(this, WB_OK, sError);
 427                     aBox.Execute();
 428                 }
 429             }
 430             break;
 431             case  ::dbaccess::DST_MYSQL_ODBC:
 432             case  ::dbaccess::DST_ODBC:
 433             {
 434                 // collect all ODBC data source names
 435                 ::rtl::OUString sCurrDatasource = getURLNoPrefix();
 436                 ::rtl::OUString sDataSource;
 437                 if ( getSelectedDataSource(sDataSource,sCurrDatasource) && sDataSource.getLength() )
 438                 {
 439                     setURLNoPrefix(sDataSource);
 440                     SetRoadmapStateValue(sal_True);
 441                     callModifiedHdl();
 442                 }
 443                 else
 444                     return 1L;
 445             }
 446             break;
 447 #ifdef _ADO_DATALINK_BROWSE_
 448             case  ::dbaccess::DST_ADO:
 449             {
 450                 ::rtl::OUString sOldDataSource=getURLNoPrefix();
 451                 ::rtl::OUString sNewDataSource;
 452                 HWND hWnd = GetParent()->GetSystemData()->hWnd;
 453                 sNewDataSource = getAdoDatalink((long)hWnd,sOldDataSource);
 454                 if ( sNewDataSource.getLength() )
 455                 {
 456                     setURLNoPrefix(sNewDataSource);
 457                     SetRoadmapStateValue(sal_True);
 458                     callModifiedHdl();
 459                 }
 460                 else
 461                     return 1L;
 462             }
 463             break;
 464 #endif
 465             case  ::dbaccess::DST_MOZILLA:
 466             case  ::dbaccess::DST_THUNDERBIRD:
 467             {
 468                 MozillaProductType profileType = MozillaProductType_Mozilla;
 469                 if (eType ==  ::dbaccess::DST_THUNDERBIRD)
 470                     profileType = MozillaProductType_Thunderbird;
 471
 472                 Reference<XMultiServiceFactory> xFactory = ::comphelper::getProcessServiceFactory();
 473                 OSL_ENSURE( xFactory.is(), "can't get service factory" );
 474
 475                 Reference<XInterface> xInstance = xFactory->createInstance(::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.mozilla.MozillaBootstrap")) );
 476                 OSL_ENSURE( xInstance.is(), "failed to create instance" );
 477                 Reference<XMozillaBootstrap> xMozillaBootstrap =  Reference<XMozillaBootstrap>(xInstance,UNO_QUERY);
 478                 OSL_ENSURE( xMozillaBootstrap.is(), "failed to create instance" );
 479
 480                 if (xMozillaBootstrap.is())
 481                 {
 482                     // collect all Mozilla Profiles
 483                     ::com::sun::star::uno::Sequence< ::rtl::OUString > list;
 484
 485                     xMozillaBootstrap->getProfileList( profileType, list );
 486                     const ::rtl::OUString * pArray = list.getConstArray();
 487
 488                     sal_Int32 count = list.getLength();
 489
 490                     StringBag aProfiles;
 491                     for (sal_Int32 index=0; index < count; index++)
 492                         aProfiles.insert(pArray[index]);
 493
 494
 495                     // excute the select dialog
 496                     ODatasourceSelectDialog aSelector(GetParent(), aProfiles, eType);
 497                     ::rtl::OUString sOldProfile=getURLNoPrefix();
 498
 499                     if (sOldProfile.getLength())
 500                         aSelector.Select(sOldProfile);
 501                     else
 502                         aSelector.Select(xMozillaBootstrap->getDefaultProfile(profileType));
 503
 504                     if ( RET_OK == aSelector.Execute() )
 505                         setURLNoPrefix(aSelector.GetSelected());
 506                     break;
 507                 }
 508             }
 509             default:
 510                 break;
 511         }
 512
 513         checkTestConnection();
 514
 515         return 0L;
 516     }
 517
 518     //-------------------------------------------------------------------------
 519
 520     bool OConnectionHelper::checkTestConnection()
 521     {
 522         return true;
 523     }
 524
 525     //-------------------------------------------------------------------------
 526     void OConnectionHelper::impl_setURL( const String& _rURL, sal_Bool _bPrefix )
 527     {
 528         String sURL( _rURL );
 529         DBG_ASSERT( m_pCollection, "OConnectionHelper::impl_setURL: have no interpreter for the URLs!" );
 530
 531         if ( m_pCollection && sURL.Len() )
 532         {
 533             if ( m_pCollection->isFileSystemBased( m_eType ) )
 534             {
 535                 // get the tow parts: prefix and file URL
 536                 String sTypePrefix, sFileURLEncoded;
 537                 if ( _bPrefix )
 538                 {
 539                     sTypePrefix = m_pCollection->getPrefix( m_eType );
 540                     sFileURLEncoded = m_pCollection->cutPrefix( sURL );
 541                 }
 542                 else
 543                 {
 544                     sFileURLEncoded = sURL;
 545                 }
 546
 547                 // substitute any variables
 548                 sFileURLEncoded = SvtPathOptions().SubstituteVariable( sFileURLEncoded );
 549
 550                 // decode the URL
 551                 sURL = sTypePrefix;
 552                 if ( sFileURLEncoded.Len() )
 553                 {
 554                     OFileNotation aFileNotation(sFileURLEncoded);
 555                     // set this decoded URL as text
 556                     sURL += String(aFileNotation.get(OFileNotation::N_SYSTEM));
 557                 }
 558             }
 559         }
 560
 561         if ( _bPrefix )
 562             m_aConnectionURL.SetText( sURL );
 563         else
 564             m_aConnectionURL.SetTextNoPrefix( sURL );
 565
 566         implUpdateURLDependentStates();
 567     }
 568
 569     //-------------------------------------------------------------------------
 570     String OConnectionHelper::impl_getURL( sal_Bool _bPrefix ) const
 571     {
 572         // get the pure text
 573         String sURL = _bPrefix ? m_aConnectionURL.GetText() : m_aConnectionURL.GetTextNoPrefix();
 574
 575         DBG_ASSERT( m_pCollection, "OConnectionHelper::impl_getURL: have no interpreter for the URLs!" );
 576
 577         if ( m_pCollection && sURL.Len() )
 578         {
 579             if ( m_pCollection->isFileSystemBased( m_eType ) )
 580             {
 581                 // get the tow parts: prefix and file URL
 582                 String sTypePrefix, sFileURLDecoded;
 583                 if ( _bPrefix )
 584                 {
 585                     sTypePrefix = m_pCollection->getPrefix( m_eType );
 586                     sFileURLDecoded = m_pCollection->cutPrefix( sURL );
 587                 }
 588                 else
 589                 {
 590                     sFileURLDecoded = sURL;
 591                 }
 592
 593                 sURL = sTypePrefix;
 594                 if ( sFileURLDecoded.Len() )
 595                 {
 596                     OFileNotation aFileNotation( sFileURLDecoded, OFileNotation::N_SYSTEM );
 597                     sURL += String( aFileNotation.get( OFileNotation::N_URL ) );
 598                 }
 599
 600                 // encode the URL
 601                 INetURLObject aFileURL( sFileURLDecoded, INetURLObject::ENCODE_ALL, RTL_TEXTENCODING_UTF8 );
 602                 sFileURLDecoded = aFileURL.GetMainURL( INetURLObject::NO_DECODE );
 603             }
 604         }
 605         return sURL;
 606     }
 607
 608     //-------------------------------------------------------------------------
 609     void OConnectionHelper::setURL( const String& _rURL )
 610     {
 611         impl_setURL( _rURL, sal_True );
 612     }
 613
 614     //-------------------------------------------------------------------------
 615     String OConnectionHelper::getURLNoPrefix( ) const
 616     {
 617         return impl_getURL( sal_False );
 618     }
 619
 620     //-------------------------------------------------------------------------
 621     void OConnectionHelper::setURLNoPrefix( const String& _rURL )
 622     {
 623         impl_setURL( _rURL, sal_False );
 624     }
 625
 626     //-------------------------------------------------------------------------
 627     sal_Int32 OConnectionHelper::checkPathExistence(const String& _rURL)
 628     {
 629         IS_PATH_EXIST e_exists = pathExists(_rURL, sal_False);
 630         if (( e_exists == PATH_NOT_EXIST) || ( e_exists == PATH_NOT_KNOWN))
 631         {
 632             String sQuery(ModuleRes(STR_ASK_FOR_DIRECTORY_CREATION));
 633             OFileNotation aTransformer(_rURL);
 634             sQuery.SearchAndReplaceAscii("$path$", aTransformer.get(OFileNotation::N_SYSTEM));
 635
 636             m_bUserGrabFocus = sal_False;
 637             QueryBox aQuery(GetParent(), WB_YES_NO | WB_DEF_YES, sQuery);
 638             sal_Int32 nQueryResult = aQuery.Execute();
 639             m_bUserGrabFocus = sal_True;
 640
 641             switch (nQueryResult)
 642             {
 643                 case RET_YES:
 644                 {
 645                     sal_Bool bTryCreate = sal_False;
 646                     do
 647                     {
 648                         if ( !createDirectoryDeep(_rURL) )
 649                         {       // could not create the directory
 650                             sQuery = String(ModuleRes(STR_COULD_NOT_CREATE_DIRECTORY));
 651                             sQuery.SearchAndReplaceAscii("$name$", aTransformer.get(OFileNotation::N_SYSTEM));
 652
 653                             m_bUserGrabFocus = sal_False;
 654                             QueryBox aWhatToDo(GetParent(), WB_RETRY_CANCEL | WB_DEF_RETRY, sQuery);
 655                             nQueryResult = aWhatToDo.Execute();
 656                             m_bUserGrabFocus = sal_True;
 657
 658                             if (RET_RETRY == nQueryResult)
 659                                 bTryCreate = sal_True;
 660                             else
 661                             {
 662                                 SetRoadmapStateValue(sal_False);
 663                                 callModifiedHdl();
 664                                 return RET_RETRY;
 665                             }
 666                         }
 667                     }
 668                     while (bTryCreate);
 669                 }
 670                 break;
 671
 672                 case RET_NO:
 673                      // SetRoadmapStateValue(sal_False);
 674                     callModifiedHdl();
 675                     return RET_OK;
 676
 677                 default:
 678                     // cancelled
 679                     SetRoadmapStateValue(sal_False);
 680                     callModifiedHdl();
 681                     return RET_CANCEL;
 682             }
 683         }
 684 /*        else
 685         {
 686             // TODO: error msg
 687             return RET_CANCEL;
 688         } */
 689         SetRoadmapStateValue(sal_True);
 690         callModifiedHdl();
 691         return RET_OK;
 692     }
 693
 694
 695     //-------------------------------------------------------------------------
 696     StringBag OConnectionHelper::getInstalledAdabasDBDirs(const String& _rPath,const ::ucbhelper::ResultSetInclude& _reResultSetInclude)
 697     {
 698         INetURLObject aNormalizer;
 699         aNormalizer.SetSmartProtocol(INET_PROT_FILE);
 700         aNormalizer.SetSmartURL(_rPath);
 701         String sAdabasConfigDir = aNormalizer.GetMainURL(INetURLObject::NO_DECODE);
 702
 703         ::ucbhelper::Content aAdabasConfigDir;
 704         try
 705         {
 706             aAdabasConfigDir = ::ucbhelper::Content(sAdabasConfigDir, Reference< ::com::sun::star::ucb::XCommandEnvironment >());
 707         }
 708         catch(::com::sun::star::ucb::ContentCreationException&)
 709         {
 710             return StringBag();
 711         }
 712
 713         StringBag aInstalledDBs;
 714         sal_Bool bIsFolder = sal_False;
 715         try
 716         {
 717             bIsFolder = aAdabasConfigDir.isFolder();
 718         }
 719         catch(Exception&) // the exception is thrown when the path doesn't exists
 720         {
 721         }
 722         if (bIsFolder && aAdabasConfigDir.get().is())
 723         {       // we have a content for the directory, loop through all entries
 724             Sequence< ::rtl::OUString > aProperties(1);
 725             aProperties[0] = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Title"));
 726
 727             try
 728             {
 729                 Reference< XResultSet > xFiles = aAdabasConfigDir.createCursor(aProperties, _reResultSetInclude);
 730                 Reference< XRow > xRow(xFiles, UNO_QUERY);
 731                 xFiles->beforeFirst();
 732                 while (xFiles->next())
 733                 {
 734 #ifdef DBG_UTIL
 735                     ::rtl::OUString sName = xRow->getString(1);
 736 #endif
 737                     aInstalledDBs.insert(xRow->getString(1));
 738                 }
 739             }
 740             catch(Exception&)
 741             {
 742                 DBG_ERROR("OConnectionHelper::getInstalledAdabasDBDirs: could not enumerate the adabas config files!");
 743             }
 744         }
 745
 746
 747         return aInstalledDBs;
 748     }
 749     // -----------------------------------------------------------------------------
 750     StringBag OConnectionHelper::getInstalledAdabasDBs(const String &_rConfigDir,const String &_rWorkDir)
 751     {
 752         String sAdabasConfigDir(_rConfigDir),sAdabasWorkDir(_rWorkDir);
 753
 754         if (sAdabasConfigDir.Len() && ('/' == sAdabasConfigDir.GetBuffer()[sAdabasConfigDir.Len() - 1]))
 755             sAdabasConfigDir.AppendAscii("config");
 756         else
 757             sAdabasConfigDir.AppendAscii("/config");
 758
 759         if (sAdabasWorkDir.Len() && ('/' == sAdabasWorkDir.GetBuffer()[sAdabasWorkDir.Len() - 1]))
 760             sAdabasWorkDir.AppendAscii("wrk");
 761         else
 762             sAdabasWorkDir.AppendAscii("/wrk");
 763         // collect the names of the installed databases
 764         StringBag aInstalledDBs;
 765         // collect the names of the installed databases
 766         StringBag aConfigDBs,aWrkDBs;
 767         aConfigDBs      = getInstalledAdabasDBDirs(sAdabasConfigDir,::ucbhelper::INCLUDE_DOCUMENTS_ONLY);
 768         aWrkDBs         = getInstalledAdabasDBDirs(sAdabasWorkDir,::ucbhelper::INCLUDE_FOLDERS_ONLY);
 769         ConstStringBagIterator aOuter = aConfigDBs.begin();
 770         ConstStringBagIterator aOuterEnd = aConfigDBs.end();
 771         for(;aOuter != aOuterEnd;++aOuter)
 772         {
 773             ConstStringBagIterator aInner = aWrkDBs.begin();
 774             ConstStringBagIterator aInnerEnd = aWrkDBs.end();
 775             for (;aInner != aInnerEnd; ++aInner)
 776             {
 777                 if (aInner->equalsIgnoreAsciiCase(*aOuter))
 778                 {
 779                     aInstalledDBs.insert(*aInner);
 780                     break;
 781                 }
 782             }
 783         }
 784         return aInstalledDBs;
 785     }
 786     // #106016# -------------------------------------------------------------------
 787     IS_PATH_EXIST OConnectionHelper::pathExists(const ::rtl::OUString& _rURL, sal_Bool bIsFile) const
 788     {
 789         ::ucbhelper::Content aCheckExistence;
 790         sal_Bool bExists = sal_False;
 791         IS_PATH_EXIST eExists = PATH_NOT_EXIST;
 792         Reference< ::com::sun::star::task::XInteractionHandler > xInteractionHandler = Reference< ::com::sun::star::task::XInteractionHandler >(
 793             m_xORB->createInstance( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.task.InteractionHandler") ) ), UNO_QUERY );
 794         OFilePickerInteractionHandler* pHandler = new OFilePickerInteractionHandler(xInteractionHandler);
 795         xInteractionHandler = pHandler;
 796
 797         Reference< XCommandEnvironment > xCmdEnv = new ::ucbhelper::CommandEnvironment( xInteractionHandler, Reference< XProgressHandler >() );
 798         try
 799         {
 800             aCheckExistence = ::ucbhelper::Content(_rURL, xCmdEnv );
 801             bExists = bIsFile? aCheckExistence.isDocument(): aCheckExistence.isFolder();
 802             eExists = bExists? PATH_EXIST: PATH_NOT_EXIST;
 803         }
 804         catch(const Exception&)
 805         {
 806             eExists = ( pHandler && pHandler->isDoesNotExist() ) ? PATH_NOT_EXIST: (bIsFile ? PATH_NOT_EXIST : PATH_NOT_KNOWN);
 807            }
 808         return eExists;
 809     }
 810     //-------------------------------------------------------------------------
 811     long OConnectionHelper::PreNotify( NotifyEvent& _rNEvt )
 812     {
 813         if ( m_pCollection->isFileSystemBased(m_eType) )
 814         {
 815             switch (_rNEvt.GetType())
 816             {
 817                 case EVENT_GETFOCUS:
 818                     if (m_aConnectionURL.IsWindowOrChild(_rNEvt.GetWindow()) && m_bUserGrabFocus)
 819                     {   // a descendant of the URL edit field got the focus
 820                         m_aConnectionURL.SaveValueNoPrefix();
 821                     }
 822                     break;
 823
 824                 case EVENT_LOSEFOCUS:
 825                     if (m_aConnectionURL.IsWindowOrChild(_rNEvt.GetWindow()) && m_bUserGrabFocus)
 826                     {   // a descendant of the URL edit field lost the focus
 827                         if (!commitURL())
 828                             return 1L;  // handled
 829                     }
 830                     break;
 831             } // switch (_rNEvt.GetType())
 832         }
 833
 834         return OGenericAdministrationPage::PreNotify( _rNEvt );
 835     }
 836
 837     //-------------------------------------------------------------------------
 838
 839     sal_Bool OConnectionHelper::createDirectoryDeep(const String& _rPathURL)
 840     {
 841         ::rtl::OUString sPath(_rPathURL);
 842
 843         // get an URL object analyzing the URL for us ...
 844         INetURLObject aParser;
 845         aParser.SetURL(_rPathURL);
 846
 847         INetProtocol eProtocol = aParser.GetProtocol();
 848
 849         ::std::vector< ::rtl::OUString > aToBeCreated;  // the to-be-created levels
 850
 851         // search a level which exists
 852         // #106016# ---------------------
 853         IS_PATH_EXIST eParentExists = PATH_NOT_EXIST;
 854         while ( eParentExists == PATH_NOT_EXIST && aParser.getSegmentCount())
 855         {
 856             aToBeCreated.push_back(aParser.getName());  // remember the local name for creation
 857             aParser.removeSegment();                                    // cut the local name
 858             eParentExists = pathExists(aParser.GetMainURL(INetURLObject::NO_DECODE), sal_False);
 859         }
 860
 861         if (!aParser.getSegmentCount())
 862             return sal_False;
 863
 864         // create all the missing levels
 865         try
 866         {
 867             // the parent content
 868             Reference< XCommandEnvironment > xEmptyEnv;
 869             ::ucbhelper::Content aParent(aParser.GetMainURL(INetURLObject::NO_DECODE), xEmptyEnv);
 870
 871             ::rtl::OUString sContentType;
 872             if ( INET_PROT_FILE == eProtocol )
 873             {
 874                 sContentType = ::rtl::OUString::createFromAscii( "application/vnd.sun.staroffice.fsys-folder" );
 875                 // the file UCP currently does not support the ContentType property
 876             }
 877             else
 878             {
 879                 Any aContentType = aParent.getPropertyValue( ::rtl::OUString::createFromAscii( "ContentType" ) );
 880                 aContentType >>= sContentType;
 881             }
 882
 883             // the properties which need to be set on the new content
 884             Sequence< ::rtl::OUString > aNewDirectoryProperties(1);
 885             aNewDirectoryProperties[0] = ::rtl::OUString::createFromAscii("Title");
 886
 887             // the values to be set
 888             Sequence< Any > aNewDirectoryAttributes(1);
 889
 890             // loop
 891             for (       ::std::vector< ::rtl::OUString >::reverse_iterator aLocalName = aToBeCreated.rbegin();
 892                     aLocalName != aToBeCreated.rend();
 893                     ++aLocalName
 894                 )
 895             {
 896                 aNewDirectoryAttributes[0] <<= *aLocalName;
 897                 if (!aParent.insertNewContent(sContentType, aNewDirectoryProperties, aNewDirectoryAttributes, aParent))
 898                     return sal_False;
 899             }
 900         }
 901         catch ( const Exception& )
 902         {
 903             DBG_UNHANDLED_EXCEPTION();
 904             return sal_False;
 905         }
 906
 907         return sal_True;
 908     }
 909
 910
 911     // -----------------------------------------------------------------------
 912     void OConnectionHelper::fillWindows(::std::vector< ISaveValueWrapper* >& _rControlList)
 913     {
 914         _rControlList.push_back(new ODisableWrapper<FixedText>(&m_aFT_Connection));
 915         _rControlList.push_back(new ODisableWrapper<PushButton>(&m_aPB_Connection));
 916     }
 917
 918
 919     // -----------------------------------------------------------------------
 920     void OConnectionHelper::fillControls(::std::vector< ISaveValueWrapper* >& _rControlList)
 921     {
 922         _rControlList.push_back( new OSaveValueWrapper<Edit>( &m_aConnectionURL ) );
 923     }
 924
 925     //-------------------------------------------------------------------------
 926     sal_Bool OConnectionHelper::commitURL()
 927     {
 928         String sURL;
 929         String sOldPath;
 930         sOldPath = m_aConnectionURL.GetSavedValueNoPrefix();
 931         sURL = m_aConnectionURL.GetTextNoPrefix();
 932
 933         if ( m_pCollection->isFileSystemBased(m_eType) )
 934         {
 935             if ( ( sURL != sOldPath ) && ( 0 != sURL.Len() ) )
 936             {   // the text changed since entering the control
 937
 938                 // the path may be in system notation ....
 939                 OFileNotation aTransformer(sURL);
 940                 sURL = aTransformer.get(OFileNotation::N_URL);
 941
 942                 const ::dbaccess::DATASOURCE_TYPE eType = m_pCollection->determineType(m_eType);
 943
 944                 if ( ( ::dbaccess::DST_CALC == eType) || ( ::dbaccess::DST_MSACCESS == eType) || ( ::dbaccess::DST_MSACCESS_2007 == eType) )
 945                 { // #106016# --------------------------
 946                     if( pathExists(sURL, sal_True) == PATH_NOT_EXIST )
 947                     {
 948                         String sFile = String( ModuleRes( STR_FILE_DOES_NOT_EXIST ) );
 949                         sFile.SearchAndReplaceAscii("$file$", aTransformer.get(OFileNotation::N_SYSTEM));
 950                         OSQLWarningBox( this, sFile ).Execute();
 951                         setURLNoPrefix(sOldPath);
 952                         SetRoadmapStateValue(sal_False);
 953                         callModifiedHdl();
 954                         return sal_False;
 955                     }
 956                 }
 957                 else
 958                 {
 959                     switch (checkPathExistence(sURL))
 960                     {
 961                         case RET_RETRY:
 962                             m_bUserGrabFocus = sal_False;
 963                             m_aConnectionURL.GrabFocus();
 964                             m_bUserGrabFocus = sal_True;
 965                             return sal_False;
 966
 967                         case RET_CANCEL:
 968                             setURLNoPrefix(sOldPath);
 969                             return sal_False;
 970                     }
 971                 }
 972             }
 973         }
 974
 975         setURLNoPrefix(sURL);
 976         m_aConnectionURL.SaveValueNoPrefix();
 977         return sal_True;
 978     }
 979     //-------------------------------------------------------------------------
 980     void OConnectionHelper::askForFileName(::sfx2::FileDialogHelper& _aFileOpen)
 981     {
 982         String sOldPath = getURLNoPrefix();
 983         if ( sOldPath.Len() )
 984             _aFileOpen.SetDisplayDirectory(sOldPath);
 985         else
 986             _aFileOpen.SetDisplayDirectory( SvtPathOptions().GetWorkPath() );
 987         if (0 == _aFileOpen.Execute())
 988         {
 989             setURLNoPrefix(_aFileOpen.GetPath());
 990             SetRoadmapStateValue(checkTestConnection());
 991             callModifiedHdl();
 992         }
 993     }
 994
 995 //.........................................................................
 996 }       // namespace dbaui
 997 //.........................................................................