strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

INTEGRATION: CWS eoladabas_DEV300 (1.1.2); FILE ADDED

Browse source 
2008/01/23 13:27:49 oj 1.1.2.1: #149980# new dialog to create adabas dbs
This commit is contained in:
Oliver Bolte 2008-02-26 14:53:49 +00:00
parent 798a409cd0
commit 9614d6dfad
1 changed files with 875 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

875
dbaccess/source/ext/adabas/AdabasNewDb.cxx Normal file
View file

@ -0,0 +1,875 @@
/*************************************************************************
*
* $RCSfile: AdabasNewDb.cxx,v $
*
* $Revision: 1.2 $
*
* last change: $Author: obo $ $Date: 2008-02-26 15:53:49 $
*
* 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 EXPRESSED 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 adabasui_ADABAS_CREATEDB_HXX
#include "AdabasNewDb.hxx"
#endif
#ifndef adabasui_ADABASNEWDB_HRC
#include "AdabasNewDb.hrc"
#endif
#ifndef _VOS_PROCESS_HXX_
#include <vos/process.hxx>
#endif
#ifndef _OSL_PROCESS_H_
#include <osl/process.h>
#endif
#ifndef _MSGBOX_HXX //autogen
#include <vcl/msgbox.hxx>
#endif
#ifndef _PASSWD_HXX //autogen
#include <sfx2/passwd.hxx>
#endif
#ifndef _URLOBJ_HXX
#include <tools/urlobj.hxx>
#endif
#ifndef _STREAM_HXX
#include <tools/stream.hxx>
#endif
#ifndef _BIGINT_HXX
#include <tools/bigint.hxx>
#endif
#ifndef _TOOLS_DEBUG_HXX
#include <tools/debug.hxx>
#endif
#ifndef _EXTENSIONS_COMPONENT_MODULE_HXX_
#include "Acomponentmodule.hxx"
#endif
#ifndef _UNOTOOLS_TEMPFILE_HXX
#include <unotools/tempfile.hxx>
#endif
#ifndef _ADABASUI_RESOURCE_HRC_
#include "adabasui_resource.hrc"
#endif
#ifndef _UCBHELPER_CONTENT_HXX
#include <ucbhelper/content.hxx>
#endif
#ifndef _SV_WAITOBJ_HXX
#include <vcl/waitobj.hxx>
#endif
#ifndef INCLUDED_SVTOOLS_PATHOPTIONS_HXX
#include <svtools/pathoptions.hxx>
#endif
#ifndef _TOOLKIT_HELPER_VCLUNOHELPER_HXX_
#include <toolkit/unohlp.hxx>
#endif
#ifndef _COM_SUN_STAR_BEANS_PROPERTYVALUE_HPP_
#include <com/sun/star/beans/PropertyValue.hpp>
#endif
#ifndef _COMPHELPER_EXTRACT_HXX_
#include <comphelper/extract.hxx>
#endif
#ifndef _UNOTOOLS_TEMPFILE_HXX
#include <unotools/tempfile.hxx>
#endif
#ifndef _UNOTOOLS_LOCALFILEHELPER_HXX
#include <unotools/localfilehelper.hxx>
#endif
#ifndef _COM_SUN_STAR_SDBC_SQLEXCEPTION_HPP_
#include <com/sun/star/sdbc/SQLException.hpp>
#endif
#ifndef _UNOTOOLS_UCBHELPER_HXX
#include <unotools/ucbhelper.hxx>
#endif
#ifndef _CONNECTIVITY_DBTOOLS_HXX_
#include <connectivity/dbtools.hxx>
#endif
#ifndef _DBHELPER_DBEXCEPTION_HXX_
#include <connectivity/dbexception.hxx>
#endif
#include "adabasuistrings.hrc"
#ifndef _THREAD_HXX_
#include <osl/thread.hxx>
#endif
#ifndef _OSL_FILE_HXX_
#include <osl/file.hxx>
#endif
using namespace adabasui;
using namespace ucbhelper;
using namespace utl;
using namespace vos;
using namespace ::com::sun::star::uno;
using namespace ::com::sun::star::beans;
using namespace ::com::sun::star::sdbcx;
using namespace ::com::sun::star::sdbc;
using namespace ::com::sun::star::ucb;
using namespace ::com::sun::star::lang;
namespace adabasui
{
class ODatabaseCreator : public ::osl::Thread
{
Link m_aTerminateHandler;
Sequence< PropertyValue> m_aValues;
Reference<XCreateCatalog> m_xCreateCatalog;
Reference< XMultiServiceFactory > m_xORB;
Window* m_pErrorWindow;
public:
ODatabaseCreator(const Reference<XCreateCatalog>& _rxCreateCatalog
,Window* _pErrorWindow
,const Reference< XMultiServiceFactory >& _xORB
,const Sequence< PropertyValue>& _rValues)
: m_aValues(_rValues)
, m_xCreateCatalog(_rxCreateCatalog)
, m_xORB(_xORB)
, m_pErrorWindow(_pErrorWindow)
{}
void setTerminateHandler(const Link& _aTerminateHandler) { m_aTerminateHandler = _aTerminateHandler; }
protected:
/// Working method which should be overridden.
virtual void SAL_CALL run();
virtual void SAL_CALL onTerminated();
};
void SAL_CALL ODatabaseCreator::run()
{
try
{
m_xCreateCatalog->createCatalog(m_aValues);
}
catch(SQLException& e)
{
::dbtools::showError(::dbtools::SQLExceptionInfo(e),VCLUnoHelper::GetInterface(m_pErrorWindow),m_xORB);
}
catch(Exception&)
{
OSL_ASSERT(0);
// showError(::dbtools::SQLExceptionInfo(e),this,);
}
}
void SAL_CALL ODatabaseCreator::onTerminated()
{
if ( m_aTerminateHandler.IsSet() )
m_aTerminateHandler.Call(NULL);
}
}
DBG_NAME( OAdabasNewDbDlg )
//========================================================================
OAdabasNewDbDlg::OAdabasNewDbDlg( Window* pParent,
const Reference<XCreateCatalog>& _rxCreateCatalog,
const Reference< XMultiServiceFactory >& _rxORB,
BOOL _bRestore)
:ModalDialog( pParent, ModuleRes( DLG_ADABAS_NEWDB ))
,m_FT_DATABASENAME( this, ModuleRes( FT_DATABASENAME ) )
,m_ET_DATABASENAME( this, ModuleRes( ET_DATABASENAME ) )
,m_FL_USER( this, ModuleRes( FL_USER ) )
,m_FT_SYSUSR( this, ModuleRes( FT_SYSUSR ) )
,m_FT_CONUSR( this, ModuleRes( FT_CONUSR ) )
,m_FT_DOMAIN_USR( this, ModuleRes( FT_DOMAIN_USR ) )
,m_ET_SYSUSR( this, ModuleRes( ET_SYSUSR ) )
,m_PB_SYSPWD( this, ModuleRes( PB_SYSPWD ) )
,m_ET_CONUSR( this, ModuleRes( ET_CONUSR ) )
,m_PB_CONPWD( this, ModuleRes( PB_CONPWD ) )
,m_ET_DOMAIN_USR( this, ModuleRes( ET_DOMAIN_USR ) )
,m_PB_DOMAINPWD( this, ModuleRes( PB_DOMAINPWD ) )
,m_BMP_CON( this, ModuleRes( BMP_CON ) )
,m_BMP_SYS( this, ModuleRes( BMP_SYS ) )
,m_BMP_DOMAIN( this, ModuleRes( BMP_DOMAIN ) )
,m_FT_RESTORE( this, ModuleRes( FT_RESTORE ) )
,m_ET_RESTORE( this, ModuleRes( ET_RESTORE ) )
,m_PB_RESTORE( this, ModuleRes( PB_RESTORE ) )
,m_FL_DBSETTINGS( this, ModuleRes( FL_DBSETTINGS ) )
,m_FT_SYSDEVSPACE( this, ModuleRes( FT_SYSDEVSPACE ) )
,m_FT_TRANSACTIONLOG( this, ModuleRes( FT_TRANSACTIONLOG ) )
,m_FT_DATADEVSPACE( this, ModuleRes( FT_DATADEVSPACE ) )
,m_ET_SYSDEVSPACE( this, ModuleRes( ET_SYSDEVSPACE ) )
,m_PB_SYSDEVSPACE( this, ModuleRes( PB_SYSDEVSPACE ) )
,m_ET_TRANSACTIONLOG( this, ModuleRes( ET_TRANSACTIONLOG ) )
,m_PB_TRANSACTIONLOG( this, ModuleRes( PB_TRANSACTIONLOG ) )
,m_ET_DATADEVSPACE( this, ModuleRes( ET_DATADEVSPACE ) )
,m_PB_DATADEVSPACE( this, ModuleRes( PB_DATADEVSPACE ) )
,m_FT_TRANSACTIONLOG_SIZE( this, ModuleRes( FT_TRANSACTIONLOG_SIZE ) )
,m_NF_TRANSACTIONLOG_SIZE( this, ModuleRes( NF_TRANSACTIONLOG_SIZE ) )
,m_FT_DATADEVSPACE_SIZE( this, ModuleRes( FT_DATADEVSPACE_SIZE ) )
,m_NF_DATADEVSPACE_SIZE( this, ModuleRes( NF_DATADEVSPACE_SIZE ) )
,m_FT_CACHE_SIZE( this, ModuleRes( FT_CACHE_SIZE ) )
,m_NF_CACHE_SIZE( this, ModuleRes( NF_CACHE_SIZE ) )
,m_FL_END( this, ModuleRes( FL_END ) )
,m_PB_OK( this, ModuleRes( PB_OK ) )
,m_PB_CANCEL( this, ModuleRes( PB_CANCEL ) )
,m_xCreateCatalog(_rxCreateCatalog)
,m_xORB(_rxORB)
,m_bRestore(_bRestore)
,m_nSetBitmap(0)
{
DBG_CTOR( OAdabasNewDbDlg, NULL );
FreeResource();
if(m_bRestore)
{
m_FL_DBSETTINGS.SetPosPixel(m_FL_DBSETTINGS.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_FT_SYSDEVSPACE.SetPosPixel(m_FT_SYSDEVSPACE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_FT_TRANSACTIONLOG.SetPosPixel(m_FT_TRANSACTIONLOG.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_FT_DATADEVSPACE.SetPosPixel(m_FT_DATADEVSPACE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_ET_SYSDEVSPACE.SetPosPixel(m_ET_SYSDEVSPACE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_PB_SYSDEVSPACE.SetPosPixel(m_PB_SYSDEVSPACE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_ET_TRANSACTIONLOG.SetPosPixel(m_ET_TRANSACTIONLOG.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_PB_TRANSACTIONLOG.SetPosPixel(m_PB_TRANSACTIONLOG.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_ET_DATADEVSPACE.SetPosPixel(m_ET_DATADEVSPACE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_PB_DATADEVSPACE.SetPosPixel(m_PB_DATADEVSPACE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_FT_TRANSACTIONLOG_SIZE.SetPosPixel(m_FT_TRANSACTIONLOG_SIZE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_NF_TRANSACTIONLOG_SIZE.SetPosPixel(m_NF_TRANSACTIONLOG_SIZE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_FT_DATADEVSPACE_SIZE.SetPosPixel(m_FT_DATADEVSPACE_SIZE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_NF_DATADEVSPACE_SIZE.SetPosPixel(m_NF_DATADEVSPACE_SIZE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_FT_CACHE_SIZE.SetPosPixel(m_FT_CACHE_SIZE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_NF_CACHE_SIZE.SetPosPixel(m_NF_CACHE_SIZE.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_PB_OK.SetPosPixel(m_PB_OK.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
m_PB_CANCEL.SetPosPixel(m_PB_CANCEL.GetPosPixel()-LogicToPixel( Point(0,14), MAP_APPFONT ));
Size aSize(GetSizePixel().Width(),GetSizePixel().Height()-LogicToPixel( Size(0,14), MAP_APPFONT ).Height());
SetSizePixel(aSize);
m_FT_SYSUSR.Hide();
m_FT_DOMAIN_USR.Hide();
m_FL_USER.SetText(ModuleRes(STR_BACKUPFILE_LOAD));
m_PB_SYSPWD.Hide();
m_PB_DOMAINPWD.Hide();
m_ET_SYSUSR.Hide();
m_ET_DOMAIN_USR.Hide();
m_ET_SYSUSR.SetText(String::CreateFromAscii("DUMMY"));
m_BMP_SYS.Hide();
m_BMP_DOMAIN.Hide();
m_ET_RESTORE.SetModifyHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_ET_RESTORE.SetLoseFocusHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_ET_RESTORE.SetMaxTextLen(40);
}
else
{
m_FT_RESTORE.Hide();
m_ET_RESTORE.Hide();
m_PB_RESTORE.Hide();
m_ET_SYSUSR.SetModifyHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_ET_CONUSR.SetModifyHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_ET_DOMAIN_USR.Enable(FALSE);
// m_ET_SYSUSR.setUpperCase();
// m_ET_CONUSR.setUpperCase();
}
m_ET_SYSDEVSPACE.SetLoseFocusHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_ET_TRANSACTIONLOG.SetLoseFocusHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_ET_DATADEVSPACE.SetLoseFocusHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_ET_SYSDEVSPACE.SetMaxTextLen(40);
m_ET_TRANSACTIONLOG.SetMaxTextLen(40);
m_ET_DATADEVSPACE.SetMaxTextLen(40);
m_NF_TRANSACTIONLOG_SIZE.SetModifyHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_NF_DATADEVSPACE_SIZE.SetModifyHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_NF_CACHE_SIZE.SetModifyHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
m_NF_TRANSACTIONLOG_SIZE.SetMin(10);
m_NF_DATADEVSPACE_SIZE.SetMin(10);
m_NF_CACHE_SIZE.SetMin(4);
m_NF_TRANSACTIONLOG_SIZE.SetMax(LONG_MAX);
m_NF_DATADEVSPACE_SIZE.SetMax(LONG_MAX);
m_NF_CACHE_SIZE.SetMax(LONG_MAX);
m_NF_TRANSACTIONLOG_SIZE.SetValue(20);
m_NF_DATADEVSPACE_SIZE.SetValue(20);
m_NF_CACHE_SIZE.SetValue(4);
m_NF_TRANSACTIONLOG_SIZE.SetDecimalDigits(0);
m_NF_DATADEVSPACE_SIZE.SetDecimalDigits(0);
m_NF_CACHE_SIZE.SetDecimalDigits(0);
m_ET_DATABASENAME.SetMaxTextLen( 8 ); //98292
m_PB_CONPWD.SetClickHdl( LINK(this,OAdabasNewDbDlg,PwdClickHdl));
m_PB_SYSPWD.SetClickHdl( LINK(this,OAdabasNewDbDlg,PwdClickHdl));
m_PB_DOMAINPWD.SetClickHdl( LINK(this,OAdabasNewDbDlg,PwdClickHdl));
m_PB_RESTORE.SetClickHdl( LINK(this,OAdabasNewDbDlg,LoadButtonClickHdl));
m_PB_SYSDEVSPACE.SetClickHdl( LINK(this,OAdabasNewDbDlg,ButtonClickHdl));
m_PB_TRANSACTIONLOG.SetClickHdl( LINK(this,OAdabasNewDbDlg,ButtonClickHdl));
m_PB_DATADEVSPACE.SetClickHdl( LINK(this,OAdabasNewDbDlg,ButtonClickHdl));
m_BMP_CON.SetImage( ModuleRes(UNCHECK_RED) );
m_BMP_SYS.SetImage( ModuleRes(UNCHECK_RED) );
m_BMP_DOMAIN.SetImage( ModuleRes(UNCHECK_RED) );
static String s_sRoot(RTL_CONSTASCII_USTRINGPARAM("DBROOT"));
static String s_sConfig(RTL_CONSTASCII_USTRINGPARAM("DBCONFIG"));
static String s_sWork(RTL_CONSTASCII_USTRINGPARAM("DBWORK"));
sal_Bool bError = fillEnvironmentVariable(s_sWork,m_sDbWork);
if ( bError || !m_sDbWork.Len() )
bError = fillEnvironmentVariable(s_sRoot,m_sDbWork);
bError = fillEnvironmentVariable(s_sConfig,m_sDbConfig);
if ( bError || !m_sDbConfig.Len() )
bError = fillEnvironmentVariable(s_sRoot,m_sDbConfig);
if ( m_sDbConfig.Len() && m_sDbWork.Len() )
{
m_sDbConfig.AppendAscii("/");
m_sDbWork.AppendAscii("/");
String sDefaultName,sExt;
sDefaultName.AssignAscii("MYDB");
String sConfig = m_sDbConfig;
sConfig.AppendAscii("config");
TempFile aDefaultDatabase(sDefaultName,&sExt,&sConfig);
aDefaultDatabase.EnableKillingFile();
INetURLObject aURL(aDefaultDatabase.GetURL());
m_ET_DATABASENAME.SetText(aURL.GetName());
m_DBName = m_ET_DATABASENAME.GetText();
// create temp names for my files
// here we need only a name the creation is done by the driver
// so we delete the files after we get a valid name
// with this we avoiding to mention anything when the user presses cancel
String aSysExt;
sal_Bool bValid = sal_True;
{
aSysExt.AssignAscii(".sys");
::utl::TempFile aTmpFile(m_ET_DATABASENAME.GetText(),&aSysExt,&m_sDbWork);
aTmpFile.EnableKillingFile();
bValid = aTmpFile.IsValid();
if(bValid)
LocalFileHelper::ConvertURLToPhysicalName(aTmpFile.GetURL(),m_SYSDEV_File);
}
{
aSysExt.AssignAscii(".trs");
::utl::TempFile aTmpFile(m_ET_DATABASENAME.GetText(),&aSysExt,&m_sDbWork);
aTmpFile.EnableKillingFile();
bValid = !bValid || aTmpFile.IsValid();
if(aTmpFile.IsValid())
LocalFileHelper::ConvertURLToPhysicalName(aTmpFile.GetURL(),m_TRANSDEV_File);
}
{
aSysExt.AssignAscii(".dat");
::utl::TempFile aTmpFile(m_ET_DATABASENAME.GetText(),&aSysExt,&m_sDbWork);
aTmpFile.EnableKillingFile();
bValid = !bValid || aTmpFile.IsValid();
if(aTmpFile.IsValid())
LocalFileHelper::ConvertURLToPhysicalName(aTmpFile.GetURL(),m_DATADEV_File);
}
if(!bValid) // we found a file which isn't valid so we report an error message
PostUserEvent(LINK(this, OAdabasNewDbDlg, OnNoAccessRights));
}
if(m_SYSDEV_File.Len() < 41 && m_TRANSDEV_File.Len() < 41 && m_DATADEV_File.Len() < 41)
{
m_ET_SYSDEVSPACE.SetText(m_SYSDEV_File );
m_ET_TRANSACTIONLOG.SetText(m_TRANSDEV_File);
m_ET_DATADEVSPACE.SetText(m_DATADEV_File);
}
else
{
m_SYSDEV_File = m_TRANSDEV_File = m_DATADEV_File = String();
PostUserEvent(LINK(this, OAdabasNewDbDlg, OnNoDefaultPath));
}
m_ET_CONUSR.SetText(String::CreateFromAscii("CONTROL"));
m_PB_OK.SetClickHdl(LINK(this,OAdabasNewDbDlg,ImplOKHdl));
m_PB_OK.Enable(FALSE);
m_ET_DATABASENAME.SetModifyHdl( LINK(this,OAdabasNewDbDlg,LoseFocusHdl));
}
// -----------------------------------------------------------------------
OAdabasNewDbDlg::~OAdabasNewDbDlg()
{
DBG_DTOR( OAdabasNewDbDlg, NULL );
}
//------------------------------------------------------------------
IMPL_LINK(OAdabasNewDbDlg, OnError, void*, /*_pArg*/)
{
String sErrorMsg(ModuleRes(STR_ERROR_IN_ADABAS_INSTALLATION));
ErrorBox(this, WB_OK, sErrorMsg).Execute();
EndDialog(RET_CANCEL);
return 0L;
}
//------------------------------------------------------------------
IMPL_LINK(OAdabasNewDbDlg, OnNoDefaultPath, void*, /*_pArg*/)
{
String sErrorMsg(ModuleRes(STR_ADABAS_NO_DEFAULTNAME));
ErrorBox(this, WB_OK, sErrorMsg).Execute();
return 0L;
}
//------------------------------------------------------------------
IMPL_LINK(OAdabasNewDbDlg, OnNoAccessRights, void*, /*_pArg*/)
{
String sErrorMsg(ModuleRes(STR_ADABAS_NO_ACCESSRIGHTS));
ErrorBox(this, WB_OK, sErrorMsg).Execute();
return 0L;
}
// -----------------------------------------------------------------------
IMPL_LINK( OAdabasNewDbDlg, ImplOKHdl, OKButton*, /*EMPTYARG*/ )
{
m_SYSDEV_File = m_ET_SYSDEVSPACE.GetText();
m_TRANSDEV_File = m_ET_TRANSACTIONLOG.GetText();
m_DATADEV_File = m_ET_DATADEVSPACE.GetText();
m_Backup_File = m_ET_RESTORE.GetText();
if(m_bRestore)
{
INetURLObject aURL;
aURL.SetSmartProtocol(INET_PROT_FILE);
aURL.SetURL(m_Backup_File);
Content aContent(aURL.GetURLNoPass(),Reference<XCommandEnvironment>());
try
{
if(!aContent.isDocument())
{
String aString1 = String(ModuleRes(STR_ADABAS_NO_BACKUP_FILE));
String aString2 = String(ModuleRes(STR_STAT_WARNING));
SQLException aSql(aString1,NULL,aString2,1000,Any());
return 0;
}
}
catch(Exception&)
{
String aString1 = String(ModuleRes(STR_ADABAS_NO_BACKUP_FILE));
String aString2 = String(ModuleRes(STR_STAT_WARNING));
SQLException aSql(aString1,NULL,aString2,1000,Any());
throw aSql;
}
if(m_Backup_File.Len() > 40)
{
InfoBox aInfo(this,ModuleRes(INFO_STR_MAX_FILE_LENGTH));
String aMsg(aInfo.GetMessText());
aMsg.SearchAndReplace(String::CreateFromAscii("\'#\'"),String::CreateFromAscii("40"));
aInfo.SetMessText(aMsg);
aInfo.Execute();
return 0;
}
}
else if(m_SYSDEV_File.Len() > 40 || m_TRANSDEV_File.Len() > 40 || m_DATADEV_File.Len() > 40)
{
InfoBox aInfo(this,ModuleRes(INFO_STR_MAX_FILE_LENGTH));
String aMsg(aInfo.GetMessText());
aMsg.SearchAndReplace(String::CreateFromAscii("\'#\'"),String::CreateFromAscii("40"));
aInfo.SetMessText(aMsg);
aInfo.Execute();
return 0;
}
BOOL bOk = FALSE;
{
// we need url
String sTemp;
bOk = LocalFileHelper::ConvertPhysicalNameToURL(m_DATADEV_File,sTemp);
m_DATADEV_File = sTemp;
sTemp = String();
bOk = LocalFileHelper::ConvertPhysicalNameToURL(m_SYSDEV_File,sTemp);
m_SYSDEV_File = sTemp;
sTemp = String();
bOk = LocalFileHelper::ConvertPhysicalNameToURL(m_TRANSDEV_File,sTemp);
m_TRANSDEV_File = sTemp;
}
String aErrorMessage = String(ModuleRes(STR_DEVSPACE_NO_FILE));
if(!m_SYSDEV_File.Len())
aErrorMessage.SearchAndReplace(String::CreateFromAscii("$name$"),String::CreateFromAscii("SYSDEVSPACE"));
else if(!m_TRANSDEV_File.Len())
aErrorMessage.SearchAndReplace(String::CreateFromAscii("$name$"),String::CreateFromAscii("TRANSACTIONLOG"));
else if(!m_DATADEV_File.Len())
aErrorMessage.SearchAndReplace(String::CreateFromAscii("$name$"),String::CreateFromAscii("DATDEVSPACE"));
else if(m_ET_SYSUSR.GetText() == m_ET_CONUSR.GetText())
aErrorMessage = String(ModuleRes(STR_NO_SAME_USER));
else
bOk = TRUE;
if (!bOk)
{
ErrorBox(this, WB_OK, aErrorMessage).Execute();
return FALSE;
}
sal_Int32 nPos = 0;
Sequence< PropertyValue> aCreateArgs(m_bRestore ? 14 : 12);
aCreateArgs[nPos].Name = PROPERTY_CONTROL_USER;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_ET_CONUSR.GetText().ToUpperAscii());
aCreateArgs[nPos].Name = PROPERTY_CONTROL_PASSWORD;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_ConPwd);
aCreateArgs[nPos].Name = PROPERTY_USER;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_ET_SYSUSR.GetText().ToUpperAscii());
aCreateArgs[nPos].Name = PROPERTY_PASSWORD;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_SysPwd);
aCreateArgs[nPos].Name = PROPERTY_DOMAINPASSWORD;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_DomainPwd);
aCreateArgs[nPos].Name = PROPERTY_CACHESIZE;
aCreateArgs[nPos++].Value <<= ::rtl::OUString::valueOf(sal_Int32(m_NF_CACHE_SIZE.GetValue()*256));
aCreateArgs[nPos].Name = PROPERTY_DATABASENAME;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_ET_DATABASENAME.GetText().ToUpperAscii());
aCreateArgs[nPos].Name = PROPERTY_DATADEVSPACE;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_DATADEV_File);
aCreateArgs[nPos].Name = PROPERTY_SYSDEVSPACE;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_SYSDEV_File);
aCreateArgs[nPos].Name = PROPERTY_TRANSACTION_LOG;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_TRANSDEV_File);
aCreateArgs[nPos].Name = PROPERTY_DATADEVSIZE;
aCreateArgs[nPos++].Value <<= sal_Int32(m_NF_DATADEVSPACE_SIZE.GetValue()*256);
aCreateArgs[nPos].Name = PROPERTY_LOGDEVSIZE;
aCreateArgs[nPos++].Value <<= sal_Int32(m_NF_TRANSACTIONLOG_SIZE.GetValue()*256);
if(m_bRestore)
{
aCreateArgs[nPos].Name = PROPERTY_RESTOREDATABASE;
aCreateArgs[nPos++].Value <<= ::cppu::bool2any(sal_True);
aCreateArgs[nPos].Name = PROPERTY_BACKUPNAME;
aCreateArgs[nPos++].Value <<= ::rtl::OUString(m_Backup_File);
}
Disable();
m_aCreatorWait = ::std::auto_ptr<WaitObject>(new WaitObject(this));
m_aCreatorThread = ::std::auto_ptr<ODatabaseCreator>(new ODatabaseCreator(m_xCreateCatalog,this,m_xORB,aCreateArgs));
m_aCreatorThread->setTerminateHandler(LINK(this,OAdabasNewDbDlg,TerminateHdl));
m_aCreatorThread->create();
return TRUE;
}
//-------------------------------------------------------------------------
IMPL_LINK( OAdabasNewDbDlg, TerminateHdl, void*, /*NOTUSABLE*/ )
{
EndDialog(RET_OK);
return 0;
}
// -----------------------------------------------------------------------------
void OAdabasNewDbDlg::ShowErrorText(INT32 _nError)
{
String aErrorMsg;
BOOL bError = TRUE;
switch(_nError)
{
case -5:
aErrorMsg = String(ModuleRes(STR_ADABAS_NO_NEW_CONFIG_FILE));
break;
case -7:
aErrorMsg = String(ModuleRes(STR_ADABAS_WRONG_KERNEL_PARAMETER));
break;
case -8:
aErrorMsg = String(ModuleRes(STR_ADABAS_NO_SERVER_START));
break;
case -9:
aErrorMsg = String(ModuleRes(STR_ADABAS_NOT_ENOUGH_SPACE));
aErrorMsg .SearchAndReplace(String::CreateFromAscii("\'#\'"),m_SYSDEV_File);
break;
case -10:
aErrorMsg = String(ModuleRes(STR_ADABAS_NOT_ENOUGH_SPACE));
aErrorMsg.SearchAndReplace(String::CreateFromAscii("\'#\'"),m_TRANSDEV_File);
break;
case -11:
aErrorMsg = String(ModuleRes(STR_ADABAS_NOT_ENOUGH_SPACE));
aErrorMsg.SearchAndReplace(String::CreateFromAscii("\'#\'"),m_DATADEV_File);
break;
case 0:
default:
bError = FALSE;
}
if(bError)
{
// OSQLMessageBox(this,String(ModuleRes(STR_STAT_WARNING)),aErrorMsg).Execute();
}
}
//------------------------------------------------------------------------
IMPL_LINK( OAdabasNewDbDlg, LoseFocusHdl, Edit *, pEdit )
{
if(&m_ET_SYSDEVSPACE == pEdit)
m_SYSDEV_File = pEdit->GetText();
else if(&m_ET_TRANSACTIONLOG == pEdit)
m_TRANSDEV_File = pEdit->GetText();
else if(&m_ET_DATADEVSPACE == pEdit)
m_DATADEV_File = pEdit->GetText();
else if(&m_ET_RESTORE == pEdit)
m_Backup_File = pEdit->GetText();
else if(&m_ET_DATABASENAME == pEdit)
{// check if the new dbname already exists
String sNewDbName = pEdit->GetText();
String sConfig = m_sDbConfig;
sConfig.AppendAscii("config/");
sConfig += sNewDbName;
if(UCBContentHelper::IsDocument(sConfig))
{
String sErrorMessage = String(ModuleRes(STR_ADABAS_DB_EXISTS));
ErrorBox(this, WB_OK, sErrorMessage).Execute();
m_DBName.Erase();
}
else if ( m_DBName.SearchAscii(" ") != STRING_NOTFOUND )
{
String sErrorMessage = String(ModuleRes(STR_ADABAS_DB_EXISTS));
ErrorBox(this, WB_OK, sErrorMessage).Execute();
m_DBName = m_DBName.GetToken(0,' ');
}
else
m_DBName = sNewDbName;
}
CheckBitmaps();
return 0;
}
//------------------------------------------------------------------------
IMPL_LINK( OAdabasNewDbDlg, LoadButtonClickHdl, Button *, /*pButton*/ )
{
::sfx2::FileDialogHelper aLoad(WB_3DLOOK | WB_STDMODAL | WB_OPEN);
if(!m_Backup_File.Len())
aLoad.SetDisplayDirectory(SvtPathOptions().GetWorkPath());
else
aLoad.SetDisplayDirectory(m_Backup_File);
if (aLoad.Execute())
{
INetURLObject aUrl(aLoad.GetPath());
m_Backup_File = aUrl.PathToFileName();
if(m_Backup_File.Len() > 40)
{
InfoBox aInfo(this,ModuleRes(INFO_STR_MAX_FILE_LENGTH));
String aMsg(aInfo.GetMessText());
aMsg.SearchAndReplace(String::CreateFromAscii("\'#\'"),String::CreateFromAscii("40"));
aInfo.SetMessText(aMsg);
}
m_ET_RESTORE.SetText(m_Backup_File);
}
CheckBitmaps();
return 0;
}
//------------------------------------------------------------------------
IMPL_LINK( OAdabasNewDbDlg, ButtonClickHdl, Button *, pButton )
{
WinBits nBits(WB_3DLOOK|WB_STDMODAL|WB_SAVEAS);
::sfx2::FileDialogHelper aFileDlg( static_cast<sal_uInt32>(nBits) ); // new FileDialog( this, nBits );
String aPath;
if(pButton == &m_PB_SYSDEVSPACE)
aPath = m_SYSDEV_File;
else if(pButton == &m_PB_TRANSACTIONLOG)
aPath = m_TRANSDEV_File;
else if(pButton == &m_PB_DATADEVSPACE)
aPath = m_DATADEV_File;
String sUrl;
::utl::LocalFileHelper::ConvertPhysicalNameToURL(aPath,sUrl);
aFileDlg.SetDisplayDirectory(sUrl);
if (aFileDlg.Execute() == ERRCODE_NONE)
{
INetURLObject aUrl(aFileDlg.GetPath());
if(pButton == &m_PB_SYSDEVSPACE)
{
m_SYSDEV_File = aUrl.PathToFileName();
if(m_SYSDEV_File.Len() > 40)
{
InfoBox aInfo(this,ModuleRes(INFO_STR_MAX_FILE_LENGTH));
String aMsg(aInfo.GetMessText());
aMsg.SearchAndReplace(String::CreateFromAscii("\'#\'"),String::CreateFromAscii("40"));
aInfo.SetMessText(aMsg);
aInfo.Execute();
return 0;
}
m_ET_SYSDEVSPACE.SetText(aUrl.PathToFileName());
}
else if(pButton == &m_PB_TRANSACTIONLOG)
{
m_TRANSDEV_File = aUrl.PathToFileName();
if(m_TRANSDEV_File.Len() > 40)
{
InfoBox aInfo(this,ModuleRes(INFO_STR_MAX_FILE_LENGTH));
String aMsg(aInfo.GetMessText());
aMsg.SearchAndReplace(String::CreateFromAscii("\'#\'"),String::CreateFromAscii("40"));
aInfo.SetMessText(aMsg);
aInfo.Execute();
return 0;
}
m_ET_TRANSACTIONLOG.SetText(aUrl.PathToFileName());
}
else if(pButton == &m_PB_DATADEVSPACE)
{
m_DATADEV_File = aUrl.PathToFileName();
if(m_DATADEV_File.Len() > 40)
{
InfoBox aInfo(this,ModuleRes(INFO_STR_MAX_FILE_LENGTH));
String aMsg(aInfo.GetMessText());
aMsg.SearchAndReplace(String::CreateFromAscii("\'#\'"),String::CreateFromAscii("40"));
aInfo.SetMessText(aMsg);
aInfo.Execute();
return 0;
}
m_ET_DATADEVSPACE.SetText(aUrl.PathToFileName());
}
}
CheckBitmaps();
return 0;
}
//------------------------------------------------------------------------
IMPL_LINK( OAdabasNewDbDlg, PwdClickHdl, Button *, pButton )
{
SfxPasswordDialog aDlg(this);
aDlg.ShowExtras(SHOWEXTRAS_CONFIRM);
if(aDlg.Execute())
{
String sPwd = aDlg.GetPassword().ToUpperAscii();
// no space in password allowed
if ( sPwd.GetTokenCount(' ') == 1 )
{
if(pButton == &m_PB_CONPWD)
{
m_ConPwd = sPwd;
m_nSetBitmap &=~2;
}
else if(pButton == &m_PB_SYSPWD)
{
m_SysPwd = sPwd;
if(!m_DomainPwd.Len())
{
m_nSetBitmap = 1;
m_DomainPwd = m_SysPwd;
}
if(!m_ConPwd.Len())
{
m_nSetBitmap |= 2;
m_ConPwd = m_SysPwd;
}
}
else if(pButton == &m_PB_DOMAINPWD)
{
m_DomainPwd = sPwd;
m_nSetBitmap &=~1;
}
}
else
{
String sErrorMsg(ModuleRes(STR_ADABAS_PASSWORD_ILLEGAL));
ErrorBox(this, WB_OK, sErrorMsg).Execute();
}
}
CheckBitmaps();
return 0;
}
//------------------------------------------------------------------------
void OAdabasNewDbDlg::CheckBitmaps()
{
INT16 i=0;
if(m_ConPwd.Len() && m_ET_CONUSR.GetText().Len())
i++,m_BMP_CON.SetImage(ModuleRes(((m_nSetBitmap & 2) == 2) ? DEFAULT_BLUE : CHECK_GREEN));
else
m_BMP_CON.SetImage(ModuleRes(UNCHECK_RED));
if(!m_bRestore)
{
if(m_SysPwd.Len() && m_ET_SYSUSR.GetText().Len())
i++,m_BMP_SYS.SetImage(ModuleRes(CHECK_GREEN));
else
m_BMP_SYS.SetImage(ModuleRes(UNCHECK_RED));
if(m_DomainPwd.Len() )
i++,m_BMP_DOMAIN.SetImage(ModuleRes(((m_nSetBitmap & 1) == 1) ? DEFAULT_BLUE : CHECK_GREEN));
else
m_BMP_DOMAIN.SetImage(ModuleRes(UNCHECK_RED));
}
else if(m_Backup_File.Len())
i+=2;
if(m_ET_SYSDEVSPACE.GetText().Len() && m_ET_TRANSACTIONLOG.GetText().Len() && m_ET_DATADEVSPACE.GetText().Len() &&
m_ET_SYSDEVSPACE.GetText() != m_ET_TRANSACTIONLOG.GetText() && m_ET_SYSDEVSPACE.GetText() != m_ET_DATADEVSPACE.GetText() &&
m_ET_DATADEVSPACE.GetText() != m_ET_TRANSACTIONLOG.GetText())
i++;
if(m_DBName.Len())
i++;
m_PB_OK.Enable(i == 5);
}
// -----------------------------------------------------------------------------
sal_Bool OAdabasNewDbDlg::fillEnvironmentVariable(const ::rtl::OUString& _sVariableName,String& _rsValue)
{
rtl_uString* pDbVar = NULL;
sal_Bool bError = sal_False;
if(osl_getEnvironment(_sVariableName.pData,&pDbVar) == osl_Process_E_None && pDbVar)
{
_rsValue = pDbVar;
String sTemp;
LocalFileHelper::ConvertPhysicalNameToURL(_rsValue,sTemp);
_rsValue = sTemp;
rtl_uString_release(pDbVar);
pDbVar = NULL;
// ensure dir exists
osl::FileBase::RC rc = osl::Directory::createPath(_rsValue);
if(rc != osl::FileBase::E_None && rc != osl::FileBase::E_EXIST)
{
bError = sal_True;
PostUserEvent(LINK(this, OAdabasNewDbDlg, OnError));
}
}
return bError;
}
// -----------------------------------------------------------------------------