1 /************************************************************************* 2 * 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4 * 5 * Copyright 2000, 2010 Oracle and/or its affiliates. 6 * 7 * OpenOffice.org - a multi-platform office productivity suite 8 * 9 * This file is part of OpenOffice.org. 10 * 11 * OpenOffice.org is free software: you can redistribute it and/or modify 12 * it under the terms of the GNU Lesser General Public License version 3 13 * only, as published by the Free Software Foundation. 14 * 15 * OpenOffice.org is distributed in the hope that it will be useful, 16 * but WITHOUT ANY WARRANTY; without even the implied warranty of 17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 * GNU Lesser General Public License version 3 for more details 19 * (a copy is included in the LICENSE file that accompanied this code). 20 * 21 * You should have received a copy of the GNU Lesser General Public License 22 * version 3 along with OpenOffice.org. If not, see 23 * <http://www.openoffice.org/license.html> 24 * for a copy of the LGPLv3 License. 25 * 26 ************************************************************************/ 27 28 // MARKER(update_precomp.py): autogen include statement, do not remove 29 #include "precompiled_connectivity.hxx" 30 #include "adabas/BUsers.hxx" 31 #include "adabas/BUser.hxx" 32 #include "adabas/BTable.hxx" 33 #include <com/sun/star/sdbc/XRow.hpp> 34 #include <com/sun/star/sdbc/XResultSet.hpp> 35 #include "connectivity/sdbcx/IRefreshable.hxx" 36 #include <comphelper/types.hxx> 37 #include "connectivity/dbexception.hxx" 38 #include "connectivity/dbtools.hxx" 39 #include "resource/adabas_res.hrc" 40 41 using namespace ::comphelper; 42 using namespace connectivity; 43 using namespace connectivity::adabas; 44 using namespace ::com::sun::star::uno; 45 using namespace ::com::sun::star::beans; 46 // using namespace ::com::sun::star::sdbcx; 47 using namespace ::com::sun::star::sdbc; 48 using namespace ::com::sun::star::container; 49 using namespace ::com::sun::star::lang; 50 typedef connectivity::sdbcx::OCollection OCollection_TYPE; 51 52 sdbcx::ObjectType OUsers::createObject(const ::rtl::OUString& _rName) 53 { 54 return new OAdabasUser(m_pConnection,_rName); 55 } 56 // ------------------------------------------------------------------------- 57 void OUsers::impl_refresh() throw(RuntimeException) 58 { 59 m_pParent->refreshUsers(); 60 } 61 // ------------------------------------------------------------------------- 62 Reference< XPropertySet > OUsers::createDescriptor() 63 { 64 OUserExtend* pNew = new OUserExtend(m_pConnection); 65 return pNew; 66 } 67 // ------------------------------------------------------------------------- 68 // XAppend 69 sdbcx::ObjectType OUsers::appendObject( const ::rtl::OUString& _rForName, const Reference< XPropertySet >& descriptor ) 70 { 71 ::rtl::OUString aSql = ::rtl::OUString::createFromAscii("CREATE USER "); 72 ::rtl::OUString aQuote = m_pConnection->getMetaData()->getIdentifierQuoteString( ); 73 74 ::rtl::OUString sUserName( _rForName ); 75 sUserName = sUserName.toAsciiUpperCase(); 76 descriptor->setPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_NAME),makeAny(sUserName)); 77 aSql += ::dbtools::quoteName(aQuote,sUserName) 78 + ::rtl::OUString::createFromAscii(" PASSWORD ") 79 + getString(descriptor->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_PASSWORD))); 80 aSql += ::rtl::OUString::createFromAscii(" RESOURCE NOT EXCLUSIVE"); 81 82 Reference< XStatement > xStmt = m_pConnection->createStatement( ); 83 if(xStmt.is()) 84 xStmt->execute(aSql); 85 ::comphelper::disposeComponent(xStmt); 86 87 return createObject( _rForName ); 88 } 89 // ------------------------------------------------------------------------- 90 // XDrop 91 void OUsers::dropObject(sal_Int32 /*_nPos*/,const ::rtl::OUString _sElementName) 92 { 93 { 94 // first we have to check if this user is live relevaant for the database 95 // which means with out these users the database will miss more than one important system table 96 ::rtl::OUString sUsers = ::rtl::OUString::createFromAscii("SELECT USERMODE,USERNAME FROM DOMAIN.USERS WHERE USERNAME = '"); 97 sUsers += _sElementName + ::rtl::OUString::createFromAscii("'"); 98 Reference< XStatement > xStmt = m_pConnection->createStatement(); 99 if(xStmt.is()) 100 { 101 Reference<XResultSet> xRes = xStmt->executeQuery(sUsers); 102 Reference<XRow> xRow(xRes,UNO_QUERY); 103 if(xRes.is() && xRow.is() && xRes->next()) // there can only be one user with this name 104 { 105 static const ::rtl::OUString sDbaUser = ::rtl::OUString::createFromAscii("DBA"); 106 if(xRow->getString(1) == sDbaUser) 107 { 108 ::comphelper::disposeComponent(xStmt); 109 m_pConnection->throwGenericSQLException(STR_USER_NO_DELETE,static_cast< XDrop* >( this )); 110 } 111 } 112 ::comphelper::disposeComponent(xStmt); 113 } 114 } 115 116 { 117 ::rtl::OUString aSql = ::rtl::OUString::createFromAscii("DROP USER "); 118 ::rtl::OUString aQuote = m_pConnection->getMetaData()->getIdentifierQuoteString( ); 119 aSql += ::dbtools::quoteName(aQuote,_sElementName); 120 121 Reference< XStatement > xStmt = m_pConnection->createStatement( ); 122 if(xStmt.is()) 123 xStmt->execute(aSql); 124 ::comphelper::disposeComponent(xStmt); 125 } 126 } 127 128 // ------------------------------------------------------------------------- 129