cui/source/dialogs/hlmailtp.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 <com/sun/star/util/XURLTransformer.hpp>
  21 #include <sfx2/request.hxx>
  22
  23 #include <sfx2/viewfrm.hxx>
  24 #include <unotools/pathoptions.hxx>
  25 #include <unotools/moduleoptions.hxx>
  26
  27 #include <hlmailtp.hxx>
  28 #include <bitmaps.hlst>
  29
  30 #include <comphelper/lok.hxx>
  31
  32 using namespace ::com::sun::star;
  33
  34 /*************************************************************************
  35 |*
  36 |* Constructor / Destructor
  37 |*
  38 |************************************************************************/
  39
  40 SvxHyperlinkMailTp::SvxHyperlinkMailTp ( vcl::Window *pParent, IconChoiceDialog* pDlg, const SfxItemSet* pItemSet)
  41 :   SvxHyperlinkTabPageBase ( pParent, pDlg, "HyperlinkMailPage", "cui/ui/hyperlinkmailpage.ui",
  42                               pItemSet )
  43 {
  44     get(m_pCbbReceiver, "receiver");
  45     m_pCbbReceiver->SetSmartProtocol(INetProtocol::Mailto);
  46     get(m_pBtAdrBook, "adressbook");
  47     m_pBtAdrBook->SetModeImage(Image(StockImage::Yes, RID_SVXBMP_ADRESSBOOK));
  48     get(m_pFtSubject, "subject_label");
  49     get(m_pEdSubject, "subject");
  50
  51     // Disable display of bitmap names.
  52     m_pBtAdrBook->EnableTextDisplay (false);
  53
  54     InitStdControls();
  55
  56     m_pCbbReceiver->Show();
  57
  58     SetExchangeSupport ();
  59
  60     // set handlers
  61     m_pBtAdrBook->SetClickHdl      ( LINK ( this, SvxHyperlinkMailTp, ClickAdrBookHdl_Impl ) );
  62     m_pCbbReceiver->SetModifyHdl   ( LINK ( this, SvxHyperlinkMailTp, ModifiedReceiverHdl_Impl) );
  63
  64     if ( !SvtModuleOptions().IsModuleInstalled( SvtModuleOptions::EModule::DATABASE ) ||
  65          comphelper::LibreOfficeKit::isActive() )
  66         m_pBtAdrBook->Hide();
  67 }
  68
  69 SvxHyperlinkMailTp::~SvxHyperlinkMailTp()
  70 {
  71     disposeOnce();
  72 }
  73
  74 void SvxHyperlinkMailTp::dispose()
  75 {
  76     m_pCbbReceiver.clear();
  77     m_pBtAdrBook.clear();
  78     m_pFtSubject.clear();
  79     m_pEdSubject.clear();
  80     SvxHyperlinkTabPageBase::dispose();
  81 }
  82
  83 /*************************************************************************
  84 |*
  85 |* Fill the all dialog-controls except controls in groupbox "more..."
  86 |*
  87 |************************************************************************/
  88
  89 void SvxHyperlinkMailTp::FillDlgFields(const OUString& rStrURL)
  90 {
  91     OUString aStrScheme = GetSchemeFromURL(rStrURL);
  92
  93     // set URL-field and additional controls
  94     OUString aStrURLc (rStrURL);
  95     // set additional controls for EMail:
  96     if ( aStrScheme.startsWith( INET_MAILTO_SCHEME ) )
  97     {
  98         // Find mail-subject
  99         OUString aStrSubject, aStrTmp( aStrURLc );
 100
 101         sal_Int32 nPos = aStrTmp.toAsciiLowerCase().indexOf( "subject" );
 102
 103         if ( nPos != -1 )
 104             nPos = aStrTmp.indexOf( '=', nPos );
 105
 106         if ( nPos != -1 )
 107             aStrSubject = aStrURLc.copy( nPos+1 );
 108
 109         nPos = aStrURLc.indexOf( '?' );
 110
 111         if ( nPos != -1 )
 112             aStrURLc = aStrURLc.copy( 0, nPos );
 113
 114         m_pEdSubject->SetText ( aStrSubject );
 115     }
 116     else
 117     {
 118         m_pEdSubject->SetText ("");
 119     }
 120
 121     m_pCbbReceiver->SetText ( aStrURLc );
 122
 123     SetScheme( aStrScheme );
 124 }
 125
 126 /*************************************************************************
 127 |*
 128 |* retrieve and prepare data from dialog-fields
 129 |*
 130 |************************************************************************/
 131
 132 void SvxHyperlinkMailTp::GetCurentItemData ( OUString& rStrURL, OUString& aStrName,
 133                                              OUString& aStrIntName, OUString& aStrFrame,
 134                                              SvxLinkInsertMode& eMode )
 135 {
 136     rStrURL = CreateAbsoluteURL();
 137     GetDataFromCommonFields( aStrName, aStrIntName, aStrFrame, eMode );
 138 }
 139
 140 OUString SvxHyperlinkMailTp::CreateAbsoluteURL() const
 141 {
 142     OUString aStrURL = m_pCbbReceiver->GetText();
 143     INetURLObject aURL(aStrURL);
 144
 145     if( aURL.GetProtocol() == INetProtocol::NotValid )
 146     {
 147         aURL.SetSmartProtocol( INetProtocol::Mailto );
 148         aURL.SetSmartURL(aStrURL);
 149     }
 150
 151     // subject for EMail-url
 152     if( aURL.GetProtocol() == INetProtocol::Mailto )
 153     {
 154         if ( !m_pEdSubject->GetText().isEmpty() )
 155         {
 156             OUString aQuery = "subject=" + m_pEdSubject->GetText();
 157             aURL.SetParam(aQuery);
 158         }
 159     }
 160
 161     if ( aURL.GetProtocol() != INetProtocol::NotValid )
 162         return aURL.GetMainURL( INetURLObject::DecodeMechanism::WithCharset );
 163     else //#105788# always create a URL even if it is not valid
 164         return aStrURL;
 165 }
 166
 167 /*************************************************************************
 168 |*
 169 |* static method to create Tabpage
 170 |*
 171 |************************************************************************/
 172
 173 VclPtr<IconChoicePage> SvxHyperlinkMailTp::Create( vcl::Window* pWindow, IconChoiceDialog* pDlg, const SfxItemSet* pItemSet )
 174 {
 175     return VclPtr<SvxHyperlinkMailTp>::Create( pWindow, pDlg, pItemSet );
 176 }
 177
 178 /*************************************************************************
 179 |*
 180 |* Set initial focus
 181 |*
 182 |************************************************************************/
 183
 184 void SvxHyperlinkMailTp::SetInitFocus()
 185 {
 186     m_pCbbReceiver->GrabFocus();
 187 }
 188
 189 /*************************************************************************
 190 |************************************************************************/
 191
 192 void SvxHyperlinkMailTp::SetScheme(const OUString& rScheme)
 193 {
 194     //update target:
 195     RemoveImproperProtocol(rScheme);
 196     m_pCbbReceiver->SetSmartProtocol( INetProtocol::Mailto );
 197
 198     //show/hide  special fields for MAIL:
 199     m_pBtAdrBook->Enable();
 200     m_pEdSubject->Enable();
 201 }
 202
 203 /*************************************************************************
 204 |*
 205 |* Remove protocol if it does not fit to the current button selection
 206 |*
 207 |************************************************************************/
 208
 209 void SvxHyperlinkMailTp::RemoveImproperProtocol(const OUString& aProperScheme)
 210 {
 211     OUString aStrURL ( m_pCbbReceiver->GetText() );
 212     if ( !aStrURL.isEmpty() )
 213     {
 214         OUString aStrScheme = GetSchemeFromURL( aStrURL );
 215         if ( !aStrScheme.isEmpty() && aStrScheme != aProperScheme )
 216         {
 217             aStrURL = aStrURL.copy( aStrScheme.getLength() );
 218             m_pCbbReceiver->SetText ( aStrURL );
 219         }
 220     }
 221 }
 222
 223 /*************************************************************************
 224 |*
 225 |* Contents of editfield "receiver" modified
 226 |*
 227 |************************************************************************/
 228
 229 IMPL_LINK_NOARG(SvxHyperlinkMailTp, ModifiedReceiverHdl_Impl, Edit&, void)
 230 {
 231     OUString aScheme = GetSchemeFromURL( m_pCbbReceiver->GetText() );
 232     if(!aScheme.isEmpty())
 233         SetScheme( aScheme );
 234 }
 235
 236 /*************************************************************************
 237 |*
 238 |* Click on imagebutton : addressbook
 239 |*
 240 |************************************************************************/
 241
 242 IMPL_STATIC_LINK_NOARG(SvxHyperlinkMailTp, ClickAdrBookHdl_Impl, Button*, void)
 243 {
 244     SfxViewFrame* pViewFrame = SfxViewFrame::Current();
 245     if( pViewFrame )
 246     {
 247         SfxItemPool &rPool = pViewFrame->GetPool();
 248         SfxRequest aReq(SID_VIEW_DATA_SOURCE_BROWSER, SfxCallMode::SLOT, rPool);
 249         pViewFrame->ExecuteSlot( aReq, true );
 250     }
 251 }
 252
 253
 254 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */