shell/source/backends/kde4be/kde4access.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  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include "sal/config.h"
  21
  22 #include "QFont"
  23 #include "QString"
  24 #include "kemailsettings.h"
  25 #include "kglobalsettings.h"
  26 #include "kprotocolmanager.h"
  27
  28 #include "com/sun/star/uno/Any.hxx"
  29 #include "cppu/unotype.hxx"
  30 #include "osl/diagnose.h"
  31 #include "osl/file.h"
  32 #include "rtl/string.h"
  33 #include "rtl/ustring.hxx"
  34
  35 #include "kde4access.hxx"
  36
  37 #define SPACE      ' '
  38 #define COMMA      ','
  39 #define SEMI_COLON ';'
  40
  41 namespace kde4access {
  42
  43 namespace {
  44
  45 namespace uno = css::uno ;
  46
  47 }
  48
  49 css::beans::Optional< css::uno::Any > getValue(OUString const & id) {
  50     if ( id == "ExternalMailer" ) {
  51         KEMailSettings aEmailSettings;
  52         QString aClientProgram;
  53         OUString sClientProgram;
  54
  55         aClientProgram = aEmailSettings.getSetting( KEMailSettings::ClientProgram );
  56         if ( aClientProgram.isEmpty() )
  57             aClientProgram = "kmail";
  58         else
  59             aClientProgram = aClientProgram.section(SPACE, 0, 0);
  60         sClientProgram = (const sal_Unicode *) aClientProgram.utf16();
  61         return css::beans::Optional< css::uno::Any >(
  62             true, uno::makeAny( sClientProgram ) );
  63     } else if (id == "SourceViewFontHeight")
  64     {
  65         QFont aFixedFont;
  66         short nFontHeight;
  67
  68         aFixedFont = KGlobalSettings::fixedFont();
  69         nFontHeight = aFixedFont.pointSize();
  70         return css::beans::Optional< css::uno::Any >(
  71             true, uno::makeAny( nFontHeight ) );
  72     } else if (id == "SourceViewFontName")
  73     {
  74         QFont aFixedFont;
  75         QString aFontName;
  76         :: OUString sFontName;
  77
  78         aFixedFont = KGlobalSettings::fixedFont();
  79         aFontName = aFixedFont.family();
  80         sFontName = (const sal_Unicode *) aFontName.utf16();
  81         return css::beans::Optional< css::uno::Any >(
  82             true, uno::makeAny( sFontName ) );
  83     } else if (id == "EnableATToolSupport")
  84     {
  85         /* does not make much sense without an accessibility bridge */
  86         bool ATToolSupport = false;
  87         return css::beans::Optional< css::uno::Any >(
  88             true, uno::makeAny( OUString::boolean( ATToolSupport ) ) );
  89     } else if (id == "WorkPathVariable")
  90     {
  91         QString aDocumentsDir( KGlobalSettings::documentPath() );
  92         OUString sDocumentsDir;
  93         OUString sDocumentsURL;
  94         if ( aDocumentsDir.endsWith(QChar('/')) )
  95             aDocumentsDir.truncate ( aDocumentsDir.length() - 1 );
  96         sDocumentsDir = (const sal_Unicode *) aDocumentsDir.utf16();
  97         osl_getFileURLFromSystemPath( sDocumentsDir.pData, &sDocumentsURL.pData );
  98         return css::beans::Optional< css::uno::Any >(
  99             true, uno::makeAny( sDocumentsURL ) );
 100     } else if (id == "ooInetFTPProxyName")
 101     {
 102         QString aFTPProxy;
 103         switch ( KProtocolManager::proxyType() )
 104         {
 105         case KProtocolManager::ManualProxy: // Proxies are manually configured
 106             aFTPProxy = KProtocolManager::proxyFor( "FTP" );
 107             break;
 108         case KProtocolManager::PACProxy:    // A proxy configuration URL has been given
 109         case KProtocolManager::WPADProxy:   // A proxy should be automatically discovered
 110         case KProtocolManager::EnvVarProxy: // Use the proxy values set through environment variables
 111 // In such cases, the proxy address is not stored in KDE, but determined dynamically.
 112 // The proxy address may depend on the requested address, on the time of the day, on the speed of the wind...
 113 // The best we can do here is to ask the current value for a given address.
 114             aFTPProxy = KProtocolManager::proxyForUrl( KUrl("ftp://ftp.libreoffice.org") );
 115             break;
 116         default:                            // No proxy is used
 117             break;
 118         }
 119         if ( !aFTPProxy.isEmpty() )
 120         {
 121             KUrl aProxy(aFTPProxy);
 122             OUString sProxy = (const sal_Unicode *) aProxy.host().utf16();
 123             return css::beans::Optional< css::uno::Any >(
 124                 true, uno::makeAny( sProxy ) );
 125         }
 126     } else if (id == "ooInetFTPProxyPort")
 127     {
 128         QString aFTPProxy;
 129         switch ( KProtocolManager::proxyType() )
 130         {
 131         case KProtocolManager::ManualProxy: // Proxies are manually configured
 132             aFTPProxy = KProtocolManager::proxyFor( "FTP" );
 133             break;
 134         case KProtocolManager::PACProxy:    // A proxy configuration URL has been given
 135         case KProtocolManager::WPADProxy:   // A proxy should be automatically discovered
 136         case KProtocolManager::EnvVarProxy: // Use the proxy values set through environment variables
 137 // In such cases, the proxy address is not stored in KDE, but determined dynamically.
 138 // The proxy address may depend on the requested address, on the time of the day, on the speed of the wind...
 139 // The best we can do here is to ask the current value for a given address.
 140             aFTPProxy = KProtocolManager::proxyForUrl( KUrl("ftp://ftp.libreoffice.org") );
 141             break;
 142         default:                            // No proxy is used
 143             break;
 144         }
 145         if ( !aFTPProxy.isEmpty() )
 146         {
 147             KUrl aProxy(aFTPProxy);
 148             sal_Int32 nPort = aProxy.port();
 149             return css::beans::Optional< css::uno::Any >(
 150                 true, uno::makeAny( nPort ) );
 151         }
 152     } else if (id == "ooInetHTTPProxyName")
 153     {
 154         QString aHTTPProxy;
 155         switch ( KProtocolManager::proxyType() )
 156         {
 157         case KProtocolManager::ManualProxy: // Proxies are manually configured
 158             aHTTPProxy = KProtocolManager::proxyFor( "HTTP" );
 159             break;
 160         case KProtocolManager::PACProxy:    // A proxy configuration URL has been given
 161         case KProtocolManager::WPADProxy:   // A proxy should be automatically discovered
 162         case KProtocolManager::EnvVarProxy: // Use the proxy values set through environment variables
 163 // In such cases, the proxy address is not stored in KDE, but determined dynamically.
 164 // The proxy address may depend on the requested address, on the time of the day, on the speed of the wind...
 165 // The best we can do here is to ask the current value for a given address.
 166             aHTTPProxy = KProtocolManager::proxyForUrl( KUrl("http://http.libreoffice.org") );
 167             break;
 168         default:                            // No proxy is used
 169             break;
 170         }
 171         if ( !aHTTPProxy.isEmpty() )
 172         {
 173             KUrl aProxy(aHTTPProxy);
 174             OUString sProxy = (const sal_Unicode *) aProxy.host().utf16();
 175             return css::beans::Optional< css::uno::Any >(
 176                 true, uno::makeAny( sProxy ) );
 177         }
 178     } else if (id == "ooInetHTTPProxyPort")
 179     {
 180         QString aHTTPProxy;
 181         switch ( KProtocolManager::proxyType() )
 182         {
 183         case KProtocolManager::ManualProxy: // Proxies are manually configured
 184             aHTTPProxy = KProtocolManager::proxyFor( "HTTP" );
 185             break;
 186         case KProtocolManager::PACProxy:    // A proxy configuration URL has been given
 187         case KProtocolManager::WPADProxy:   // A proxy should be automatically discovered
 188         case KProtocolManager::EnvVarProxy: // Use the proxy values set through environment variables
 189 // In such cases, the proxy address is not stored in KDE, but determined dynamically.
 190 // The proxy address may depend on the requested address, on the time of the day, on the speed of the wind...
 191 // The best we can do here is to ask the current value for a given address.
 192             aHTTPProxy = KProtocolManager::proxyForUrl( KUrl("http://http.libreoffice.org") );
 193             break;
 194         default:                            // No proxy is used
 195             break;
 196         }
 197         if ( !aHTTPProxy.isEmpty() )
 198         {
 199             KUrl aProxy(aHTTPProxy);
 200             sal_Int32 nPort = aProxy.port();
 201             return css::beans::Optional< css::uno::Any >(
 202                 true, uno::makeAny( nPort ) );
 203         }
 204     } else if (id == "ooInetHTTPSProxyName")
 205     {
 206         QString aHTTPSProxy;
 207         switch ( KProtocolManager::proxyType() )
 208         {
 209         case KProtocolManager::ManualProxy: // Proxies are manually configured
 210             aHTTPSProxy = KProtocolManager::proxyFor( "HTTPS" );
 211             break;
 212         case KProtocolManager::PACProxy:    // A proxy configuration URL has been given
 213         case KProtocolManager::WPADProxy:   // A proxy should be automatically discovered
 214         case KProtocolManager::EnvVarProxy: // Use the proxy values set through environment variables
 215 // In such cases, the proxy address is not stored in KDE, but determined dynamically.
 216 // The proxy address may depend on the requested address, on the time of the day, on the speed of the wind...
 217 // The best we can do here is to ask the current value for a given address.
 218             aHTTPSProxy = KProtocolManager::proxyForUrl( KUrl("https://https.libreoffice.org") );
 219             break;
 220         default:                            // No proxy is used
 221             break;
 222         }
 223         if ( !aHTTPSProxy.isEmpty() )
 224         {
 225             KUrl aProxy(aHTTPSProxy);
 226             OUString sProxy = (const sal_Unicode *) aProxy.host().utf16();
 227             return css::beans::Optional< css::uno::Any >(
 228                 true, uno::makeAny( sProxy ) );
 229         }
 230     } else if (id == "ooInetHTTPSProxyPort")
 231     {
 232         QString aHTTPSProxy;
 233         switch ( KProtocolManager::proxyType() )
 234         {
 235         case KProtocolManager::ManualProxy: // Proxies are manually configured
 236             aHTTPSProxy = KProtocolManager::proxyFor( "HTTPS" );
 237             break;
 238         case KProtocolManager::PACProxy:    // A proxy configuration URL has been given
 239         case KProtocolManager::WPADProxy:   // A proxy should be automatically discovered
 240         case KProtocolManager::EnvVarProxy: // Use the proxy values set through environment variables
 241 // In such cases, the proxy address is not stored in KDE, but determined dynamically.
 242 // The proxy address may depend on the requested address, on the time of the day, on the speed of the wind...
 243 // The best we can do here is to ask the current value for a given address.
 244             aHTTPSProxy = KProtocolManager::proxyForUrl( KUrl("https://https.libreoffice.org") );
 245             break;
 246         default:                            // No proxy is used
 247             break;
 248         }
 249         if ( !aHTTPSProxy.isEmpty() )
 250         {
 251             KUrl aProxy(aHTTPSProxy);
 252             sal_Int32 nPort = aProxy.port();
 253             return css::beans::Optional< css::uno::Any >(
 254                 true, uno::makeAny( nPort ) );
 255         }
 256     } else if ( id == "ooInetNoProxy" ) {
 257         QString aNoProxyFor;
 258         switch ( KProtocolManager::proxyType() )
 259         {
 260         case KProtocolManager::ManualProxy: // Proxies are manually configured
 261         case KProtocolManager::PACProxy:    // A proxy configuration URL has been given
 262         case KProtocolManager::WPADProxy:   // A proxy should be automatically discovered
 263         case KProtocolManager::EnvVarProxy: // Use the proxy values set through environment variables
 264             aNoProxyFor = KProtocolManager::noProxyFor();
 265             break;
 266         default:                            // No proxy is used
 267             break;
 268         }
 269         if ( !aNoProxyFor.isEmpty() )
 270         {
 271             OUString sNoProxyFor;
 272
 273             aNoProxyFor = aNoProxyFor.replace( COMMA, SEMI_COLON );
 274             sNoProxyFor = (const sal_Unicode *) aNoProxyFor.utf16();
 275             return css::beans::Optional< css::uno::Any >(
 276                 true, uno::makeAny( sNoProxyFor ) );
 277         }
 278     } else if ( id == "ooInetProxyType" ) {
 279         int nProxyType;
 280         switch ( KProtocolManager::proxyType() )
 281         {
 282         case KProtocolManager::ManualProxy: // Proxies are manually configured
 283         case KProtocolManager::PACProxy:    // A proxy configuration URL has been given
 284         case KProtocolManager::WPADProxy:   // A proxy should be automatically discovered
 285         case KProtocolManager::EnvVarProxy: // Use the proxy values set through environment variables
 286             nProxyType = 1;
 287             break;
 288         default:                            // No proxy is used
 289             nProxyType = 0;
 290         }
 291         return css::beans::Optional< css::uno::Any >(
 292             true, uno::makeAny( (sal_Int32) nProxyType ) );
 293     } else {
 294         OSL_ASSERT(false); // this cannot happen
 295     }
 296     return css::beans::Optional< css::uno::Any >();
 297 }
 298
 299 }
 300
 301 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */