mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
a2d85e0e837ae2387bde6f80ef3baef70334206f
libreoffice/dbaccess/source/ui/dlg/generalpage.cxx

1195 lines
46 KiB
C++
Raw Normal View History

initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
/*************************************************************************
*
* $RCSfile: generalpage.cxx,v $
*
#65293# include CommandAbortedException (solaris can't catch incomplete types)
2001-05-30 14:10:24 +00:00
* $Revision: 1.7 $
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
*
#65293# include CommandAbortedException (solaris can't catch incomplete types)
2001-05-30 14:10:24 +00:00
* last change: $Author: fs $ $Date: 2001-05-30 15:10:24 $
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
*
* - GNU Lesser General Public License Version 2.1
* - Sun Industry Standards Source License Version 1.1
*
* Sun Microsystems Inc., October, 2000
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2000 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
*
* Sun Industry Standards Source License Version 1.1
* =================================================
* The contents of this file are subject to the Sun Industry Standards
* Source License Version 1.1 (the "License"); You may not use this file
* except in compliance with the License. You may obtain a copy of the
* License at http://www.openoffice.org/license.html.
*
* Software provided under this License is provided on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING,
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
* See the License for the specific provisions governing your rights and
* obligations concerning the Software.
*
* The Initial Developer of the Original Code is: Sun Microsystems, Inc..
*
* Copyright: 2000 by Sun Microsystems, Inc.
*
* All Rights Reserved.
*
* Contributor(s): _______________________________________
*
*
************************************************************************/
#ifndef _DBAUI_GENERALPAGE_HXX_
#include "generalpage.hxx"
#endif
#ifndef _DBAUI_TABLESPAGE_HXX_
#include "tablespage.hxx"
#endif
#ifndef _DBAUI_MODULE_DBU_HXX_
#include "moduledbu.hxx"
#endif
#ifndef _DBU_RESOURCE_HRC_
#include "dbu_resource.hrc"
#endif
#ifndef _DBAUI_DBADMIN_HRC_
#include "dbadmin.hrc"
#endif
#ifndef _DBAUI_DATASOURCEITEMS_HXX_
#include "dsitems.hxx"
#endif
#ifndef DBACCESS_SHARED_DBUSTRINGS_HRC
#include "dbustrings.hrc"
#endif
#ifndef _DBAUI_DBADMIN_HXX_
#include "dbadmin.hxx"
#endif
#ifndef _DBAUI_FILENOTATION_HXX_
#include "filenotation.hxx"
#endif
#ifndef _DBAUI_DSSELECT_HXX_
#include "dsselect.hxx"
#endif
#ifndef _DBAUI_ODBC_CONFIG_HXX_
#include "odbcconfig.hxx"
#endif
#87149# addressbook ui impl
2001-05-30 05:05:45 +00:00
#ifndef _OSL_PROCESS_H_
#include <osl/process.h>
#endif
#ifndef _UNOTOOLS_LOCALFILEHELPER_HXX
#include <unotools/localfilehelper.hxx>
#endif
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
#ifndef _FILEDLGHELPER_HXX
#include <sfx2/filedlghelper.hxx>
#endif
#ifndef _TOOLKIT_HELPER_VCLUNOHELPER_HXX_
#include <toolkit/unohlp.hxx>
#endif
#ifndef _VCL_STDTEXT_HXX
#include <vcl/stdtext.hxx>
#endif
#ifndef _SVTOOLS_LOCALRESACCESS_HXX_
#include <svtools/localresaccess.hxx>
#endif
#ifndef _SV_MSGBOX_HXX
#include <vcl/msgbox.hxx>
#endif
#ifndef _SFXSTRITEM_HXX
#include <svtools/stritem.hxx>
#endif
#ifndef _SFXENUMITEM_HXX
#include <svtools/eitem.hxx>
#endif
#ifndef _SFXINTITEM_HXX
#include <svtools/intitem.hxx>
#endif
#ifndef _URLOBJ_HXX
#include <tools/urlobj.hxx>
#endif
#ifndef _COMPHELPER_TYPES_HXX_
#include <comphelper/types.hxx>
#endif
#87149# addressbook ui impl
2001-05-30 05:05:45 +00:00
#ifndef _DBAUI_DETAILPAGES_HXX_
#include "detailpages.hxx"
#endif
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
#ifndef _COM_SUN_STAR_UI_XFOLDERPICKER_HPP_
#include <com/sun/star/ui/XFolderPicker.hpp>
#endif
#ifndef _COM_SUN_STAR_SDBC_XDRIVERACCESS_HPP_
#include <com/sun/star/sdbc/XDriverAccess.hpp>
#endif
#ifndef _COM_SUN_STAR_SDBCX_XCREATECATALOG_HPP_
#include <com/sun/star/sdbcx/XCreateCatalog.hpp>
#endif
#ifndef _COM_SUN_STAR_UI_XEXECUTABLEDIALOG_HPP_
#include <com/sun/star/ui/XExecutableDialog.hpp>
#endif
#65293# include CommandAbortedException (solaris can't catch incomplete types)
2001-05-30 14:10:24 +00:00
#ifndef _COM_SUN_STAR_UCB_COMMANDABORTEDEXCEPTION_HPP_
#include <com/sun/star/ucb/CommandAbortedException.hpp>
#endif
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
#ifndef _COM_SUN_STAR_SDBC_XROW_HPP_
#include <com/sun/star/sdbc/XRow.hpp>
#endif
#ifndef _COM_SUN_STAR_AWT_XWINDOW_HPP_
#include <com/sun/star/awt/XWindow.hpp>
#endif
//.........................................................................
namespace dbaui
{
//.........................................................................
using namespace ::com::sun::star::uno;
using namespace ::com::sun::star::ucb;
using namespace ::com::sun::star::ui;
using namespace ::com::sun::star::ucb;
using namespace ::com::sun::star::sdbc;
using namespace ::com::sun::star::sdbcx;
using namespace ::com::sun::star::beans;
using namespace ::com::sun::star::lang;
using namespace ::com::sun::star::i18n;
using namespace ::com::sun::star::container;
using namespace ::com::sun::star::frame;
using namespace ::dbtools;
using namespace ::svt;
//=========================================================================
//= OGeneralPage
//=========================================================================
//-------------------------------------------------------------------------
OGeneralPage::OGeneralPage(Window* pParent, const SfxItemSet& _rItems)
:OGenericAdministrationPage(pParent, ModuleRes(PAGE_GENERAL), _rItems)
,m_aNameLabel (this, ResId(FT_DATASOURCENAME))
,m_aName (this, ResId(ET_DATASOURCENAME))
,m_aTypeBox (this, ResId(FL_SEPARATOR1))
,m_aDatasourceTypeLabel (this, ResId(FT_DATATYPE))
,m_aDatasourceType (this, ResId(LB_DATATYPE))
,m_aConnectionLabel (this, ResId(FT_CONNECTURL))
,m_aConnection (this, ResId(ET_CONNECTURL))
,m_aBrowseConnection (this, ResId(PB_BROWSECONNECTION))
,m_aCreateDatabase (this, ResId(PB_CREATEDATABASE))
// ,m_aTimeoutLabel (this, ResId(FT_LOGINTIMEOUT))
// ,m_aTimeoutNumber (this, ResId(ET_TIMEOUT_NUMBER))
// ,m_aTimeoutUnit (this, ResId(LB_TIMEOUT_UNIT))
,m_aSpecialMessage (this, ResId(FT_SPECIAL_MESSAGE))
,m_pCollection(NULL)
,m_eCurrentSelection(DST_UNKNOWN)
,m_eNotSupportedKnownType(DST_UNKNOWN)
,m_bDisplayingInvalid(sal_False)
,m_pAdminDialog(NULL)
,m_nCacheSize(0)
,m_bUserGrabFocus(sal_True)
,m_eLastMessage(smNone)
{
// fill the listbox with the UI descriptions for the possible types
// and remember the respective DSN prefixes
FreeResource();
// first we hide this buton
m_aCreateDatabase.Hide();
// extract the datasource type collection from the item set
DbuTypeCollectionItem* pCollectionItem = PTR_CAST(DbuTypeCollectionItem, _rItems.GetItem(DSID_TYPECOLLECTION));
if (pCollectionItem)
m_pCollection = pCollectionItem->getCollection();
DBG_ASSERT(m_pCollection, "OGeneralPage::OGeneralPage : really need a DSN type collection !");
// initially fill the listbox
if (m_pCollection)
{
for ( ODsnTypeCollection::TypeIterator aTypeLoop = m_pCollection->begin();
aTypeLoop != m_pCollection->end();
++aTypeLoop
)
{
DATASOURCE_TYPE eType = aTypeLoop.getType();
sal_Int32 nPos = m_aDatasourceType.InsertEntry(aTypeLoop.getDisplayName());
m_aDatasourceType.SetEntryData((sal_uInt16)nPos, reinterpret_cast<void*>(eType));
}
}
// do some knittings
m_aDatasourceType.SetSelectHdl(LINK(this, OGeneralPage, OnDatasourceTypeSelected));
m_aName.SetModifyHdl(LINK(this, OGeneralPage, OnNameModified));
m_aConnection.SetModifyHdl(getControlModifiedLink());
m_aBrowseConnection.SetClickHdl(LINK(this, OGeneralPage, OnBrowseConnections));
m_aCreateDatabase.SetClickHdl(LINK(this, OGeneralPage, OnCreateDatabase));
}
//-------------------------------------------------------------------------
void OGeneralPage::initializeTypeList()
{
m_aDatasourceType.Clear();
Reference< XDriverAccess > xDriverManager;
// get the driver manager, to ask it for all known URL prefixes
DBG_ASSERT(m_xORB.is(), "OGeneralPage::initializeTypeList: have no service factory!");
if (m_xORB.is())
{
xDriverManager = Reference< XDriverAccess >(m_xORB->createInstance(SERVICE_SDBC_CONNECTIONPOOL), UNO_QUERY);
if (!xDriverManager.is())
xDriverManager = Reference< XDriverAccess >(m_xORB->createInstance(SERVICE_SDBC_DRIVERMANAGER), UNO_QUERY);
if (!xDriverManager.is())
ShowServiceNotAvailableError(GetParent(), String(SERVICE_SDBC_DRIVERMANAGER), sal_True);
}
if (m_pCollection)
{
for ( ODsnTypeCollection::TypeIterator aTypeLoop = m_pCollection->begin();
aTypeLoop != m_pCollection->end();
++aTypeLoop
)
{
DATASOURCE_TYPE eType = aTypeLoop.getType();
if (xDriverManager.is())
{ // we have a driver manager to check
::rtl::OUString sURLPrefix = m_pCollection->getDatasourcePrefix(eType);
if (!xDriverManager->getDriverByURL(sURLPrefix).is())
// we have no driver for this prefix
// -> omit it
continue;
}
sal_Int32 nPos = m_aDatasourceType.InsertEntry(aTypeLoop.getDisplayName());
m_aDatasourceType.SetEntryData((sal_uInt16)nPos, reinterpret_cast<void*>(eType));
}
}
}
//-------------------------------------------------------------------------
void OGeneralPage::initializeHistory()
{
m_aSelectionHistory.clear();
if (m_pCollection)
{
for ( ODsnTypeCollection::TypeIterator aTypeLoop = m_pCollection->begin();
aTypeLoop != m_pCollection->end();
++aTypeLoop
)
m_aSelectionHistory[aTypeLoop.getType()] = m_pCollection->getDatasourcePrefix(aTypeLoop.getType());
}
}
//-------------------------------------------------------------------------
void OGeneralPage::GetFocus()
{
OGenericAdministrationPage::GetFocus();
if (m_aName.IsEnabled())
m_aName.GrabFocus();
}
//-------------------------------------------------------------------------
sal_Bool OGeneralPage::isBrowseable(DATASOURCE_TYPE _eType) const
{
switch (_eType)
{
case DST_DBASE:
case DST_TEXT:
case DST_ADABAS:
case DST_ODBC:
case DST_CALC:
#87149# addressbook ui impl
2001-05-29 12:33:12 +00:00
case DST_ADDRESSBOOK:
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
return sal_True;
}
return sal_False;
}
//-------------------------------------------------------------------------
void OGeneralPage::checkCreateDatabase(DATASOURCE_TYPE _eType)
{
static BOOL bServiceFound = FALSE;
OSL_ENSURE(m_pAdminDialog,"No parent set!");
if(_eType == DST_ADABAS && m_pAdminDialog && !bServiceFound)
{
#87531# +SERVICE_EXTENDED_ADABAS_DRIVER (instead of hard coding the string)
2001-05-30 05:48:21 +00:00
Reference<XCreateCatalog> xCatalog(m_xORB->createInstance(SERVICE_EXTENDED_ADABAS_DRIVER),UNO_QUERY);
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
bServiceFound = xCatalog.is();
}
m_aCreateDatabase.Show(_eType == DST_ADABAS && bServiceFound);
}
//-------------------------------------------------------------------------
void OGeneralPage::previousMessage()
{
SPECIAL_MESSAGE eSwitchPrevious = m_eLastMessage;
m_eLastMessage = smNone;
switchMessage(eSwitchPrevious);
}
//-------------------------------------------------------------------------
void OGeneralPage::switchMessage(const SPECIAL_MESSAGE _eType)
{
if (_eType == m_eLastMessage)
return;
sal_uInt16 nResId = 0;
switch (_eType)
{
case smInvalidName: nResId = STR_NAMEINVALID; break;
case smDatasourceDeleted: nResId = STR_DATASOURCEDELETED; break;
case smUnsupportedType: nResId = STR_UNSUPPORTED_DATASOURCE_TYPE; break;
}
String sMessage;
if (nResId)
{
OLocalResourceAccess aStringResAccess(ModuleRes(PAGE_GENERAL), RSC_TABPAGE);
sMessage = String(ResId(nResId));
}
m_aSpecialMessage.SetText(sMessage);
m_eLastMessage = _eType;
}
//-------------------------------------------------------------------------
void OGeneralPage::onTypeSelected(const DATASOURCE_TYPE _eType)
{
m_aBrowseConnection.Enable(isBrowseable(_eType));
checkCreateDatabase(_eType);
// update the selection history
m_aSelectionHistory[m_eCurrentSelection] = m_aConnection.GetText();
// the the new URL text as indicated by the selection history
m_eCurrentSelection = _eType;
m_aConnection.SetText(m_aSelectionHistory[m_eCurrentSelection]);
if (_eType == m_eNotSupportedKnownType)
switchMessage(smUnsupportedType);
else
switchMessage(smNone);
if (m_aTypeSelectHandler.IsSet())
m_aTypeSelectHandler.Call(this);
}
//-------------------------------------------------------------------------
sal_Bool OGeneralPage::checkItems()
{
if ((0 == m_aName.GetText().Len()) && !m_bDisplayingInvalid)
{
String sErrorMsg(ModuleRes(STR_ERR_EMPTY_DSN_NAME));
ErrorBox aErrorBox(GetParent(), WB_OK, sErrorMsg);
aErrorBox.Execute();
m_aName.GrabFocus();
return sal_False;
}
if (!commitURL())
return sal_False;
return sal_True;
}
//-------------------------------------------------------------------------
void OGeneralPage::implInitControls(const SfxItemSet& _rSet, sal_Bool _bSaveValue)
{
initializeHistory();
initializeTypeList();
// first check whether or not the selection is invalid or readonly (invalid implies readonly, but not vice versa)
sal_Bool bValid, bReadonly;
getFlags(_rSet, bValid, bReadonly);
// if the selection is invalid, disable evrything
m_aNameLabel.Enable(bValid);
m_aName.Enable(bValid);
m_aTypeBox.Enable(bValid);
m_aDatasourceTypeLabel.Enable(bValid);
m_aDatasourceType.Enable(bValid);
m_aConnectionLabel.Enable(bValid);
m_aConnection.Enable(bValid);
m_aBrowseConnection.Enable(bValid);
String sConnectURL, sName;
SPECIAL_MESSAGE eSpecialMessage = smNone;
m_bDisplayingInvalid = !bValid;
if (bValid)
{
// collect some items and some values
SFX_ITEMSET_GET(_rSet, pUrlItem, SfxStringItem, DSID_CONNECTURL, sal_True);
SFX_ITEMSET_GET(_rSet, pNameItem, SfxStringItem, DSID_NAME, sal_True);
DBG_ASSERT(pUrlItem, "OGeneralPage::implInitControls : missing the type attribute !");
DBG_ASSERT(pNameItem, "OGeneralPage::implInitControls : missing the name attribute !");
sConnectURL = pUrlItem->GetValue();
sName = pNameItem->GetValue();
}
else
{
SFX_ITEMSET_GET(_rSet, pDeleted, SfxBoolItem, DSID_DELETEDDATASOURCE, sal_True);
if (pDeleted && pDeleted->GetValue())
{
eSpecialMessage = smDatasourceDeleted;
}
}
// compare the DSN prefix with the registered ones
String sDisplayName;
DATASOURCE_TYPE eOldSelection = m_eCurrentSelection;
m_eCurrentSelection = m_eNotSupportedKnownType = DST_UNKNOWN;
if (m_pCollection && bValid)
{
m_eCurrentSelection = m_pCollection->getType(sConnectURL);
sDisplayName = m_pCollection->getTypeDisplayName(m_eCurrentSelection);
}
m_aBrowseConnection.Enable(bValid && isBrowseable(m_eCurrentSelection));
checkCreateDatabase(m_eCurrentSelection);
// select the correct datasource type
if (LISTBOX_ENTRY_NOTFOUND == m_aDatasourceType.GetEntryPos(sDisplayName))
{ // the type is not available on this platform (we omitted it in initializeTypeList)
if (sDisplayName.Len())
{ // this indicates it's really a type which is known in general, but not supported on the current platform
// show a message saying so
eSpecialMessage = smUnsupportedType;
// insert a (temporary) entry
sal_uInt16 nPos = m_aDatasourceType.InsertEntry(sDisplayName);
m_aDatasourceType.SetEntryData(nPos, reinterpret_cast<void*>(m_eCurrentSelection));
// remember this type so we can show the special message again if the user selects this
// type again (without changing the data source)
m_eNotSupportedKnownType = m_eCurrentSelection;
}
}
m_aDatasourceType.SelectEntry(sDisplayName);
if (_bSaveValue)
m_aDatasourceType.SaveValue();
// notify our listener that our type selection has changed (if so)
if (eOldSelection != m_eCurrentSelection)
onTypeSelected(m_eCurrentSelection);
m_aConnection.SetText(sConnectURL);
if (_bSaveValue)
{
m_aConnection.SaveValue();
m_aConnection.SaveValueNoPrefix();
}
// the datasource name
m_aName.SetText(sName);
if (_bSaveValue)
m_aName.SaveValue();
// a special message for the current page state
switchMessage(eSpecialMessage);
}
//-------------------------------------------------------------------------
SfxTabPage* OGeneralPage::Create(Window* _pParent, const SfxItemSet& _rAttrSet)
{
return ( new OGeneralPage( _pParent, _rAttrSet ) );
}
//-------------------------------------------------------------------------
void OGeneralPage::Reset(const SfxItemSet& _rCoreAttrs)
{
m_eCurrentSelection = DST_UNKNOWN;
// this ensures that our type selection link will be called, even if the new is is the same as the
// current one
OGenericAdministrationPage::Reset(_rCoreAttrs);
// there are some things which depend on the current name
LINK(this, OGeneralPage, OnNameModified).Call(&m_aName);
}
//-------------------------------------------------------------------------
BOOL OGeneralPage::FillItemSet(SfxItemSet& _rCoreAttrs)
{
sal_Bool bChangedSomething = sal_False;
if (m_aName.GetText() != m_aName.GetSavedValue())
{
_rCoreAttrs.Put(SfxStringItem(DSID_NAME, m_aName.GetText()));
bChangedSomething = sal_True;
}
if ((m_aConnection.GetText() != m_aConnection.GetSavedValue()) || (m_aDatasourceType.GetSavedValue() != m_aDatasourceType.GetSelectEntryPos()))
{
_rCoreAttrs.Put(SfxStringItem(DSID_CONNECTURL, m_aConnection.GetText()));
bChangedSomething = sal_True;
}
if(m_sControlUser.Len())
{
_rCoreAttrs.Put(SfxStringItem(DSID_CONN_CTRLUSER, m_sControlUser));
bChangedSomething = sal_True;
}
if(m_sControlPassword.Len())
{
_rCoreAttrs.Put(SfxStringItem(DSID_CONN_CTRLPWD, m_sControlPassword));
bChangedSomething = sal_True;
}
if(m_sUser.Len())
{
_rCoreAttrs.Put(SfxStringItem(DSID_USER, m_sUser));
_rCoreAttrs.Put(SfxBoolItem(DSID_PASSWORDREQUIRED, sal_True));
bChangedSomething = sal_True;
}
if(m_sUserPassword.Len())
{
_rCoreAttrs.Put(SfxStringItem(DSID_PASSWORD, m_sUserPassword));
bChangedSomething = sal_True;
}
if(!m_nCacheSize)
{
_rCoreAttrs.Put(SfxInt32Item(DSID_CONN_CACHESIZE, m_nCacheSize));
bChangedSomething = sal_True;
}
return bChangedSomething;
}
//-------------------------------------------------------------------------
IMPL_LINK(OGeneralPage, OnNameModified, Edit*, _pBox)
{
sal_Bool bNewNameValid = sal_True;
if (m_aNameModifiedHandler.IsSet())
bNewNameValid = (0L != m_aNameModifiedHandler.Call(this));
if (m_aName.IsEnabled())
{ // (this way we prevent overwriting a "this datasource is deleted" message)
// show a text if the name is invalid
if (bNewNameValid)
previousMessage();
else
switchMessage(smInvalidName);
}
return 0L;
}
//-------------------------------------------------------------------------
IMPL_LINK(OGeneralPage, OnCreateDatabase, PushButton*, _pButton)
{
switch (GetSelectedType())
{
case DST_ADABAS:
{
OSL_ENSURE(m_pAdminDialog,"Parent not set!");
try
{
#87531# +SERVICE_EXTENDED_ADABAS_DRIVER (instead of hard coding the string)
2001-05-30 05:48:21 +00:00
Reference<XCreateCatalog> xCatalog(m_xORB->createInstance(SERVICE_EXTENDED_ADABAS_DRIVER),UNO_QUERY);
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
if(xCatalog.is())
{
Sequence< Any > aArgs(2);
aArgs[0] <<= PropertyValue(::rtl::OUString::createFromAscii("CreateCatalog"), 0,makeAny(xCatalog) , PropertyState_DIRECT_VALUE);
aArgs[1] <<= PropertyValue(PROPERTY_PARENTWINDOW, 0, makeAny(VCLUnoHelper::GetInterface(this)), PropertyState_DIRECT_VALUE);
Reference< XExecutableDialog > xDialog(
m_xORB->createInstanceWithArguments(SERVICE_SDB_ADABASCREATIONDIALOG, aArgs), UNO_QUERY);
if (!xDialog.is())
{
ShowServiceNotAvailableError(GetParent(), String(SERVICE_SDB_ADABASCREATIONDIALOG), sal_True);
break;
}
if(xDialog->execute() == RET_OK)
{
Reference<XPropertySet> xProp(xDialog,UNO_QUERY);
if(xProp.is())
{
Reference<XPropertySetInfo> xPropInfo(xProp->getPropertySetInfo());
if(xPropInfo->hasPropertyByName(PROPERTY_DATABASENAME))
{
String sDatabaseName;
sDatabaseName = String(::comphelper::getString(xProp->getPropertyValue(PROPERTY_DATABASENAME)));
m_aConnection.SetTextNoPrefix(sDatabaseName);
callModifiedHdl();
}
if(xPropInfo->hasPropertyByName(PROPERTY_CONTROLUSER))
m_sControlUser = ::comphelper::getString(xProp->getPropertyValue(PROPERTY_CONTROLUSER));
if(xPropInfo->hasPropertyByName(PROPERTY_CONTROLPASSWORD))
m_sControlPassword = ::comphelper::getString(xProp->getPropertyValue(PROPERTY_CONTROLPASSWORD));
if(xPropInfo->hasPropertyByName(PROPERTY_USER))
m_sUser = ::comphelper::getString(xProp->getPropertyValue(PROPERTY_USER));
if(xPropInfo->hasPropertyByName(PROPERTY_PASSWORD))
m_sUserPassword = ::comphelper::getString(xProp->getPropertyValue(PROPERTY_PASSWORD));
if(xPropInfo->hasPropertyByName(PROPERTY_CACHESIZE))
xProp->getPropertyValue(PROPERTY_CACHESIZE) >>= m_nCacheSize;
callModifiedHdl();
}
}
}
}
catch(Exception&)
{
}
}
break;
default:
OSL_ENSURE(sal_False, "OGeneralPage::OnCreateDatabase: invalid type!");
}
return 0L;
}
//-------------------------------------------------------------------------
sal_Bool OGeneralPage::createDirectoryDeep(const String& _rPathURL)
{
::rtl::OUString sPath(_rPathURL);
// get an URL object analyzing the URL for us ...
INetURLObject aParser;
aParser.SetURL(_rPathURL);
::std::vector< ::rtl::OUString > aToBeCreated; // the to-be-created levels
// search a level which exists
sal_Bool bParentExists = sal_False;
while (!bParentExists && aParser.getSegmentCount())
{
aToBeCreated.push_back(aParser.getName()); // remember the local name for creation
aParser.removeSegment(); // cut the local name
bParentExists = directoryExists(aParser.GetMainURL());
}
if (!aParser.getSegmentCount())
return sal_False;
// create all the missing levels
try
{
// the parent content
Reference< XCommandEnvironment > xEmptyEnv;
::ucb::Content aParent(aParser.GetMainURL(), xEmptyEnv);
const ::rtl::OUString sDirectoryContentType = ::rtl::OUString::createFromAscii("application/vnd.sun.staroffice.fsys-folder");
// the properties which need to be set on the new content
Sequence< ::rtl::OUString > aNewDirectoryProperties(1);
aNewDirectoryProperties[0] = ::rtl::OUString::createFromAscii("Title");
// the values to be set
Sequence< Any > aNewDirectoryAttributes(1);
// loop
for ( ::std::vector< ::rtl::OUString >::reverse_iterator aLocalName = aToBeCreated.rbegin();
aLocalName != aToBeCreated.rend();
++aLocalName
)
{
aNewDirectoryAttributes[0] <<= *aLocalName;
if (!aParent.insertNewContent(sDirectoryContentType, aNewDirectoryProperties, aNewDirectoryAttributes, aParent))
return sal_False;
}
}
catch (const CommandAbortedException&)
{
return sal_False;
}
catch (const Exception&)
{
DBG_ERROR("OGeneralPage::createDirectoryDeep: strange exception caught!");
return sal_False;
}
return sal_True;
}
//-------------------------------------------------------------------------
sal_Bool OGeneralPage::directoryExists(const ::rtl::OUString& _rURL) const
{
::ucb::Content aCheckExistence;
sal_Bool bExists = sal_False;
try
{
aCheckExistence = ::ucb::Content(_rURL, Reference< XCommandEnvironment >());
bExists = aCheckExistence.isFolder();
}
catch(const Exception&) { }
return bExists;
}
//-------------------------------------------------------------------------
sal_Int32 OGeneralPage::checkPathExistence(const String& _rURL)
{
if (!directoryExists(_rURL))
{
String sQuery(ModuleRes(STR_ASK_FOR_DIRECTORY_CREATION));
OFileNotation aTransformer(_rURL, OFileNotation::N_URL);
sQuery.SearchAndReplaceAscii("$path$", aTransformer.get(OFileNotation::N_SYSTEM));
m_bUserGrabFocus = sal_False;
QueryBox aQuery(GetParent(), WB_YES_NO | WB_DEF_YES, sQuery);
sal_Int32 nQueryResult = aQuery.Execute();
m_bUserGrabFocus = sal_True;
switch (nQueryResult)
{
case RET_YES:
{
sal_Bool bTryCreate = sal_False;
do
{
if (!createDirectoryDeep(_rURL))
{ // could not create the directory
sQuery = String(ModuleRes(STR_COULD_NOT_CREATE_DIRECTORY));
sQuery.SearchAndReplaceAscii("$name$", aTransformer.get(OFileNotation::N_SYSTEM));
m_bUserGrabFocus = sal_False;
QueryBox aWhatToDo(GetParent(), WB_RETRY_CANCEL | WB_DEF_RETRY, sQuery);
nQueryResult = aWhatToDo.Execute();
m_bUserGrabFocus = sal_True;
if (RET_RETRY == nQueryResult)
bTryCreate = sal_True;
else
return RET_RETRY;
}
}
while (bTryCreate);
}
break;
case RET_NO:
return RET_OK;
default:
// cancelled
return RET_CANCEL;
}
}
return RET_OK;
}
//-------------------------------------------------------------------------
sal_Bool OGeneralPage::commitURL()
{
if ((DST_DBASE == m_eCurrentSelection) || (DST_TEXT == m_eCurrentSelection))
{
String sOldPath = m_aConnection.GetSavedValueNoPrefix();
String sURL = m_aConnection.GetTextNoPrefix();
if ((sURL != sOldPath) && (0 != sURL.Len()))
{ // the text changed since entering the control
// the path may be in system notation ....
OFileNotation aTransformer(sURL, OFileNotation::N_DETECT);
sURL = aTransformer.get(OFileNotation::N_URL);
switch (checkPathExistence(sURL))
{
case RET_RETRY:
m_bUserGrabFocus = sal_False;
m_aConnection.GrabFocus();
m_bUserGrabFocus = sal_True;
return sal_False;
case RET_CANCEL:
m_aConnection.SetText(sOldPath);
return sal_False;
default:
// accept the input
m_aConnection.SetTextNoPrefix(sURL);
m_aConnection.SaveValueNoPrefix();
break;
}
}
}
return sal_True;
}
//-------------------------------------------------------------------------
long OGeneralPage::PreNotify( NotifyEvent& _rNEvt )
{
if ((DST_DBASE == m_eCurrentSelection) || (DST_TEXT == m_eCurrentSelection))
switch (_rNEvt.GetType())
{
case EVENT_GETFOCUS:
if (m_aConnection.IsWindowOrChild(_rNEvt.GetWindow()) && m_bUserGrabFocus)
{ // a descendant of the URL edit field got the focus
m_aConnection.SaveValueNoPrefix();
}
break;
case EVENT_LOSEFOCUS:
if (m_aConnection.IsWindowOrChild(_rNEvt.GetWindow()) && m_bUserGrabFocus)
{ // a descendant of the URL edit field lost the focus
if (!commitURL())
return 1L; // handled
}
break;
}
return OGenericAdministrationPage::PreNotify( _rNEvt );
}
//-------------------------------------------------------------------------
IMPL_LINK(OGeneralPage, OnBrowseConnections, PushButton*, _pButton)
{
switch (GetSelectedType())
{
case DST_DBASE:
case DST_TEXT:
{
try
{
::rtl::OUString sFolderPickerService = ::rtl::OUString::createFromAscii(SERVICE_UI_FOLDERPICKER);
Reference< XFolderPicker > xFolderPicker(m_xORB->createInstance(sFolderPickerService), UNO_QUERY);
if (!xFolderPicker.is())
{
ShowServiceNotAvailableError(GetParent(), sFolderPickerService, sal_True);
break;
}
sal_Bool bDoBrowse = sal_False;
String sOldPath = m_aConnection.GetTextNoPrefix();
do
{
if (sOldPath.Len())
xFolderPicker->setDisplayDirectory(sOldPath);
if (0 == xFolderPicker->execute())
// cancelled by the user
return 0L;
sOldPath = xFolderPicker->getDisplayDirectory();
switch (checkPathExistence(sOldPath))
{
case RET_RETRY:
bDoBrowse = sal_True;
break;
case RET_CANCEL:
return 0L;
default:
break;
}
}
while (bDoBrowse);
m_aConnection.SetTextNoPrefix(xFolderPicker->getDisplayDirectory());
callModifiedHdl();
}
catch(const Exception&)
{
DBG_ERROR("OGeneralPage::OnBrowseConnections: caught an exception while browsing for the path!");
}
}
break;
case DST_CALC:
{
::sfx2::FileDialogHelper aFileDlg(WB_3DLOOK | WB_STDMODAL | WB_OPEN);
String sOldPath = m_aConnection.GetTextNoPrefix();
if (sOldPath.Len())
aFileDlg.SetDisplayDirectory(sOldPath);
if (0 == aFileDlg.Execute())
{
m_aConnection.SetTextNoPrefix(aFileDlg.GetPath());
callModifiedHdl();
}
}
break;
case DST_ADABAS:
{
// collect all names from the config dir
// and all dir's of the DBWORK/wrk or DBROOT/wrk dir
// compare the names
// collect the names of the installed databases
StringBag aInstalledDBs;
#87149# addressbook ui impl
2001-05-29 12:33:12 +00:00
::rtl::OUString sAdabasConfigDir,sAdabasWorkDir,sRootDir;
::rtl::OUString sTemp = ::rtl::OUString::createFromAscii("DBWORK");
rtl_uString* pDbVar = NULL;
if(osl_getEnvironment(sTemp.pData,&pDbVar) == osl_Process_E_None && pDbVar)
{
sAdabasWorkDir = pDbVar;
String sTemp;
sal_Bool bOk = utl::LocalFileHelper::ConvertPhysicalNameToURL(sAdabasWorkDir,sTemp);
sAdabasWorkDir = sTemp;
rtl_uString_release(pDbVar);
pDbVar = NULL;
}
sTemp = ::rtl::OUString::createFromAscii("DBCONFIG");
if(osl_getEnvironment(sTemp.pData,&pDbVar) == osl_Process_E_None && pDbVar)
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
{
#87149# addressbook ui impl
2001-05-29 12:33:12 +00:00
sAdabasConfigDir = pDbVar;
String sTemp;
sal_Bool bOk = utl::LocalFileHelper::ConvertPhysicalNameToURL(sAdabasConfigDir,sTemp);
sAdabasConfigDir = sTemp;
rtl_uString_release(pDbVar);
pDbVar = NULL;
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
}
#87149# addressbook ui impl
2001-05-29 12:33:12 +00:00
sTemp = ::rtl::OUString::createFromAscii("DBROOT");
if(osl_getEnvironment(sTemp.pData,&pDbVar) == osl_Process_E_None && pDbVar)
{
sRootDir = pDbVar;
String sTemp;
sal_Bool bOk = utl::LocalFileHelper::ConvertPhysicalNameToURL(sRootDir,sTemp);
sRootDir = sTemp;
rtl_uString_release(pDbVar);
pDbVar = NULL;
}
sal_Bool bOldFashion = sAdabasConfigDir.getLength() && sAdabasWorkDir.getLength();
if(!bOldFashion) // we have a normal adabas installation
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
{ // so we check the local database names in $DBROOT/config
#87149# addressbook ui impl
2001-05-29 12:33:12 +00:00
sAdabasConfigDir = sRootDir;
sAdabasWorkDir = sRootDir;
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
}
#87149# addressbook ui impl
2001-05-29 12:33:12 +00:00
if(sAdabasConfigDir.getLength() && sAdabasWorkDir.getLength() && sRootDir.getLength())
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
{
aInstalledDBs = getInstalledAdabasDBs(sAdabasConfigDir,sAdabasWorkDir);
if(!aInstalledDBs.size() && bOldFashion)
{
#87149# addressbook ui impl
2001-05-29 12:33:12 +00:00
sAdabasConfigDir = sRootDir;
sAdabasWorkDir = sRootDir;
aInstalledDBs = getInstalledAdabasDBs(sAdabasConfigDir,sAdabasWorkDir);
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
}
ODatasourceSelectDialog aSelector(GetParent(), aInstalledDBs, GetSelectedType());
if (RET_OK == aSelector.Execute())
{
String aSelected;
aSelected.AssignAscii(":");
aSelected += aSelector.GetSelected();
m_aConnection.SetTextNoPrefix(aSelected);
callModifiedHdl();
}
}
else
{
OLocalResourceAccess aLocRes(ModuleRes(PAGE_GENERAL), RSC_TABPAGE);
String sError(ResId(STR_NO_ADABASE_DATASOURCES));
ErrorBox aBox(this, WB_OK, sError);
aBox.Execute();
}
}
break;
case DST_ODBC:
{
// collect all ODBC data source names
StringBag aOdbcDatasources;
OOdbcEnumeration aEnumeration;
if (!aEnumeration.isLoaded())
{
// show an error message
OLocalResourceAccess aLocRes(ModuleRes(PAGE_GENERAL), RSC_TABPAGE);
String sError(ResId(STR_COULDNOTLOAD_ODBCLIB));
sError.SearchAndReplaceAscii("#lib#", aEnumeration.getLibraryName());
ErrorBox aDialog(this, WB_OK, sError);
aDialog.Execute();
return 1L;
}
else
{
aEnumeration.getDatasourceNames(aOdbcDatasources);
// excute the select dialog
ODatasourceSelectDialog aSelector(GetParent(), aOdbcDatasources, GetSelectedType());
if (RET_OK == aSelector.Execute())
{
m_aConnection.SetTextNoPrefix(aSelector.GetSelected());
callModifiedHdl();
}
}
}
break;
#87149# addressbook ui impl
2001-05-29 12:33:12 +00:00
case DST_ADDRESSBOOK:
{
static ::rtl::OUString sAddressBookTypes[]=
{
::rtl::OUString::createFromAscii("sdbc:address:outlook"),
::rtl::OUString::createFromAscii("sdbc:address:outlookexp"),
::rtl::OUString::createFromAscii("sdbc:address:ldap"),
::rtl::OUString::createFromAscii("sdbc:address:mozilla")
};
static String sAddressBookTypesTrans[]=
{
String(ModuleRes(STR_ADDRESSBOOK_OUTLOOK)),
String(ModuleRes(STR_ADDRESSBOOK_SYSTEM)),
String(ModuleRes(STR_ADDRESSBOOK_LDAP)),
String(ModuleRes(STR_ADDRESSBOOK_MOZILLA))
};
StringBag aAddressBooks;
Reference< XDriverAccess> xManager(m_pAdminDialog->getORB()->createInstance(SERVICE_SDBC_DRIVERMANAGER), UNO_QUERY);
for(sal_Int32 i=0;i<sizeof(sAddressBookTypes)/sizeof(::rtl::OUString);++i)
{
if(xManager->getDriverByURL(sAddressBookTypes[i]).is())
aAddressBooks.insert(sAddressBookTypesTrans[i]);
}
ODatasourceSelectDialog aSelector(GetParent(), aAddressBooks, GetSelectedType());
if (RET_OK == aSelector.Execute())
{
String sType = aSelector.GetSelected();
sal_Int32 nPos=0;
for(;nPos < sizeof(sAddressBookTypes)/sizeof(::rtl::OUString) && sType != sAddressBookTypesTrans[nPos];++nPos)
;
m_aConnection.SetText(sAddressBookTypes[nPos]);
if(nPos == 2)
m_pAdminDialog->addDetailPage(PAGE_LDAP,STR_PAGETITLE_LDAP,OLDAPDetailsPage::Create);
else
m_pAdminDialog->removeDetailPages();
callModifiedHdl();
}
}
break;
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
}
return 0L;
}
// -----------------------------------------------------------------------------
StringBag OGeneralPage::getInstalledAdabasDBs(const String &_rConfigDir,const String &_rWorkDir)
{
String sAdabasConfigDir(_rConfigDir),sAdabasWorkDir(_rWorkDir);
if (sAdabasConfigDir.Len() && ('/' == sAdabasConfigDir.GetBuffer()[sAdabasConfigDir.Len() - 1]))
sAdabasConfigDir.AppendAscii("config");
else
sAdabasConfigDir.AppendAscii("/config");
if (sAdabasWorkDir.Len() && ('/' == sAdabasWorkDir.GetBuffer()[sAdabasWorkDir.Len() - 1]))
sAdabasWorkDir.AppendAscii("wrk");
else
sAdabasWorkDir.AppendAscii("/wrk");
// collect the names of the installed databases
StringBag aInstalledDBs;
// collect the names of the installed databases
StringBag aConfigDBs,aWrkDBs;
aConfigDBs = getInstalledAdabasDBDirs(sAdabasConfigDir,::ucb::INCLUDE_DOCUMENTS_ONLY);
aWrkDBs = getInstalledAdabasDBDirs(sAdabasWorkDir,::ucb::INCLUDE_FOLDERS_ONLY);
ConstStringBagIterator aOuter = aConfigDBs.begin();
for(;aOuter != aConfigDBs.end();++aOuter)
{
ConstStringBagIterator aInner = aWrkDBs.begin();
for (;aInner != aWrkDBs.end(); ++aInner)
{
#if SUPD<632
if (aInner->equalsIgnoreCase(*aOuter))
#else
if (aInner->equalsIgnoreAsciiCase(*aOuter))
#endif
{
aInstalledDBs.insert(*aInner);
break;
}
}
}
return aInstalledDBs;
}
// -----------------------------------------------------------------------------
StringBag OGeneralPage::getInstalledAdabasDBDirs(const String& _rPath,const ::ucb::ResultSetInclude& _reResultSetInclude)
{
INetURLObject aNormalizer;
aNormalizer.SetSmartProtocol(INET_PROT_FILE);
aNormalizer.SetSmartURL(_rPath);
String sAdabasConfigDir = aNormalizer.GetMainURL();
::ucb::Content aAdabasConfigDir;
try
{
aAdabasConfigDir = ::ucb::Content(sAdabasConfigDir, Reference< ::com::sun::star::ucb::XCommandEnvironment >());
}
catch(::com::sun::star::ucb::ContentCreationException&)
{
return StringBag();
}
StringBag aInstalledDBs;
sal_Bool bIsFolder = sal_False;
try
{
bIsFolder = aAdabasConfigDir.isFolder();
}
catch(Exception&) // the exception is thrown when the path doesn't exists
{
}
if (bIsFolder && aAdabasConfigDir.get().is())
{ // we have a content for the directory, loop through all entries
Sequence< ::rtl::OUString > aProperties(1);
aProperties[0] = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Title"));
try
{
Reference< XResultSet > xFiles = aAdabasConfigDir.createCursor(aProperties, _reResultSetInclude);
Reference< XRow > xRow(xFiles, UNO_QUERY);
xFiles->beforeFirst();
while (xFiles->next())
{
#ifdef DBG_UTIL
::rtl::OUString sName = xRow->getString(1);
#endif
aInstalledDBs.insert(xRow->getString(1));
}
}
catch(Exception&)
{
DBG_ERROR("OGeneralPage::getInstalledAdabasDBDirs: could not enumerate the adabas config files!");
}
}
return aInstalledDBs;
}
//-------------------------------------------------------------------------
IMPL_LINK(OGeneralPage, OnDatasourceTypeSelected, ListBox*, _pBox)
{
// get the type from the entry data
sal_Int16 nSelected = _pBox->GetSelectEntryPos();
DATASOURCE_TYPE eSelectedType = static_cast<DATASOURCE_TYPE>(reinterpret_cast<sal_Int32>(_pBox->GetEntryData(nSelected)));
// let the impl method do all the stuff
onTypeSelected(eSelectedType);
// tell the listener we were modified
callModifiedHdl();
// outta here
return 0L;
}
//.........................................................................
} // namespace dbaui
//.........................................................................
/*************************************************************************
* history:
* $Log: not supported by cvs2svn $
#65293# include CommandAbortedException (solaris can't catch incomplete types)
2001-05-30 14:10:24 +00:00
* Revision 1.6 2001/05/30 07:44:07 fs
* #87403# removed an obsolete ifdef FS_PRIV_DEBUG
*
#87403# removed an obsolete ifdef FS_PRIV_DEBUG
2001-05-30 06:44:07 +00:00
* Revision 1.5 2001/05/30 06:48:21 fs
* #87531# +SERVICE_EXTENDED_ADABAS_DRIVER (instead of hard coding the string)
*
#87531# +SERVICE_EXTENDED_ADABAS_DRIVER (instead of hard coding the string)
2001-05-30 05:48:21 +00:00
* Revision 1.4 2001/05/30 06:05:45 oj
* #87149# addressbook ui impl
*
#87149# addressbook ui impl
2001-05-30 05:05:45 +00:00
* Revision 1.3 2001/05/29 13:33:12 oj
* #87149# addressbook ui impl
*
#87149# addressbook ui impl
2001-05-29 12:33:12 +00:00
* Revision 1.2 2001/05/29 12:28:24 fs
* #87403# OnDatasourceTypeSelected: no check for IsTravelSelect anymore
*
#87403# OnDatasourceTypeSelected: no check for IsTravelSelect anymore
2001-05-29 11:28:24 +00:00
* Revision 1.1 2001/05/29 09:59:25 fs
* initial checkin - outsourced the class from commonpages
*
initial checkin - outsourced the class from commonpages
2001-05-29 08:59:46 +00:00
*
* Revision 1.0 29.05.01 11:33:18 fs
************************************************************************/
Reference in New Issue Copy Permalink