i121579 - Clean-up system mail API

1 files changed, 355 insertions, 0 deletions

diff --git a/shell/source/cmdmail/syscmdmail.cxx b/shell/source/cmdmail/syscmdmail.cxx
new file mode 100644
index 000000000000..6d10208eaacf
--- /dev/null
+++ b/shell/source/cmdmail/syscmdmail.cxx
@@ -0,0 +1,355 @@
+/**************************************************************
+ *
+ * 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
+ *
+ * Unless required by applicable law or agreed to in writing,
+ * software distributed under the License is distributed on an
+ * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+ * KIND, either express or implied.  See the License for the
+ * specific language governing permissions and limitations
+ * under the License.
+ *
+ *************************************************************/
+
+// MARKER(update_precomp.py): autogen include statement, do not remove
+#include "precompiled_shell.hxx"
+
+#include "syscmdmail.hxx"
+#include "cmdmailmsg.hxx"
+
+#include <com/sun/star/system/MailClientFlags.hpp>
+#include <com/sun/star/container/XNameAccess.hpp>
+#include <com/sun/star/beans/PropertyValue.hpp>
+#include <com/sun/star/beans/XPropertySet.hpp>
+
+#include <osl/file.hxx>
+#include <osl/thread.hxx>
+#include <rtl/bootstrap.hxx>
+#include <rtl/strbuf.hxx>
+
+#include <unistd.h>
+
+using com::sun::star::beans::PropertyValue;
+using com::sun::star::container::XNameAccess;
+using com::sun::star::system::XMailClient;
+using com::sun::star::system::XMailMessage;
+using rtl::OString;
+using rtl::OStringBuffer;
+using rtl::OUString;
+using rtl::OUStringToOString;
+
+using namespace com::sun::star::lang;
+using namespace com::sun::star::system::MailClientFlags;
+using namespace com::sun::star::uno;
+
+#define COMP_SERVICE_NAME  "com.sun.star.system.SystemMailProvider"
+#define COMP_IMPL_NAME     "com.sun.star.comp.system.unx.SystemMailProvider"
+
+namespace shell
+{
+
+namespace
+{
+    static void escapeDoubleQuotes( OStringBuffer &rBuffer,
+                                    const OUString &ustr,
+                                    rtl_TextEncoding iEncoding )
+    {
+        const OString rStr( OUStringToOString( ustr, iEncoding ) );
+        sal_Int32 nIndex = rStr.indexOf('"');
+        if ( nIndex == -1 )
+            rBuffer.append( rStr );
+        else
+        {
+            const sal_Char *pStart = rStr.getStr();
+            const sal_Char *pFrom = pStart;
+            const sal_Int32 nLen = rStr.getLength();
+            sal_Int32 nPrev = 0;;
+            do
+            {
+                rBuffer.append( pFrom, nIndex - nPrev );
+                rBuffer.append( RTL_CONSTASCII_STRINGPARAM( "\\\"" ) );
+                nIndex++;
+                pFrom = pStart + nIndex;
+                nPrev = nIndex;
+            }
+            while ( ( nIndex = rStr.indexOf( '"' , nIndex ) ) != -1  );
+
+            rBuffer.append( pFrom, nLen - nPrev );
+        }
+    }
+}
+
+SystemCommandMail::SystemCommandMail(
+    const Reference< XComponentContext >& xContext )
+    : SystemCommandMail_Base( m_aMutex )
+    , m_xContext( xContext )
+{
+    try
+    {
+        m_xConfigurationProvider.set(
+            m_xContext->getServiceManager()->createInstanceWithContext(
+                OUString( RTL_CONSTASCII_USTRINGPARAM(
+                    "com.sun.star.configuration.ConfigurationProvider") ),
+                m_xContext ),
+            UNO_QUERY );
+    }
+    catch(...){}
+}
+
+SystemCommandMail::~SystemCommandMail()
+{
+    m_xConfigurationProvider.clear();
+    m_xContext.clear();
+}
+
+Reference< XMailClient > SAL_CALL
+SystemCommandMail::queryMailClient()
+throw ( RuntimeException )
+{
+    return Reference< XMailClient >(
+        static_cast < cppu::OWeakObject * >( this ), UNO_QUERY );
+}
+
+
+Reference< XMailMessage > SAL_CALL
+SystemCommandMail::createMailMessage()
+throw ( RuntimeException )
+{
+    return Reference< XMailMessage >(
+        static_cast< cppu::OWeakObject *>(
+            new CmdMailMsg() ),
+        UNO_QUERY );
+}
+
+
+void SAL_CALL
+SystemCommandMail::sendMailMessage(
+    const Reference< XMailMessage >& xMailMessage,
+    sal_Int32 /*aFlag*/ )
+throw (IllegalArgumentException, Exception, RuntimeException)
+{
+    osl::ClearableMutexGuard aGuard( m_aMutex );
+    Reference< XMultiServiceFactory > xConfigurationProvider = m_xConfigurationProvider;
+    aGuard.clear();
+
+    if ( ! xMailMessage.is() )
+    {
+        throw IllegalArgumentException(
+            OUString(RTL_CONSTASCII_USTRINGPARAM( "No message specified" )),
+            static_cast < XMailClient * > (this), 1 );
+    }
+
+    if( ! xConfigurationProvider.is() )
+    {
+        throw Exception(
+            OUString(RTL_CONSTASCII_USTRINGPARAM( "Can not access configuration" )),
+            static_cast < XMailClient * > (this) );
+    }
+
+    OStringBuffer aBuffer;
+    aBuffer.append("\"");
+
+    OUString aProgramURL(RTL_CONSTASCII_USTRINGPARAM("$OOO_BASE_DIR/program/senddoc"));
+    rtl::Bootstrap::expandMacros(aProgramURL);
+    OUString aProgram;
+    if ( osl::FileBase::E_None != osl::FileBase::getSystemPathFromFileURL(aProgramURL, aProgram))
+    {
+        throw Exception(
+            OUString(RTL_CONSTASCII_USTRINGPARAM("Cound not convert executable path")),
+            static_cast < XMailClient * > (this));
+    }
+
+    const rtl_TextEncoding iEncoding = osl_getThreadTextEncoding();
+    aBuffer.append(OUStringToOString(aProgram, iEncoding));
+    aBuffer.append("\" ");
+
+    try
+    {
+        // Query XNameAccess interface of the org.openoffice.Office.Common/ExternalMailer
+        // configuration node to retriece the users preferred email application. This may
+        // transparently by redirected to e.g. the corresponding GConf setting in GNOME.
+        OUString aConfigRoot = OUString(
+            RTL_CONSTASCII_USTRINGPARAM( "org.openoffice.Office.Common/ExternalMailer" ) );
+
+        PropertyValue aProperty;
+        aProperty.Name = OUString( RTL_CONSTASCII_USTRINGPARAM("nodepath" ));
+        aProperty.Value = makeAny( aConfigRoot );
+
+        Sequence< Any > aArgumentList( 1 );
+        aArgumentList[0] = makeAny( aProperty );
+
+        Reference< XNameAccess > xNameAccess =
+            Reference< XNameAccess > (
+                xConfigurationProvider->createInstanceWithArguments(
+                    OUString( RTL_CONSTASCII_USTRINGPARAM( "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( OUString( RTL_CONSTASCII_USTRINGPARAM("Program") ) ) >>= aMailer;
+
+            if( aMailer.getLength() )
+            {
+                // make sure we have a system path
+                osl::FileBase::getSystemPathFromFileURL( aMailer, aMailer );
+
+                aBuffer.append("--mailclient ");
+                aBuffer.append(OUStringToOString( aMailer, iEncoding ));
+                aBuffer.append(" ");
+            }
+#ifdef MACOSX
+            else
+                aBuffer.append("--mailclient Mail ");
+#endif
+        }
+
+    }
+    catch( RuntimeException e )
+    {
+        OSL_TRACE( "RuntimeException caught accessing configuration provider." );
+        OSL_TRACE( OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).getStr() );
+        throw e;
+    }
+
+    // Append body if set in the message
+    OUString ustr = xMailMessage->getBody();
+    if ( ustr.getLength() > 0 )
+    {
+        aBuffer.append("--body \"");
+        escapeDoubleQuotes( aBuffer, ustr, iEncoding );
+        aBuffer.append("\" ");
+    }
+
+    // Append subject if set in the message
+    ustr = xMailMessage->getSubject();
+    if ( ustr.getLength() > 0 )
+    {
+        aBuffer.append("--subject \"");
+        escapeDoubleQuotes( aBuffer, ustr, iEncoding );
+        aBuffer.append("\" ");
+    }
+
+    // Append originator if set in the message
+    if ( xMailMessage->getOriginator().getLength() > 0 )
+    {
+        aBuffer.append("--from \"");
+        aBuffer.append(OUStringToOString(xMailMessage->getOriginator(), iEncoding));
+        aBuffer.append("\" ");
+    }
+
+    // Append receipient if set in the message
+    if ( xMailMessage->getRecipient().getLength() > 0 )
+    {
+        aBuffer.append("--to \"");
+        aBuffer.append(OUStringToOString(xMailMessage->getRecipient(), iEncoding));
+        aBuffer.append("\" ");
+    }
+
+    // Append carbon copy receipients set in the message
+    Sequence< OUString > aStringList = xMailMessage->getCcRecipient();
+    sal_Int32 n, nmax = aStringList.getLength();
+    for ( n = 0; n < nmax; n++ )
+    {
+        aBuffer.append("--cc \"");
+        aBuffer.append(OUStringToOString(aStringList[n], iEncoding));
+        aBuffer.append("\" ");
+    }
+
+    // Append blind carbon copy receipients set in the message
+    aStringList = xMailMessage->getBccRecipient();
+    nmax = aStringList.getLength();
+    for ( n = 0; n < nmax; n++ )
+    {
+        aBuffer.append("--bcc \"");
+        aBuffer.append(OUStringToOString(aStringList[n], iEncoding));
+        aBuffer.append("\" ");
+    }
+
+    // Append attachments set in the message
+    aStringList = xMailMessage->getAttachement();
+    nmax = aStringList.getLength();
+    for ( n = 0; n < nmax; n++ )
+    {
+        OUString aSystemPath;
+        if ( osl::FileBase::E_None == osl::FileBase::getSystemPathFromFileURL(aStringList[n], aSystemPath) )
+        {
+            aBuffer.append("--attach \"");
+            aBuffer.append(OUStringToOString(aSystemPath, iEncoding));
+            aBuffer.append("\" ");
+        }
+    }
+
+    OString cmd = aBuffer.makeStringAndClear();
+    if ( 0 != pclose(popen(cmd.getStr(), "w")) )
+    {
+        throw ::com::sun::star::uno::Exception(
+            OUString(RTL_CONSTASCII_USTRINGPARAM( "No mail client configured" )),
+            static_cast < XMailClient * > (this) );
+    }
+}
+
+OUString SAL_CALL
+SystemCommandMail::getImplementationName(  )
+throw( RuntimeException )
+{
+    return getImplementationName_static();
+}
+
+sal_Bool SAL_CALL
+SystemCommandMail::supportsService(
+    const OUString& ServiceName )
+throw( RuntimeException )
+{
+    Sequence < OUString > SupportedServicesNames = getSupportedServiceNames_static();
+
+    for ( sal_Int32 n = SupportedServicesNames.getLength(); n--; )
+        if (SupportedServicesNames[n].compareTo(ServiceName) == 0)
+            return sal_True;
+
+    return sal_False;
+}
+
+Sequence< OUString > SAL_CALL
+SystemCommandMail::getSupportedServiceNames()
+throw( RuntimeException )
+{
+    return getSupportedServiceNames_static();
+}
+
+Reference< XInterface >
+SystemCommandMail::Create(
+    const Reference< XComponentContext > &xContext)
+{
+    return Reference< XInterface >(
+        static_cast< cppu::OWeakObject *>(
+            new SystemCommandMail( xContext ) ) );
+}
+
+OUString
+SystemCommandMail::getImplementationName_static()
+{
+    return OUString( RTL_CONSTASCII_USTRINGPARAM( COMP_IMPL_NAME ) );
+}
+
+Sequence< OUString >
+SystemCommandMail::getSupportedServiceNames_static()
+{
+    Sequence< OUString > aRet(1);
+    aRet[0] = OUString( RTL_CONSTASCII_USTRINGPARAM( COMP_SERVICE_NAME ) );
+    return aRet;
+}
+
+}