svtools/source/dialogs/ServerDetailsControls.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  */
   9
  10 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  11 #include <com/sun/star/task/InteractionHandler.hpp>
  12 #include <com/sun/star/ucb/XCommandEnvironment.hpp>
  13 #include <com/sun/star/ucb/XContentAccess.hpp>
  14 #include <com/sun/star/sdbc/XResultSet.hpp>
  15 #include <com/sun/star/sdbc/XRow.hpp>
  16
  17 #include <comphelper/processfactory.hxx>
  18 #include <officecfg/Office/Common.hxx>
  19 #include <rtl/uri.hxx>
  20 #include <ucbhelper/content.hxx>
  21 #include <ucbhelper/commandenvironment.hxx>
  22
  23 #include <svtools/PlaceEditDialog.hxx>
  24 #include <svtools/ServerDetailsControls.hxx>
  25 #include <config_oauth2.h>
  26
  27 using namespace std;
  28 using namespace com::sun::star::lang;
  29 using namespace com::sun::star::sdbc;
  30 using namespace com::sun::star::task;
  31 using namespace com::sun::star::ucb;
  32 using namespace com::sun::star::uno;
  33
  34 DetailsContainer::DetailsContainer( VclBuilderContainer* pBuilder, const OString& rFrame )
  35 {
  36     pBuilder->get( m_pFrame, rFrame );
  37 }
  38
  39 DetailsContainer::~DetailsContainer( )
  40 {
  41 }
  42
  43 void DetailsContainer::show( bool bShow )
  44 {
  45     m_pFrame->Show( bShow );
  46 }
  47
  48 INetURLObject DetailsContainer::getUrl( )
  49 {
  50     // Don't use that class directly: make it smarter by subclassing it.
  51     return INetURLObject( );
  52 }
  53
  54 bool DetailsContainer::setUrl( const INetURLObject& )
  55 {
  56     // That class doesn't contain any logic... it defers the dirty work
  57     // to the sub classes.
  58     return false;
  59 }
  60
  61 void DetailsContainer::notifyChange( )
  62 {
  63     m_aChangeHdl.Call( this );
  64 }
  65
  66 IMPL_LINK( DetailsContainer, ValueChangeHdl, void *, EMPTYARG )
  67 {
  68     notifyChange( );
  69     return 0;
  70 }
  71
  72 HostDetailsContainer::HostDetailsContainer( VclBuilderContainer* pBuilder, sal_uInt16 nPort, OUString sScheme ) :
  73     DetailsContainer( pBuilder, "HostDetails" ),
  74     m_nDefaultPort( nPort ),
  75     m_sScheme( sScheme )
  76 {
  77     pBuilder->get( m_pEDHost, "host" );
  78     m_pEDHost->SetModifyHdl( LINK( this, DetailsContainer, ValueChangeHdl ) );
  79
  80     pBuilder->get( m_pEDPort, "port" );
  81     m_pEDPort->SetModifyHdl( LINK( this, DetailsContainer, ValueChangeHdl ) );
  82
  83     pBuilder->get( m_pEDPath, "path" );
  84     m_pEDPath->SetModifyHdl( LINK( this, DetailsContainer, ValueChangeHdl ) );
  85
  86     show( false );
  87 }
  88
  89 void HostDetailsContainer::show( bool bShow )
  90 {
  91     DetailsContainer::show( bShow );
  92     if ( bShow )
  93         m_pEDPort->SetValue( m_nDefaultPort );
  94 }
  95
  96 INetURLObject HostDetailsContainer::getUrl( )
  97 {
  98     OUString sHost = m_pEDHost->GetText().trim( );
  99     sal_Int64 nPort = m_pEDPort->GetValue();
 100     OUString sPath = m_pEDPath->GetText().trim( );
 101
 102     OUString sUrl;
 103     if ( !sHost.isEmpty( ) )
 104     {
 105         sUrl = m_sScheme + "://" + sHost;
 106         if ( nPort != m_nDefaultPort )
 107             sUrl += ":" + OUString::number( nPort );
 108         if ( !sPath.isEmpty( ) )
 109             if ( sPath.indexOf( '/' ) != 0 )
 110                 sUrl += "/";
 111         sUrl += sPath;
 112     }
 113
 114     return INetURLObject( sUrl );
 115 }
 116
 117 bool HostDetailsContainer::setUrl( const INetURLObject& rUrl )
 118 {
 119     bool bSuccess = verifyScheme( INetURLObject::GetScheme( rUrl.GetProtocol( ) ) );
 120
 121     if ( bSuccess )
 122     {
 123         m_pEDHost->SetText( rUrl.GetHost( ) );
 124         m_pEDPort->SetValue( rUrl.GetPort( ) );
 125         m_pEDPath->SetText( rUrl.GetURLPath() );
 126     }
 127
 128     return bSuccess;
 129 }
 130
 131 bool HostDetailsContainer::verifyScheme( const OUString& sScheme )
 132 {
 133     return sScheme.equals( m_sScheme + "://" );
 134 }
 135
 136 DavDetailsContainer::DavDetailsContainer( VclBuilderContainer* pBuilder ) :
 137     HostDetailsContainer( pBuilder, 80, "http" )
 138 {
 139     pBuilder->get( m_pCBDavs, "webdavs" );
 140     m_pCBDavs->SetToggleHdl( LINK( this, DavDetailsContainer, ToggledDavsHdl ) );
 141
 142     show( false );
 143 }
 144
 145 void DavDetailsContainer::show( bool bShow )
 146 {
 147     HostDetailsContainer::show( bShow );
 148
 149     m_pCBDavs->Show( bShow );
 150
 151     if ( bShow )
 152         m_pCBDavs->Check( false );
 153 }
 154
 155 bool DavDetailsContainer::verifyScheme( const OUString& rScheme )
 156 {
 157     bool bValid = false;
 158     if ( rScheme.equals( "http://" ) )
 159     {
 160         bValid = true;
 161         m_pCBDavs->Check( false );
 162     }
 163     else if ( rScheme.equals( "https://" ) )
 164     {
 165         bValid = true;
 166         m_pCBDavs->Check( true );
 167     }
 168     return bValid;
 169 }
 170
 171 IMPL_LINK( DavDetailsContainer, ToggledDavsHdl, CheckBox*, pCheckBox )
 172 {
 173     // Change default port if needed
 174     sal_Bool bCheckedDavs = pCheckBox->IsChecked();
 175     if ( m_pEDPort->GetValue() == 80 && bCheckedDavs == sal_True)
 176         m_pEDPort->SetValue( 443 );
 177     else if ( m_pEDPort->GetValue() == 443 && bCheckedDavs == sal_False )
 178         m_pEDPort->SetValue( 80 );
 179
 180     OUString sScheme( "http" );
 181     if ( bCheckedDavs )
 182         sScheme = "https";
 183     setScheme( sScheme );
 184
 185     notifyChange( );
 186
 187     return 0;
 188 }
 189
 190 SmbDetailsContainer::SmbDetailsContainer( VclBuilderContainer* pBuilder ) :
 191     DetailsContainer( pBuilder, "SmbDetails" )
 192 {
 193     pBuilder->get( m_pEDHost, "smbHost" );
 194     m_pEDHost->SetModifyHdl( LINK( this, DetailsContainer, ValueChangeHdl ) );
 195
 196     pBuilder->get( m_pEDShare, "smbShare" );
 197     m_pEDShare->SetModifyHdl( LINK( this, DetailsContainer, ValueChangeHdl ) );
 198
 199     pBuilder->get( m_pEDPath, "smbPath" );
 200     m_pEDPath->SetModifyHdl( LINK( this, DetailsContainer, ValueChangeHdl ) );
 201
 202     show( false );
 203 }
 204
 205 INetURLObject SmbDetailsContainer::getUrl( )
 206 {
 207     OUString sHost = m_pEDHost->GetText().trim( );
 208     OUString sShare = m_pEDShare->GetText().trim( );
 209     OUString sPath = m_pEDPath->GetText().trim( );
 210
 211     OUString sUrl;
 212     if ( !sHost.isEmpty( ) )
 213     {
 214         sUrl = "smb://" + sHost + "/";
 215         if ( !sShare.isEmpty( ) )
 216             sUrl += sShare;
 217         if ( !sPath.isEmpty( ) )
 218             if ( sPath.indexOf( '/' ) != 0 )
 219                 sUrl += "/";
 220         sUrl += sPath;
 221     }
 222
 223     return INetURLObject( sUrl );
 224 }
 225
 226 bool SmbDetailsContainer::setUrl( const INetURLObject& rUrl )
 227 {
 228     bool bSuccess =  rUrl.GetProtocol() == INET_PROT_SMB;
 229
 230     if ( bSuccess )
 231     {
 232         OUString sShare = rUrl.getName( 0 );
 233         OUString sFullPath = rUrl.GetURLPath( );
 234         OUString sPath;
 235         if ( sFullPath.getLength( ) > sShare.getLength( ) )
 236         {
 237             sal_Int32 nPos = sShare.getLength( );
 238             if ( nPos != 0 )
 239                 ++nPos;
 240             sPath = sFullPath.copy( nPos );
 241         }
 242
 243         m_pEDHost->SetText( rUrl.GetHost( ) );
 244         m_pEDShare->SetText( sShare );
 245         m_pEDPath->SetText( sPath );
 246     }
 247
 248     return bSuccess;
 249 }
 250
 251 CmisDetailsContainer::CmisDetailsContainer( VclBuilderContainer* pBuilder ) :
 252     DetailsContainer( pBuilder, "CmisDetails" ),
 253     m_sUsername( ),
 254     m_xCmdEnv( ),
 255     m_aServerTypesURLs( ),
 256     m_aRepoIds( ),
 257     m_sRepoId( )
 258 {
 259     Reference< XComponentContext > xContext = ::comphelper::getProcessComponentContext();
 260     Reference< XInteractionHandler > xGlobalInteractionHandler(
 261         InteractionHandler::createWithParent(xContext, 0), UNO_QUERY );
 262     m_xCmdEnv = new ucbhelper::CommandEnvironment( xGlobalInteractionHandler, Reference< XProgressHandler >() );
 263
 264     pBuilder->get( m_pLBServerType, "serverType" );
 265     m_pLBServerType->SetSelectHdl( LINK( this, CmisDetailsContainer, SelectServerTypeHdl ) );
 266
 267     pBuilder->get( m_pEDBinding, "binding" );
 268     m_pEDBinding->SetModifyHdl( LINK( this, DetailsContainer, ValueChangeHdl ) );
 269
 270     pBuilder->get( m_pLBRepository, "repositories" );
 271     m_pLBRepository->SetSelectHdl( LINK( this, CmisDetailsContainer, SelectRepoHdl ) );
 272
 273     pBuilder->get( m_pBTRepoRefresh, "repositoriesRefresh" );
 274     m_pBTRepoRefresh->SetClickHdl( LINK( this, CmisDetailsContainer, RefreshReposHdl ) );
 275
 276     pBuilder->get( m_pEDPath, "cmisPath" );
 277     m_pEDPath->SetModifyHdl( LINK( this, DetailsContainer, ValueChangeHdl ) );
 278
 279     show( false );
 280
 281     // Load the ServerType entries
 282     bool bSkipGDrive = OUString( GDRIVE_CLIENT_ID ).isEmpty() ||
 283                        OUString( GDRIVE_CLIENT_SECRET ).isEmpty();
 284     bool bSkipAlfresco = OUString( ALFRESCO_CLOUD_CLIENT_ID ).isEmpty() ||
 285                        OUString( ALFRESCO_CLOUD_CLIENT_SECRET ).isEmpty();
 286
 287     Sequence< OUString > aTypesUrlsList( officecfg::Office::Common::Misc::CmisServersUrls::get( xContext ) );
 288     Sequence< OUString > aTypesNamesList( officecfg::Office::Common::Misc::CmisServersNames::get( xContext ) );
 289     for ( sal_Int32 i = 0; i < aTypesUrlsList.getLength( ) && aTypesNamesList.getLength( ); ++i )
 290     {
 291         OUString sUrl = aTypesUrlsList[i];
 292         if ( !( sUrl == GDRIVE_BASE_URL && bSkipGDrive ) &&
 293              !( sUrl.startsWith( ALFRESCO_CLOUD_BASE_URL ) && bSkipAlfresco ) )
 294         {
 295             m_pLBServerType->InsertEntry( aTypesNamesList[i] );
 296             m_aServerTypesURLs.push_back( sUrl );
 297         }
 298     }
 299 }
 300
 301 INetURLObject CmisDetailsContainer::getUrl( )
 302 {
 303     OUString sBindingUrl = m_pEDBinding->GetText().trim( );
 304     OUString sPath = m_pEDPath->GetText().trim( );
 305
 306     OUString sUrl;
 307     if ( !sBindingUrl.isEmpty( ) && !m_sRepoId.isEmpty() )
 308     {
 309         OUString sEncodedBinding = rtl::Uri::encode(
 310                 sBindingUrl + "#" + m_sRepoId,
 311                 rtl_UriCharClassRelSegment,
 312                 rtl_UriEncodeKeepEscapes,
 313                 RTL_TEXTENCODING_UTF8 );
 314         sUrl = "vnd.libreoffice.cmis://" + sEncodedBinding;
 315     }
 316     sUrl += sPath;
 317
 318     return INetURLObject( sUrl );
 319 }
 320
 321 bool CmisDetailsContainer::setUrl( const INetURLObject& rUrl )
 322 {
 323     bool bSuccess =  rUrl.GetProtocol() == INET_PROT_CMIS;
 324
 325     if ( bSuccess )
 326     {
 327         OUString sBindingUrl;
 328         OUString sRepositoryId;
 329
 330         OUString sDecodedHost = rUrl.GetHost( INetURLObject::DECODE_WITH_CHARSET );
 331         INetURLObject aHostUrl( sDecodedHost );
 332         sBindingUrl = aHostUrl.GetURLNoMark( );
 333         sRepositoryId = aHostUrl.GetMark( );
 334
 335         m_pEDBinding->SetText( sBindingUrl );
 336         m_pEDPath->SetText( rUrl.GetURLPath() );
 337     }
 338     return bSuccess;
 339 }
 340
 341 void CmisDetailsContainer::setUsername( const OUString& rUsername )
 342 {
 343     m_sUsername = rUsername;
 344 }
 345
 346 void CmisDetailsContainer::selectRepository( )
 347 {
 348     // Get the repo ID and call the Change listener
 349     sal_uInt16 nPos = m_pLBRepository->GetSelectEntryPos( );
 350     m_sRepoId = m_aRepoIds[nPos];
 351
 352     notifyChange( );
 353 }
 354
 355 IMPL_LINK( CmisDetailsContainer, SelectServerTypeHdl, void *, EMPTYARG  )
 356 {
 357     // Set a sample URL for the server
 358     sal_uInt16 nId = m_pLBServerType->GetSelectEntryPos( );
 359     m_pEDBinding->SetText( m_aServerTypesURLs[nId] );
 360     return 0;
 361 }
 362
 363 IMPL_LINK( CmisDetailsContainer, RefreshReposHdl, void *, EMPTYARG  )
 364 {
 365     OUString sBindingUrl = m_pEDBinding->GetText().trim( );
 366
 367     // Clean the listbox
 368     m_pLBRepository->Clear( );
 369     m_aRepoIds.clear( );
 370
 371     // Compute the URL
 372     OUString sUrl;
 373     if ( !sBindingUrl.isEmpty( ) )
 374     {
 375         OUString sEncodedBinding = rtl::Uri::encode(
 376                 sBindingUrl,
 377                 rtl_UriCharClassRelSegment,
 378                 rtl_UriEncodeKeepEscapes,
 379                 RTL_TEXTENCODING_UTF8 );
 380         sUrl = "vnd.libreoffice.cmis://" + sEncodedBinding;
 381     }
 382
 383     // Get the Content
 384     ::ucbhelper::Content aCnt( sUrl, m_xCmdEnv, comphelper::getProcessComponentContext() );
 385     Sequence< OUString > aProps( 1 );
 386     aProps[0] = "Title";
 387
 388     try
 389     {
 390         Reference< XResultSet > xResultSet( aCnt.createCursor( aProps ), UNO_QUERY_THROW );
 391         Reference< XContentAccess > xAccess( xResultSet, UNO_QUERY_THROW );
 392         while ( xResultSet->next() )
 393         {
 394             OUString sURL = xAccess->queryContentIdentifierString( );
 395             INetURLObject aURL( sURL );
 396             OUString sId = aURL.GetURLPath( INetURLObject::DECODE_WITH_CHARSET );
 397             sId = sId.copy( 1 );
 398             m_aRepoIds.push_back( sId );
 399
 400             Reference< XRow > xRow( xResultSet, UNO_QUERY );
 401             OUString sName = xRow->getString( 1 );
 402             m_pLBRepository->InsertEntry( sName );
 403         }
 404     }
 405     catch ( const Exception& )
 406     {
 407     }
 408
 409     // Auto-select the first one
 410     if ( m_pLBRepository->GetEntryCount( ) > 0 )
 411     {
 412         m_pLBRepository->SelectEntryPos( 0 );
 413         selectRepository( );
 414     }
 415
 416     return 0;
 417 }
 418
 419 IMPL_LINK( CmisDetailsContainer, SelectRepoHdl, void *, EMPTYARG  )
 420 {
 421     selectRepository( );
 422     return 0;
 423 }
 424
 425 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */