// frmNewAccount.cpp - frmNewAccount form functions
//
// (c) 2016-2017 Xestia Software Development.
//
// This file is part of Xestia Calendar.
//
// Xestia Calendar is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by the
// Free Software Foundation, version 3 of the license.
//
// Xestia Calendar is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License along
// with Xestia Calendar. If not, see
#include "frmNewAccount.h"
#if defined(__WIN32__)
#include "../common/win32ssl.h"
#endif
DEFINE_EVENT_TYPE(UPDATERESULTS);
DEFINE_EVENT_TYPE(RUNCALDAVTEST);
BEGIN_EVENT_TABLE(frmNewAccount, wxDialog)
EVT_COMMAND(wxID_ANY, UPDATERESULTS, frmNewAccount::UpdateResults)
EVT_COMMAND(wxID_ANY, RUNCALDAVTEST, frmNewAccount::RunCalDAVTest)
END_EVENT_TABLE()
frmNewAccount::frmNewAccount( wxWindow* parent )
:
frmNewAccountADT( parent )
{
// Disable the previous button upon form creation.
btnPrevious->Disable();
txtServerAddress->Disable();
txtServerPort->Disable();
txtUsername->Disable();
txtPassword->Disable();
chkUseSSL->Disable();
}
void frmNewAccount::UpdateRequirements( wxCommandEvent& event )
{
// Update the options.
if (cmbServerType->GetCurrentSelection() == 1){
txtServerAddress->Enable();
txtServerPort->Enable();
txtUsername->Enable();
txtPassword->Enable();
chkUseSSL->Enable();
} else if (cmbServerType->GetCurrentSelection() == 0){
txtServerAddress->Disable();
txtServerPort->Disable();
txtUsername->Disable();
txtPassword->Disable();
chkUseSSL->Disable();
}
}
void frmNewAccount::Navigate( wxCommandEvent& event )
{
if (event.GetId() == wxID_NEXT)
pageSeek++;
else
pageSeek--;
if (pageSeek == 1){
// Skip this page.
btnPrevious->Disable();
btnNext->Enable();
tabConn->Hide();
tabFinish->Hide();
tabType->Show();
btnNext->SetLabel(_("Next >"));
} else if (pageSeek == 2){
if (cmbServerType->GetCurrentSelection() == 0){
tabType->Hide();
tabConn->Hide();
tabFinish->Show();
szrNewAccount->RecalcSizes();
pageSeek = 2;
btnNext->Disable();
btnPrevious->Enable();
btnNext->SetLabel(_("Finish"));
return;
}
// Check if server address matches against the blacklist.
// Bring up warning message if it does.
if (CheckBlacklist(txtServerAddress->GetValue())){
int MessageBoxResult = wxMessageBox(_("The server with the address given does not support the CalDAV protocol properly and shouldn't be used.\n\nData loss is very likely.\n\nDo you still want to continue using this server?"), _("Server warning"), wxYES_NO, this);
if (MessageBoxResult == wxNO){
pageSeek--;
return;
}
}
btnNext->Disable();
btnNext->SetLabel(_("Next >"));
bool ServerResult = FALSE;
bool ServerAction = FALSE;
bool UseSSL = TRUE;
wxString ServerMessage;
// Connection test screen.
tabType->Hide();
tabConn->Show();
tabFinish->Hide();
szrNewAccount->RecalcSizes();
btnPrevious->Disable();
// Reset screen.
lblServerConnResult->SetLabel(wxT(""));
lblServerResponse->SetLabel(wxT(""));
lblServerSSLResult->SetLabel(wxT(""));
lblServerSSLValid->SetLabel(wxT(""));
lblAbleToLoginResult->SetLabel(wxT(""));
lblCalDAVSupportResult->SetLabel(wxT(""));
// Depending on account type, run the test.
if (cmbServerType->GetCurrentSelection() == 1){
wxCommandEvent RunTest(RUNCALDAVTEST);
wxPostEvent(this, RunTest);
}
} else if (pageSeek == 3){
// Finish screen.
tabType->Hide();
tabConn->Hide();
tabFinish->Show();
szrNewAccount->RecalcSizes();
btnPrevious->Enable();
btnNext->SetLabel(_("Finish"));
if (txtAccountName->IsEmpty() || txtAccountName->GetValue().Len() < 4 && pageSeek == 3){
btnNext->Disable();
} else {
btnNext->Enable();
}
} else if (pageSeek == 4){
// Finished.
wxString xestiaCALPrefDirectory;
wxString xestiaCALDirectory;
wxString accountSettingsFile;
//wxFile ASFile;
srand(time(0));
int randomNumber = rand() % 32767;
wxString randomNumberSuffix = wxString::Format(wxT("%i"), randomNumber);
bool directoryCreated = FALSE;
#if defined(__HAIKU__)
//preffilename = wxT("noo");
#elif defined(__WIN32__)
xestiaCALPrefDirectory = GetUserPrefDir();
xestiaCALDirectory = GetUserDir();
accountSettingsFile = xestiaCALPrefDirectory + wxT("accounts");
// Open the file for writing.
wxFileConfig *cfgFile = new wxFileConfig("", "", accountSettingsFile);
// Check if account name already exists and return an error message
// if this is the case.
wxString accountName;
long itemIndex = 0;
bool continueAcc;
continueAcc = cfgFile->GetFirstGroup(accountName, itemIndex);
while (continueAcc){
if (txtAccountName->GetValue() == accountName){
wxMessageBox(_("The selected account name is already used, please use another account name."), _("Account name already used"), wxICON_ERROR);
return;
}
cfgFile->SetPath(wxT("/"));
continueAcc = cfgFile->GetNextGroup(accountName, itemIndex);
}
wxString directoryName = txtAccountName->GetValue().Mid(0, 30) + randomNumberSuffix;
if (cmbServerType->GetCurrentSelection() == 0){
// Create the account directory.
if (wxMkdir(xestiaCALDirectory + wxT("\\accounts\\") + directoryName + wxT(".Local"), 0740) == true){
WriteAccountDetails(cfgFile, wxT("Local"), directoryName);
} else {
wxMessageBox(_("An error occured whilst creating the account directory."), _("Cannot create account directory"));
return;
}
} else if (cmbServerType->GetCurrentSelection() == 1){
// Create the account directory.
if (wxMkdir(xestiaCALDirectory + wxT("\\accounts\\") + directoryName + wxT(".CalDAV"), 0740) == true){
WriteAccountDetails(cfgFile, wxT("CalDAV"), directoryName);
} else {
wxMessageBox(_("An error occured whilst creating the account directory."), _("Cannot create account directory"));
return;
}
}
delete cfgFile;
cfgFile = NULL;
*reloadAccountConfig = TRUE;
#else
xestiaCALPrefDirectory = GetUserPrefDir();
xestiaCALDirectory = GetUserDir();
accountSettingsFile = xestiaCALPrefDirectory + wxT("accounts");
// Open the file for writing.
wxFileConfig *cfgFile = new wxFileConfig("", "", accountSettingsFile);
// Check if account name already exists and return an error message
// if this is the case.
wxString accountName;
long itemIndex = 0;
bool continueAcc;
continueAcc = cfgFile->GetFirstGroup(accountName, itemIndex);
while (continueAcc){
if (txtAccountName->GetValue() == accountName){
wxMessageBox(_("The selected account name is already used, please use another account name."), _("Account name already used"), wxICON_ERROR);
return;
}
cfgFile->SetPath(wxT("/"));
continueAcc = cfgFile->GetNextGroup(accountName, itemIndex);
}
wxString directoryName = txtAccountName->GetValue().Mid(0, 30) + randomNumberSuffix;
if (cmbServerType->GetCurrentSelection() == 0){
// Create the account directory.
if (wxMkdir(xestiaCALDirectory + wxT("/accounts/") + directoryName + wxT(".Local"), 0740) == true){
WriteAccountDetails(cfgFile, wxT("Local"), directoryName);
} else {
wxMessageBox(_("An error occured whilst creating the account directory."), _("Cannot create account directory"));
return;
}
} else if (cmbServerType->GetCurrentSelection() == 1){
// Create the account directory.
wxString directoryName = txtAccountName->GetValue().Mid(0, 30) + randomNumberSuffix;
if (wxMkdir(xestiaCALDirectory + wxT("/accounts/") + directoryName + wxT(".CalDAV"), 0740) == true){
WriteAccountDetails(cfgFile, wxT("CalDAV"), directoryName);
} else {
wxMessageBox(_("An error occured whilst creating the account directory."), _("Cannot create account directory"));
return;
}
}
delete cfgFile;
cfgFile = nullptr;
*reloadAccountConfig = true;
#endif
this->Close();
}
}
void frmNewAccount::CloseWindow( wxCommandEvent& event )
{
// Close the window.
*reloadAccountConfig = FALSE;
this->Close();
}
void frmNewAccount::SetupPointers(bool *ReloadAccountInc, CalendarDataStorage *dataStorage){
// Setup the pointers for the new account window.
reloadAccountConfig = ReloadAccountInc;
}
void frmNewAccount::CheckAccountName( wxCommandEvent& event )
{
// Check that the account name is valid.
wxString checkAccName = txtAccountName->GetValue();
if ((txtAccountName->IsEmpty() && pageSeek == 2) || checkAccName.Len() < 4){
btnNext->Disable();
} else {
btnNext->Enable();
}
}
void frmNewAccount::WriteAccountDetails(wxFileConfig *cfgFileIn, wxString accountType, wxString directoryName){
// Write the new account details.
cfgFileIn->SetPath(txtAccountName->GetValue());
cfgFileIn->Write(wxT("address"), txtServerAddress->GetValue());
cfgFileIn->Write(wxT("port"), txtServerPort->GetValue());
cfgFileIn->Write(wxT("username"), txtUsername->GetValue());
cfgFileIn->Write(wxT("password"), txtPassword->GetValue());
cfgFileIn->Write(wxT("prefix"), serverPrefix);
cfgFileIn->Write(wxT("accountdir"), directoryName);
if (chkUseSSL->GetValue() == TRUE){
cfgFileIn->Write(wxT("ssl"), wxT("true"));
} else {
cfgFileIn->Write(wxT("ssl"), wxT("false"));
}
cfgFileIn->Write(wxT("refresh"), wxT("1800"));
cfgFileIn->Write(wxT("type"), accountType);
}
void frmNewAccount::UpdateResults( wxCommandEvent &event )
{
NewAccountResult *resultData = static_cast(event.GetClientData());
lblServerConnResult->SetLabel((resultData->Connected ? _("Successful") : _("Failed")));
lblServerResponse->SetLabel((resultData->ValidResponse ? _("Yes") : _("No")));
if (chkUseSSL->GetValue())
{
lblServerSSLResult->SetLabel((resultData->SSLStatus ? _("Yes") : _("No")));
lblServerSSLValid->SetLabel((resultData->SSLVerified == COSSL_VERIFIED ? _("Yes") : _("No")));
} else {
lblServerSSLResult->SetLabel(_("Not Applicable"));
lblServerSSLValid->SetLabel(_("Not Applicable"));
}
lblAbleToLoginResult->SetLabel((resultData->AuthPassed ? _("Yes") : _("No")));
lblCalDAVSupportResult->SetLabel((resultData->CanProcess ? _("Yes") : _("No")));
if (resultData->ErrorMessage != "")
{
lblConnectionResultText->SetLabel(_("An error occured whilst connecting to the server: ") + resultData->ErrorMessage);
}
if (VerifyResultData(resultData))
{
lblConnectionResultText->SetLabel(_("Successfully connected to the server. Press Next to set the account name."));
btnNext->Enable(true);
}
else
{
btnNext->Enable(false);
}
tabConn->Layout();
btnPrevious->Enable(true);
delete resultData;
resultData = nullptr;
}
bool frmNewAccount::VerifyResultData(NewAccountResult *resultData)
{
if (!resultData->Connected) return false;
if (!resultData->ValidResponse) return false;
if (chkUseSSL->GetValue())
{
if (!resultData->SSLStatus) return false;
if (resultData->SSLVerified != COSSL_VERIFIED) return false;
}
if (!resultData->AuthPassed) return false;
if (!resultData->CanProcess) return false;
return true;
}
void frmNewAccount::RunCalDAVTest( wxCommandEvent &event )
{
NewAccountResult *resultData = new NewAccountResult;
lblServerConnResult->SetLabel(_("Testing..."));
lblCalDAVSupportResult->SetLabel(wxT(""));
lblServerResponse->SetLabel(wxT(""));
lblServerSSLResult->SetLabel(wxT(""));
lblServerSSLValid->SetLabel(wxT(""));
lblAbleToLoginResult->SetLabel(wxT(""));
lblConnectionResultText->SetLabel(wxT(""));
bool usingSSLBypass = false;
// Setup a CalDAV connection object for testing.
CalDAVConnectionData connData;
connData.hostname = txtServerAddress->GetValue().ToStdString();
connData.port = wxAtoi(txtServerPort->GetValue());
connData.username = txtUsername->GetValue().ToStdString();
connData.password = txtPassword->GetValue().ToStdString();
connData.useSSL = chkUseSSL->GetValue() ? true : false;
CalDAV testConnection;
testConnection.SetupConnectionData(&connData);
/*CardDAV2 TestConnection(txtServerAddress->GetValue().ToStdString(),
wxAtoi(txtServerPort->GetValue()),
txtUsername->GetValue().ToStdString(),
txtPassword->GetValue().ToStdString(),
chkUseSSL->GetValue() ? true : false);*/
// Test the connection.
//testConnection.SetupConnectionObject();
CalDAVServerResult testConnectionResult = testConnection.Connect(false);
// If server is using SSL, verify that the SSL connection is valid.
if (testConnection.SSLVerify() == COSSL_UNABLETOVERIFY){
#if defined(__APPLE__)
testConnection.BypassSSLVerification(true);
CalDAVServerResult testConnection = testConnection.Connect(false);
testConnection.BypassSSLVerification(false);
int SSLResult = DisplayTrustPanel(&TestConnection);
if (SSLResult != NSOKButton){
lblServerConnResult->SetLabel(_("Failed"));
lblServerResponse->SetLabel(_("Not applicable"));
lblServerSSLResult->SetLabel(_("Used"));
lblServerSSLValid->SetLabel(_("No"));
lblConnectionResultText->SetLabel(_("An error occured whilst connnecting: ") + TestConnection.GetErrorMessage());
btnPrevious->Enable(true);
return;
} else {
// Evalulate the trust object.
SecTrustResultType evalResult = ProcessResultType(&testConnection);
switch(evalResult){
case kSecTrustResultProceed:
lblServerSSLValid->SetLabel(_("Verified"));
break;
case kSecTrustResultConfirm:
lblServerSSLValid->SetLabel(_("Verified (user)"));
break;
default:
lblServerSSLValid->SetLabel(_("Unable to verify"));
}
lblServerResponse->SetLabel(_("Not applicable"));
lblServerSSLResult->SetLabel(_("Used"));
if (evalResult != kSecTrustResultProceed){
return;
}
}
#elif defined(__WIN32__)
testConnection.BypassSSLVerification(true);
CalDAVServerResult testConnectionResult = testConnection.Connect(false);
testConnection.BypassSSLVerification(false);
BOOL modifiedCertificateData = false;
CRYPTUI_VIEWCERTIFICATE_STRUCTW certificateDialogData = BuildCertificateData(&testConnection, (HWND)this->GetHandle());
if (!CryptUIDlgViewCertificate(&certificateDialogData, &modifiedCertificateData)){
wxMessageBox(_("An error occured while trying to open the certificate dialog."), _("Error opening Certificate Information dialog"));
}
if (modifiedCertificateData == false){
lblServerConnResult->SetLabel(_("Failed"));
lblServerResponse->SetLabel(_("Not applicable"));
lblServerSSLResult->SetLabel(_("Used"));
lblServerSSLValid->SetLabel(_("No"));
lblConnectionResultText->SetLabel(_("An error occured whilst connnecting: ") + testConnection.GetErrorMessage());
btnPrevious->Enable(true);
return;
}
#else
// Connect again and fetch SSL certificate information.
testConnection.BypassSSLVerification(true);
CalDAVServerResult testConnectionResult = testConnection.Connect(false);
testConnection.BypassSSLVerification(false);
SSLCertCollectionString certData = testConnection.BuildSSLCollection();
frmInvalidSSLCertificate *frmICPtr = new frmInvalidSSLCertificate(this);
frmICPtr->LoadDataNew(certData, txtServerAddress->GetValue().ToStdString());
frmICPtr->ShowModal();
int sslResult = frmICPtr->GetResult();
// Clean up before processing response.
delete frmICPtr;
frmICPtr = nullptr;
// Process the response from the user.
if (sslResult == 1){
// Accept the Certificate.
usingSSLBypass = true;
testConnection.BypassSSLVerification(true);
CalDAVServerResult testConnectionResult = testConnection.Connect(true);
testConnection.BypassSSLVerification(false);
} else if (sslResult == 2){
// Reject the certificate, abort the task and mark as failed.
// TODO: Integrate into the code.
//lblConnectionResultText->SetLabel(_("An error occured whilst connnecting: ") + CardDAVConn.GetErrorMessage() + wxString::Format(wxT(" (%i)\n%s"), sslcode, CardDAVConn.GetErrorBuffer().mb_str()));
resultData->Connected = true;
resultData->SSLStatus = true;
resultData->SSLVerified = COSSL_UNABLETOVERIFY;
resultData->ValidResponse = false;
resultData->AuthPassed = false;
resultData->CanProcess = false;
resultData->ErrorMessage = _("Server is using self-signed certificate and was rejected.");
wxCommandEvent resultsEvent(UPDATERESULTS);
resultsEvent.SetClientData(resultData);
wxPostEvent(this, resultsEvent);
return;
}
#endif
}
if (usingSSLBypass == true){
testConnection.BypassSSLVerification(true);
}
testConnectionResult = testConnection.Connect(true);
// Get the server prefix if the connection was successful.
if (testConnectionResult.result == CALDAVQUERYRESULT_OK){
std::string receivedServerPrefix;
receivedServerPrefix = testConnection.GetUserPrincipal();
serverPrefix = receivedServerPrefix;
}
CalDAVServerSupport testConnectionSupport = testConnection.GetServerSupport();
if (usingSSLBypass == true){
testConnection.BypassSSLVerification(false);
}
(testConnectionResult.result == CALDAVQUERYRESULT_OK || testConnectionResult.result == CALDAVQUERYRESULT_SSLFAILURE) ?
resultData->Connected = true : resultData->Connected = false;
resultData->SSLStatus = testConnection.CanDoSSL();
resultData->SSLVerified = testConnection.SSLVerify();
resultData->ValidResponse = testConnection.HasValidResponse();
resultData->AuthPassed = testConnection.AbleToLogin();
resultData->CanProcess = testConnectionSupport.basicSupport;
resultData->ErrorMessage = testConnection.GetErrorMessage();
// Post event back confirming the tests.
wxCommandEvent resultsEvent(UPDATERESULTS);
resultsEvent.SetClientData(resultData);
wxPostEvent(this, resultsEvent);
}