public static bool LoginServerAdmin()
{
string WelcomeMessage;
bool SystemEnabled;
Int32 ClientID;
Int64 SiteKey;
TConnectedClient CurrentClient = TClientManager.ConnectClient(
"SYSADMIN", string.Empty,
HttpContext.Current.Request.UserHostName,
HttpContext.Current.Request.UserHostAddress,
TFileVersionInfo.GetApplicationVersion().ToVersion(),
TClientServerConnectionType.csctRemote,
out ClientID,
out WelcomeMessage,
out SystemEnabled,
out SiteKey);
TSession.SetVariable("LoggedIn", true);
// the following values are stored in the session object
DomainManager.GClientID = ClientID;
DomainManager.CurrentClient = CurrentClient;
DomainManager.GSiteKey = SiteKey;
return(true);
}
/// <summary>
/// Initialize the Petra server and connect to the database
/// </summary>
/// <param name="AConfigName">just provide the server config file, plus AutoLogin and AutoLoginPasswd</param>
public static TServerManager Connect(string AConfigName)
{
if (File.Exists(AConfigName))
{
new TAppSettingsManager(AConfigName);
}
else
{
new TAppSettingsManager();
}
new TLogging(TAppSettingsManager.GetValue("Server.LogFile"));
CommonNUnitFunctions.InitRootPath();
Catalog.Init();
TServerManager.TheServerManager = new TServerManager();
DBAccess.GDBAccessObj = new TDataBase();
DBAccess.GDBAccessObj.EstablishDBConnection(TSrvSetting.RDMBSType,
TSrvSetting.PostgreSQLServer, TSrvSetting.PostgreSQLServerPort,
TSrvSetting.PostgreSQLDatabaseName,
TSrvSetting.DBUsername, TSrvSetting.DBPassword, "", "Ict.Testing.NUnitPetraServer.TPetraServerConnector.Connect DB Connection");
bool SystemEnabled;
string WelcomeMessage;
IPrincipal ThisUserInfo;
Int32 ClientID;
TConnectedClient CurrentClient = TClientManager.ConnectClient(
TAppSettingsManager.GetValue("AutoLogin").ToUpper(),
TAppSettingsManager.GetValue("AutoLoginPasswd"),
"NUNITTEST", "127.0.0.1",
TFileVersionInfo.GetApplicationVersion().ToVersion(),
TClientServerConnectionType.csctLocal,
out ClientID,
out WelcomeMessage,
out SystemEnabled,
out ThisUserInfo);
// the following values are stored in the session object
DomainManager.GClientID = ClientID;
DomainManager.CurrentClient = CurrentClient;
UserInfo.GUserInfo = (TPetraPrincipal)ThisUserInfo;
TSetupDelegates.Init();
TSystemDefaultsCache.GSystemDefaultsCache = new TSystemDefaultsCache();
DomainManager.GetSiteKeyFromSystemDefaultsCacheDelegate =
@TSystemDefaultsCache.GSystemDefaultsCache.GetSiteKeyDefault;
TUserDefaults.InitializeUnit();
StringHelper.CurrencyFormatTable = DBAccess.GDBAccessObj.SelectDT("SELECT * FROM PUB_a_currency", "a_currency", null);
return((TServerManager)TServerManager.TheServerManager);
}
public eLoginEnum Login(string username, string password)
{
string WelcomeMessage;
bool SystemEnabled;
IPrincipal UserInfo;
Int32 ClientID;
return(LoginInternal(username, password, TFileVersionInfo.GetApplicationVersion().ToVersion(),
out ClientID, out WelcomeMessage, out SystemEnabled, out UserInfo));
}
public string GetVersion()
{
object loggedIn = TSession.GetVariable("LoggedIn");
if ((null != loggedIn) && ((bool)loggedIn == true))
{
return(TFileVersionInfo.GetApplicationVersion().ToVersion().ToString());
}
return("0.0.0.0");
}
public string Login(string username, string password)
{
string WelcomeMessage;
bool SystemEnabled;
IPrincipal UserInfo;
Int32 ClientID;
eLoginEnum resultCode = LoginInternal(username, password, TFileVersionInfo.GetApplicationVersion().ToVersion(),
out ClientID, out WelcomeMessage, out SystemEnabled, out UserInfo);
Dictionary <string, object> result = new Dictionary <string, object>();
result.Add("resultcode", resultCode.ToString());
return(JsonConvert.SerializeObject(result));
}
public string Login(string username, string password)
{
string WelcomeMessage;
bool SystemEnabled;
Int32 ClientID;
bool MustChangePassword;
eLoginEnum resultCode = LoginInternal(username, password, TFileVersionInfo.GetApplicationVersion().ToVersion(),
out ClientID, out WelcomeMessage, out SystemEnabled, out MustChangePassword);
Dictionary <string, object> result = new Dictionary <string, object>();
result.Add("resultcode", resultCode.ToString());
result.Add("mustchangepassword", MustChangePassword);
if (resultCode == eLoginEnum.eLoginSucceeded)
{
result.Add("ModulePermissions", UserInfo.GetUserInfo().GetPermissions());
}
return(JsonConvert.SerializeObject(result));
}
/// <summary>
/// todoComment
/// </summary>
public static void InitializeUnit()
{
Networking.DetermineNetworkConfig(out UClientComputerName, out UClientIPAddress);
UClientOS = Utilities.DetermineExecutingOS();
UClientAssemblyVersion = TFileVersionInfo.GetApplicationVersion().ToString();
if (TClientSettings.RunAsRemote)
{
UInstallationKind = "Remote Client";
}
else
{
if (TClientSettings.RunAsStandalone)
{
UInstallationKind = "Standalone Installation";
}
else
{
UInstallationKind = "Network Client";
}
}
}
public static bool LoginServerAdmin()
{
// create a new session, with database connection and everything that is needed
// see also Ict.Petra.Server.App.WebService.TOpenPetraOrgSessionManager.Login()
if (DBAccess.GDBAccessObj == null)
{
TServerManager.TheCastedServerManager.EstablishDBConnection();
}
string WelcomeMessage;
bool SystemEnabled;
IPrincipal LocalUserInfo;
Int32 ClientID;
TConnectedClient CurrentClient = TClientManager.ConnectClient(
"SYSADMIN", string.Empty,
HttpContext.Current.Request.UserHostName,
HttpContext.Current.Request.UserHostAddress,
TFileVersionInfo.GetApplicationVersion().ToVersion(),
TClientServerConnectionType.csctRemote,
out ClientID,
out WelcomeMessage,
out SystemEnabled,
out LocalUserInfo);
TSession.SetVariable("LoggedIn", true);
// the following values are stored in the session object
DomainManager.GClientID = ClientID;
DomainManager.CurrentClient = CurrentClient;
UserInfo.GUserInfo = (TPetraPrincipal)LocalUserInfo;
DBAccess.GDBAccessObj.UserID = "SYSADMIN";
TServerManager.TheCastedServerManager.AddDBConnection(DBAccess.GDBAccessObj);
return(true);
}
/// <summary>
/// Initialize the Petra server and connect to the database
/// </summary>
/// <param name="AConfigName">just provide the server config file, plus AutoLogin and AutoLoginPasswd</param>
public static TServerManager Connect(string AConfigName)
{
TDBTransaction LoginTransaction;
bool CommitLoginTransaction = false;
bool SystemEnabled;
string WelcomeMessage;
Int32 ClientID;
Int64 SiteKey;
if (!File.Exists(AConfigName) && (AConfigName.Length > 0))
{
TLogging.Log("cannot find config file " + Path.GetFullPath(AConfigName));
Environment.Exit(-1);
}
TSession.InitThread("NUnitPetraServer.TPetraServerConnector.Connect", AConfigName);
CommonNUnitFunctions.InitRootPath();
Catalog.Init();
TServerManager.TheServerManager = new TServerManager();
ErrorCodeInventory.Init();
// initialise the cached tables and the delegates
TSetupDelegates.Init();
TDataBase db = DBAccess.Connect(
"Ict.Testing.NUnitPetraServer.TPetraServerConnector.Connect DB Connection");
// we need a serializable transaction, to store the session
LoginTransaction = db.BeginTransaction(IsolationLevel.Serializable);
try
{
TClientManager.PerformLoginChecks(TAppSettingsManager.GetValue("AutoLogin").ToUpper(),
TAppSettingsManager.GetValue("AutoLoginPasswd"),
"NUNITTEST", "127.0.0.1", out SystemEnabled, LoginTransaction);
CommitLoginTransaction = true;
}
catch (EPetraSecurityException)
{
// We need to set this flag to true here to get the failed login to be stored in the DB!!!
CommitLoginTransaction = true;
}
finally
{
if (CommitLoginTransaction)
{
LoginTransaction.Commit();
}
else
{
LoginTransaction.Rollback();
}
}
TConnectedClient CurrentClient = TClientManager.ConnectClient(
TAppSettingsManager.GetValue("AutoLogin").ToUpper(),
TAppSettingsManager.GetValue("AutoLoginPasswd"),
"NUNITTEST", "127.0.0.1",
TFileVersionInfo.GetApplicationVersion().ToVersion(),
TClientServerConnectionType.csctLocal,
out ClientID,
out WelcomeMessage,
out SystemEnabled,
out SiteKey,
db);
// the following values are stored in the session object
DomainManager.GClientID = ClientID;
DomainManager.CurrentClient = CurrentClient;
DomainManager.GSiteKey = SiteKey;
TSetupDelegates.Init();
db.CloseDBConnection();
return((TServerManager)TServerManager.TheServerManager);
}
static void Main(string[] args)
{
new TLogging("../../log/TestRemotingClient.log");
try
{
new TAppSettingsManager("../../etc/Client.config");
TLogging.DebugLevel = Convert.ToInt32(TAppSettingsManager.GetValue("Client.DebugLevel", "0"));
new TClientSettings();
// initialize the client
new TRemoteTest();
// need to call this as well to make the progress dialog work
new TRemote();
// allow self signed ssl certificate for test purposes
ServicePointManager.ServerCertificateValidationCallback = delegate {
return(true);
};
THttpConnector.InitConnection(TAppSettingsManager.GetValue("OpenPetra.HTTPServer"));
TClientInfo.InitializeUnit();
Catalog.Init("en-GB", "en-GB");
SortedList <string, object> Parameters = new SortedList <string, object>();
Parameters.Add("username", "demo");
Parameters.Add("password", "demo");
Parameters.Add("version", TFileVersionInfo.GetApplicationVersion().ToString());
List <object> ResultList = THttpConnector.CallWebConnector("SessionManager", "LoginClient", Parameters, "list");
eLoginEnum Result = (eLoginEnum)ResultList[0];
if (Result != eLoginEnum.eLoginSucceeded)
{
// failed login
return;
}
IMyUIConnector MyUIConnector = TRemoteTest.MyService.SubNamespace.MyUIConnector();
TRemoteTest.TMyService.TMySubNamespace test = TRemoteTest.MyService.SubNamespace;
while (true)
{
try
{
TLogging.Log("before call");
TLogging.Log(TRemoteTest.MyService.HelloWorld("Hello World"));
TLogging.Log("after call");
}
catch (Exception e)
{
TLogging.Log("problem with MyService HelloWorld: " + Environment.NewLine + e.ToString());
}
try
{
DateTime DateTomorrow;
TLogging.Log("should show today's date: " + TRemoteTest.MyService.TestDateTime(DateTime.Today,
out DateTomorrow).ToShortDateString());
TLogging.Log("should show tomorrow's date: " + DateTomorrow.ToShortDateString());
}
catch (Exception e)
{
TLogging.Log("problem with TestDateTime: " + Environment.NewLine + e.ToString());
}
try
{
TLogging.Log(test.HelloSubWorld("Hello SubWorld"));
}
catch (Exception e)
{
TLogging.Log("problem with sub namespace HelloSubWorld: " + Environment.NewLine + e.ToString());
}
try
{
TLogging.Log(MyUIConnector.HelloWorldUIConnector());
}
catch (Exception e)
{
TLogging.Log("problem with HelloWorldUIConnector: " + Environment.NewLine + e.ToString());
}
// start long running job
Thread t = new Thread(() => TRemoteTest.MyService.LongRunningJob());
using (TProgressDialog dialog = new TProgressDialog(t))
{
if (dialog.ShowDialog() == DialogResult.Cancel)
{
return;
}
}
Console.WriteLine("Press ENTER to say Hello World again... ");
Console.WriteLine("Press CTRL-C to exit ...");
Console.ReadLine();
}
}
catch (Exception e)
{
TLogging.Log(e.ToString());
Console.ReadLine();
}
}
/// <summary>
/// Initialize the Petra server and connect to the database
/// </summary>
/// <param name="AConfigName">just provide the server config file, plus AutoLogin and AutoLoginPasswd</param>
public static TServerManager Connect(string AConfigName)
{
TDBTransaction LoginTransaction;
bool CommitLoginTransaction = false;
bool SystemEnabled;
string WelcomeMessage;
IPrincipal ThisUserInfo;
Int32 ClientID;
if (File.Exists(AConfigName))
{
new TAppSettingsManager(AConfigName);
}
else if (AConfigName.Length > 0)
{
TLogging.Log("cannot find config file " + Path.GetFullPath(AConfigName));
Environment.Exit(-1);
}
else
{
new TAppSettingsManager();
}
new TLogging(TAppSettingsManager.GetValue("Server.LogFile"));
CommonNUnitFunctions.InitRootPath();
Catalog.Init();
TServerManager.TheServerManager = new TServerManager();
DBAccess.GDBAccessObj = new TDataBase();
DBAccess.GDBAccessObj.EstablishDBConnection(TSrvSetting.RDMBSType,
TSrvSetting.PostgreSQLServer, TSrvSetting.PostgreSQLServerPort,
TSrvSetting.PostgreSQLDatabaseName,
TSrvSetting.DBUsername, TSrvSetting.DBPassword, "",
"Ict.Testing.NUnitPetraServer.TPetraServerConnector.Connect DB Connection");
LoginTransaction = DBAccess.GDBAccessObj.BeginTransaction(IsolationLevel.RepeatableRead,
ATransactionName: "Ict.Testing.NUnitPetraServer.TPetraServerConnector.Connect (Unit Test Login)");
try
{
TClientManager.PerformLoginChecks(TAppSettingsManager.GetValue("AutoLogin").ToUpper(),
TAppSettingsManager.GetValue("AutoLoginPasswd"),
"NUNITTEST", "127.0.0.1", out SystemEnabled, LoginTransaction);
CommitLoginTransaction = true;
}
catch (EPetraSecurityException)
{
// We need to set this flag to true here to get the failed login to be stored in the DB!!!
CommitLoginTransaction = true;
}
finally
{
if (CommitLoginTransaction)
{
DBAccess.GDBAccessObj.CommitTransaction();
}
else
{
DBAccess.GDBAccessObj.RollbackTransaction();
}
}
TConnectedClient CurrentClient = TClientManager.ConnectClient(
TAppSettingsManager.GetValue("AutoLogin").ToUpper(),
TAppSettingsManager.GetValue("AutoLoginPasswd"),
"NUNITTEST", "127.0.0.1",
TFileVersionInfo.GetApplicationVersion().ToVersion(),
TClientServerConnectionType.csctLocal,
out ClientID,
out WelcomeMessage,
out SystemEnabled,
out ThisUserInfo);
// the following values are stored in the session object
DomainManager.GClientID = ClientID;
DomainManager.CurrentClient = CurrentClient;
UserInfo.GUserInfo = (TPetraPrincipal)ThisUserInfo;
TSetupDelegates.Init();
TSystemDefaultsCache.GSystemDefaultsCache = new TSystemDefaultsCache();
DomainManager.GetSiteKeyFromSystemDefaultsCacheDelegate =
@TSystemDefaultsCache.GSystemDefaultsCache.GetSiteKeyDefault;
TUserDefaults.InitializeUnit();
StringHelper.CurrencyFormatTable = DBAccess.GDBAccessObj.SelectDT("SELECT * FROM PUB_a_currency", "a_currency", null);
return((TServerManager)TServerManager.TheServerManager);
}
/// <summary>
/// Initialises the internal variables that hold the Server Settings, using the current config file.
///
/// </summary>
/// <returns>void</returns>
public TSrvSetting()
{
if (USingletonSrvSetting == null)
{
USingletonSrvSetting = this;
}
FConfigurationFile = TAppSettingsManager.ConfigFileName;
FExecutingOS = Utilities.DetermineExecutingOS();
// Server.RDBMSType
FRDBMSType = CommonTypes.ParseDBType(TAppSettingsManager.GetValue("Server.RDBMSType", "postgresql"));
FDatabaseHostOrFile = TAppSettingsManager.GetValue("Server.DBHostOrFile", "localhost");
FDatabasePort = TAppSettingsManager.GetValue("Server.DBPort", "5432");
FDatabaseName = TAppSettingsManager.GetValue("Server.DBName", "openpetra");
FDBUsername = TAppSettingsManager.GetValue("Server.DBUserName", "petraserver");
FDBPassword = TAppSettingsManager.GetValue("Server.DBPassword", string.Empty, false);
if (FDBPassword == "PG_OPENPETRA_DBPWD")
{
// get the password from the file ~/.pgpass. This currently only works for PostgreSQL on Linux
using (StreamReader sr = new StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.Personal) +
Path.DirectorySeparatorChar + ".pgpass"))
{
while (!sr.EndOfStream)
{
string line = sr.ReadLine();
if (line.StartsWith(FDatabaseHostOrFile + ":" + FDatabasePort + ":" + FDatabaseName + ":" + FDBUsername + ":") ||
line.StartsWith("*:" + FDatabasePort + ":" + FDatabaseName + ":" + FDBUsername + ":"))
{
FDBPassword = line.Substring(line.LastIndexOf(':') + 1);
break;
}
}
}
}
if (TAppSettingsManager.HasValue("Server.LogFile"))
{
FServerLogFile = TAppSettingsManager.GetValue("Server.LogFile", false);
}
else
{
// maybe the log file has already been set, eg. by the NUnit Server Test
FServerLogFile = TLogging.GetLogFileName();
if (FServerLogFile.Length == 0)
{
// this is effectively the bin directory (current directory)
FServerLogFile = "Server.log";
}
}
// Server.Port
FIPBasePort = TAppSettingsManager.GetInt16("Server.Port", 9000);
FRunAsStandalone = TAppSettingsManager.GetBoolean("Server.RunAsStandalone", false);
// Server.ClientIdleStatusAfterXMinutes
FClientIdleStatusAfterXMinutes = TAppSettingsManager.GetInt32("Server.ClientIdleStatusAfterXMinutes", 5);
// Server.ClientKeepAliveCheckIntervalInSeconds
FClientKeepAliveCheckIntervalInSeconds = TAppSettingsManager.GetInt32("Server.ClientKeepAliveCheckIntervalInSeconds", 60);
// Server.ClientKeepAliveTimeoutAfterXSeconds_LAN
FClientKeepAliveTimeoutAfterXSecondsLAN = TAppSettingsManager.GetInt32("Server.ClientKeepAliveTimeoutAfterXSeconds_LAN", 60);
// Server.ClientKeepAliveTimeoutAfterXSeconds_Remote
FClientKeepAliveTimeoutAfterXSecondsRemote =
TAppSettingsManager.GetInt32("Server.ClientKeepAliveTimeoutAfterXSeconds_Remote", (ClientKeepAliveTimeoutAfterXSecondsLAN * 2));
// Server.ClientConnectionTimeoutAfterXSeconds
FClientConnectionTimeoutAfterXSeconds = TAppSettingsManager.GetInt32("Server.ClientConnectionTimeoutAfterXSeconds", 20);
// Server.ClientAppDomainShutdownAfterKeepAliveTimeout
FClientAppDomainShutdownAfterKeepAliveTimeout = TAppSettingsManager.GetBoolean("Server.ClientAppDomainShutdownAfterKeepAliveTimeout",
true);
FSMTPServer = TAppSettingsManager.GetValue("Server.SMTPServer", "localhost");
// This is disabled in processing at the moment, so we reflect that here. When it works change to true
FAutomaticIntranetExportEnabled = TAppSettingsManager.GetBoolean("Server.AutomaticIntranetExportEnabled", false);
// The following setting specifies the email address where the Intranet Data emails are sent to when "Server.AutomaticIntranetExportEnabled" is true.
FIntranetDataDestinationEmail = TAppSettingsManager.GetValue("Server.IntranetDataDestinationEmail", "???@???.org");
// The following setting is temporary - until we have created a GUI where users can specify the email address for the
// responsible Personnel and Finance persons themselves. Those will be stored in SystemDefaults then.
FIntranetDataSenderEmail = TAppSettingsManager.GetValue("Server.IntranetDataSenderEmail", "???@???.org");
// Determine network configuration of the Server
Networking.DetermineNetworkConfig(out FHostName, out FHostIPAddresses);
FApplicationVersion = TFileVersionInfo.GetApplicationVersion();
}