xref: /aoo4110/main/sw/source/ui/uno/unomailmerge.cxx (revision b1cdbd2c)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_sw.hxx"
26 
27 
28 #include <vcl/svapp.hxx>
29 #include <vos/mutex.hxx>
30 #include <osl/mutex.hxx>
31 #include <svl/itemprop.hxx>
32 #include <svl/urihelper.hxx>
33 #include <svx/dataaccessdescriptor.hxx>
34 #include <tools/shl.hxx>    // GetAppData
35 #include <tools/tempfile.hxx>
36 #include <sfx2/app.hxx>
37 #include <sfx2/docfile.hxx>
38 #include <sfx2/docfilt.hxx>
39 #include <comphelper/processfactory.hxx>
40 #include <vcl/timer.hxx>
41 #include <com/sun/star/sdb/CommandType.hpp>
42 #include <com/sun/star/text/MailMergeType.hpp>
43 #include <com/sun/star/text/MailMergeEvent.hpp>
44 #include <com/sun/star/text/XMailMergeListener.hpp>
45 #include <com/sun/star/text/XMailMergeBroadcaster.hpp>
46 #include <com/sun/star/beans/PropertyAttribute.hpp>
47 #include <com/sun/star/lang/XUnoTunnel.hpp>
48 #include <com/sun/star/sdbc/XResultSet.hpp>
49 #include <com/sun/star/sdbc/XConnection.hpp>
50 #include <com/sun/star/sdbc/XRowSet.hpp>
51 #include <com/sun/star/frame/XComponentLoader.hpp>
52 #include <com/sun/star/util/XCloseable.hpp>
53 #ifndef _COM_SUN_STAR_UTIL_CloseVetoException_HPP_
54 #include <com/sun/star/util/CloseVetoException.hpp>
55 #endif
56 #include <com/sun/star/sdbcx/XRowLocate.hpp>
57 #include <com/sun/star/frame/XStorable.hpp>
58 #include "com/sun/star/mail/XSmtpService.hpp"
59 #include <sfx2/viewfrm.hxx>
60 #include <sfx2/event.hxx>
61 #include <swevent.hxx>
62 #include <unomailmerge.hxx>
63 #include <swdll.hxx>
64 #include <swmodule.hxx>
65 #include <unoprnms.hxx>
66 #include <unomap.hxx>
67 #include <swunohelper.hxx>
68 #include <docsh.hxx>
69 #ifndef IDOCUMENTDEVICEACCESS_HXX_INCLUDED
70 #include <IDocumentDeviceAccess.hxx>
71 #endif
72 #include <view.hxx>
73 #include <dbmgr.hxx>
74 #include <unotxdoc.hxx>
75 #include <prtopt.hxx>
76 #include <wrtsh.hxx>
77 #include <shellio.hxx>
78 #include <mmconfigitem.hxx>
79 #include <mailmergehelper.hxx>
80 #include <memory>
81 
82 #include <unomid.h>
83 
84 
85 #define SN_MAIL_MERGE               "com.sun.star.text.MailMerge"
86 #define SN_DATA_ACCESS_DESCRIPTOR   "com.sun.star.sdb.DataAccessDescriptor"
87 
88 using namespace ::com::sun::star;
89 using namespace ::com::sun::star::frame;
90 using namespace ::com::sun::star::uno;
91 using namespace ::com::sun::star::lang;
92 using namespace ::com::sun::star::beans;
93 using namespace ::com::sun::star::text;
94 using ::rtl::OUString;
95 using namespace SWUnoHelper;
96 
97 ////////////////////////////////////////////////////////////
98 
99 typedef ::utl::SharedUNOComponent< XInterface > SharedComponent;
100 
101 ////////////////////////////////////////////////////////////
102 
GetMailMergeMutex()103 osl::Mutex &    GetMailMergeMutex()
104 {
105     static osl::Mutex   aMutex;
106     return aMutex;
107 }
108 
109 ////////////////////////////////////////////////////////////
110 
111 enum CloseResult
112 {
113 	eSuccess,		// successfully closed
114 	eVetoed,		// vetoed, ownership transfered to the vetoing instance
115 	eFailed			// failed for some unknown reason
116 };
CloseModelAndDocSh(Reference<frame::XModel> & rxModel,SfxObjectShellRef & rxDocSh)117 static CloseResult CloseModelAndDocSh(
118        Reference< frame::XModel > &rxModel,
119        SfxObjectShellRef &rxDocSh )
120 {
121 	CloseResult eResult = eSuccess;
122 
123     rxDocSh = 0;
124 
125     //! models/documents should never be disposed (they may still be
126     //! used for printing which is called asynchronously for example)
127     //! instead call close
128     Reference< util::XCloseable > xClose( rxModel, UNO_QUERY );
129     if (xClose.is())
130     {
131         try
132         {
133             //! 'sal_True' -> transfer ownership to vetoing object if vetoed!
134             //! I.e. now that object is responsible for closing the model and doc shell.
135             xClose->close( sal_True );
136         }
137         catch (util::CloseVetoException &)
138         {
139             //! here we have the problem that the temporary file that is
140 			//! currently being printed will never be deleted. :-(
141 			eResult = eVetoed;
142         }
143 		catch ( const uno::RuntimeException& )
144 		{
145 			eResult = eFailed;
146 		}
147     }
148 	return eResult;
149 }
150 
151 ////////////////////////////////////////////////////////////
152 
LoadFromURL_impl(Reference<frame::XModel> & rxModel,SfxObjectShellRef & rxDocSh,const String & rURL,sal_Bool bClose)153 static sal_Bool LoadFromURL_impl(
154         Reference< frame::XModel > &rxModel,
155         SfxObjectShellRef &rxDocSh,
156         const String &rURL,
157         sal_Bool bClose )
158     throw (RuntimeException)
159 {
160     // try to open the document readonly and hidden
161     Reference< frame::XModel > xTmpModel;
162     Sequence < PropertyValue > aArgs( 1 );
163     aArgs[0].Name = C2U("Hidden");
164     sal_Bool bVal = sal_True;
165     aArgs[0].Value <<= bVal;
166     try
167     {
168         Reference < XComponentLoader > xDesktop( ::comphelper::getProcessServiceFactory()->
169                 createInstance( C2U("com.sun.star.frame.Desktop") ), UNO_QUERY );
170         xTmpModel = Reference < XModel >( xDesktop->loadComponentFromURL(
171                 rURL, C2U("_blank"), 0, aArgs ), UNO_QUERY );
172     }
173     catch( Exception & )
174     {
175         return sal_False;
176     }
177 
178     // try to get the DocShell
179     SwDocShell *pTmpDocShell = 0;
180     Reference < XUnoTunnel > xTunnel( xTmpModel, UNO_QUERY );
181     if (xTunnel.is())
182     {
183         SwXTextDocument* pTextDoc = reinterpret_cast<SwXTextDocument *>(
184                 xTunnel->getSomething( SwXTextDocument::getUnoTunnelId() ));
185         pTmpDocShell = pTextDoc ? pTextDoc->GetDocShell() : 0;
186     }
187 
188     sal_Bool bRes = sal_False;
189     if (xTmpModel.is() && pTmpDocShell)    // everything available?
190     {
191         if (bClose)
192             CloseModelAndDocSh( rxModel, rxDocSh );
193         // set new stuff
194         rxModel = xTmpModel;
195         rxDocSh = pTmpDocShell;
196         bRes = sal_True;
197     }
198     else
199     {
200         // SfxObjectShellRef is ok here, since the document will be explicitly closed
201         SfxObjectShellRef xTmpDocSh = pTmpDocShell;
202         CloseModelAndDocSh( xTmpModel, xTmpDocSh );
203     }
204 
205     return bRes;
206 }
207 
208 //==========================================================
209 namespace
210 {
211     class DelayedFileDeletion : public ::cppu::WeakImplHelper1< util::XCloseListener >
212 	{
213 	protected:
214 		::osl::Mutex					m_aMutex;
215 		Reference< util::XCloseable >	m_xDocument;
216 		Timer							m_aDeleteTimer;
217 		String							m_sTemporaryFile;
218 		sal_Int32						m_nPendingDeleteAttempts;
219 
220 	public:
221 		DelayedFileDeletion( const Reference< XModel >& _rxModel,
222 							 const String& _rTemporaryFile );
223 
224 	protected:
225 		~DelayedFileDeletion( );
226 
227 		// XCloseListener
228 		virtual void SAL_CALL queryClosing( const EventObject& _rSource, sal_Bool _bGetsOwnership ) throw (util::CloseVetoException, RuntimeException);
229 		virtual void SAL_CALL notifyClosing( const EventObject& _rSource ) throw (RuntimeException);
230 
231 		// XEventListener
232 		virtual void SAL_CALL disposing( const EventObject& Source ) throw (RuntimeException);
233 
234 	private:
235 		void implTakeOwnership( );
236 		DECL_LINK( OnTryDeleteFile, void* );
237 
238 	private:
239 		DelayedFileDeletion( const DelayedFileDeletion& );					// never implemented
240 		DelayedFileDeletion& operator=( const DelayedFileDeletion& );		// never implemented
241 	};
242 
DBG_NAME(DelayedFileDeletion)243 	DBG_NAME( DelayedFileDeletion )
244 	//------------------------------------------------------
245 	DelayedFileDeletion::DelayedFileDeletion( const Reference< XModel >& _rxModel, const String& _rTemporaryFile )
246         :
247         m_xDocument( _rxModel, UNO_QUERY )
248         ,m_sTemporaryFile( _rTemporaryFile )
249 		,m_nPendingDeleteAttempts( 0 )
250 	{
251 		DBG_CTOR( DelayedFileDeletion, NULL );
252 
253 		osl_incrementInterlockedCount( &m_refCount );
254 		try
255 		{
256 			if ( m_xDocument.is() )
257 			{
258 				m_xDocument->addCloseListener( this );
259 				// successfully added -> keep ourself alive
260 				acquire();
261 			}
262 			else {
263 				DBG_ERROR( "DelayedFileDeletion::DelayedFileDeletion: model is no component!" );
264             }
265 		}
266 		catch( const Exception& )
267 		{
268 			DBG_ERROR( "DelayedFileDeletion::DelayedFileDeletion: could not register as event listener at the model!" );
269 		}
270 		osl_decrementInterlockedCount( &m_refCount );
271 	}
272 
273 	//--------------------------------------------------------------------
IMPL_LINK(DelayedFileDeletion,OnTryDeleteFile,void *,EMPTYARG)274     IMPL_LINK( DelayedFileDeletion, OnTryDeleteFile, void*, EMPTYARG )
275 	{
276 		::osl::ClearableMutexGuard aGuard( m_aMutex );
277 
278 		sal_Bool bSuccess = sal_False;
279 		try
280 		{
281 			sal_Bool bDeliverOwnership = ( 0 == m_nPendingDeleteAttempts );
282 				// if this is our last attemt, then anybody which vetoes this has to take the consequences
283 				// (means take the ownership)
284 			m_xDocument->close( bDeliverOwnership );
285 			bSuccess = sal_True;
286 		}
287 		catch( const util::CloseVetoException& )
288 		{
289 			// somebody vetoed -> next try
290 			if ( m_nPendingDeleteAttempts )
291 			{
292 				// next attempt
293 				--m_nPendingDeleteAttempts;
294 				m_aDeleteTimer.Start();
295 			}
296 			else
297 				bSuccess = sal_True;	// can't do anything here ...
298 		}
299 		catch( const Exception& )
300 		{
301 			DBG_ERROR( "DelayedFileDeletion::OnTryDeleteFile: caught a strange exception!" );
302 			bSuccess = sal_True;
303 				// can't do anything here ...
304 		}
305 
306 		if ( bSuccess )
307 		{
308 			SWUnoHelper::UCB_DeleteFile( m_sTemporaryFile );
309 			aGuard.clear();
310 			release();	// this should be our last reference, we should be dead after this
311 		}
312 		return 0L;
313 	}
314 
315 	//--------------------------------------------------------------------
implTakeOwnership()316 	void DelayedFileDeletion::implTakeOwnership( )
317 	{
318 		// revoke ourself as listener
319 		try
320 		{
321 			m_xDocument->removeCloseListener( this );
322 		}
323 		catch( const Exception & )
324 		{
325 			DBG_ERROR( "DelayedFileDeletion::implTakeOwnership: could not revoke the listener!" );
326 		}
327 
328 		m_aDeleteTimer.SetTimeout( 3000 );	// 3 seconds
329 		m_aDeleteTimer.SetTimeoutHdl( LINK( this, DelayedFileDeletion, OnTryDeleteFile ) );
330 		m_nPendingDeleteAttempts = 3;	// try 3 times at most
331 		m_aDeleteTimer.Start( );
332 	}
333 
334 	//--------------------------------------------------------------------
queryClosing(const EventObject &,sal_Bool _bGetsOwnership)335     void SAL_CALL DelayedFileDeletion::queryClosing( const EventObject& , sal_Bool _bGetsOwnership ) throw (util::CloseVetoException, RuntimeException)
336 	{
337 		::osl::MutexGuard aGuard( m_aMutex );
338 		if ( _bGetsOwnership )
339 			implTakeOwnership( );
340 
341 		// always veto: We want to take the ownership ourself, as this is the only chance to delete
342 		// the temporary file which the model is based on
343 		throw util::CloseVetoException( );
344 	}
345 
346 	//--------------------------------------------------------------------
notifyClosing(const EventObject &)347     void SAL_CALL DelayedFileDeletion::notifyClosing( const EventObject&  ) throw (RuntimeException)
348 	{
349 		DBG_ERROR( "DelayedFileDeletion::notifyClosing: how this?" );
350 		// this should not happen:
351 		// Either, a foreign instance closes the document, then we should veto this, and take the ownership
352 		// Or, we ourself close the document, then we should not be a listener anymore
353 	}
354 
355 	//------------------------------------------------------
disposing(const EventObject &)356     void SAL_CALL DelayedFileDeletion::disposing( const EventObject&  ) throw (RuntimeException)
357 	{
358 		DBG_ERROR( "DelayedFileDeletion::disposing: how this?" );
359 		// this should not happen:
360 		// Either, a foreign instance closes the document, then we should veto this, and take the ownership
361 		// Or, we ourself close the document, then we should not be a listener anymore
362 	}
363 
364 	//------------------------------------------------------
~DelayedFileDeletion()365 	DelayedFileDeletion::~DelayedFileDeletion( )
366 	{
367 		DBG_DTOR( DelayedFileDeletion, NULL );
368 	}
369 }
370 
371 ////////////////////////////////////////////////////////////
372 
DeleteTmpFile_Impl(Reference<frame::XModel> & rxModel,SfxObjectShellRef & rxDocSh,const String & rTmpFileURL)373 static sal_Bool DeleteTmpFile_Impl(
374         Reference< frame::XModel > &rxModel,
375         SfxObjectShellRef &rxDocSh,
376         const String &rTmpFileURL )
377 {
378     sal_Bool bRes = sal_False;
379     if (rTmpFileURL.Len())
380     {
381 		sal_Bool bDelete = sal_True;
382 		if ( eVetoed == CloseModelAndDocSh( rxModel, rxDocSh ) )
383 		{
384 			// somebody vetoed the closing, and took the ownership of the document
385 			// -> ensure that the temporary file is deleted later on
386 			Reference< XEventListener > xEnsureDelete( new DelayedFileDeletion( rxModel, rTmpFileURL ) );
387 				// note: as soon as #106931# is fixed, the whole DelayedFileDeletion is to be superseeded by
388 				// a better solution
389 			bDelete = sal_False;
390 		}
391 
392         rxModel = 0;
393         rxDocSh = 0; // destroy doc shell
394 
395 		if ( bDelete )
396 		{
397 			if ( !SWUnoHelper::UCB_DeleteFile( rTmpFileURL ) )
398 			{
399 				Reference< XEventListener > xEnsureDelete( new DelayedFileDeletion( rxModel, rTmpFileURL ) );
400 					// same not as above: as soon as #106931#, ...
401 			}
402 		}
403 		else
404 			bRes = sal_True;	// file will be deleted delayed
405     }
406     return bRes;
407 }
408 
409 ////////////////////////////////////////////////////////////
410 
SwXMailMerge()411 SwXMailMerge::SwXMailMerge() :
412     aEvtListeners   ( GetMailMergeMutex() ),
413     aMergeListeners ( GetMailMergeMutex() ),
414     aPropListeners  ( GetMailMergeMutex() ),
415     pPropSet( aSwMapProvider.GetPropertySet( PROPERTY_MAP_MAILMERGE ) ),
416     bSendAsHTML(sal_False),
417     bSendAsAttachment(sal_False),
418     bSaveAsSingleFile(sal_False)
419 
420 {
421     // create empty document
422     // like in: SwModule::InsertEnv (appenv.cxx)
423     SwDocShell *pDocShell = new SwDocShell( SFX_CREATE_MODE_STANDARD );
424     xDocSh = pDocShell;
425     xDocSh->DoInitNew( 0 );
426     SfxViewFrame *pFrame = SfxViewFrame::LoadHiddenDocument( *xDocSh, 0 );
427     SwView *pView = (SwView*) pFrame->GetViewShell();
428     pView->AttrChangedNotify( &pView->GetWrtShell() );//Damit SelectShell gerufen wird.
429 
430     xModel = pDocShell->GetModel();
431 
432     nDataCommandType    = sdb::CommandType::TABLE;
433     nOutputType         = MailMergeType::PRINTER;
434     bEscapeProcessing   = sal_True;     //!! allow to process properties like "Filter", "Order", ...
435     bSinglePrintJobs    = sal_False;
436     bFileNameFromColumn = sal_False;
437 
438     bDisposing = sal_False;
439 }
440 
~SwXMailMerge()441 SwXMailMerge::~SwXMailMerge()
442 {
443 	if (aTmpFileName.Len())
444 		DeleteTmpFile_Impl( xModel, xDocSh, aTmpFileName );
445 	else	// there was no temporary file in use
446 	{
447 		//! we still need to close the model and doc shell manually
448 		//! because there is no automatism that will do that later.
449 		//! #120086#
450 		if ( eVetoed == CloseModelAndDocSh( xModel, xDocSh ) )
451 			DBG_WARNING( "owner ship transfered to vetoing object!" );
452 
453         xModel = 0;
454         xDocSh = 0; // destroy doc shell
455 	}
456 }
457 
execute(const uno::Sequence<beans::NamedValue> & rArguments)458 uno::Any SAL_CALL SwXMailMerge::execute(
459         const uno::Sequence< beans::NamedValue >& rArguments )
460     throw (IllegalArgumentException, Exception, RuntimeException)
461 {
462     vos::OGuard aGuard( Application::GetSolarMutex() );
463 
464     //
465     // get property values to be used
466     // (use values from the service as default and override them with
467     // the values that are provided as arguments)
468     //
469     uno::Sequence< uno::Any >           aCurSelection   = aSelection;
470     uno::Reference< sdbc::XResultSet >  xCurResultSet   = xResultSet;
471     uno::Reference< sdbc::XConnection > xCurConnection  = xConnection;
472     uno::Reference< frame::XModel >     xCurModel       = xModel;
473     OUString   aCurDataSourceName       = aDataSourceName;
474     OUString   aCurDataCommand          = aDataCommand;
475     OUString   aCurFilter               = aFilter;
476     OUString   aCurDocumentURL          = aDocumentURL;
477     OUString   aCurOutputURL            = aOutputURL;
478     OUString   aCurFileNamePrefix       = aFileNamePrefix;
479     sal_Int32  nCurDataCommandType      = nDataCommandType;
480     sal_Int16  nCurOutputType           = nOutputType;
481     sal_Bool   bCurEscapeProcessing     = bEscapeProcessing;
482     sal_Bool   bCurSinglePrintJobs      = bSinglePrintJobs;
483     sal_Bool   bCurFileNameFromColumn   = bFileNameFromColumn;
484     //
485     SfxObjectShellRef xCurDocSh = xDocSh;   // the document
486     //
487     const beans::NamedValue *pArguments = rArguments.getConstArray();
488     sal_Int32 nArgs = rArguments.getLength();
489     for (sal_Int32 i = 0;  i < nArgs;  ++i)
490     {
491         const OUString &rName   = pArguments[i].Name;
492         const Any &rValue       = pArguments[i].Value;
493 
494         sal_Bool bOK = sal_True;
495         if (rName.equalsAscii( GetPropName( UNO_NAME_SELECTION ) ))
496             bOK = rValue >>= aCurSelection;
497         else if (rName.equalsAscii( GetPropName( UNO_NAME_RESULT_SET ) ))
498             bOK = rValue >>= xCurResultSet;
499         else if (rName.equalsAscii( GetPropName( UNO_NAME_CONNECTION ) ))
500             bOK = rValue >>= xCurConnection;
501         else if (rName.equalsAscii( GetPropName( UNO_NAME_MODEL ) ))
502             throw PropertyVetoException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Property is read-only: " ) ) + rName, static_cast < cppu::OWeakObject * > ( this ) );
503         else if (rName.equalsAscii( GetPropName( UNO_NAME_DATA_SOURCE_NAME ) ))
504             bOK = rValue >>= aCurDataSourceName;
505         else if (rName.equalsAscii( GetPropName( UNO_NAME_DAD_COMMAND ) ))
506             bOK = rValue >>= aCurDataCommand;
507         else if (rName.equalsAscii( GetPropName( UNO_NAME_FILTER ) ))
508             bOK = rValue >>= aCurFilter;
509         else if (rName.equalsAscii( GetPropName( UNO_NAME_DOCUMENT_URL ) ))
510         {
511             bOK = rValue >>= aCurDocumentURL;
512             if (aCurDocumentURL.getLength()
513                 && !LoadFromURL_impl( xCurModel, xCurDocSh, aCurDocumentURL, sal_False ))
514                 throw RuntimeException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Failed to create document from URL: " ) ) + aCurDocumentURL, static_cast < cppu::OWeakObject * > ( this ) );
515         }
516         else if (rName.equalsAscii( GetPropName( UNO_NAME_OUTPUT_URL ) ))
517         {
518             bOK = rValue >>= aCurOutputURL;
519             if (aCurOutputURL.getLength())
520             {
521                 if (!UCB_IsDirectory(aCurOutputURL))
522                     throw IllegalArgumentException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "URL does not point to a directory: " ) ) + aCurOutputURL, static_cast < cppu::OWeakObject * > ( this ), 0 );
523                 if (UCB_IsReadOnlyFileName(aCurOutputURL))
524                     throw IllegalArgumentException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "URL is read-only: " ) ) + aCurOutputURL, static_cast < cppu::OWeakObject * > ( this ), 0 );
525             }
526         }
527         else if (rName.equalsAscii( GetPropName( UNO_NAME_FILE_NAME_PREFIX ) ))
528             bOK = rValue >>= aCurFileNamePrefix;
529         else if (rName.equalsAscii( GetPropName( UNO_NAME_DAD_COMMAND_TYPE ) ))
530             bOK = rValue >>= nCurDataCommandType;
531         else if (rName.equalsAscii( GetPropName( UNO_NAME_OUTPUT_TYPE ) ))
532             bOK = rValue >>= nCurOutputType;
533         else if (rName.equalsAscii( GetPropName( UNO_NAME_ESCAPE_PROCESSING ) ))
534             bOK = rValue >>= bCurEscapeProcessing;
535         else if (rName.equalsAscii( GetPropName( UNO_NAME_SINGLE_PRINT_JOBS ) ))
536             bOK = rValue >>= bCurSinglePrintJobs;
537         else if (rName.equalsAscii( GetPropName( UNO_NAME_FILE_NAME_FROM_COLUMN ) ))
538             bOK = rValue >>= bCurFileNameFromColumn;
539         else if (rName.equalsAscii( GetPropName( UNO_NAME_SUBJECT ) ))
540             bOK = rValue >>= sSubject;
541         else if (rName.equalsAscii( GetPropName( UNO_NAME_ADDRESS_FROM_COLUMN ) ))
542             bOK = rValue >>= sAddressFromColumn;
543         else if (rName.equalsAscii( GetPropName( UNO_NAME_SEND_AS_HTML ) ))
544             bOK = rValue >>= bSendAsHTML;
545         else if (rName.equalsAscii( GetPropName( UNO_NAME_MAIL_BODY ) ))
546             bOK = rValue >>= sMailBody;
547         else if (rName.equalsAscii( GetPropName( UNO_NAME_ATTACHMENT_NAME ) ))
548             bOK = rValue >>= sAttachmentName;
549         else if (rName.equalsAscii( GetPropName( UNO_NAME_ATTACHMENT_FILTER ) ))
550             bOK = rValue >>= sAttachmentFilter;
551         else if (rName.equalsAscii( GetPropName( UNO_NAME_COPIES_TO ) ))
552             bOK = rValue >>= aCopiesTo;
553         else if (rName.equalsAscii( GetPropName( UNO_NAME_BLIND_COPIES_TO ) ))
554             bOK = rValue >>= aBlindCopiesTo;
555         else if (rName.equalsAscii( GetPropName( UNO_NAME_SEND_AS_ATTACHMENT ) ))
556             bOK = rValue >>= bSendAsAttachment;
557         else if (rName.equalsAscii( GetPropName( UNO_NAME_PRINT_OPTIONS ) ))
558             bOK = rValue >>= aPrintSettings;
559         else if (rName.equalsAscii( GetPropName( UNO_NAME_SAVE_AS_SINGLE_FILE ) ))
560             bOK = rValue >>= bSaveAsSingleFile;
561         else if (rName.equalsAscii( GetPropName( UNO_NAME_SAVE_FILTER ) ))
562             bOK = rValue >>= sSaveFilter;
563         else if (rName.equalsAscii( GetPropName( UNO_NAME_SAVE_FILTER_OPTIONS ) ))
564             bOK = rValue >>= sSaveFilterOptions;
565         else if (rName.equalsAscii( GetPropName( UNO_NAME_SAVE_FILTER_DATA ) ))
566             bOK = rValue >>= aSaveFilterData;
567         else if (rName.equalsAscii( GetPropName( UNO_NAME_IN_SERVER_PASSWORD ) ))
568             bOK = rValue >>= sInServerPassword;
569         else if (rName.equalsAscii( GetPropName( UNO_NAME_OUT_SERVER_PASSWORD ) ))
570             bOK = rValue >>= sOutServerPassword;
571         else
572             throw UnknownPropertyException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Property is unknown: " ) ) + rName, static_cast < cppu::OWeakObject * > ( this ) );
573 
574         if (!bOK)
575             throw IllegalArgumentException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Property type mismatch or property not set: " ) ) + rName, static_cast < cppu::OWeakObject * > ( this ), 0 );
576     }
577 
578 	// need to translate the selection: the API here requires a sequence of bookmarks, but the MergeNew
579 	// method we will call below requires a sequence of indicies.
580 	if ( aCurSelection.getLength() )
581 	{
582 		Sequence< Any > aTranslated( aCurSelection.getLength() );
583 
584 		sal_Bool bValid = sal_False;
585 		Reference< sdbcx::XRowLocate > xRowLocate( xCurResultSet, UNO_QUERY );
586 		if ( xRowLocate.is() )
587 		{
588 
589 			const Any* pBookmarks = aCurSelection.getConstArray();
590 			const Any* pBookmarksEnd = pBookmarks + aCurSelection.getLength();
591 			Any* pTranslated = aTranslated.getArray();
592 
593 			try
594 			{
595 				sal_Bool bEverythingsFine = sal_True;
596 				for ( ; ( pBookmarks != pBookmarksEnd ) && bEverythingsFine; ++pBookmarks )
597 				{
598 					if ( xRowLocate->moveToBookmark( *pBookmarks ) )
599 						*pTranslated <<= xCurResultSet->getRow();
600 					else
601 						bEverythingsFine = sal_False;
602 				}
603 				if ( bEverythingsFine )
604 					bValid = sal_True;
605 			}
606 			catch( const Exception& )
607 			{
608 				bValid = sal_False;
609 			}
610 		}
611 
612 		if ( !bValid )
613 		{
614             throw IllegalArgumentException(
615 				OUString ( RTL_CONSTASCII_USTRINGPARAM ( "The current 'Selection' does not describe a valid array of bookmarks, relative to the current 'ResultSet'." ) ),
616 				static_cast < cppu::OWeakObject * > ( this ),
617 				0
618 			);
619 		}
620 
621 		aCurSelection = aTranslated;
622 	}
623 
624     SfxViewFrame*   pFrame = SfxViewFrame::GetFirst( xCurDocSh, sal_False);
625     SwView *pView = PTR_CAST( SwView, pFrame->GetViewShell() );
626     if (!pView)
627         throw RuntimeException();
628     SwWrtShell &rSh = *pView->GetWrtShellPtr();
629 
630     // avoid assertion in 'Update' from Sfx by supplying a shell
631     // and thus avoiding the SelectShell call in Writers GetState function
632     // while still in Update of Sfx.
633     // (GetSelection in Update is not allowed)
634     if (pView && aCurDocumentURL.getLength())
635         pView->AttrChangedNotify( &pView->GetWrtShell() );//Damit SelectShell gerufen wird.
636 
637     SharedComponent aRowSetDisposeHelper;
638     if (!xCurResultSet.is())
639     {
640         if (!aCurDataSourceName.getLength() || !aCurDataCommand.getLength() )
641         {
642             DBG_ERROR("PropertyValues missing or unset");
643             throw IllegalArgumentException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Either the ResultSet or DataSourceName and DataCommand must be set." ) ), static_cast < cppu::OWeakObject * > ( this ), 0 );
644         }
645 
646         //
647         // build ResultSet from DataSourceName, DataCommand and DataCommandType
648         //
649         Reference< XMultiServiceFactory > xMgr( ::comphelper::getProcessServiceFactory() );
650         if (xMgr.is())
651         {
652             Reference< XInterface > xInstance = xMgr->createInstance(
653                     C2U( "com.sun.star.sdb.RowSet" ));
654             aRowSetDisposeHelper.reset( xInstance, SharedComponent::TakeOwnership );
655             Reference< XPropertySet > xRowSetPropSet( xInstance, UNO_QUERY );
656             DBG_ASSERT( xRowSetPropSet.is(), "failed to get XPropertySet interface from RowSet" );
657             if (xRowSetPropSet.is())
658             {
659                 if (xCurConnection.is())
660                     xRowSetPropSet->setPropertyValue( C2U("ActiveConnection"),  makeAny( xCurConnection ) );
661                 xRowSetPropSet->setPropertyValue( C2U("DataSourceName"),    makeAny( aCurDataSourceName ) );
662                 xRowSetPropSet->setPropertyValue( C2U("Command"),           makeAny( aCurDataCommand ) );
663                 xRowSetPropSet->setPropertyValue( C2U("CommandType"),       makeAny( nCurDataCommandType ) );
664                 xRowSetPropSet->setPropertyValue( C2U("EscapeProcessing"),  makeAny( bCurEscapeProcessing ) );
665                 xRowSetPropSet->setPropertyValue( C2U("ApplyFilter"),       makeAny( sal_True ) );
666                 xRowSetPropSet->setPropertyValue( C2U("Filter"),            makeAny( aCurFilter ) );
667 
668                 Reference< sdbc::XRowSet > xRowSet( xInstance, UNO_QUERY );
669                 if (xRowSet.is())
670                     xRowSet->execute(); // build ResultSet from properties
671                 if( !xCurConnection.is() )
672                     xCurConnection.set( xRowSetPropSet->getPropertyValue( C2U( "ActiveConnection" )), UNO_QUERY );
673                 xCurResultSet = Reference< sdbc::XResultSet >( xRowSet, UNO_QUERY );
674                 DBG_ASSERT( xCurResultSet.is(), "failed to build ResultSet" );
675             }
676         }
677     }
678 
679     svx::ODataAccessDescriptor aDescriptor;
680     aDescriptor.setDataSource(aCurDataSourceName);
681     aDescriptor[ svx::daConnection ]         <<= xCurConnection;
682     aDescriptor[ svx::daCommand ]            <<= aCurDataCommand;
683     aDescriptor[ svx::daCommandType ]        <<= nCurDataCommandType;
684     aDescriptor[ svx::daEscapeProcessing ]   <<= bCurEscapeProcessing;
685     aDescriptor[ svx::daCursor ]             <<= xCurResultSet;
686     // aDescriptor[ svx::daColumnName ]      not used
687     // aDescriptor[ svx::daColumnObject ]    not used
688     aDescriptor[ svx::daSelection ]          <<= aCurSelection;
689 
690     sal_uInt16 nMergeType;
691     switch (nCurOutputType)
692     {
693         case MailMergeType::PRINTER : nMergeType = DBMGR_MERGE_MAILMERGE; break;
694         case MailMergeType::FILE    : nMergeType = DBMGR_MERGE_MAILFILES; break;
695         case MailMergeType::MAIL    : nMergeType = DBMGR_MERGE_MAILING; break;
696         default:
697             throw IllegalArgumentException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Invalid value of property:" ) ) + C2U("OutputType"), static_cast < cppu::OWeakObject * > ( this ), 0 );
698     }
699 
700     SwNewDBMgr* pMgr = rSh.GetNewDBMgr();
701     //force layout creation
702     rSh.CalcLayout();
703     DBG_ASSERT( pMgr, "database manager missing" );
704 
705     SwMergeDescriptor aMergeDesc( nMergeType, rSh, aDescriptor );
706 
707     std::auto_ptr< SwMailMergeConfigItem > pMMConfigItem;
708     uno::Reference< mail::XMailService > xInService;
709     if (MailMergeType::PRINTER == nCurOutputType)
710     {
711         IDocumentDeviceAccess* pIDDA = rSh.getIDocumentDeviceAccess();
712         SwPrintData aPrtData( pIDDA->getPrintData() );
713         aPrtData.SetPrintSingleJobs( bCurSinglePrintJobs );
714         pIDDA->setPrintData( aPrtData );
715         // #i25686# printing should not be done asynchronously to prevent dangling offices
716         // when mail merge is called as command line macro
717         aMergeDesc.bPrintAsync = sal_False;
718         aMergeDesc.aPrintOptions = aPrintSettings;
719         aMergeDesc.bCreateSingleFile = true;
720     }
721     else /* FILE and MAIL*/
722     {
723 		INetURLObject aURLObj;
724         aURLObj.SetSmartProtocol( INET_PROT_FILE );
725 
726 		if (aCurDocumentURL.getLength())
727 		{
728 			// if OutputURL or FileNamePrefix are missing get
729 			// them from DocumentURL
730             aURLObj.SetSmartURL( aCurDocumentURL );
731 			if (!aCurFileNamePrefix.getLength())
732                 aCurFileNamePrefix = aURLObj.GetBase(); // filename without extension
733             if (!aCurOutputURL.getLength())
734             {
735                 //aCurOutputURL = aURLObj.GetURLPath();
736                 aURLObj.removeSegment();
737                 aCurOutputURL = aURLObj.GetMainURL( INetURLObject::DECODE_TO_IURI );
738             }
739 		}
740 		else	// default empty document without URL
741 		{
742 			if (!aCurOutputURL.getLength())
743 				throw RuntimeException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "OutputURL is not set and can not be obtained." ) ), static_cast < cppu::OWeakObject * > ( this ) );
744 		}
745 
746 		aURLObj.SetSmartURL( aCurOutputURL );
747         String aPath = aURLObj.GetMainURL( INetURLObject::DECODE_TO_IURI );
748 
749         String aDelim( INET_PATH_TOKEN );
750         if (aPath.Len() >= aDelim.Len() &&
751             aPath.Copy( aPath.Len()-aDelim.Len() ).CompareTo( aDelim ) != COMPARE_EQUAL)
752             aPath += aDelim;
753         if (bCurFileNameFromColumn)
754             pMgr->SetEMailColumn( aCurFileNamePrefix );
755         else
756         {
757             aPath += String( aCurFileNamePrefix );
758             pMgr->SetEMailColumn( String() );
759         }
760         pMgr->SetSubject( aPath );
761         if(MailMergeType::FILE == nCurOutputType)
762         {
763             aMergeDesc.sSaveToFilter = sSaveFilter;
764             aMergeDesc.sSaveToFilterOptions = sSaveFilterOptions;
765             aMergeDesc.aSaveToFilterData = aSaveFilterData;
766             aMergeDesc.bCreateSingleFile = bSaveAsSingleFile;
767         }
768         else /*if(MailMergeType::MAIL == nCurOutputType)*/
769         {
770             pMgr->SetEMailColumn( sAddressFromColumn );
771             if(!sAddressFromColumn.getLength())
772                 throw RuntimeException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Mail address column not set." ) ), static_cast < cppu::OWeakObject * > ( this ) );
773             aMergeDesc.sSaveToFilter     = sAttachmentFilter;
774             aMergeDesc.sSubject          = sSubject;
775             aMergeDesc.sMailBody         = sMailBody;
776             aMergeDesc.sAttachmentName   = sAttachmentName;
777             aMergeDesc.aCopiesTo         = aCopiesTo;
778             aMergeDesc.aBlindCopiesTo    = aBlindCopiesTo;
779             aMergeDesc.bSendAsHTML       = bSendAsHTML;
780             aMergeDesc.bSendAsAttachment = bSendAsAttachment;
781 
782             aMergeDesc.bCreateSingleFile = sal_False;
783             pMMConfigItem = std::auto_ptr< SwMailMergeConfigItem >(new SwMailMergeConfigItem);
784             aMergeDesc.pMailMergeConfigItem = pMMConfigItem.get();
785             aMergeDesc.xSmtpServer = SwMailMergeHelper::ConnectToSmtpServer(
786                     *pMMConfigItem,
787                     xInService,
788                     sInServerPassword, sOutServerPassword );
789             if( !aMergeDesc.xSmtpServer.is() || !aMergeDesc.xSmtpServer->isConnected())
790                 throw RuntimeException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Failed to connect to mail server." ) ), static_cast < cppu::OWeakObject * > ( this ) );
791         }
792     }
793 
794 
795     // save document with temporary filename
796     const SfxFilter *pSfxFlt = SwIoSystem::GetFilterOfFormat(
797             String::CreateFromAscii( FILTER_XML ),
798             SwDocShell::Factory().GetFilterContainer() );
799     String aExtension( pSfxFlt->GetDefaultExtension() );
800     aExtension.EraseLeadingChars( '*' );
801     TempFile aTempFile( C2U("SwMM"), &aExtension );
802     aTmpFileName = aTempFile.GetName();
803 
804 	Reference< XStorable > xStorable( xCurModel, UNO_QUERY );
805 	sal_Bool bStoredAsTemporary = sal_False;
806 	if ( xStorable.is() )
807 	{
808 		try
809 		{
810 			xStorable->storeAsURL( aTmpFileName, Sequence< PropertyValue >() );
811 			bStoredAsTemporary = sal_True;
812 		}
813 		catch( const Exception& )
814 		{
815 		}
816 	}
817 	if ( !bStoredAsTemporary )
818         throw RuntimeException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Failed to save temporary file." ) ), static_cast < cppu::OWeakObject * > ( this ) );
819 
820     pMgr->SetMergeSilent( sal_True );       // suppress dialogs, message boxes, etc.
821     const SwXMailMerge *pOldSrc = pMgr->GetMailMergeEvtSrc();
822     DBG_ASSERT( !pOldSrc || pOldSrc == this, "Ooops... different event source already set." );
823     pMgr->SetMailMergeEvtSrc( this );   // launch events for listeners
824 
825     SFX_APP()->NotifyEvent(SfxEventHint(SW_EVENT_MAIL_MERGE, SwDocShell::GetEventName(STR_SW_EVENT_MAIL_MERGE), xCurDocSh));
826     sal_Bool bSucc = pMgr->MergeNew( aMergeDesc );
827     SFX_APP()->NotifyEvent(SfxEventHint(SW_EVENT_MAIL_MERGE_END, SwDocShell::GetEventName(STR_SW_EVENT_MAIL_MERGE_END), xCurDocSh));
828 
829     pMgr->SetMailMergeEvtSrc( pOldSrc );
830 
831 	if ( xCurModel.get() != xModel.get() )
832 	{	// in case it was a temporary model -> close it, and delete the file
833 	    DeleteTmpFile_Impl( xCurModel, xCurDocSh, aTmpFileName );
834 		aTmpFileName.Erase();
835 	}
836 	// (in case it wasn't a temporary model, it will be closed in the dtor, at the latest)
837 
838     if (!bSucc)
839         throw Exception( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Mail merge failed. Sorry, no further information available." ) ), static_cast < cppu::OWeakObject * > ( this ) );
840 
841     //de-initialize services
842     if(xInService.is() && xInService->isConnected())
843         xInService->disconnect();
844     if(aMergeDesc.xSmtpServer.is() && aMergeDesc.xSmtpServer->isConnected())
845         aMergeDesc.xSmtpServer->disconnect();
846 
847     return makeAny( sal_True );
848 }
849 
LaunchMailMergeEvent(const MailMergeEvent & rEvt) const850 void SwXMailMerge::LaunchMailMergeEvent( const MailMergeEvent &rEvt ) const
851 {
852     cppu::OInterfaceIteratorHelper aIt( ((SwXMailMerge *) this)->aMergeListeners );
853     while (aIt.hasMoreElements())
854     {
855         Reference< XMailMergeListener > xRef( aIt.next(), UNO_QUERY );
856         if (xRef.is())
857             xRef->notifyMailMergeEvent( rEvt );
858     }
859 }
860 
launchEvent(const PropertyChangeEvent & rEvt) const861 void SwXMailMerge::launchEvent( const PropertyChangeEvent &rEvt ) const
862 {
863     cppu::OInterfaceContainerHelper *pContainer =
864             aPropListeners.getContainer( rEvt.PropertyHandle );
865     if (pContainer)
866     {
867         cppu::OInterfaceIteratorHelper aIt( *pContainer );
868         while (aIt.hasMoreElements())
869         {
870             Reference< XPropertyChangeListener > xRef( aIt.next(), UNO_QUERY );
871             if (xRef.is())
872                 xRef->propertyChange( rEvt );
873         }
874     }
875 }
876 
877 
getPropertySetInfo()878 uno::Reference< beans::XPropertySetInfo > SAL_CALL SwXMailMerge::getPropertySetInfo(  )
879     throw (RuntimeException)
880 {
881     vos::OGuard aGuard( Application::GetSolarMutex() );
882     static Reference< XPropertySetInfo > aRef = pPropSet->getPropertySetInfo();
883     return aRef;
884 }
885 
setPropertyValue(const OUString & rPropertyName,const uno::Any & rValue)886 void SAL_CALL SwXMailMerge::setPropertyValue(
887         const OUString& rPropertyName, const uno::Any& rValue )
888     throw (UnknownPropertyException, PropertyVetoException, IllegalArgumentException, WrappedTargetException, RuntimeException)
889 {
890     vos::OGuard aGuard( Application::GetSolarMutex() );
891 
892     const SfxItemPropertySimpleEntry* pCur = pPropSet->getPropertyMap()->getByName( rPropertyName );
893     if (!pCur)
894         throw UnknownPropertyException();
895     else if (pCur->nFlags & PropertyAttribute::READONLY)
896         throw PropertyVetoException();
897     else
898     {
899         void *pData = NULL;
900         const uno::Type* pType = pCur->pType;
901         switch (pCur->nWID)
902         {
903             case WID_SELECTION :                pData = &aSelection;  break;
904             case WID_RESULT_SET :               pData = &xResultSet;  break;
905             case WID_CONNECTION :               pData = &xConnection;  break;
906             case WID_MODEL :                    pData = &xModel;  break;
907             case WID_DATA_SOURCE_NAME :         pData = &aDataSourceName;  break;
908             case WID_DATA_COMMAND :             pData = &aDataCommand;  break;
909             case WID_FILTER :                   pData = &aFilter;  break;
910             case WID_DOCUMENT_URL :             pData = &aDocumentURL;  break;
911             case WID_OUTPUT_URL :               pData = &aOutputURL;  break;
912             case WID_DATA_COMMAND_TYPE :        pData = &nDataCommandType;  break;
913             case WID_OUTPUT_TYPE :              pData = &nOutputType;  break;
914             case WID_ESCAPE_PROCESSING :        pData = &bEscapeProcessing;  break;
915             case WID_SINGLE_PRINT_JOBS :        pData = &bSinglePrintJobs;  break;
916             case WID_FILE_NAME_FROM_COLUMN :    pData = &bFileNameFromColumn;  break;
917             case WID_FILE_NAME_PREFIX :         pData = &aFileNamePrefix;  break;
918             case WID_MAIL_SUBJECT:              pData = &sSubject; break;
919             case WID_ADDRESS_FROM_COLUMN:       pData = &sAddressFromColumn; break;
920             case WID_SEND_AS_HTML:              pData = &bSendAsHTML; break;
921             case WID_SEND_AS_ATTACHMENT:        pData = &bSendAsAttachment; break;
922             case WID_MAIL_BODY:                 pData = &sMailBody; break;
923             case WID_ATTACHMENT_NAME:           pData = &sAttachmentName; break;
924             case WID_ATTACHMENT_FILTER:         pData = &sAttachmentFilter;break;
925             case WID_PRINT_OPTIONS:             pData = &aPrintSettings; break;
926             case WID_SAVE_AS_SINGLE_FILE:       pData = &bSaveAsSingleFile; break;
927             case WID_SAVE_FILTER:               pData = &sSaveFilter; break;
928             case WID_SAVE_FILTER_OPTIONS:       pData = &sSaveFilterOptions; break;
929             case WID_SAVE_FILTER_DATA:          pData = &aSaveFilterData; break;
930             case WID_COPIES_TO:                 pData = &aCopiesTo; break;
931             case WID_BLIND_COPIES_TO:           pData = &aBlindCopiesTo;break;
932             case WID_IN_SERVER_PASSWORD:        pData = &sInServerPassword; break;
933             case WID_OUT_SERVER_PASSWORD:       pData = &sOutServerPassword; break;
934             default :
935                 DBG_ERROR("unknown WID");
936         }
937         Any aOld( pData, *pType );
938 
939         sal_Bool bChanged = sal_False;
940         sal_Bool bOK = sal_True;
941         if (aOld != rValue)
942         {
943             if (pData == &aSelection)
944                 bOK = rValue >>= aSelection;
945             else if (pData == &xResultSet)
946                 bOK = rValue >>= xResultSet;
947             else if (pData == &xConnection)
948                 bOK = rValue >>= xConnection;
949             else if (pData == &xModel)
950                 bOK = rValue >>= xModel;
951             else if (pData == &aDataSourceName)
952                 bOK = rValue >>= aDataSourceName;
953             else if (pData == &aDataCommand)
954                 bOK = rValue >>= aDataCommand;
955             else if (pData == &aFilter)
956                 bOK = rValue >>= aFilter;
957             else if (pData == &aDocumentURL)
958             {
959                 OUString aText;
960                 bOK = rValue >>= aText;
961                 if (aText.getLength()
962                     && !LoadFromURL_impl( xModel, xDocSh, aText, sal_True ))
963                     throw RuntimeException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Failed to create document from URL: " ) ) + aText, static_cast < cppu::OWeakObject * > ( this ) );
964                 aDocumentURL = aText;
965             }
966             else if (pData == &aOutputURL)
967             {
968                 OUString aText;
969                 bOK = rValue >>= aText;
970                 if (aText.getLength())
971                 {
972                     if (!UCB_IsDirectory(aText))
973                         throw IllegalArgumentException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "URL does not point to a directory: " ) ) + aText, static_cast < cppu::OWeakObject * > ( this ), 0 );
974                     if (UCB_IsReadOnlyFileName(aText))
975                         throw IllegalArgumentException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "URL is read-only: " ) ) + aText, static_cast < cppu::OWeakObject * > ( this ), 0 );
976                 }
977                 aOutputURL = aText;
978             }
979             else if (pData == &nDataCommandType)
980                 bOK = rValue >>= nDataCommandType;
981             else if (pData == &nOutputType)
982                 bOK = rValue >>= nOutputType;
983             else if (pData == &bEscapeProcessing)
984                 bOK = rValue >>= bEscapeProcessing;
985             else if (pData == &bSinglePrintJobs)
986                 bOK = rValue >>= bSinglePrintJobs;
987             else if (pData == &bFileNameFromColumn)
988                 bOK = rValue >>= bFileNameFromColumn;
989             else if (pData == &aFileNamePrefix)
990                 bOK = rValue >>= aFileNamePrefix;
991             else if (pData == &sSubject)
992                 bOK = rValue >>= sSubject;
993             else if (pData == &sAddressFromColumn)
994                 bOK = rValue >>= sAddressFromColumn;
995             else if (pData == &bSendAsHTML)
996                 bOK = rValue >>= bSendAsHTML;
997             else if (pData == &bSendAsAttachment)
998                 bOK = rValue >>= bSendAsAttachment;
999             else if (pData == &sMailBody)
1000                 bOK = rValue >>= sMailBody;
1001             else if (pData == &sAttachmentName)
1002                 bOK = rValue >>= sAttachmentName;
1003             else if (pData == &sAttachmentFilter)
1004                 bOK = rValue >>= sAttachmentFilter;
1005             else if (pData == &aPrintSettings)
1006                 bOK = rValue >>= aPrintSettings;
1007             else if (pData == &bSaveAsSingleFile)
1008                 bOK = rValue >>= bSaveAsSingleFile;
1009             else if (pData == &sSaveFilter)
1010                 bOK = rValue >>= sSaveFilter;
1011             else if (pData == &sSaveFilterOptions)
1012                 bOK = rValue >>= sSaveFilterOptions;
1013             else if (pData == &aSaveFilterData)
1014                 bOK = rValue >>= aSaveFilterData;
1015             else if (pData == &aCopiesTo)
1016                 bOK = rValue >>= aCopiesTo;
1017             else if (pData == &aBlindCopiesTo)
1018                 bOK = rValue >>= aBlindCopiesTo;
1019             else if(pData == &sInServerPassword)
1020                 bOK = rValue >>= sInServerPassword;
1021             else if(pData == &sOutServerPassword)
1022                 bOK = rValue >>= sInServerPassword;
1023             else {
1024                 DBG_ERROR( "invalid pointer" );
1025             }
1026             DBG_ASSERT( bOK, "set value failed" );
1027             bChanged = sal_True;
1028         }
1029         if (!bOK)
1030             throw IllegalArgumentException( OUString ( RTL_CONSTASCII_USTRINGPARAM ( "Property type mismatch or property not set: " ) ) + rPropertyName, static_cast < cppu::OWeakObject * > ( this ), 0 );
1031 
1032         if (bChanged)
1033         {
1034             PropertyChangeEvent aChgEvt( (XPropertySet *) this, rPropertyName,
1035                     sal_False, pCur->nWID, aOld, rValue );
1036             launchEvent( aChgEvt );
1037         }
1038     }
1039 }
1040 
getPropertyValue(const OUString & rPropertyName)1041 uno::Any SAL_CALL SwXMailMerge::getPropertyValue(
1042         const OUString& rPropertyName )
1043     throw (UnknownPropertyException, WrappedTargetException, RuntimeException)
1044 {
1045     vos::OGuard aGuard( Application::GetSolarMutex() );
1046 
1047     Any aRet;
1048 
1049     const SfxItemPropertySimpleEntry* pCur = pPropSet->getPropertyMap()->getByName( rPropertyName );
1050     if (!pCur)
1051         throw UnknownPropertyException();
1052     else
1053     {
1054         switch (pCur->nWID)
1055         {
1056             case WID_SELECTION :                aRet <<= aSelection;  break;
1057             case WID_RESULT_SET :               aRet <<= xResultSet;  break;
1058             case WID_CONNECTION :               aRet <<= xConnection;  break;
1059             case WID_MODEL :                    aRet <<= xModel;  break;
1060             case WID_DATA_SOURCE_NAME :         aRet <<= aDataSourceName;  break;
1061             case WID_DATA_COMMAND :             aRet <<= aDataCommand;  break;
1062             case WID_FILTER :                   aRet <<= aFilter;  break;
1063             case WID_DOCUMENT_URL :             aRet <<= aDocumentURL;  break;
1064             case WID_OUTPUT_URL :               aRet <<= aOutputURL;  break;
1065             case WID_DATA_COMMAND_TYPE :        aRet <<= nDataCommandType;  break;
1066             case WID_OUTPUT_TYPE :              aRet <<= nOutputType;  break;
1067             case WID_ESCAPE_PROCESSING :        aRet <<= bEscapeProcessing;  break;
1068             case WID_SINGLE_PRINT_JOBS :        aRet <<= bSinglePrintJobs;  break;
1069             case WID_FILE_NAME_FROM_COLUMN :    aRet <<= bFileNameFromColumn;  break;
1070             case WID_FILE_NAME_PREFIX :         aRet <<= aFileNamePrefix;  break;
1071             case WID_MAIL_SUBJECT:              aRet <<= sSubject; break;
1072             case WID_ADDRESS_FROM_COLUMN:       aRet <<= sAddressFromColumn; break;
1073             case WID_SEND_AS_HTML:              aRet <<= bSendAsHTML; break;
1074             case WID_SEND_AS_ATTACHMENT:        aRet <<= bSendAsAttachment; break;
1075             case WID_MAIL_BODY:                 aRet <<= sMailBody; break;
1076             case WID_ATTACHMENT_NAME:           aRet <<= sAttachmentName; break;
1077             case WID_ATTACHMENT_FILTER:         aRet <<= sAttachmentFilter;break;
1078             case WID_PRINT_OPTIONS:             aRet <<= aPrintSettings; break;
1079             case WID_SAVE_AS_SINGLE_FILE:       aRet <<= bSaveAsSingleFile; break;
1080             case WID_SAVE_FILTER:               aRet <<= sSaveFilter; break;
1081             case WID_SAVE_FILTER_OPTIONS:       aRet <<= sSaveFilterOptions; break;
1082             case WID_SAVE_FILTER_DATA:          aRet <<= aSaveFilterData; break;
1083             case WID_COPIES_TO:                 aRet <<= aCopiesTo; break;
1084             case WID_BLIND_COPIES_TO:           aRet <<= aBlindCopiesTo;break;
1085             case WID_IN_SERVER_PASSWORD:        aRet <<= sInServerPassword; break;
1086             case WID_OUT_SERVER_PASSWORD:       aRet <<= sOutServerPassword; break;
1087             default :
1088                 DBG_ERROR("unknown WID");
1089         }
1090     }
1091 
1092     return aRet;
1093 }
1094 
addPropertyChangeListener(const OUString & rPropertyName,const uno::Reference<beans::XPropertyChangeListener> & rListener)1095 void SAL_CALL SwXMailMerge::addPropertyChangeListener(
1096         const OUString& rPropertyName,
1097         const uno::Reference< beans::XPropertyChangeListener >& rListener )
1098     throw (UnknownPropertyException, WrappedTargetException, RuntimeException)
1099 {
1100     vos::OGuard aGuard( Application::GetSolarMutex() );
1101     if (!bDisposing && rListener.is())
1102     {
1103         const SfxItemPropertySimpleEntry* pCur = pPropSet->getPropertyMap()->getByName( rPropertyName );
1104         if (pCur)
1105             aPropListeners.addInterface( pCur->nWID, rListener );
1106         else
1107             throw UnknownPropertyException();
1108     }
1109 }
1110 
removePropertyChangeListener(const OUString & rPropertyName,const uno::Reference<beans::XPropertyChangeListener> & rListener)1111 void SAL_CALL SwXMailMerge::removePropertyChangeListener(
1112         const OUString& rPropertyName,
1113         const uno::Reference< beans::XPropertyChangeListener >& rListener )
1114     throw (UnknownPropertyException, WrappedTargetException, RuntimeException)
1115 {
1116     vos::OGuard aGuard( Application::GetSolarMutex() );
1117     if (!bDisposing && rListener.is())
1118     {
1119         const SfxItemPropertySimpleEntry* pCur = pPropSet->getPropertyMap()->getByName( rPropertyName );
1120         if (pCur)
1121             aPropListeners.removeInterface( pCur->nWID, rListener );
1122         else
1123             throw UnknownPropertyException();
1124     }
1125 }
1126 
addVetoableChangeListener(const OUString &,const uno::Reference<beans::XVetoableChangeListener> &)1127 void SAL_CALL SwXMailMerge::addVetoableChangeListener(
1128         const OUString& /*rPropertyName*/,
1129         const uno::Reference< beans::XVetoableChangeListener >& /*rListener*/ )
1130     throw (UnknownPropertyException, WrappedTargetException, RuntimeException)
1131 {
1132     // no vetoable property, thus no support for vetoable change listeners
1133     DBG_WARNING( "not implemented");
1134 }
1135 
removeVetoableChangeListener(const OUString &,const uno::Reference<beans::XVetoableChangeListener> &)1136 void SAL_CALL SwXMailMerge::removeVetoableChangeListener(
1137         const OUString& /*rPropertyName*/,
1138         const uno::Reference< beans::XVetoableChangeListener >& /*rListener*/ )
1139     throw (UnknownPropertyException, WrappedTargetException, RuntimeException)
1140 {
1141     // no vetoable property, thus no support for vetoable change listeners
1142     DBG_WARNING( "not implemented");
1143 }
1144 
1145 
dispose()1146 void SAL_CALL SwXMailMerge::dispose()
1147     throw(RuntimeException)
1148 {
1149     vos::OGuard aGuard( Application::GetSolarMutex() );
1150 
1151     if (!bDisposing)
1152     {
1153         bDisposing = sal_True;
1154 
1155         EventObject aEvtObj( (XPropertySet *) this );
1156         aEvtListeners.disposeAndClear( aEvtObj );
1157         aMergeListeners.disposeAndClear( aEvtObj );
1158         aPropListeners.disposeAndClear( aEvtObj );
1159     }
1160 }
1161 
addEventListener(const Reference<XEventListener> & rxListener)1162 void SAL_CALL SwXMailMerge::addEventListener(
1163         const Reference< XEventListener >& rxListener )
1164     throw(RuntimeException)
1165 {
1166     vos::OGuard aGuard( Application::GetSolarMutex() );
1167     if (!bDisposing && rxListener.is())
1168         aEvtListeners.addInterface( rxListener );
1169 }
1170 
removeEventListener(const Reference<XEventListener> & rxListener)1171 void SAL_CALL SwXMailMerge::removeEventListener(
1172         const Reference< XEventListener >& rxListener )
1173     throw(RuntimeException)
1174 {
1175     vos::OGuard aGuard( Application::GetSolarMutex() );
1176     if (!bDisposing && rxListener.is())
1177         aEvtListeners.removeInterface( rxListener );
1178 }
1179 
addMailMergeEventListener(const uno::Reference<XMailMergeListener> & rxListener)1180 void SAL_CALL SwXMailMerge::addMailMergeEventListener(
1181         const uno::Reference< XMailMergeListener >& rxListener )
1182     throw (RuntimeException)
1183 {
1184     vos::OGuard aGuard( Application::GetSolarMutex() );
1185     if (!bDisposing && rxListener.is())
1186         aMergeListeners.addInterface( rxListener );
1187 }
1188 
removeMailMergeEventListener(const uno::Reference<XMailMergeListener> & rxListener)1189 void SAL_CALL SwXMailMerge::removeMailMergeEventListener(
1190         const uno::Reference< XMailMergeListener >& rxListener )
1191     throw (RuntimeException)
1192 {
1193     vos::OGuard aGuard( Application::GetSolarMutex() );
1194     if (!bDisposing && rxListener.is())
1195         aMergeListeners.removeInterface( rxListener );
1196 }
1197 
getImplementationName()1198 OUString SAL_CALL SwXMailMerge::getImplementationName()
1199     throw(RuntimeException)
1200 {
1201     vos::OGuard aGuard( Application::GetSolarMutex() );
1202     return SwXMailMerge_getImplementationName();
1203 }
1204 
supportsService(const OUString & rServiceName)1205 sal_Bool SAL_CALL SwXMailMerge::supportsService( const OUString& rServiceName )
1206     throw(RuntimeException)
1207 {
1208     vos::OGuard aGuard( Application::GetSolarMutex() );
1209     return C2U( SN_MAIL_MERGE ) == rServiceName ||
1210            C2U( SN_DATA_ACCESS_DESCRIPTOR ) == rServiceName;
1211 }
1212 
getSupportedServiceNames()1213 uno::Sequence< OUString > SAL_CALL SwXMailMerge::getSupportedServiceNames()
1214     throw(RuntimeException)
1215 {
1216     vos::OGuard aGuard( Application::GetSolarMutex() );
1217     return SwXMailMerge_getSupportedServiceNames();
1218 }
1219 
1220 ////////////////////////////////////////////////////////////
1221 
SwXMailMerge_getSupportedServiceNames()1222 uno::Sequence< OUString > SAL_CALL SwXMailMerge_getSupportedServiceNames()
1223     throw()
1224 {
1225     uno::Sequence< OUString > aNames(2);
1226     OUString *pName = aNames.getArray();
1227     pName[0] = C2U( SN_MAIL_MERGE );
1228     pName[1] = C2U( SN_DATA_ACCESS_DESCRIPTOR );
1229     return aNames;
1230 }
1231 
SwXMailMerge_getImplementationName()1232 OUString SAL_CALL SwXMailMerge_getImplementationName()
1233     throw()
1234 {
1235     return OUString( C2U( "SwXMailMerge" ) );
1236 }
1237 
SwXMailMerge_createInstance(const uno::Reference<XMultiServiceFactory> &)1238 uno::Reference< uno::XInterface > SAL_CALL SwXMailMerge_createInstance(
1239         const uno::Reference< XMultiServiceFactory > & /*rSMgr*/)
1240     throw( uno::Exception )
1241 {
1242     vos::OGuard aGuard( Application::GetSolarMutex() );
1243 
1244     //the module may not be loaded
1245 	SwDLL::Init();
1246     uno::Reference< uno::XInterface > xRef = (cppu::OWeakObject *) new SwXMailMerge();
1247     return xRef;
1248 }
1249 
1250