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