'
' DotNetNukeŽ - http://www.dotnetnuke.com
' Copyright (c) 2002-2010
' by DotNetNuke Corporation
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions
' of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
' DEALINGS IN THE SOFTWARE.
'
Imports System.IO
Imports DotNetNuke.Entities.Controllers
Imports DotNetNuke.UI.Skins
Imports DotNetNuke.UI.Skins.Controls.ModuleMessage
Imports DotNetNuke.Entities.Modules
Imports DotNetNuke.Entities.Tabs
Imports DotNetNuke.Entities.Host
Imports System.Collections.Generic
Imports DotNetNuke.Entities.Portals.PortalSettings
Namespace DotNetNuke.Modules.Admin.Portals
''' -----------------------------------------------------------------------------
'''
''' The SiteSettings PortalModuleBase is used to edit the main settings for a
''' portal.
'''
'''
'''
'''
''' [cnurse] 9/8/2004 Updated to reflect design changes for Help, 508 support
''' and localisation
'''
''' -----------------------------------------------------------------------------
Partial Class SiteSettings
Inherits DotNetNuke.Entities.Modules.PortalModuleBase
#Region "Private Members"
Dim intPortalId As Integer = -1
Private ReadOnly Property SelectedCultureCode() As String
Get
Return LocaleController.Instance.GetCurrentLocale(PortalId).Code
End Get
End Property
#End Region
#Region "Private Methods"
Private Sub BindDesktopModules()
Dim desktopModule As DesktopModuleInfo = Nothing
Dim dicModules As Dictionary(Of Integer, DesktopModuleInfo) = DesktopModuleController.GetDesktopModules(Null.NullInteger)
Dim dicPortalDesktopModules As Dictionary(Of Integer, PortalDesktopModuleInfo) = DesktopModuleController.GetPortalDesktopModulesByPortalID(intPortalId)
For Each objPortalDesktopModule As PortalDesktopModuleInfo In dicPortalDesktopModules.Values
dicModules.Remove(objPortalDesktopModule.DesktopModuleID)
Next
ctlDesktopModules.AvailableDataSource = dicModules.Values
ctlDesktopModules.SelectedDataSource = dicPortalDesktopModules.Values
End Sub
'''
''' Loads a PortalInfo object and populates the onscreen forms
''' Correctly reloads the relevant language type in the case of an update
'''
'''
'''
Private Sub LoadPortal(ByVal activeLanguage As String)
Dim objPortalController As New PortalController
Dim objModules As New ModuleController
Dim objUsers As New UserController
Dim ctlList As New Common.Lists.ListController
Dim colProcessor As Common.Lists.ListEntryInfoCollection = ctlList.GetListEntryInfoCollection("Processor")
cboProcessor.DataSource = colProcessor
cboProcessor.DataBind()
cboProcessor.Items.Insert(0, New ListItem("<" + Services.Localization.Localization.GetString("None_Specified") + ">", ""))
Dim objPortal As PortalInfo = objPortalController.GetPortal(intPortalId, activeLanguage)
txtPortalName.Text = objPortal.PortalName
ctlLogo.FilePath = objPortal.LogoFile
ctlLogo.FileFilter = glbImageFileTypes
txtDescription.Text = objPortal.Description
txtKeyWords.Text = objPortal.KeyWords
lblGUID.Text = objPortal.GUID.ToString.ToUpper
ctlBackground.FilePath = objPortal.BackgroundFile
ctlBackground.FileFilter = glbImageFileTypes
txtFooterText.Text = objPortal.FooterText
optUserRegistration.SelectedIndex = objPortal.UserRegistration
ctlAudit.Entity = objPortal
Dim objPortalAliasController As New PortalAliasController
Dim arrPortalAliases As ArrayList
arrPortalAliases = objPortalAliasController.GetPortalAliasArrayByPortalID(intPortalId)
If PortalController.IsChildPortal(objPortal, GetAbsoluteServerPath(Request)) Then
txtSiteMap.Text = AddHTTP(GetDomainName(Request)) & "/SiteMap.aspx?portalid=" & intPortalId.ToString
Else
If arrPortalAliases.Count > 0 Then
'Get the first Alias
Dim objPortalAliasInfo As PortalAliasInfo = CType(arrPortalAliases(0), PortalAliasInfo)
txtSiteMap.Text = AddHTTP(objPortalAliasInfo.HTTPAlias) & "/SiteMap.aspx"
Else
txtSiteMap.Text = AddHTTP(GetDomainName(Request)) & "/SiteMap.aspx"
End If
End If
optBanners.SelectedIndex = objPortal.BannerAdvertising
If UserInfo.IsSuperUser Then
lblBanners.Visible = False
Else
optBanners.Enabled = objPortal.BannerAdvertising <> 2
lblBanners.Visible = objPortal.BannerAdvertising = 2
End If
'Set up special page lists
Dim listTabs As List(Of TabInfo) = TabController.GetPortalTabs(TabController.GetTabsBySortOrder(intPortalId, activeLanguage, True), Null.NullInteger, True, "<" + Localization.GetString("None_Specified") + ">", True, False, False, False, False)
cboSplashTabId.DataSource = listTabs
cboSplashTabId.DataBind()
If Not cboSplashTabId.Items.FindByValue(objPortal.SplashTabId.ToString) Is Nothing Then
cboSplashTabId.Items.FindByValue(objPortal.SplashTabId.ToString).Selected = True
End If
cboHomeTabId.DataSource = listTabs
cboHomeTabId.DataBind()
If Not cboHomeTabId.Items.FindByValue(objPortal.HomeTabId.ToString) Is Nothing Then
cboHomeTabId.Items.FindByValue(objPortal.HomeTabId.ToString).Selected = True
End If
cboLoginTabId.DataSource = listTabs
cboLoginTabId.DataBind()
If Not cboLoginTabId.Items.FindByValue(objPortal.LoginTabId.ToString) Is Nothing Then
cboLoginTabId.Items.FindByValue(objPortal.LoginTabId.ToString).Selected = True
End If
cboRegisterTabId.DataSource = listTabs
cboRegisterTabId.DataBind()
If Not cboRegisterTabId.Items.FindByValue(objPortal.RegisterTabId.ToString) Is Nothing Then
cboRegisterTabId.Items.FindByValue(objPortal.RegisterTabId.ToString).Selected = True
End If
cboSearchTabId.DataSource = listTabs
cboSearchTabId.DataBind()
If Not cboSearchTabId.Items.FindByValue(objPortal.SearchTabId.ToString) Is Nothing Then
cboSearchTabId.Items.FindByValue(objPortal.SearchTabId.ToString).Selected = True
End If
listTabs = TabController.GetPortalTabs(intPortalId, Null.NullInteger, False, True)
cboUserTabId.DataSource = listTabs
cboUserTabId.DataBind()
If Not cboUserTabId.Items.FindByValue(objPortal.UserTabId.ToString) Is Nothing Then
cboUserTabId.Items.FindByValue(objPortal.UserTabId.ToString).Selected = True
End If
Dim colList As Common.Lists.ListEntryInfoCollection = ctlList.GetListEntryInfoCollection("Currency")
cboCurrency.DataSource = colList
cboCurrency.DataBind()
If Null.IsNull(objPortal.Currency) Or cboCurrency.Items.FindByValue(objPortal.Currency) Is Nothing Then
cboCurrency.Items.FindByValue("USD").Selected = True
Else
cboCurrency.Items.FindByValue(objPortal.Currency).Selected = True
End If
Dim objRoleController As New DotNetNuke.Security.Roles.RoleController
Dim Arr As ArrayList = objRoleController.GetUserRolesByRoleName(intPortalId, objPortal.AdministratorRoleName)
Dim i As Integer
For i = 0 To Arr.Count - 1
Dim objUser As UserRoleInfo = CType(Arr(i), UserRoleInfo)
cboAdministratorId.Items.Add(New ListItem(objUser.FullName, objUser.UserID.ToString))
Next
If Not cboAdministratorId.Items.FindByValue(objPortal.AdministratorId.ToString) Is Nothing Then
cboAdministratorId.Items.FindByValue(objPortal.AdministratorId.ToString).Selected = True
End If
If Not Null.IsNull(objPortal.ExpiryDate) Then
txtExpiryDate.Text = objPortal.ExpiryDate.ToShortDateString
End If
txtHostFee.Text = objPortal.HostFee.ToString
txtHostSpace.Text = objPortal.HostSpace.ToString
txtPageQuota.Text = objPortal.PageQuota.ToString
txtUserQuota.Text = objPortal.UserQuota.ToString
If Not IsDBNull(objPortal.SiteLogHistory) Then
txtSiteLogHistory.Text = objPortal.SiteLogHistory.ToString
End If
If objPortal.PaymentProcessor <> "" Then
If Not cboProcessor.Items.FindByText(objPortal.PaymentProcessor) Is Nothing Then
cboProcessor.Items.FindByText(objPortal.PaymentProcessor).Selected = True
Else ' default
If Not cboProcessor.Items.FindByText("PayPal") Is Nothing Then
cboProcessor.Items.FindByText("PayPal").Selected = True
End If
End If
Else
cboProcessor.Items.FindByValue("").Selected = True
End If
txtUserId.Text = objPortal.ProcessorUserId
txtPassword.Attributes.Add("value", objPortal.ProcessorPassword)
lblHomeDirectory.Text = objPortal.HomeDirectory
''PortalSettings for portal being edited
Dim _PortalSettings As PortalSettings = New PortalSettings(objPortal)
' usability settings
chkInlineEditor.Checked = _PortalSettings.InlineEditorEnabled
chkHideSystemFolders.Checked = _PortalSettings.HideFoldersEnabled
If _PortalSettings.DefaultControlPanelMode = Entities.Portals.PortalSettings.Mode.Edit Then
optControlPanelMode.Items.FindByValue("EDIT").Selected = True
Else
optControlPanelMode.Items.FindByValue("VIEW").Selected = True
End If
If _PortalSettings.DefaultControlPanelVisibility Then
optControlPanelVisibility.Items.FindByValue("MAX").Selected = True
Else
optControlPanelVisibility.Items.FindByValue("MIN").Selected = True
End If
If _PortalSettings.ControlPanelSecurity = PortalSettings.ControlPanelPermission.ModuleEditor Then
optControlPanelSecurity.Items.FindByValue("MODULE").Selected = True
Else
optControlPanelSecurity.Items.FindByValue("TAB").Selected = True
End If
chkSSLEnabled.Checked = _PortalSettings.SSLEnabled
chkSSLEnforced.Checked = _PortalSettings.SSLEnforced
txtSSLURL.Text = _PortalSettings.SSLURL
txtSTDURL.Text = _PortalSettings.STDURL
'Populate the timezone combobox (look up timezone translations based on currently set culture)
Services.Localization.Localization.LoadTimeZoneDropDownList(cboTimeZone, CType(Page, PageBase).PageCulture.Name, Convert.ToString(objPortal.TimeZoneOffset))
ctlPortalSkin.SkinRoot = SkinController.RootSkin
ctlPortalSkin.SkinSrc = _PortalSettings.DefaultPortalSkin
ctlPortalContainer.SkinRoot = SkinController.RootContainer
ctlPortalContainer.SkinSrc = _PortalSettings.DefaultPortalContainer
ctlAdminSkin.SkinRoot = SkinController.RootSkin
ctlAdminSkin.SkinSrc = _PortalSettings.DefaultAdminSkin
ctlAdminContainer.SkinRoot = SkinController.RootContainer
ctlAdminContainer.SkinSrc = _PortalSettings.DefaultAdminContainer
chkSkinWidgestEnabled.Checked = _PortalSettings.EnableSkinWidgets
Dim portalAliasMapping As String = _PortalSettings.PortalAliasMappingMode.ToString().ToUpper()
If portalAliasModeButtonList.Items.FindByValue(portalAliasMapping) IsNot Nothing Then
portalAliasModeButtonList.Items.FindByValue(portalAliasMapping).Selected = True
Else
portalAliasModeButtonList.Items(0).Selected = True
End If
If portalAliasMapping.ToUpperInvariant = "NONE" Then
defaultAliasRow.Visible = False
Else
defaultAliasRow.Visible = True
defaultAliasDropDown.DataSource = arrPortalAliases
defaultAliasDropDown.DataBind()
Dim defaultAlias As String = _PortalSettings.DefaultPortalAlias
If defaultAliasDropDown.Items.FindByValue(defaultAlias) IsNot Nothing Then
defaultAliasDropDown.Items.FindByValue(defaultAlias).Selected = True
End If
End If
'Auto Add Portal Alias
If New PortalController().GetPortals().Count > 1 Then
chkAutoAddPortalAlias.Enabled = False
chkAutoAddPortalAlias.Checked = False
Else
chkAutoAddPortalAlias.Checked = HostController.Instance.GetBoolean("AutoAddPortalAlias")
End If
' use sandbox?
Dim bolPayPalSandbox As Boolean = Boolean.Parse(PortalController.GetPortalSetting("paypalsandbox", intPortalId, "False"))
chkPayPalSandboxEnabled.Checked = bolPayPalSandbox
' return url after payment or on cancel
Dim strPayPalReturnURL As String = PortalController.GetPortalSetting("paypalsubscriptionreturn", intPortalId, Null.NullString)
txtPayPalReturnURL.Text = strPayPalReturnURL
Dim strPayPalCancelURL As String = PortalController.GetPortalSetting("paypalsubscriptioncancelreturn", intPortalId, Null.NullString)
txtPayPalCancelURL.Text = strPayPalCancelURL
LoadStyleSheet()
End Sub
''' -----------------------------------------------------------------------------
'''
''' LoadStyleSheet loads the stylesheet
'''
'''
'''
'''
''' [cnurse] 9/8/2004 Created
'''
''' -----------------------------------------------------------------------------
Private Sub LoadStyleSheet()
Dim strUploadDirectory As String = ""
Dim objPortalController As New PortalController
Dim objPortal As PortalInfo = objPortalController.GetPortal(intPortalId)
If Not objPortal Is Nothing Then
strUploadDirectory = objPortal.HomeDirectoryMapPath
End If
' read CSS file
If System.IO.File.Exists(strUploadDirectory & "portal.css") Then
Dim objStreamReader As StreamReader
objStreamReader = File.OpenText(strUploadDirectory & "portal.css")
txtStyleSheet.Text = objStreamReader.ReadToEnd
objStreamReader.Close()
End If
End Sub
#End Region
#Region "Protected Methods"
Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
MyBase.OnInit(e)
'Make sure the Search Engine and SiteMap command buttons postback rather than use AJAX
Framework.AJAX.RegisterPostBackControl(cmdSearchEngine)
Framework.AJAX.RegisterPostBackControl(cmdSiteMap)
ctlDesktopModules.LocalResourceFile = LocalResourceFile
End Sub
#End Region
#Region "Public Methods"
''' -----------------------------------------------------------------------------
'''
''' FormatCurrency formats the currency.
''' control.
'''
''' A formatted string
'''
'''
'''
''' [cnurse] 9/8/2004 Modified
'''
''' -----------------------------------------------------------------------------
Public Function FormatCurrency() As String
Dim retValue As String = ""
Try
retValue = Host.HostCurrency & " / " & Services.Localization.Localization.GetString("Month")
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
Return retValue
End Function
''' -----------------------------------------------------------------------------
'''
''' FormatFee formats the fee.
''' control.
'''
''' A formatted string
'''
'''
'''
''' [cnurse] 9/8/2004 Modified
'''
''' -----------------------------------------------------------------------------
Public Function FormatFee(ByVal objHostFee As Object) As String
Dim retValue As String = ""
Try
'TODO - this needs to be localised
If Not IsDBNull(objHostFee) Then
retValue = Format(objHostFee, "#,##0.00")
Else
retValue = "0"
End If
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
Return retValue
End Function
''' -----------------------------------------------------------------------------
'''
''' IsSubscribed determines whether the portal has subscribed to the premium
''' control.
'''
''' True if Subscribed, False if not
'''
'''
'''
''' [cnurse] 9/8/2004 Modified
'''
''' -----------------------------------------------------------------------------
Public Function IsSubscribed(ByVal PortalModuleDefinitionId As Integer) As Boolean
Return Null.IsNull(PortalModuleDefinitionId) = False
End Function
''' -----------------------------------------------------------------------------
'''
''' IsSuperUser determines whether the cuurent user is a SuperUser
''' control.
'''
''' True if SuperUser, False if not
'''
'''
'''
''' [cnurse] 10/4/2004 Added
'''
''' -----------------------------------------------------------------------------
Public Function IsSuperUser() As Boolean
Return Me.UserInfo.IsSuperUser
End Function
#End Region
#Region "Event Handlers"
''' -----------------------------------------------------------------------------
'''
''' Page_Load runs when the control is loaded
'''
'''
'''
'''
''' [cnurse] 9/8/2004 Updated to reflect design changes for Help, 508 support
''' and localisation
'''
''' -----------------------------------------------------------------------------
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If Not (Request.QueryString("pid") Is Nothing) AndAlso (PortalSettings.ActiveTab.ParentId = PortalSettings.SuperTabId Or UserInfo.IsSuperUser) Then
intPortalId = Int32.Parse(Request.QueryString("pid"))
ctlLogo.ShowUpLoad = False
ctlBackground.ShowUpLoad = False
cmdCancel.Visible = True
Else
intPortalId = PortalId
ctlLogo.ShowUpLoad = True
ctlBackground.ShowUpLoad = True
cmdCancel.Visible = False
End If
'this needs to execute always to the client script code is registred in InvokePopupCal
cmdExpiryCalendar.NavigateUrl = Common.Utilities.Calendar.InvokePopupCal(txtExpiryDate)
DotNetNuke.UI.Utilities.ClientAPI.AddButtonConfirm(cmdRestore, Services.Localization.Localization.GetString("RestoreCCSMessage", Me.LocalResourceFile))
BindDesktopModules()
' If this is the first visit to the page, populate the site data
If Page.IsPostBack = False Then
DotNetNuke.UI.Utilities.ClientAPI.AddButtonConfirm(cmdDelete, Services.Localization.Localization.GetString("DeleteMessage", Me.LocalResourceFile))
LoadPortal(SelectedCultureCode)
If Not Request.UrlReferrer Is Nothing Then
If Request.UrlReferrer.AbsoluteUri = Request.Url.AbsoluteUri Then
ViewState("UrlReferrer") = ""
Else
ViewState("UrlReferrer") = Convert.ToString(Request.UrlReferrer)
End If
Else
ViewState("UrlReferrer") = ""
End If
End If
If UserInfo.IsSuperUser Then
dshHost.Visible = True
tblHost.Visible = True
dshSSL.Visible = True
tblSSL.Visible = True
dshAliases.Visible = True
tblAliases.Visible = True
cmdDelete.Visible = (intPortalId <> PortalId)
Else
dshHost.Visible = False
tblHost.Visible = False
dshSSL.Visible = False
tblSSL.Visible = False
dshAliases.Visible = False
tblAliases.Visible = False
cmdDelete.Visible = False
End If
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
''' -----------------------------------------------------------------------------
'''
''' cmdCancel_Click runs when the Cancel LinkButton is clicked. It returns the user
''' to the referring page
'''
'''
'''
'''
''' [cnurse] 9/9/2004 Modified
'''
''' -----------------------------------------------------------------------------
Private Sub cmdCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
Try
Response.Redirect(NavigateURL(), True)
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
''' -----------------------------------------------------------------------------
'''
''' cmdDelete_Click runs when the Delete LinkButton is clicked.
''' It deletes the current portal form the Database. It can only run in Host
''' (SuperUser) mode
'''
'''
'''
'''
''' [cnurse] 9/9/2004 Modified
''' [VMasanas] 9/12/2004 Move skin deassignment to DeletePortalInfo.
'''
''' -----------------------------------------------------------------------------
Private Sub cmdDelete_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdDelete.Click
Try
Dim objPortalController As New PortalController
Dim objPortalInfo As PortalInfo = objPortalController.GetPortal(intPortalId)
If Not objPortalInfo Is Nothing Then
Dim strMessage As String = PortalController.DeletePortal(objPortalInfo, GetAbsoluteServerPath(Request))
If String.IsNullOrEmpty(strMessage) Then
Dim objEventLog As New Services.Log.EventLog.EventLogController
objEventLog.AddLog("PortalName", objPortalInfo.PortalName, PortalSettings, UserId, Services.Log.EventLog.EventLogController.EventLogType.PORTAL_DELETED)
' Redirect to another site
If intPortalId = PortalId Then
If Not String.IsNullOrEmpty(Host.HostURL) Then
Response.Redirect(AddHTTP(Host.HostURL))
Else
Response.End()
End If
Else
Response.Redirect(Convert.ToString(ViewState("UrlReferrer")), True)
End If
Else
UI.Skins.Skin.AddModuleMessage(Me, strMessage, ModuleMessageType.RedError)
End If
End If
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
''' -----------------------------------------------------------------------------
'''
''' cmdProcessor_Click runs when the Processor Website Linkbutton is clicked. It
''' redirects the user to the selected processor's website.
'''
'''
'''
'''
''' [cnurse] 9/9/2004 Modified
'''
''' -----------------------------------------------------------------------------
Private Sub cmdProcessor_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdProcessor.Click
Try
Response.Redirect(AddHTTP(cboProcessor.SelectedItem.Value), True)
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
''' -----------------------------------------------------------------------------
'''
''' cmdRestore_Click runs when the Restore Default Stylesheet Linkbutton is clicked.
''' It reloads the default stylesheet (copies from _default Portal to current Portal)
'''
'''
'''
'''
''' [cnurse] 9/9/2004 Modified
'''
''' -----------------------------------------------------------------------------
Private Sub cmdRestore_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdRestore.Click
Try
Dim strServerPath As String = Request.MapPath(Common.Globals.ApplicationPath)
Dim objPortalController As New PortalController
Dim objPortal As PortalInfo = objPortalController.GetPortal(intPortalId)
If Not objPortal Is Nothing Then
If System.IO.File.Exists(objPortal.HomeDirectoryMapPath + "portal.css") Then
' delete existing style sheet
System.IO.File.Delete(objPortal.HomeDirectoryMapPath + "portal.css")
End If
' copy file from Host
If File.Exists(Common.Globals.HostMapPath + "portal.css") Then
System.IO.File.Copy(Common.Globals.HostMapPath + "portal.css", objPortal.HomeDirectoryMapPath + "portal.css")
End If
End If
LoadStyleSheet()
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
''' -----------------------------------------------------------------------------
'''
''' cmdSave_Click runs when the Save Stylesheet Linkbutton is clicked. It saves
''' the edited Stylesheet
'''
'''
'''
'''
''' [cnurse] 9/9/2004 Modified
'''
''' -----------------------------------------------------------------------------
Private Sub cmdSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Try
Dim strUploadDirectory As String = ""
Dim objPortalController As New PortalController
Dim objPortal As PortalInfo = objPortalController.GetPortal(intPortalId)
If Not objPortal Is Nothing Then
strUploadDirectory = objPortal.HomeDirectoryMapPath
End If
' reset attributes
If File.Exists(strUploadDirectory & "portal.css") Then
File.SetAttributes(strUploadDirectory & "portal.css", FileAttributes.Normal)
End If
' write CSS file
Dim objStream As StreamWriter
objStream = File.CreateText(strUploadDirectory & "portal.css")
objStream.WriteLine(txtStyleSheet.Text)
objStream.Close()
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
''' -----------------------------------------------------------------------------
'''
''' cmdUpdate_Click runs when the Update LinkButton is clicked.
''' It saves the current Site Settings
'''
'''
'''
''' -----------------------------------------------------------------------------
Private Sub cmdUpdate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdUpdate.Click
If Page.IsValid Then
Try
Dim strLogo As String
Dim strBackground As String
Dim refreshPage As Boolean = Null.NullBoolean
Dim objPortalController As New PortalController
Dim objPortal As PortalInfo = objPortalController.GetPortal(intPortalId)
strLogo = String.Format("FileID={0}", ctlLogo.FileID)
strBackground = String.Format("FileID={0}", ctlBackground.FileID)
'Refresh if Background or Logo file have changed
refreshPage = (strBackground = objPortal.BackgroundFile Or strLogo = objPortal.LogoFile)
Dim dblHostFee As Double = 0
If txtHostFee.Text <> "" Then
dblHostFee = Double.Parse(txtHostFee.Text)
End If
Dim dblHostSpace As Double = 0
If txtHostSpace.Text <> "" Then
dblHostSpace = Double.Parse(txtHostSpace.Text)
End If
Dim intPageQuota As Integer = 0
If txtPageQuota.Text <> "" Then
intPageQuota = Integer.Parse(txtPageQuota.Text)
End If
Dim intUserQuota As Double = 0
If txtUserQuota.Text <> "" Then
intUserQuota = Integer.Parse(txtUserQuota.Text)
End If
Dim intSiteLogHistory As Integer = -1
If txtSiteLogHistory.Text <> "" Then
intSiteLogHistory = Integer.Parse(txtSiteLogHistory.Text)
End If
Dim datExpiryDate As Date = Null.NullDate
If txtExpiryDate.Text <> "" Then
datExpiryDate = Convert.ToDateTime(txtExpiryDate.Text)
End If
Dim intSplashTabId As Integer = Null.NullInteger
If Not cboSplashTabId.SelectedItem Is Nothing Then
intSplashTabId = Integer.Parse(cboSplashTabId.SelectedItem.Value)
End If
Dim intHomeTabId As Integer = Null.NullInteger
If Not cboHomeTabId.SelectedItem Is Nothing Then
intHomeTabId = Integer.Parse(cboHomeTabId.SelectedItem.Value)
End If
Dim intLoginTabId As Integer = Null.NullInteger
If Not cboLoginTabId.SelectedItem Is Nothing Then
intLoginTabId = Integer.Parse(cboLoginTabId.SelectedItem.Value)
End If
Dim intRegisterTabId As Integer = Null.NullInteger
If Not cboRegisterTabId.SelectedItem Is Nothing Then
intRegisterTabId = Integer.Parse(cboRegisterTabId.SelectedItem.Value)
End If
Dim intUserTabId As Integer = Null.NullInteger
If Not cboUserTabId.SelectedItem Is Nothing Then
intUserTabId = Integer.Parse(cboUserTabId.SelectedItem.Value)
End If
Dim intSearchTabId As Integer = Null.NullInteger
If Not cboSearchTabId.SelectedItem Is Nothing Then
intSearchTabId = Integer.Parse(cboSearchTabId.SelectedItem.Value)
End If
If Not txtPassword.Attributes.Item("value") Is Nothing Then
txtPassword.Attributes.Item("value") = txtPassword.Text
End If
'check only relevant fields altered
If Not UserInfo.IsSuperUser Then
Dim HostChanged As Boolean = False
If dblHostFee <> objPortal.HostFee Then HostChanged = True
If dblHostSpace <> objPortal.HostSpace Then HostChanged = True
If intPageQuota <> objPortal.PageQuota Then HostChanged = True
If intUserQuota <> objPortal.UserQuota Then HostChanged = True
If intSiteLogHistory <> objPortal.SiteLogHistory Then HostChanged = True
If datExpiryDate <> objPortal.ExpiryDate Then HostChanged = True
If HostChanged = True Then
Throw New System.Exception
End If
End If
objPortalController.UpdatePortalInfo(intPortalId, txtPortalName.Text, strLogo, _
txtFooterText.Text, datExpiryDate, optUserRegistration.SelectedIndex, _
optBanners.SelectedIndex, cboCurrency.SelectedItem.Value, _
Convert.ToInt32(cboAdministratorId.SelectedItem.Value), dblHostFee, _
dblHostSpace, intPageQuota, intUserQuota, _
IIf(cboProcessor.SelectedValue = "", "", cboProcessor.SelectedItem.Text).ToString, _
txtUserId.Text, txtPassword.Text, txtDescription.Text, txtKeyWords.Text, _
strBackground, intSiteLogHistory, intSplashTabId, intHomeTabId, intLoginTabId, intRegisterTabId, _
intUserTabId, intSearchTabId, objPortal.DefaultLanguage, Convert.ToInt32(cboTimeZone.SelectedValue), _
lblHomeDirectory.Text, SelectedCultureCode)
If Not refreshPage Then
refreshPage = (PortalSettings.DefaultAdminSkin = ctlAdminSkin.SkinSrc) OrElse (PortalSettings.DefaultAdminContainer = ctlAdminContainer.SkinSrc)
End If
PortalController.UpdatePortalSetting(intPortalId, "EnableSkinWidgets", chkSkinWidgestEnabled.Checked.ToString, False)
PortalController.UpdatePortalSetting(intPortalId, "DefaultAdminSkin", ctlAdminSkin.SkinSrc, False)
PortalController.UpdatePortalSetting(intPortalId, "DefaultPortalSkin", ctlPortalSkin.SkinSrc, False)
PortalController.UpdatePortalSetting(intPortalId, "DefaultAdminContainer", ctlAdminContainer.SkinSrc, False)
PortalController.UpdatePortalSetting(intPortalId, "DefaultPortalContainer", ctlPortalContainer.SkinSrc, False)
PortalController.UpdatePortalSetting(intPortalId, "InlineEditorEnabled", chkInlineEditor.Checked.ToString, False)
PortalController.UpdatePortalSetting(intPortalId, "HideFoldersEnabled", chkHideSystemFolders.Checked.ToString, False)
PortalController.UpdatePortalSetting(intPortalId, "ControlPanelMode", optControlPanelMode.SelectedItem.Value, False)
PortalController.UpdatePortalSetting(intPortalId, "ControlPanelVisibility", optControlPanelVisibility.SelectedItem.Value, False)
PortalController.UpdatePortalSetting(intPortalId, "ControlPanelSecurity", optControlPanelSecurity.SelectedItem.Value, False)
PortalController.UpdatePortalSetting(intPortalId, "paypalsandbox", chkPayPalSandboxEnabled.Checked.ToString, False)
PortalController.UpdatePortalSetting(intPortalId, "paypalsubscriptionreturn", txtPayPalReturnURL.Text, False)
PortalController.UpdatePortalSetting(intPortalId, "paypalsubscriptioncancelreturn", txtPayPalCancelURL.Text, False)
PortalController.UpdatePortalSetting(intPortalId, "PortalAliasMapping", portalAliasModeButtonList.SelectedValue, False)
PortalController.UpdatePortalSetting(intPortalId, "DefaultPortalAlias", defaultAliasDropDown.SelectedValue, False)
HostController.Instance.Update("AutoAddPortalAlias", IIf(chkAutoAddPortalAlias.Checked, "Y", "N"), True)
If IsSuperUser() Then
PortalController.UpdatePortalSetting(intPortalId, "SSLEnabled", chkSSLEnabled.Checked.ToString, False)
PortalController.UpdatePortalSetting(intPortalId, "SSLEnforced", chkSSLEnforced.Checked.ToString, False)
PortalController.UpdatePortalSetting(intPortalId, "SSLURL", AddPortalAlias(txtSSLURL.Text, intPortalId), False)
PortalController.UpdatePortalSetting(intPortalId, "STDURL", AddPortalAlias(txtSTDURL.Text, intPortalId), False)
End If
' Redirect to this site to refresh only if admin skin changed or either of the images have changed
If refreshPage Then Response.Redirect(Request.RawUrl, True)
LoadPortal(SelectedCultureCode)
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
Finally
DataCache.ClearPortalCache(intPortalId, False)
End Try
End If
End Sub
Private Function AddPortalAlias(ByVal PortalAlias As String, ByVal PortalID As Integer) As String
If PortalAlias <> "" Then
If PortalAlias.IndexOf("://") <> -1 Then
PortalAlias = PortalAlias.Remove(0, PortalAlias.IndexOf("://") + 3)
End If
Dim objPortalAliasController As New PortalAliasController
Dim objPortalAlias As PortalAliasInfo = objPortalAliasController.GetPortalAlias(PortalAlias, PortalID)
If objPortalAlias Is Nothing Then
objPortalAlias = New PortalAliasInfo
objPortalAlias.PortalID = PortalID
objPortalAlias.HTTPAlias = PortalAlias
objPortalAliasController.AddPortalAlias(objPortalAlias)
End If
End If
Return PortalAlias
End Function
Protected Sub cmdSearchEngine_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSearchEngine.Click
Try
If Not cboSearchEngine.SelectedItem Is Nothing Then
Dim strURL As String = ""
Select Case cboSearchEngine.SelectedItem.Text
Case "Google"
strURL += "http://www.google.com/addurl?q=" & HTTPPOSTEncode(AddHTTP(GetDomainName(Request)))
strURL += "&dq="
If txtPortalName.Text <> "" Then
strURL += HTTPPOSTEncode(txtPortalName.Text)
End If
If txtDescription.Text <> "" Then
strURL += HTTPPOSTEncode(txtDescription.Text)
End If
If txtKeyWords.Text <> "" Then
strURL += HTTPPOSTEncode(txtKeyWords.Text)
End If
strURL += "&submit=Add+URL"
Case "Yahoo"
strURL = "http://siteexplorer.search.yahoo.com/submit"
Case "Microsoft"
strURL = "http://search.msn.com.sg/docs/submit.aspx"
End Select
UrlUtils.OpenNewWindow(Me.Page, Me.GetType(), strURL)
End If
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
Protected Sub cmdSiteMap_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSiteMap.Click
UrlUtils.OpenNewWindow(Me.Page, Me.GetType(), "http://www.google.com/webmasters/sitemaps/")
End Sub
Protected Sub cmdVerification_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdVerification.Click
If txtVerification.Text <> "" AndAlso txtVerification.Text.EndsWith(".html") Then
If Not File.Exists(ApplicationMapPath & "\" & txtVerification.Text) Then
' write SiteMap verification file
Dim objStream As StreamWriter
objStream = File.CreateText(ApplicationMapPath & "\" & txtVerification.Text)
objStream.WriteLine("google-site-verification: " & txtVerification.Text)
objStream.Close()
End If
End If
End Sub
Protected Sub ctlDesktopModules_AddAllButtonClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctlDesktopModules.AddAllButtonClick
'Add all Modules
For Each desktopModule As DesktopModuleInfo In DesktopModuleController.GetDesktopModules(Null.NullInteger).Values
DesktopModuleController.AddDesktopModuleToPortal(intPortalId, desktopModule.DesktopModuleID, True, False)
Next
DataCache.ClearPortalCache(intPortalId, False)
BindDesktopModules()
End Sub
Protected Sub ctlDesktopModules_AddButtonClick(ByVal sender As Object, ByVal e As UI.WebControls.DualListBoxEventArgs) Handles ctlDesktopModules.AddButtonClick
If e.Items IsNot Nothing Then
For Each desktopModule As String In e.Items
DesktopModuleController.AddDesktopModuleToPortal(intPortalId, Integer.Parse(desktopModule), True, False)
Next
End If
DataCache.ClearPortalCache(intPortalId, False)
BindDesktopModules()
End Sub
Protected Sub ctlDesktopModules_RemoveAllButtonClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctlDesktopModules.RemoveAllButtonClick
'Remove all Modules
For Each desktopModule As DesktopModuleInfo In DesktopModuleController.GetDesktopModules(Null.NullInteger).Values
DesktopModuleController.RemoveDesktopModuleFromPortal(intPortalId, desktopModule.DesktopModuleID, False)
Next
DataCache.ClearPortalCache(intPortalId, False)
BindDesktopModules()
End Sub
Protected Sub ctlDesktopModules_RemoveButtonClick(ByVal sender As Object, ByVal e As UI.WebControls.DualListBoxEventArgs) Handles ctlDesktopModules.RemoveButtonClick
If e.Items IsNot Nothing Then
For Each desktopModule As String In e.Items
DesktopModuleController.RemoveDesktopModuleFromPortal(intPortalId, Integer.Parse(desktopModule), False)
Next
End If
DataCache.ClearPortalCache(intPortalId, False)
BindDesktopModules()
End Sub
#End Region
End Class
End Namespace