shell/source/cmdmail/cmdmailsuppl.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 <osl/diagnose.h>
  21 #include <osl/thread.h>
  22
  23 #include <rtl/bootstrap.hxx>
  24
  25 #include <osl/file.hxx>
  26 #include <rtl/strbuf.hxx>
  27 #include "cmdmailsuppl.hxx"
  28 #include "cmdmailmsg.hxx"
  29 #include <com/sun/star/system/SimpleMailClientFlags.hpp>
  30 #include <com/sun/star/container/XNameAccess.hpp>
  31 #include <com/sun/star/configuration/theDefaultProvider.hpp>
  32 #include <com/sun/star/beans/PropertyValue.hpp>
  33 #include <com/sun/star/beans/XPropertySet.hpp>
  34 #include <com/sun/star/uno/XComponentContext.hpp>
  35
  36 #include <string.h>
  37 #include <errno.h>
  38 #include <unistd.h>
  39
  40 //------------------------------------------------------------------------
  41 // namespace directives
  42 //------------------------------------------------------------------------
  43
  44 using com::sun::star::beans::PropertyValue;
  45 using com::sun::star::system::XSimpleMailClientSupplier;
  46 using com::sun::star::system::XSimpleMailClient;
  47 using com::sun::star::system::XSimpleMailMessage;
  48 using com::sun::star::container::XNameAccess;
  49 using com::sun::star::container::NoSuchElementException;
  50 using osl::MutexGuard;
  51 using osl::FileBase;
  52
  53 using namespace cppu;
  54 using namespace com::sun::star::system::SimpleMailClientFlags;
  55 using namespace com::sun::star::uno;
  56 using namespace com::sun::star::lang;
  57 using namespace com::sun::star::configuration;
  58
  59 #define COMP_IMPL_NAME  "com.sun.star.comp.system.SimpleCommandMail2"
  60
  61 //------------------------------------------------------------------------
  62 // helper functions
  63 //------------------------------------------------------------------------
  64
  65 namespace // private
  66 {
  67     Sequence< OUString > SAL_CALL Component_getSupportedServiceNames()
  68     {
  69         Sequence< OUString > aRet(1);
  70         aRet[0] = "com.sun.star.system.SimpleCommandMail";
  71         return aRet;
  72     }
  73
  74 } // end private namespace
  75
  76 //-------------------------------------------------
  77
  78 CmdMailSuppl::CmdMailSuppl( const Reference< XComponentContext >& xContext ) :
  79     WeakImplHelper3< XSimpleMailClientSupplier, XSimpleMailClient, XServiceInfo >()
  80 {
  81     m_xConfigurationProvider = theDefaultProvider::get(xContext);
  82 }
  83
  84 //-------------------------------------------------
  85 // XSimpleMailClientSupplier
  86 //-------------------------------------------------
  87
  88 Reference< XSimpleMailClient > SAL_CALL CmdMailSuppl::querySimpleMailClient(  )
  89     throw (RuntimeException)
  90 {
  91     return static_cast < XSimpleMailClient * > (this);
  92 }
  93
  94 //------------------------------------------------
  95 // XSimpleMailClient
  96 //------------------------------------------------
  97
  98 Reference< XSimpleMailMessage > SAL_CALL CmdMailSuppl::createSimpleMailMessage(  )
  99         throw (::com::sun::star::uno::RuntimeException)
 100 {
 101     return Reference< XSimpleMailMessage >( new CmdMailMsg(  ) );
 102 }
 103
 104 //------------------------------------------------
 105 // XSimpleMailClient
 106 //------------------------------------------------
 107
 108 void SAL_CALL CmdMailSuppl::sendSimpleMailMessage( const Reference< XSimpleMailMessage >& xSimpleMailMessage, sal_Int32 /*aFlag*/ )
 109     throw (IllegalArgumentException, Exception, RuntimeException)
 110 {
 111     if ( ! xSimpleMailMessage.is() )
 112     {
 113         throw ::com::sun::star::lang::IllegalArgumentException( "No message specified" ,
 114             static_cast < XSimpleMailClient * > (this), 1 );
 115     }
 116
 117     if( ! m_xConfigurationProvider.is() )
 118     {
 119         throw ::com::sun::star::uno::Exception( "Can not access configuration" ,
 120             static_cast < XSimpleMailClient * > (this) );
 121     }
 122
 123
 124     OUString aProgramURL("$BRAND_BASE_DIR/program/senddoc");
 125     rtl::Bootstrap::expandMacros(aProgramURL);
 126
 127     OUString aProgram;
 128     if ( FileBase::E_None != FileBase::getSystemPathFromFileURL(aProgramURL, aProgram))
 129     {
 130         throw ::com::sun::star::uno::Exception("Cound not convert executable path",
 131             static_cast < XSimpleMailClient * > (this));
 132     }
 133
 134     OStringBuffer aBuffer("\"" + OUStringToOString(aProgram, osl_getThreadTextEncoding()) + "\" ");
 135
 136     try
 137     {
 138         // Query XNameAccess interface of the org.openoffice.Office.Common/ExternalMailer
 139         // configuration node to retriece the users preferred email application. This may
 140         // transparently by redirected to e.g. the corresponding GConf setting in GNOME.
 141         OUString aConfigRoot = "org.openoffice.Office.Common/ExternalMailer";
 142
 143         PropertyValue aProperty;
 144         aProperty.Name = OUString("nodepath");
 145         aProperty.Value = makeAny( aConfigRoot );
 146
 147         Sequence< Any > aArgumentList( 1 );
 148         aArgumentList[0] = makeAny( aProperty );
 149
 150         Reference< XNameAccess > xNameAccess =
 151             Reference< XNameAccess > (
 152                 m_xConfigurationProvider->createInstanceWithArguments(
 153                     OUString("com.sun.star.configuration.ConfigurationAccess"),
 154                     aArgumentList ),
 155                 UNO_QUERY );
 156
 157         if( xNameAccess.is() )
 158         {
 159             OUString aMailer;
 160
 161             // Retrieve the value for "Program" node and append it feed senddoc with it
 162             // using the (undocumented) --mailclient switch
 163             xNameAccess->getByName( OUString("Program") ) >>= aMailer;
 164
 165             if( !aMailer.isEmpty() )
 166             {
 167                 // make sure we have a system path
 168                 FileBase::getSystemPathFromFileURL( aMailer, aMailer );
 169
 170                 aBuffer.append("--mailclient " + OUStringToOString( aMailer, osl_getThreadTextEncoding() ) +
 171                                " ");
 172             }
 173 #ifdef MACOSX
 174             else
 175                 aBuffer.append("--mailclient Mail ");
 176 #endif
 177         }
 178
 179     }
 180
 181     catch(const RuntimeException &e )
 182     {
 183         m_xConfigurationProvider.clear();
 184         OSL_TRACE( "RuntimeException caught accessing configuration provider." );
 185         OSL_TRACE( "%s", OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).getStr() );
 186         throw;
 187     }
 188
 189     // Append originator if set in the message
 190     if ( !xSimpleMailMessage->getOriginator().isEmpty() )
 191     {
 192         aBuffer.append("--from \"" +
 193                         OUStringToOString(xSimpleMailMessage->getOriginator(), osl_getThreadTextEncoding()) +
 194                        "\" ");
 195     }
 196
 197     // Append receipient if set in the message
 198     if ( !xSimpleMailMessage->getRecipient().isEmpty() )
 199     {
 200         aBuffer.append("--to \"" +
 201                        OUStringToOString(xSimpleMailMessage->getRecipient(), osl_getThreadTextEncoding()) +
 202                        "\" ");
 203     }
 204
 205     // Append carbon copy receipients set in the message
 206     Sequence< OUString > aStringList = xSimpleMailMessage->getCcRecipient();
 207     sal_Int32 n, nmax = aStringList.getLength();
 208     for ( n = 0; n < nmax; n++ )
 209     {
 210         aBuffer.append("--cc \"" +
 211                        OUStringToOString(aStringList[n], osl_getThreadTextEncoding()) +
 212                        "\" ");
 213     }
 214
 215     // Append blind carbon copy receipients set in the message
 216     aStringList = xSimpleMailMessage->getBccRecipient();
 217     nmax = aStringList.getLength();
 218     for ( n = 0; n < nmax; n++ )
 219     {
 220         aBuffer.append("--bcc \"" +
 221                        OUStringToOString(aStringList[n], osl_getThreadTextEncoding()) +
 222                        "\" ");
 223     }
 224
 225     // Append subject if set in the message
 226     if ( !xSimpleMailMessage->getSubject().isEmpty() )
 227     {
 228         aBuffer.append("--subject \"" +
 229                        OUStringToOString(xSimpleMailMessage->getSubject(), osl_getThreadTextEncoding()) +
 230                        "\" ");
 231     }
 232
 233     // Append attachments set in the message
 234     aStringList = xSimpleMailMessage->getAttachement();
 235     nmax = aStringList.getLength();
 236     for ( n = 0; n < nmax; n++ )
 237     {
 238         OUString aSystemPath;
 239         if ( FileBase::E_None == FileBase::getSystemPathFromFileURL(aStringList[n], aSystemPath) )
 240         {
 241             aBuffer.append("--attach \"" +
 242                            OUStringToOString(aSystemPath, osl_getThreadTextEncoding()) +
 243                            "\" ");
 244         }
 245     }
 246
 247     OString cmd = aBuffer.makeStringAndClear();
 248     if ( 0 != pclose(popen(cmd.getStr(), "w")) )
 249     {
 250         throw ::com::sun::star::uno::Exception("No mail client configured",
 251             static_cast < XSimpleMailClient * > (this) );
 252     }
 253 }
 254
 255 // -------------------------------------------------
 256 // XServiceInfo
 257 // -------------------------------------------------
 258
 259 OUString SAL_CALL CmdMailSuppl::getImplementationName(  )
 260     throw( RuntimeException )
 261 {
 262     return OUString(COMP_IMPL_NAME);
 263 }
 264
 265 // -------------------------------------------------
 266 //  XServiceInfo
 267 // -------------------------------------------------
 268
 269 sal_Bool SAL_CALL CmdMailSuppl::supportsService( const OUString& ServiceName )
 270     throw( RuntimeException )
 271 {
 272     Sequence < OUString > SupportedServicesNames = Component_getSupportedServiceNames();
 273
 274     for ( sal_Int32 n = SupportedServicesNames.getLength(); n--; )
 275         if ( SupportedServicesNames[n] == ServiceName )
 276             return sal_True;
 277
 278     return sal_False;
 279 }
 280
 281 // -------------------------------------------------
 282 //  XServiceInfo
 283 // -------------------------------------------------
 284
 285 Sequence< OUString > SAL_CALL CmdMailSuppl::getSupportedServiceNames(    )
 286     throw( RuntimeException )
 287 {
 288     return Component_getSupportedServiceNames();
 289 }
 290
 291 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */