/// <summary>
/// Allows the server or admin console to run a timed processing job now
/// </summary>
public override void PerformTimedProcessingNow(string AProcessName)
{
//
// Set up 'Timed Processing'
//
TTimedProcessing.DailyStartTime24Hrs = TAppSettingsManager.GetValue("Server.Processing.DailyStartTime24Hrs", "00:30");
if (TAppSettingsManager.GetBoolean("Server.Processing.PartnerReminders.Enabled", true))
{
Assembly PartnerProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MPartner.processing");
Type PartnerReminderClass = PartnerProcessingAssembly.GetType("Ict.Petra.Server.MPartner.Processing.TProcessPartnerReminders");
TTimedProcessing.AddProcessingJob(
"TProcessPartnerReminders",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
PartnerReminderClass,
"Process"));
}
if (TAppSettingsManager.GetBoolean("Server.Processing.DataChecks.Enabled", false))
{
Assembly CommonProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MCommon.processing");
Type ProcessDataChecksClass = CommonProcessingAssembly.GetType("Ict.Petra.Server.MCommon.Processing.TProcessDataChecks");
TTimedProcessing.AddProcessingJob(
"TProcessDataChecks",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
ProcessDataChecksClass,
"Process"));
}
TTimedProcessing.RunJobManually(AProcessName);
}
/// Is the process job enabled?
public override bool TimedProcessingJobEnabled(string AProcessName)
{
return(TTimedProcessing.IsJobEnabled(AProcessName));
}
/// <summary>
/// Initialises Logging and parses Server settings from different sources.
/// </summary>
public TServerManager() : base()
{
// Create SystemDefaults Cache
TSystemDefaultsCache.GSystemDefaultsCache = new TSystemDefaultsCache();
DomainManager.GetSiteKeyFromSystemDefaultsCacheDelegate = @TSystemDefaultsCache.GSystemDefaultsCache.GetSiteKeyDefault;
TCacheableTablesManager.InitializeUnit();
TCacheableTablesManager.GCacheableTablesManager = new TCacheableTablesManager(new TDelegateSendClientTask(TClientManager.QueueClientTask));
Assembly SysManAssembly = Assembly.Load("Ict.Petra.Server.lib.MSysMan");
Type ImportExportType = SysManAssembly.GetType("Ict.Petra.Server.MSysMan.ImportExport.TImportExportManager");
FImportExportManager = (IImportExportManager)Activator.CreateInstance(ImportExportType,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
Assembly DBUpgradesAssembly = Assembly.Load("Ict.Petra.Server.lib.MSysMan.DBUpgrades");
Type DatabaseUpgradeType = DBUpgradesAssembly.GetType("Ict.Petra.Server.MSysMan.DBUpgrades.TDBUpgrades");
FDBUpgrades = (IDBUpgrades)Activator.CreateInstance(DatabaseUpgradeType,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
Type UserManagement = SysManAssembly.GetType("Ict.Petra.Server.MSysMan.Maintenance.UserManagement.TUserManager");
FUserManager = (IUserManager)Activator.CreateInstance(UserManagement,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
TClientManager.InitializeStaticVariables(TSystemDefaultsCache.GSystemDefaultsCache,
FUserManager,
new TErrorLog(),
new TLoginLog(),
new TMaintenanceLogonMessage(),
ExceptionHandling_DBConnectionBrokenCallback);
//
// Set up 'Timed Processing'
//
TTimedProcessing.DailyStartTime24Hrs = TAppSettingsManager.GetValue("Server.Processing.DailyStartTime24Hrs", "00:30");
if (TAppSettingsManager.GetBoolean("Server.Processing.PartnerReminders.Enabled", true))
{
Assembly PartnerProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MPartner.processing");
Type PartnerReminderClass = PartnerProcessingAssembly.GetType("Ict.Petra.Server.MPartner.Processing.TProcessPartnerReminders");
TTimedProcessing.AddProcessingJob(
"TProcessPartnerReminders",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
PartnerReminderClass,
"Process"));
}
if (TAppSettingsManager.GetBoolean("Server.Processing.AutomatedIntranetExport.Enabled", false))
{
Assembly CommonProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MCommon.processing");
Type IntranetExportClass = CommonProcessingAssembly.GetType("Ict.Petra.Server.MCommon.Processing.TProcessAutomatedIntranetExport");
TTimedProcessing.AddProcessingJob(
"TProcessAutomatedIntranetExport",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
IntranetExportClass,
"Process"));
}
if (TAppSettingsManager.GetBoolean("Server.Processing.DataChecks.Enabled", false))
{
Assembly CommonProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MCommon.processing");
Type ProcessDataChecksClass = CommonProcessingAssembly.GetType("Ict.Petra.Server.MCommon.Processing.TProcessDataChecks");
TTimedProcessing.AddProcessingJob(
"TProcessDataChecks",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
ProcessDataChecksClass,
"Process"));
}
}
/// <summary>
/// Allows the server or admin console to run a timed job now
/// </summary>
public override void PerformTimedProcessingNow(string AProcessName)
{
TTimedProcessing.RunJobManually(AProcessName);
}
/// <summary>
/// Sets up timed Server processing tasks.
/// </summary>
/// <description>
/// Involves creating Timers and opening and closing of a Database connection
/// specifically for that purpose.
/// </description>
public void SetupServerTimedProcessing()
{
TTimedProcessing.StartProcessing();
}
/// <summary>
/// Initialises Logging and parses Server settings from different sources.
/// </summary>
public TServerManager() : base()
{
Assembly SysManAssembly = Assembly.Load("Ict.Petra.Server.lib.MSysMan");
Type ImportExportType = SysManAssembly.GetType("Ict.Petra.Server.MSysMan.ImportExport.TImportExportManager");
FImportExportManager = (IImportExportManager)Activator.CreateInstance(ImportExportType,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
Assembly DBUpgradesAssembly = Assembly.Load("Ict.Petra.Server.lib.MSysMan.DBUpgrades");
Type DatabaseUpgradeType = DBUpgradesAssembly.GetType("Ict.Petra.Server.MSysMan.DBUpgrades.TDBUpgrades");
FDBUpgrades = (IDBUpgrades)Activator.CreateInstance(DatabaseUpgradeType,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
Type UserManagement = SysManAssembly.GetType("Ict.Petra.Server.MSysMan.Maintenance.UserManagement.TUserManager");
FUserManager = (IUserManager)Activator.CreateInstance(UserManagement,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
TClientManager.InitializeStaticVariables(
FUserManager,
new TErrorLog(),
new TLoginLog(),
new TMaintenanceLogonMessage());
//
// Set up 'Timed Processing'
//
TTimedProcessing.DailyStartTime24Hrs = TAppSettingsManager.GetValue("Server.Processing.DailyStartTime24Hrs", "00:30");
if (TAppSettingsManager.GetBoolean("Server.Processing.PartnerReminders.Enabled", true))
{
Assembly PartnerProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MPartner.processing");
Type PartnerReminderClass = PartnerProcessingAssembly.GetType("Ict.Petra.Server.MPartner.Processing.TProcessPartnerReminders");
TTimedProcessing.AddProcessingJob(
"TProcessPartnerReminders",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
PartnerReminderClass,
"Process"));
}
if (TAppSettingsManager.GetBoolean("Server.Processing.AutomatedIntranetExport.Enabled", false))
{
Assembly CommonProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MCommon.processing");
Type IntranetExportClass = CommonProcessingAssembly.GetType("Ict.Petra.Server.MCommon.Processing.TProcessAutomatedIntranetExport");
TTimedProcessing.AddProcessingJob(
"TProcessAutomatedIntranetExport",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
IntranetExportClass,
"Process"));
}
if (TAppSettingsManager.GetBoolean("Server.Processing.DataChecks.Enabled", false))
{
Assembly CommonProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MCommon.processing");
Type ProcessDataChecksClass = CommonProcessingAssembly.GetType("Ict.Petra.Server.MCommon.Processing.TProcessDataChecks");
TTimedProcessing.AddProcessingJob(
"TProcessDataChecks",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
ProcessDataChecksClass,
"Process"));
}
}
/// <summary>
/// Initialises Logging and parses Server settings from different sources.
/// </summary>
public TServerManager() : base()
{
// Create SystemDefaults Cache
TSystemDefaultsCache.GSystemDefaultsCache = new TSystemDefaultsCache();
DomainManager.GetSiteKeyFromSystemDefaultsCacheDelegate = @TSystemDefaultsCache.GSystemDefaultsCache.GetSiteKeyDefault;
TCacheableTablesManager.InitializeUnit();
TCacheableTablesManager.GCacheableTablesManager = new TCacheableTablesManager(new TDelegateSendClientTask(TClientManager.QueueClientTask));
Assembly SysManAssembly = Assembly.Load("Ict.Petra.Server.lib.MSysMan");
Type ImportExportType = SysManAssembly.GetType("Ict.Petra.Server.MSysMan.ImportExport.TImportExportManager");
FImportExportManager = (IImportExportManager)Activator.CreateInstance(ImportExportType,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
Assembly DBUpgradesAssembly = Assembly.Load("Ict.Petra.Server.lib.MSysMan.DBUpgrades");
Type DatabaseUpgradeType = DBUpgradesAssembly.GetType("Ict.Petra.Server.MSysMan.DBUpgrades.TDBUpgrades");
FDBUpgrades = (IDBUpgrades)Activator.CreateInstance(DatabaseUpgradeType,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
Type UserManagement = SysManAssembly.GetType("Ict.Petra.Server.MSysMan.Maintenance.UserManagement.TUserManager");
FUserManager = (IUserManager)Activator.CreateInstance(UserManagement,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
TClientManager.InitializeStaticVariables(TSystemDefaultsCache.GSystemDefaultsCache,
FUserManager,
new TErrorLog(),
new TLoginLog(),
new TMaintenanceLogonMessage(),
ExceptionHandling_DBConnectionBrokenCallback);
// Set up the SYSADMIN user (#5650).
// (This is required for all SubmitChanges method calls in the server's main AppDomain because
// that Method references UserInfo.GUserInfo)
// When using this with the Web Services, this does not apply to the threads for each session.
TPetraIdentity PetraIdentity = new TPetraIdentity(
"SYSADMIN", "", "", "", "",
DateTime.MinValue, DateTime.MinValue, DateTime.MinValue,
0, -1, -1, false, false, false);
TPetraPrincipal Principal = new TPetraPrincipal(PetraIdentity, null);
UserInfo.GUserInfo = Principal;
//
// Set up 'Timed Processing'
//
TTimedProcessing.DailyStartTime24Hrs = TAppSettingsManager.GetValue("Server.Processing.DailyStartTime24Hrs", "00:30");
if (TAppSettingsManager.GetBoolean("Server.Processing.PartnerReminders.Enabled", true))
{
Assembly PartnerProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MPartner.processing");
Type PartnerReminderClass = PartnerProcessingAssembly.GetType("Ict.Petra.Server.MPartner.Processing.TProcessPartnerReminders");
TTimedProcessing.AddProcessingJob(
"TProcessPartnerReminders",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
PartnerReminderClass,
"Process"));
}
if (TAppSettingsManager.GetBoolean("Server.Processing.AutomatedIntranetExport.Enabled", false))
{
Assembly CommonProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MCommon.processing");
Type IntranetExportClass = CommonProcessingAssembly.GetType("Ict.Petra.Server.MCommon.Processing.TProcessAutomatedIntranetExport");
TTimedProcessing.AddProcessingJob(
"TProcessAutomatedIntranetExport",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
IntranetExportClass,
"Process"));
}
if (TAppSettingsManager.GetBoolean("Server.Processing.DataChecks.Enabled", false))
{
Assembly CommonProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MCommon.processing");
Type ProcessDataChecksClass = CommonProcessingAssembly.GetType("Ict.Petra.Server.MCommon.Processing.TProcessDataChecks");
TTimedProcessing.AddProcessingJob(
"TProcessDataChecks",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
ProcessDataChecksClass,
"Process"));
}
}
/// <summary>
/// Initialises Logging and parses Server settings from different sources.
/// </summary>
public TServerManager() : base()
{
// Create SystemDefaults Cache
FSystemDefaultsCache = new TSystemDefaultsCache();
TRemoteLoader.CLIENTDOMAIN_DLLNAME = "Ict.Petra.Server.app.Core";
TRemoteLoader.CLIENTDOMAIN_CLASSNAME = "Ict.Petra.Server.App.Core.TClientDomainManager";
TClientAppDomainConnectionBase.ClientAppDomainConnectionType = typeof(TClientAppDomainConnection);
TCacheableTablesManager.InitializeUnit();
TCacheableTablesManager.GCacheableTablesManager = new TCacheableTablesManager(new TDelegateSendClientTask(TClientManager.QueueClientTask));
Assembly SysManAssembly = Assembly.Load("Ict.Petra.Server.lib.MSysMan");
Type ImportExportType = SysManAssembly.GetType("Ict.Petra.Server.MSysMan.ImportExport.TImportExportManager");
FImportExportManager = (IImportExportManager)Activator.CreateInstance(ImportExportType,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
Type UserManagement = SysManAssembly.GetType("Ict.Petra.Server.MSysMan.Maintenance.UserManagement.TUserManager");
FUserManager = (IUserManager)Activator.CreateInstance(UserManagement,
(BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod),
null,
null,
null);
TClientManager.InitializeStaticVariables(FSystemDefaultsCache,
TCacheableTablesManager.GCacheableTablesManager,
FUserManager,
new TErrorLog(),
new TMaintenanceLogonMessage(),
new TClientAppDomainConnection());
TTimedProcessing.DailyStartTime24Hrs = TAppSettingsManager.GetValue("Server.Processing.DailyStartTime24Hrs", "00:30");
if (TAppSettingsManager.GetBoolean("Server.Processing.PartnerReminders.Enabled", true))
{
Assembly PartnerProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MPartner.processing");
Type PartnerReminderClass = PartnerProcessingAssembly.GetType("Ict.Petra.Server.MPartner.Processing.TProcessPartnerReminders");
TTimedProcessing.AddProcessingJob(
"TProcessPartnerReminders",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
PartnerReminderClass,
"Process"));
}
if (TAppSettingsManager.GetBoolean("Server.Processing.AutomatedIntranetExport.Enabled", false))
{
Assembly CommonProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MCommon.processing");
Type IntranetExportClass = CommonProcessingAssembly.GetType("Ict.Petra.Server.MCommon.Processing.TProcessAutomatedIntranetExport");
TTimedProcessing.AddProcessingJob(
"TProcessAutomatedIntranetExport",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
IntranetExportClass,
"Process"));
}
if (TAppSettingsManager.GetBoolean("Server.Processing.DataChecks.Enabled", false))
{
Assembly CommonProcessingAssembly = Assembly.Load("Ict.Petra.Server.lib.MCommon.processing");
Type ProcessDataChecksClass = CommonProcessingAssembly.GetType("Ict.Petra.Server.MCommon.Processing.TProcessDataChecks");
TTimedProcessing.AddProcessingJob(
"TProcessDataChecks",
(TTimedProcessing.TProcessDelegate)Delegate.CreateDelegate(
typeof(TTimedProcessing.TProcessDelegate),
ProcessDataChecksClass,
"Process"));
}
}
