diff options
Diffstat (limited to 'svx/source/cui/hlmailtp.cxx')
| -rw-r--r-- | svx/source/cui/hlmailtp.cxx | 367 |
1 files changed, 0 insertions, 367 deletions
diff --git a/svx/source/cui/hlmailtp.cxx b/svx/source/cui/hlmailtp.cxx deleted file mode 100644 index 283d9d243a..0000000000 --- a/svx/source/cui/hlmailtp.cxx +++ /dev/null @@ -1,367 +0,0 @@ -/************************************************************************* - * - * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. - * - * Copyright 2008 by Sun Microsystems, Inc. - * - * OpenOffice.org - a multi-platform office productivity suite - * - * $RCSfile: hlmailtp.cxx,v $ - * $Revision: 1.23 $ - * - * This file is part of OpenOffice.org. - * - * OpenOffice.org is free software: you can redistribute it and/or modify - * it under the terms of the GNU Lesser General Public License version 3 - * only, as published by the Free Software Foundation. - * - * OpenOffice.org is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU Lesser General Public License version 3 for more details - * (a copy is included in the LICENSE file that accompanied this code). - * - * You should have received a copy of the GNU Lesser General Public License - * version 3 along with OpenOffice.org. If not, see - * <http://www.openoffice.org/license.html> - * for a copy of the LGPLv3 License. - * - ************************************************************************/ - -// MARKER(update_precomp.py): autogen include statement, do not remove -#include "precompiled_svx.hxx" - -#ifdef SVX_DLLIMPLEMENTATION -#undef SVX_DLLIMPLEMENTATION -#endif -#include <com/sun/star/frame/XDispatchProvider.hpp> -#include <com/sun/star/util/XURLTransformer.hpp> -#include <com/sun/star/frame/FrameSearchFlag.hpp> -#include <sfx2/request.hxx> - -#include <comphelper/processfactory.hxx> -#include <sfx2/viewfrm.hxx> -#include <svtools/pathoptions.hxx> -#include <svtools/moduleoptions.hxx> - -#include "hlmailtp.hxx" -#include "hyperdlg.hrc" - -using namespace ::rtl; -using namespace ::com::sun::star; - -/************************************************************************* -|* -|* Contructor / Destructor -|* -|************************************************************************/ - -SvxHyperlinkMailTp::SvxHyperlinkMailTp ( Window *pParent, const SfxItemSet& rItemSet) -: SvxHyperlinkTabPageBase ( pParent, SVX_RES( RID_SVXPAGE_HYPERLINK_MAIL ), - rItemSet ), - maGrpMailNews ( this, SVX_RES (GRP_MAILNEWS) ), - maRbtMail ( this, SVX_RES (RB_LINKTYP_MAIL) ), - maRbtNews ( this, SVX_RES (RB_LINKTYP_NEWS) ), - maFtReceiver ( this, SVX_RES (FT_RECEIVER) ), - maCbbReceiver ( this, INET_PROT_MAILTO ), - maBtAdrBook ( this, SVX_RES (BTN_ADRESSBOOK) ), - maFtSubject ( this, SVX_RES (FT_SUBJECT) ), - maEdSubject ( this, SVX_RES (ED_SUBJECT) ) -{ - // Set HC bitmaps and disable display of bitmap names. - maBtAdrBook.SetModeImage( Image( SVX_RES( IMG_ADRESSBOOK_HC ) ), BMP_COLOR_HIGHCONTRAST ); - maBtAdrBook.EnableTextDisplay (FALSE); - - InitStdControls(); - FreeResource(); - - // Init URL-Box (pos&size, Open-Handler) - maCbbReceiver.SetPosSizePixel ( LogicToPixel( Point( COL_2, 25 ), MAP_APPFONT ), - LogicToPixel( Size ( 176 - COL_DIFF, 60), MAP_APPFONT ) ); - - maCbbReceiver.Show(); - maCbbReceiver.SetHelpId( HID_HYPERDLG_MAIL_PATH ); - - SetExchangeSupport (); - - // set defaults - maRbtMail.Check (); - - // overload handlers - maRbtMail.SetClickHdl ( LINK ( this, SvxHyperlinkMailTp, Click_SmartProtocol_Impl ) ); - maRbtNews.SetClickHdl ( LINK ( this, SvxHyperlinkMailTp, Click_SmartProtocol_Impl ) ); - maBtAdrBook.SetClickHdl ( LINK ( this, SvxHyperlinkMailTp, ClickAdrBookHdl_Impl ) ); - maCbbReceiver.SetModifyHdl ( LINK ( this, SvxHyperlinkMailTp, ModifiedReceiverHdl_Impl) ); - - if ( !SvtModuleOptions().IsModuleInstalled( SvtModuleOptions::E_SDATABASE ) ) - maBtAdrBook.Hide(); -} - -SvxHyperlinkMailTp::~SvxHyperlinkMailTp () -{ -} - -/************************************************************************* -|* -|* Fill the all dialog-controls except controls in groupbox "more..." -|* -|************************************************************************/ - -void SvxHyperlinkMailTp::FillDlgFields ( String& aStrURL ) -{ - const sal_Char sMailtoScheme[] = INET_MAILTO_SCHEME; - - INetURLObject aURL( aStrURL ); - String aStrScheme = GetSchemeFromURL( aStrURL ); - - // set URL-field and additional controls - String aStrURLc ( aStrURL ); - // set additional controls for EMail: - if ( aStrScheme.SearchAscii( sMailtoScheme ) == 0 ) - { - // Find mail-subject - String aStrSubject, aStrTmp ( aStrURLc ); - - const sal_Char sSubject[] = "subject"; - xub_StrLen nPos = aStrTmp.ToLowerAscii().SearchAscii( sSubject, 0 ); - nPos = aStrTmp.Search( sal_Unicode( '=' ), nPos ); - - if ( nPos != STRING_NOTFOUND ) - aStrSubject = aStrURLc.Copy( nPos+1, aStrURLc.Len() ); - - nPos = aStrURLc.Search ( sal_Unicode( '?' ), 0); - - aStrURLc = aStrURLc.Copy( 0, ( nPos == STRING_NOTFOUND ? - aStrURLc.Len() : nPos ) ); - - maEdSubject.SetText ( aStrSubject ); - } - else - { - maEdSubject.SetText (aEmptyStr); - } - - maCbbReceiver.SetText ( aStrURLc ); - - SetScheme( aStrScheme ); -} - -/************************************************************************* -|* -|* retrieve and prepare data from dialog-fields -|* -|************************************************************************/ - -void SvxHyperlinkMailTp::GetCurentItemData ( String& aStrURL, String& aStrName, - String& aStrIntName, String& aStrFrame, - SvxLinkInsertMode& eMode ) -{ - aStrURL = CreateAbsoluteURL(); - GetDataFromCommonFields( aStrName, aStrIntName, aStrFrame, eMode ); -} - -String SvxHyperlinkMailTp::CreateAbsoluteURL() const -{ - String aStrURL = maCbbReceiver.GetText(); - INetURLObject aURL(aStrURL); - - if( aURL.GetProtocol() == INET_PROT_NOT_VALID ) - { - aURL.SetSmartProtocol( GetSmartProtocolFromButtons() ); - aURL.SetSmartURL(aStrURL); - } - - // subject for EMail-url - if( aURL.GetProtocol() == INET_PROT_MAILTO ) - { - if ( maEdSubject.GetText() != aEmptyStr ) - { - String aQuery = UniString::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( "subject=" ) ); - aQuery.Append( maEdSubject.GetText() ); - aURL.SetParam(aQuery); - } - } - - if ( aURL.GetProtocol() != INET_PROT_NOT_VALID ) - return aURL.GetMainURL( INetURLObject::DECODE_WITH_CHARSET ); - else //#105788# always create a URL even if it is not valid - return aStrURL; -} - -/************************************************************************* -|* -|* static method to create Tabpage -|* -|************************************************************************/ - -IconChoicePage* SvxHyperlinkMailTp::Create( Window* pWindow, const SfxItemSet& rItemSet ) -{ - return( new SvxHyperlinkMailTp( pWindow, rItemSet ) ); -} - -/************************************************************************* -|* -|* Set initial focus -|* -|************************************************************************/ - -void SvxHyperlinkMailTp::SetInitFocus() -{ - maCbbReceiver.GrabFocus(); -} - -/************************************************************************* -|************************************************************************/ - -void SvxHyperlinkMailTp::SetScheme( const String& aScheme ) -{ - //if aScheme is empty or unknown the default beaviour is like it where MAIL - const sal_Char sNewsScheme[] = INET_NEWS_SCHEME; - - BOOL bMail = aScheme.SearchAscii( sNewsScheme ) != 0; - - //update protocol button selection: - maRbtMail.Check(bMail); - maRbtNews.Check(!bMail); - - //update target: - RemoveImproperProtocol(aScheme); - maCbbReceiver.SetSmartProtocol( GetSmartProtocolFromButtons() ); - - //show/hide special fields for MAIL: - maFtSubject.Enable(bMail); - maEdSubject.Enable(bMail); -} - -/************************************************************************* -|* -|* Remove protocol if it does not fit to the current button selection -|* -|************************************************************************/ - -void SvxHyperlinkMailTp::RemoveImproperProtocol(const String& aProperScheme) -{ - String aStrURL ( maCbbReceiver.GetText() ); - if ( aStrURL != aEmptyStr ) - { - String aStrScheme = GetSchemeFromURL( aStrURL ); - if ( aStrScheme != aEmptyStr && aStrScheme != aProperScheme ) - { - aStrURL.Erase ( 0, aStrScheme.Len() ); - maCbbReceiver.SetText ( aStrURL ); - } - } -} - -String SvxHyperlinkMailTp::GetSchemeFromButtons() const -{ - if( maRbtNews.IsChecked() ) - { - return String::CreateFromAscii( INET_NEWS_SCHEME ); - } - return String::CreateFromAscii( INET_MAILTO_SCHEME ); -} - -INetProtocol SvxHyperlinkMailTp::GetSmartProtocolFromButtons() const -{ - if( maRbtNews.IsChecked() ) - { - return INET_PROT_NEWS; - } - return INET_PROT_MAILTO; -} - -/************************************************************************* -|* -|* Click on radiobutton : Type EMail -|* -|************************************************************************/ - -IMPL_LINK ( SvxHyperlinkMailTp, Click_SmartProtocol_Impl, void *, EMPTYARG ) -{ - String aScheme = GetSchemeFromButtons(); - SetScheme( aScheme ); - return( 0L ); -} - -/************************************************************************* -|* -|* Contens of editfield "receiver" modified -|* -|************************************************************************/ - -IMPL_LINK ( SvxHyperlinkMailTp, ModifiedReceiverHdl_Impl, void *, EMPTYARG ) -{ - String aScheme = GetSchemeFromURL( maCbbReceiver.GetText() ); - if(aScheme.Len()!=0) - SetScheme( aScheme ); - - return( 0L ); -} - -/************************************************************************* -|* -|* Click on imagebutton : addressbook -|* -|************************************************************************/ - -IMPL_LINK ( SvxHyperlinkMailTp, ClickAdrBookHdl_Impl, void *, EMPTYARG ) -{ - SfxViewFrame* pViewFrame = SfxViewFrame::Current(); - if( pViewFrame ) - { - SfxItemPool &rPool = pViewFrame->GetPool(); - SfxRequest aReq(SID_VIEW_DATA_SOURCE_BROWSER, 0, rPool); - pViewFrame->ExecuteSlot( aReq, sal_True ); - } - - -/* uno::Reference< frame::XDispatchProvider > xProv( pViewFrame->GetFrame()->GetFrameInterface(), uno::UNO_QUERY ); - if ( xProv.is() ) - { -!!! (pb) we need a new config item here - SfxAppIniManagerProperty aProp; - GetpApp()->Property( aProp ); - if( !aProp.GetIniManager() ) - return ( 0L ); - - String aAddressBook = aProp.GetIniManager()->Get( SFX_KEY_ADDRESSBOOK ); - INetURLObject aObj; - aObj.SetSmartProtocol( INET_PROT_FILE ); - aObj.SetURL( aAddressBook.GetToken( 0, sal_Unicode( ';' ) ) ); - - String aMark( RTL_CONSTASCII_USTRINGPARAM( "db:Table;" ) ); - aMark += aAddressBook.GetToken( 1, sal_Unicode( ';' ) ); - aObj.SetMark( aMark ); - - util::URL aURL; - aURL.Complete = ::rtl::OUString( aObj.GetMainURL( INetURLObject::NO_DECODE ) ); - - uno::Reference< lang::XMultiServiceFactory > xFactory( ::comphelper::getProcessServiceFactory() ); - if( xFactory.is() ) - { - uno::Reference< util::XURLTransformer > xTrans( xFactory->createInstance - ( OUString::createFromAscii( "com.sun.star.util.URLTransformer" ) ), - uno::UNO_QUERY); - xTrans->parseStrict( aURL ); - - uno::Reference< frame::XDispatch > aDisp = xProv->queryDispatch( aURL, - OUString::createFromAscii( "_beamer" ), - frame::FrameSearchFlag::GLOBAL | - frame::FrameSearchFlag::CREATE ); - if ( aDisp.is() ) - { - uno::Sequence< beans::PropertyValue > aArgs(1); - beans::PropertyValue* pArg = aArgs.getArray(); - pArg[0].Name = DEFINE_CONST_UNICODE("Referer"); - pArg[0].Value = uno::makeAny( OUString( DEFINE_CONST_UNICODE("private:user") ) ); - aDisp->dispatch( aURL, aArgs ); - } - } - } -*/ - - return( 0L ); -} - - |