1 files changed, 287 insertions, 0 deletions
diff --git a/shell/source/cmdmail/cmdmailsuppl.cxx b/shell/source/cmdmail/cmdmailsuppl.cxx
new file mode 100644
index 0000000000..2128ae009a
--- /dev/null
+++ b/shell/source/cmdmail/cmdmailsuppl.cxx
@@ -0,0 +1,287 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 .
+ */
+
+#include <config_folders.h>
+
+#include <osl/thread.h>
+
+#include <rtl/bootstrap.hxx>
+
+#include <osl/file.hxx>
+#include <rtl/strbuf.hxx>
+#include "cmdmailsuppl.hxx"
+#include "cmdmailmsg.hxx"
+#include <com/sun/star/system/SimpleMailClientFlags.hpp>
+#include <com/sun/star/container/XNameAccess.hpp>
+#include <com/sun/star/configuration/theDefaultProvider.hpp>
+#include <com/sun/star/beans/PropertyValue.hpp>
+#include <com/sun/star/uno/XComponentContext.hpp>
+#include <cppuhelper/supportsservice.hxx>
+#include <comphelper/diagnose_ex.hxx>
+
+using com::sun::star::beans::PropertyValue;
+using com::sun::star::system::XSimpleMailClientSupplier;
+using com::sun::star::system::XSimpleMailClient;
+using com::sun::star::system::XSimpleMailMessage;
+using com::sun::star::system::XSimpleMailMessage2;
+using com::sun::star::container::XNameAccess;
+using osl::FileBase;
+
+using namespace cppu;
+using namespace com::sun::star::system::SimpleMailClientFlags;
+using namespace com::sun::star::uno;
+using namespace com::sun::star::lang;
+using namespace com::sun::star::configuration;
+
+CmdMailSuppl::CmdMailSuppl( const Reference< XComponentContext >& xContext )
+{
+    m_xConfigurationProvider = theDefaultProvider::get(xContext);
+}
+
+// XSimpleMailClientSupplier
+
+Reference< XSimpleMailClient > SAL_CALL CmdMailSuppl::querySimpleMailClient(  )
+{
+    return static_cast < XSimpleMailClient * > (this);
+}
+
+// XSimpleMailClient
+
+Reference< XSimpleMailMessage > SAL_CALL CmdMailSuppl::createSimpleMailMessage(  )
+{
+    return Reference< XSimpleMailMessage >( new CmdMailMsg(  ) );
+}
+
+namespace {
+
+void appendShellWord(OStringBuffer & buffer, OUString const & word, bool strict)
+{
+    OString sys;
+    if (!word.convertToString(
+            &sys, osl_getThreadTextEncoding(),
+            (strict
+             ? (RTL_UNICODETOTEXT_FLAGS_UNDEFINED_ERROR
+                | RTL_UNICODETOTEXT_FLAGS_INVALID_ERROR)
+             : OUSTRING_TO_OSTRING_CVTFLAGS)))
+    {
+        throw css::uno::Exception(
+            ("Could not convert \"" + word + "\" to encoding #"
+             + OUString::number(osl_getThreadTextEncoding())),
+            css::uno::Reference<css::uno::XInterface>());
+    }
+    buffer.append('\'');
+    for (sal_Int32 i = 0; i != sys.getLength(); ++i) {
+        char c = sys[i];
+        switch (c) {
+        case 0:
+            if (strict) {
+                throw css::uno::Exception(
+                    "Could not convert word containing NUL, \"" + word + "\"",
+                    css::uno::Reference<css::uno::XInterface>());
+            }
+            break;
+        case '\'':
+            buffer.append("'\\''");
+            break;
+        default:
+            buffer.append(c);
+            break;
+        }
+    }
+    buffer.append('\'');
+}
+
+}
+
+void SAL_CALL CmdMailSuppl::sendSimpleMailMessage( const Reference< XSimpleMailMessage >& xSimpleMailMessage, sal_Int32 /*aFlag*/ )
+{
+    if ( ! xSimpleMailMessage.is() )
+    {
+        throw css::lang::IllegalArgumentException( "No message specified" ,
+            static_cast < XSimpleMailClient * > (this), 1 );
+    }
+
+    if( ! m_xConfigurationProvider.is() )
+    {
+        throw css::uno::Exception( "Can not access configuration" ,
+            static_cast < XSimpleMailClient * > (this) );
+    }
+
+
+    OUString aProgramURL("$BRAND_BASE_DIR/" LIBO_LIBEXEC_FOLDER "/senddoc");
+    rtl::Bootstrap::expandMacros(aProgramURL);
+
+    OUString aProgram;
+    if ( FileBase::E_None != FileBase::getSystemPathFromFileURL(aProgramURL, aProgram))
+    {
+        throw css::uno::Exception("Could not convert executable path",
+            static_cast < XSimpleMailClient * > (this));
+    }
+
+    OStringBuffer aBuffer;
+    appendShellWord(aBuffer, aProgram, true);
+
+    try
+    {
+        // Query XNameAccess interface of the org.openoffice.Office.Common/ExternalMailer
+        // configuration node to retrieve the users preferred email application. This may
+        // transparently by redirected to e.g. the corresponding GConf setting in GNOME.
+
+        PropertyValue aProperty;
+        aProperty.Name = "nodepath";
+        aProperty.Value <<= OUString("org.openoffice.Office.Common/ExternalMailer");
+
+        Sequence< Any > aArgumentList{ Any(aProperty) };
+
+        Reference< XNameAccess > xNameAccess(
+                m_xConfigurationProvider->createInstanceWithArguments(
+                    "com.sun.star.configuration.ConfigurationAccess",
+                    aArgumentList ),
+                UNO_QUERY );
+
+        if( xNameAccess.is() )
+        {
+            OUString aMailer;
+
+            // Retrieve the value for "Program" node and append it feed senddoc with it
+            // using the (undocumented) --mailclient switch
+            xNameAccess->getByName("Program") >>= aMailer;
+
+            if( !aMailer.isEmpty() )
+            {
+                // make sure we have a system path
+                FileBase::getSystemPathFromFileURL( aMailer, aMailer );
+
+                aBuffer.append(" --mailclient ");
+                appendShellWord(aBuffer, aMailer, true);
+            }
+#ifdef MACOSX
+            else
+                aBuffer.append(" --mailclient Mail");
+#endif
+        }
+
+    }
+
+    catch(const RuntimeException & )
+    {
+        TOOLS_WARN_EXCEPTION("shell", "RuntimeException caught accessing configuration provider" );
+        m_xConfigurationProvider.clear();
+        throw;
+    }
+
+    Reference< XSimpleMailMessage2 > xMessage( xSimpleMailMessage, UNO_QUERY );
+    if ( xMessage.is() )
+    {
+        OUString sBody = xMessage->getBody();
+        if ( sBody.getLength() > 0 )
+        {
+            aBuffer.append(" --body ");
+            appendShellWord(aBuffer, sBody, false);
+        }
+    }
+
+    // Convert from, to, etc. in a best-effort rather than a strict way to the
+    // system encoding, based on the assumption that the relevant address parts
+    // of those strings are ASCII anyway and any problematic characters are only
+    // in the human-readable, informational-only parts:
+
+    // Append originator if set in the message
+    if ( !xSimpleMailMessage->getOriginator().isEmpty() )
+    {
+        aBuffer.append(" --from ");
+        appendShellWord(aBuffer, xSimpleMailMessage->getOriginator(), false);
+    }
+
+    // Append recipient if set in the message
+    if ( !xSimpleMailMessage->getRecipient().isEmpty() )
+    {
+        aBuffer.append(" --to ");
+        appendShellWord(aBuffer, xSimpleMailMessage->getRecipient(), false);
+    }
+
+    // Append carbon copy recipients set in the message
+    Sequence< OUString > aStringList = xSimpleMailMessage->getCcRecipient();
+    for ( const auto& rString : std::as_const(aStringList) )
+    {
+        aBuffer.append(" --cc ");
+        appendShellWord(aBuffer, rString, false);
+    }
+
+    // Append blind carbon copy recipients set in the message
+    aStringList = xSimpleMailMessage->getBccRecipient();
+    for ( const auto& rString : std::as_const(aStringList) )
+    {
+        aBuffer.append(" --bcc ");
+        appendShellWord(aBuffer, rString, false);
+    }
+
+    // Append subject if set in the message
+    if ( !xSimpleMailMessage->getSubject().isEmpty() )
+    {
+        aBuffer.append(" --subject ");
+        appendShellWord(aBuffer, xSimpleMailMessage->getSubject(), false);
+    }
+
+    // Append attachments set in the message
+    aStringList = xSimpleMailMessage->getAttachement();
+    for ( const auto& rString : std::as_const(aStringList) )
+    {
+        OUString aSystemPath;
+        if ( FileBase::E_None == FileBase::getSystemPathFromFileURL(rString, aSystemPath) )
+        {
+            aBuffer.append(" --attach ");
+            appendShellWord(aBuffer, aSystemPath, true);
+        }
+    }
+
+    OString cmd = aBuffer.makeStringAndClear();
+    FILE * f = popen(cmd.getStr(), "w");
+    if (f == nullptr || pclose(f) != 0)
+    {
+        throw css::uno::Exception("No mail client configured",
+            static_cast < XSimpleMailClient * > (this) );
+    }
+}
+
+// XServiceInfo
+
+OUString SAL_CALL CmdMailSuppl::getImplementationName(  )
+{
+    return "com.sun.star.comp.system.SimpleCommandMail";
+}
+
+sal_Bool SAL_CALL CmdMailSuppl::supportsService( const OUString& ServiceName )
+{
+    return cppu::supportsService(this, ServiceName);
+}
+
+Sequence< OUString > SAL_CALL CmdMailSuppl::getSupportedServiceNames(    )
+{
+    return { "com.sun.star.system.SimpleCommandMail" };
+}
+
+extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface*
+shell_CmdMailSuppl_get_implementation(
+    css::uno::XComponentContext* context, css::uno::Sequence<css::uno::Any> const&)
+{
+    return cppu::acquire(new CmdMailSuppl(context));
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */