Good day
I get this error message when i set up to Ulti dev cassini , has any one seen this before and how did you get around it.
Thanks
Rob
Server Errorin '/' Application.
Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30451: Name 'Config' is not declared.
Source Error:
| |
Line 66:
Line 67: Dim AutoUpgrade As Boolean
Line 68: If Config.GetSetting("AutoUpgrade") Is Nothing Then
Line 69: AutoUpgrade = True
Line 70: Else
|
Source File: C:\DNN\Website\App_Code\Global.asax.vb Line: 68
Show Detailed Compiler Output:
C:\WINDOWS\system32> "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe" /t:library /utf8output /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\2d542c1f\7a49f90b_8cb4c701\DotNetNuke.HttpModules.Authentication.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\ba26f1d1\7812a10b_8cb4c701\DotNetNuke.DNNMenuNavigationProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\9982c858\9256880c_8cb4c701\DotNetNuke.Provider.DNNProvider.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Configuration\2.0.0.0__b03f5f7f11d50a3a\System.Configuration.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\e4094162\6005120b_8cb4c701\DotNetNuke.ASP2MenuNavigationProvider.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Drawing\2.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Web.Mobile\2.0.0.0__b03f5f7f11d50a3a\System.Web.Mobile.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\7f7f5e45\ba94450c_8cb4c701\DotNetNuke.HttpModules.UrlRewrite.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\39f843ec\2c04d70c_8cb4c701\SolpartWebControls.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\0c003e3c\12c0ef0b_8cb4c701\DotNetNuke.FckHtmlEditorProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\f15f4df5\3e6c5d0c_8cb4c701\DotNetNuke.Provider.DBLoggingProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\27c7c39f\82f8280c_8cb4c701\DotNetNuke.HttpModules.Compression.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\c01041c1\9a05b80c_8cb4c701\DotNetNuke.WebUtility.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Xml\2.0.0.0__b77a5c561934e089\System.Xml.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\8b5908fc\06d0400c_8cb4c701\DotNetNuke.HttpModules.Personalization.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Web.Extensions\1.0.61025.0__31bf3856ad364e35\System.Web.Extensions.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\13655f56\c8bb4c0c_8cb4c701\DotNetNuke.HttpModules.UsersOnline.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\699b930f\44e4340c_8cb4c701\DotNetNuke.HttpModules.DNNMembership.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\c6e2196b\162ea00c_8cb4c701\DotNetNuke.Services.Syndication.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System\2.0.0.0__b77a5c561934e089\System.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\5512b3b4\7c53200b_8cb4c701\DotNetNuke.Authentication.ADSIProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\eb72b40f\4c66330b_8cb4c701\DotNetNuke.Caching.BroadcastPollingCachingProvider.SQLDataProvider.DLL" /R:"C:\WINDOWS\assembly\GAC_32\System.Web\2.0.0.0__b03f5f7f11d50a3a\System.Web.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\c5d0ef76\e09baa0b_8cb4c701\DotNetNuke.DNNScheduler.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\0506187a\0262900b_8cb4c701\DotNetNuke.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\fe8fc871\ccfccb0b_8cb4c701\DotNetNuke.DNNTreeNavigationProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\9e4d4534\caf2a40c_8cb4c701\DotNetNuke.SolpartMenuNavigationProvider.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.IdentityModel\3.0.0.0__b77a5c561934e089\System.IdentityModel.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\16438df4\783fd20c_8cb4c701\SharpZipLib.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\a575e01e\f8a8390c_8cb4c701\DotNetNuke.HttpModules.Exception.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Web.Services\2.0.0.0__b03f5f7f11d50a3a\System.Web.Services.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\8da87da3\10b6c80c_8cb4c701\DotNetNuke.XMLLoggingProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\efed55cf\40a3b50c_8cb4c701\DotNetNuke.WebControls.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\07e7cf1e\f203310b_8cb4c701\DotNetNuke.Caching.BroadcastPollingCachingProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\27d9e51c\fce9b80b_8cb4c701\DotNetNuke.DNNScheduler.SqlDataProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\8347545b\0807990c_8cb4c701\DotNetNuke.Search.Index.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\29a6aa6c\461b8d0c_8cb4c701\DotNetNuke.Provider.Membership.SqlDataProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\4bd27122\5442940c_8cb4c701\DotNetNuke.Search.DataStore.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\7b19fea1\7c80510c_8cb4c701\DotNetNuke.Membership.Dataprovider.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.ServiceModel\3.0.0.0__b77a5c561934e089\System.ServiceModel.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\32cd83d9\6e2c190b_8cb4c701\DotNetNuke.Authentication.ADSI.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\App_GlobalResources.zfag6ixy.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\53dc6da1\3045560c_8cb4c701\DotNetNuke.Provider.AspNetProvider.DLL" /R:"C:\WINDOWS\assembly\GAC_32\System.EnterpriseServices\2.0.0.0__b03f5f7f11d50a3a\System.EnterpriseServices.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\fb8b7dcf\ac400d0b_8cb4c701\CountryListBox.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\f9645633\7eb7a90c_8cb4c701\DotNetNuke.SqlDataProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\bb109452\bc9e6c0b_8cb4c701\DotNetNuke.Caching.FileBasedCachingProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\fb96f030\b626950b_8cb4c701\DotNetNuke.DNNDropDownNavigationProvider.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Runtime.Serialization\3.0.0.0__b77a5c561934e089\System.Runtime.Serialization.dll" /R:"C:\WINDOWS\assembly\GAC_32\System.Data\2.0.0.0__b77a5c561934e089\System.Data.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\195e78b5\f230620c_8cb4c701\DotNetNuke.Provider.DBLoggingProvider.SqlDataProvider.DLL" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\assembly\dl3\a119101d\c47acd0c_8cb4c701\Microsoft.ApplicationBlocks.Data.DLL" /out:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\App_Code.zri9eeku.dll" /debug- /define:_MYTYPE=\"Web\" /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Specialized,System.Configuration,System.Text,System.Text.RegularExpressions,System.Web,System.Web.Caching,System.Web.SessionState,System.Web.Security,System.Web.Profile,System.Web.UI,System.Web.UI.WebControls,System.Web.UI.WebControls.WebParts,System.Web.UI.HtmlControls "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\App_Code.zri9eeku.0.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\App_Code.zri9eeku.1.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\955fba95\7b4d88b0\App_Code.zri9eeku.2.vb"
Microsoft (R) Visual Basic Compiler version 8.0.50727.42
for Microsoft (R) .NET Framework version 2.0.50727.42
Copyright (c) Microsoft Corporation. All rights reserved.
C:\DNN\Website\App_Code\Global.asax.vb(68) : error BC30451: Name 'Config' is not declared.
If Config.GetSetting("AutoUpgrade") Is Nothing Then
~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(71) : error BC30451: Name 'Config' is not declared.
AutoUpgrade = Boolean.Parse(Config.GetSetting("AutoUpgrade"))
~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(75) : error BC30451: Name 'Config' is not declared.
If Config.GetSetting("UseInstallWizard") Is Nothing Then
~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(78) : error BC30451: Name 'Config' is not declared.
UseWizard = Boolean.Parse(Config.GetSetting("UseInstallWizard"))
~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(179) : error BC30451: Name 'LogException' is not declared.
LogException(exc)
~~~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(203) : error BC30002: Type 'PortalController' is not defined.
Dim objPortalController As New PortalController
~~~~~~~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(207) : error BC30002: Type 'PortalInfo' is not defined.
Dim objPortalInfo As PortalInfo = CType(arrPortals(i), PortalInfo)
~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(225) : error BC30451: Name 'Scheduling' is not declared.
Scheduling.SchedulingProvider.Instance.Halt("Stopped by Application_End")
~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(263) : error BC30451: Name 'Scheduling' is not declared.
If Services.Scheduling.SchedulingProvider.SchedulerMode = Scheduling.SchedulerMode.TIMER_METHOD Then
~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(264) : error BC30002: Type 'Scheduling.SchedulingProvider' is not defined.
Dim scheduler As Scheduling.SchedulingProvider = Scheduling.SchedulingProvider.Instance()
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(265) : error BC30451: Name 'Scheduling' is not declared.
scheduler.RunEventSchedule(Scheduling.EventName.APPLICATION_START)
~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(266) : error BC30451: Name 'Scheduling' is not declared.
Dim newThread As New Threading.Thread(AddressOf Scheduling.SchedulingProvider.Instance.Start)
~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(294) : error BC30451: Name 'Config' is not declared.
If Config.GetSetting("ServerName") = "" Then
~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(297) : error BC30451: Name 'Config' is not declared.
ServerName = Config.GetSetting("ServerName")
~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(301) : error BC30451: Name 'Config' is not declared.
If Config.GetSetting("InstallationSubfolder") = "" Then
~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(304) : error BC30451: Name 'Config' is not declared.
ApplicationPath = Config.GetSetting("InstallationSubfolder") & "/"
~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(333) : error BC30451: Name 'EventQueue' is not declared.
EventQueue.EventQueueController.ProcessMessages("Application_Start")
~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(380) : error BC30451: Name 'Scheduling' is not declared.
If Services.Scheduling.SchedulingProvider.SchedulerMode = Scheduling.SchedulerMode.REQUEST_METHOD _
~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(383) : error BC30002: Type 'Scheduling.SchedulingProvider' is not defined.
Dim scheduler As Scheduling.SchedulingProvider = Scheduling.SchedulingProvider.Instance
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\DNN\Website\App_Code\Global.asax.vb(394) : error BC30451: Name 'LogException' is not declared.
LogException(exc)
~~~~~~~~~~~~
|
Show Complete Compilation Source:
Line 1: '
Line 2: ' DotNetNuke® - http://www.dotnetnuke.com
Line 3: ' Copyright (c) 2002-2007
Line 4: ' by DotNetNuke Corporation
Line 5: '
Line 6: ' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
Line 7: ' documentation files (the "Software"), to deal in the Software without restriction, including without limitation
Line 8: ' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and
Line 9: ' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
Line 10: '
Line 11: ' The above copyright notice and this permission notice shall be included in all copies or substantial portions
Line 12: ' of the Software.
Line 13: '
Line 14: ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
Line 15: ' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
Line 16: ' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
Line 17: ' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
Line 18: ' DEALINGS IN THE SOFTWARE.
Line 19: '
Line 20: Imports System.Security
Line 21: Imports System.Security.Principal
Line 22: Imports System.Threading
Line 23: Imports System.Web.Security
Line 24: Imports System.IO
Line 25:
Line 26: Imports DotNetNuke.Security.Roles
Line 27: Imports DotNetNuke.Services.Log.EventLog
Line 28: Imports DotNetNuke.Services.Upgrade
Line 29:
Line 30:
Line 31: Namespace DotNetNuke.Common
Line 32:
Line 33: ''' -----------------------------------------------------------------------------
Line 34: ''' Project : DotNetNuke
Line 35: ''' Class : Global
Line 36: '''
Line 37: ''' -----------------------------------------------------------------------------
Line 38: ''' <summary>
Line 39: '''
Line 40: ''' </summary>
Line 41: ''' <remarks>
Line 42: ''' </remarks>
Line 43: ''' <history>
Line 44: ''' [sun1] 1/18/2004 Created
Line 45: ''' </history>
Line 46: ''' -----------------------------------------------------------------------------
Line 47: Public Class [Global]
Line 48: Inherits System.Web.HttpApplication
Line 49:
Line 50: #Region "Private Methods"
Line 51:
Line 52: ''' -----------------------------------------------------------------------------
Line 53: ''' <summary>
Line 54: ''' CheckVersion determines whether the App is synchronized with the DB
Line 55: ''' </summary>
Line 56: ''' <remarks>
Line 57: ''' </remarks>
Line 58: ''' <history>
Line 59: ''' [cnurse] 2/17/2005 created
Line 60: ''' </history>
Line 61: ''' -----------------------------------------------------------------------------
Line 62: Private Sub CheckVersion()
Line 63: Dim Server As HttpServerUtility = HttpContext.Current.Server
Line 64: Dim Request As HttpRequest = HttpContext.Current.Request
Line 65: Dim Response As HttpResponse = HttpContext.Current.Response
Line 66:
Line 67: Dim AutoUpgrade As Boolean
Line 68: If Config.GetSetting("AutoUpgrade") Is Nothing Then
Line 69: AutoUpgrade = True
Line 70: Else
Line 71: AutoUpgrade = Boolean.Parse(Config.GetSetting("AutoUpgrade"))
Line 72: End If
Line 73:
Line 74: Dim UseWizard As Boolean
Line 75: If Config.GetSetting("UseInstallWizard") Is Nothing Then
Line 76: UseWizard = True
Line 77: Else
Line 78: UseWizard = Boolean.Parse(Config.GetSetting("UseInstallWizard"))
Line 79: End If
Line 80:
Line 81: 'Determine the Upgrade status and redirect to Install.aspx
Line 82: Select Case GetUpgradeStatus()
Line 83: Case Globals.UpgradeStatus.Install
Line 84: If AutoUpgrade Then
Line 85: If UseWizard Then
Line 86: Response.Redirect("~/Install/InstallWizard.aspx")
Line 87: Else
Line 88: Response.Redirect("~/Install/Install.aspx?mode=install")
Line 89: End If
Line 90: Else
Line 91: CreateUnderConstructionPage()
Line 92: Response.Redirect("~/Install/UnderConstruction.htm")
Line 93: End If
Line 94: Case Globals.UpgradeStatus.Upgrade
Line 95: If AutoUpgrade Then
Line 96: Response.Redirect("~/Install/Install.aspx?mode=upgrade")
Line 97: Else
Line 98: CreateUnderConstructionPage()
Line 99: Response.Redirect("~/Install/UnderConstruction.htm")
Line 100: End If
Line 101: Case Globals.UpgradeStatus.Error
Line 102: If AutoUpgrade Then
Line 103: If UseWizard Then
Line 104: Response.Redirect("~/Install/InstallWizard.aspx")
Line 105: Else
Line 106: Response.Redirect("~/Install/Install.aspx?mode=none")
Line 107: End If
Line 108: Else
Line 109: CreateUnderConstructionPage()
Line 110: Response.Redirect("~/Install/UnderConstruction.htm")
Line 111: End If
Line 112: End Select
Line 113: End Sub
Line 114:
Line 115: Private Sub CreateUnderConstructionPage()
Line 116: ' create an UnderConstruction page if it does not exist already
Line 117: If Not File.Exists(System.Web.HttpContext.Current.Server.MapPath("~/Install/UnderConstruction.htm")) Then
Line 118: If File.Exists(System.Web.HttpContext.Current.Server.MapPath("~/Install/UnderConstruction.template.htm")) Then
Line 119: File.Copy(System.Web.HttpContext.Current.Server.MapPath("~/Install/UnderConstruction.template.htm"), System.Web.HttpContext.Current.Server.MapPath("~/Install/UnderConstruction.htm"))
Line 120: End If
Line 121: End If
Line 122: End Sub
Line 123:
Line 124: ''' -----------------------------------------------------------------------------
Line 125: ''' <summary>
Line 126: ''' LogEnd logs the Application Start Event
Line 127: ''' </summary>
Line 128: ''' <remarks>
Line 129: ''' </remarks>
Line 130: ''' <history>
Line 131: ''' [cnurse] 1/28/2005 Moved back to App_End from Logging Module
Line 132: ''' </history>
Line 133: ''' -----------------------------------------------------------------------------
Line 134: Private Sub LogEnd()
Line 135: Try
Line 136: Dim shutdownReason As System.Web.ApplicationShutdownReason = System.Web.Hosting.HostingEnvironment.ShutdownReason
Line 137: Dim shutdownDetail As String = ""
Line 138: Select Case shutdownReason
Line 139: Case ApplicationShutdownReason.BinDirChangeOrDirectoryRename
Line 140: shutdownDetail = "The AppDomain shut down because of a change to the Bin folder or files contained in it."
Line 141: Case ApplicationShutdownReason.BrowsersDirChangeOrDirectoryRename
Line 142: shutdownDetail = "The AppDomain shut down because of a change to the App_Browsers folder or files contained in it."
Line 143: Case ApplicationShutdownReason.ChangeInGlobalAsax
Line 144: shutdownDetail = "The AppDomain shut down because of a change to Global.asax."
Line 145: Case ApplicationShutdownReason.ChangeInSecurityPolicyFile
Line 146: shutdownDetail = "The AppDomain shut down because of a change in the code access security policy file."
Line 147: Case ApplicationShutdownReason.CodeDirChangeOrDirectoryRename
Line 148: shutdownDetail = "The AppDomain shut down because of a change to the App_Code folder or files contained in it."
Line 149: Case ApplicationShutdownReason.ConfigurationChange
Line 150: shutdownDetail = "The AppDomain shut down because of a change to the application level configuration."
Line 151: Case ApplicationShutdownReason.HostingEnvironment
Line 152: shutdownDetail = "The AppDomain shut down because of the hosting environment."
Line 153: Case ApplicationShutdownReason.HttpRuntimeClose
Line 154: shutdownDetail = "The AppDomain shut down because of a call to Close."
Line 155: Case ApplicationShutdownReason.IdleTimeout
Line 156: shutdownDetail = "The AppDomain shut down because of the maximum allowed idle time limit."
Line 157: Case ApplicationShutdownReason.InitializationError
Line 158: shutdownDetail = "The AppDomain shut down because of an AppDomain initialization error."
Line 159: Case ApplicationShutdownReason.MaxRecompilationsReached
Line 160: shutdownDetail = "The AppDomain shut down because of the maximum number of dynamic recompiles of resources limit."
Line 161: Case ApplicationShutdownReason.PhysicalApplicationPathChanged
Line 162: shutdownDetail = "The AppDomain shut down because of a change to the physical path for the application."
Line 163: Case ApplicationShutdownReason.ResourcesDirChangeOrDirectoryRename
Line 164: shutdownDetail = "The AppDomain shut down because of a change to the App_GlobalResources folder or files contained in it."
Line 165: Case ApplicationShutdownReason.UnloadAppDomainCalled
Line 166: shutdownDetail = "The AppDomain shut down because of a call to UnloadAppDomain."
Line 167: Case Else
Line 168: shutdownDetail = "No shutdown reason provided."
Line 169: End Select
Line 170:
Line 171: Dim objEv As New EventLogController
Line 172: Dim objEventLogInfo As New LogInfo
Line 173: objEventLogInfo.BypassBuffering = True
Line 174: objEventLogInfo.LogTypeKey = Services.Log.EventLog.EventLogController.EventLogType.APPLICATION_SHUTTING_DOWN.ToString
Line 175: objEventLogInfo.AddProperty("Shutdown Details", shutdownDetail)
Line 176:
Line 177: objEv.AddLog(objEventLogInfo)
Line 178: Catch exc As Exception
Line 179: LogException(exc)
Line 180: End Try
Line 181:
Line 182: ' purge log buffer
Line 183: LoggingProvider.Instance.PurgeLogBuffer()
Line 184: End Sub
Line 185:
Line 186: ''' -----------------------------------------------------------------------------
Line 187: ''' <summary>
Line 188: ''' CacheMappedDirectory caches the Portal Mapped Directory(s)
Line 189: ''' </summary>
Line 190: ''' <remarks>
Line 191: ''' </remarks>
Line 192: ''' <history>
Line 193: ''' [cnurse] 1/27/2005 Moved back to App_Start from Caching Module
Line 194: ''' </history>
Line 195: ''' -----------------------------------------------------------------------------
Line 196: Private Sub CacheMappedDirectory()
Line 197: 'Cache the mapped physical home directory for each portal
Line 198: 'so the mapped directories are available outside
Line 199: 'of httpcontext. This is especially necessary
Line 200: 'when the /Portals or portal home directory has been
Line 201: 'mapped in IIS to another directory or server.
Line 202: Dim objFolderController As New Services.FileSystem.FolderController
Line 203: Dim objPortalController As New PortalController
Line 204: Dim arrPortals As ArrayList = objPortalController.GetPortals()
Line 205: Dim i As Integer
Line 206: For i = 0 To arrPortals.Count - 1
Line 207: Dim objPortalInfo As PortalInfo = CType(arrPortals(i), PortalInfo)
Line 208: objFolderController.SetMappedDirectory(objPortalInfo, HttpContext.Current)
Line 209: Next
Line 210:
Line 211: End Sub
Line 212:
Line 213: ''' -----------------------------------------------------------------------------
Line 214: ''' <summary>
Line 215: ''' StopScheduler stops the Scheduler
Line 216: ''' </summary>
Line 217: ''' <remarks>
Line 218: ''' </remarks>
Line 219: ''' <history>
Line 220: ''' [cnurse] 1/28/2005 Moved back to App_End from Scheduling Module
Line 221: ''' </history>
Line 222: ''' -----------------------------------------------------------------------------
Line 223: Private Sub StopScheduler()
Line 224: ' stop scheduled jobs
Line 225: Scheduling.SchedulingProvider.Instance.Halt("Stopped by Application_End")
Line 226: End Sub
Line 227:
Line 228: #End Region
Line 229:
Line 230: #Region "Public Methods"
Line 231:
Line 232: ''' -----------------------------------------------------------------------------
Line 233: ''' <summary>
Line 234: ''' LogStart logs the Application Start Event
Line 235: ''' </summary>
Line 236: ''' <remarks>
Line 237: ''' </remarks>
Line 238: ''' <history>
Line 239: ''' [cnurse] 1/27/2005 Moved back to App_Start from Logging Module
Line 240: ''' </history>
Line 241: ''' -----------------------------------------------------------------------------
Line 242: Public Shared Sub LogStart()
Line 243: Dim objEv As New EventLogController
Line 244: Dim objEventLogInfo As New LogInfo
Line 245: objEventLogInfo.BypassBuffering = True
Line 246: objEventLogInfo.LogTypeKey = Services.Log.EventLog.EventLogController.EventLogType.APPLICATION_START.ToString
Line 247: objEv.AddLog(objEventLogInfo)
Line 248:
Line 249: End Sub
Line 250:
Line 251: ''' -----------------------------------------------------------------------------
Line 252: ''' <summary>
Line 253: ''' StartScheduler starts the Scheduler
Line 254: ''' </summary>
Line 255: ''' <remarks>
Line 256: ''' </remarks>
Line 257: ''' <history>
Line 258: ''' [cnurse] 1/27/2005 Moved back to App_Start from Scheduling Module
Line 259: ''' </history>
Line 260: ''' -----------------------------------------------------------------------------
Line 261: Public Shared Sub StartScheduler()
Line 262: ' instantiate APPLICATION_START scheduled jobs
Line 263: If Services.Scheduling.SchedulingProvider.SchedulerMode = Scheduling.SchedulerMode.TIMER_METHOD Then
Line 264: Dim scheduler As Scheduling.SchedulingProvider = Scheduling.SchedulingProvider.Instance()
Line 265: scheduler.RunEventSchedule(Scheduling.EventName.APPLICATION_START)
Line 266: Dim newThread As New Threading.Thread(AddressOf Scheduling.SchedulingProvider.Instance.Start)
Line 267: newThread.IsBackground = True
Line 268: newThread.Start()
Line 269: End If
Line 270: End Sub
Line 271:
Line 272: #End Region
Line 273:
Line 274: #Region "Application Event Handlers"
Line 275:
Line 276: ''' -----------------------------------------------------------------------------
Line 277: ''' <summary>
Line 278: ''' Application_Start
Line 279: ''' Executes on the first web request into the portal application,
Line 280: ''' when a new DLL is deployed, or when web.config is modified.
Line 281: ''' </summary>
Line 282: ''' <param name="Sender"></param>
Line 283: ''' <param name="E"></param>
Line 284: ''' <remarks>
Line 285: ''' - global variable initialization
Line 286: ''' </remarks>
Line 287: ''' <history>
Line 288: ''' </history>
Line 289: ''' -----------------------------------------------------------------------------
Line 290: Private Sub Application_Start(ByVal Sender As Object, ByVal E As EventArgs)
Line 291:
Line 292: 'global variable initialization
Line 293: Dim Server As HttpServerUtility = HttpContext.Current.Server
Line 294: If Config.GetSetting("ServerName") = "" Then
Line 295: ServerName = Server.MachineName
Line 296: Else
Line 297: ServerName = Config.GetSetting("ServerName")
Line 298: End If
Line 299:
Line 300: If HttpContext.Current.Request.ApplicationPath = "/" Then
Line 301: If Config.GetSetting("InstallationSubfolder") = "" Then
Line 302: ApplicationPath = ""
Line 303: Else
Line 304: ApplicationPath = Config.GetSetting("InstallationSubfolder") & "/"
Line 305: End If
Line 306: Else
Line 307: ApplicationPath = HttpContext.Current.Request.ApplicationPath
Line 308: End If
Line 309: ApplicationMapPath = System.AppDomain.CurrentDomain.BaseDirectory.Substring(0, System.AppDomain.CurrentDomain.BaseDirectory.Length - 1)
Line 310: ApplicationMapPath = ApplicationMapPath.Replace("/", "\")
Line 311:
Line 312: HostPath = ApplicationPath & "/Portals/_default/"
Line 313: HostMapPath = Server.MapPath(HostPath)
Line 314:
Line 315: 'First check if we are installing
Line 316: If HttpContext.Current.Request.Url.LocalPath.EndsWith("InstallWizard.aspx") Then
Line 317: Exit Sub
Line 318: End If
Line 319:
Line 320: 'Check whether the current App Version is the same as the DB Version
Line 321: CheckVersion()
Line 322:
Line 323: 'Cache Mapped Directory(s)
Line 324: CacheMappedDirectory()
Line 325:
Line 326: 'log APPLICATION_START event
Line 327: LogStart()
Line 328:
Line 329: 'Start Scheduler
Line 330: StartScheduler()
Line 331:
Line 332: 'Process any messages in the EventQueue for the Application_Start event
Line 333: EventQueue.EventQueueController.ProcessMessages("Application_Start")
Line 334:
Line 335: End Sub
Line 336:
Line 337: ''' -----------------------------------------------------------------------------
Line 338: ''' <summary>
Line 339: ''' Application_End
Line 340: ''' Executes when the Application times out
Line 341: ''' </summary>
Line 342: ''' <param name="Sender"></param>
Line 343: ''' <param name="E"></param>
Line 344: ''' <remarks>
Line 345: ''' </remarks>
Line 346: ''' <history>
Line 347: ''' </history>
Line 348: ''' -----------------------------------------------------------------------------
Line 349: Private Sub Application_End(ByVal Sender As Object, ByVal E As EventArgs)
Line 350:
Line 351: ' log APPLICATION_END event
Line 352: LogEnd()
Line 353:
Line 354: ' stop scheduled jobs
Line 355: StopScheduler()
Line 356:
Line 357: End Sub
Line 358:
Line 359: ''' -----------------------------------------------------------------------------
Line 360: ''' <summary>
Line 361: ''' Application_BeginRequest
Line 362: ''' Executes when the request is initiated
Line 363: ''' </summary>
Line 364: ''' <param name="Sender"></param>
Line 365: ''' <param name="E"></param>
Line 366: ''' <remarks>
Line 367: ''' </remarks>
Line 368: ''' <history>
Line 369: ''' </history>
Line 370: ''' -----------------------------------------------------------------------------
Line 371: Private Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
Line 372:
Line 373: 'First check if we are upgrading/installing
Line 374: If Request.Url.LocalPath.ToLower.EndsWith("install.aspx") OrElse Request.Url.LocalPath.ToLower.EndsWith("installwizard.aspx") Then
Line 375: Exit Sub
Line 376: End If
Line 377:
Line 378: Try
Line 379:
Line 380: If Services.Scheduling.SchedulingProvider.SchedulerMode = Scheduling.SchedulerMode.REQUEST_METHOD _
Line 381: AndAlso Services.Scheduling.SchedulingProvider.ReadyForPoll Then
Line 382:
Line 383: Dim scheduler As Scheduling.SchedulingProvider = Scheduling.SchedulingProvider.Instance
Line 384: Dim RequestScheduleThread As Threading.Thread
Line 385: RequestScheduleThread = New Threading.Thread(AddressOf scheduler.ExecuteTasks)
Line 386: RequestScheduleThread.IsBackground = True
Line 387: RequestScheduleThread.Start()
Line 388:
Line 389: Services.Scheduling.SchedulingProvider.ScheduleLastPolled = Now
Line 390:
Line 391: End If
Line 392:
Line 393: Catch exc As Exception
Line 394: LogException(exc)
Line 395: End Try
Line 396:
Line 397: End Sub
Line 398:
Line 399: #End Region
Line 400:
Line 401: End Class
Line 402:
Line 403: End Namespace
Line 404:
|
Version Information: Microsoft .NET Framework Version:2.0.50727.42; ASP.NET Version:2.0.50727.210