123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
- #include "CoreMain.h"
- #include "Common.h"
- #include "Interface.h"
- #include "Configuration.h"
- #include "PuttyIntf.h"
- #include "Cryptography.h"
- #ifndef NO_FILEZILLA
- #include "FileZillaIntf.h"
- #endif
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- //---------------------------------------------------------------------------
- TConfiguration * Configuration = NULL;
- TStoredSessionList * StoredSessions = NULL;
- //---------------------------------------------------------------------------
- TQueryButtonAlias::TQueryButtonAlias()
- {
- OnClick = NULL;
- GroupWith = -1;
- }
- //---------------------------------------------------------------------------
- TQueryParams::TQueryParams(unsigned int AParams, UnicodeString AHelpKeyword)
- {
- Params = AParams;
- Aliases = NULL;
- AliasesCount = 0;
- Timer = 0;
- TimerEvent = NULL;
- TimerMessage = L"";
- TimerAnswers = 0;
- Timeout = 0;
- TimeoutAnswer = 0;
- NoBatchAnswers = 0;
- HelpKeyword = AHelpKeyword;
- }
- //---------------------------------------------------------------------------
- bool __fastcall IsAuthenticationPrompt(TPromptKind Kind)
- {
- return
- (Kind == pkUserName) || (Kind == pkPassphrase) || (Kind == pkTIS) ||
- (Kind == pkCryptoCard) || (Kind == pkKeybInteractive) ||
- (Kind == pkPassword) || (Kind == pkNewPassword);
- }
- //---------------------------------------------------------------------------
- void CoreInitialize()
- {
- Randomize();
- CryptographyInitialize();
- // configuration needs to be created and loaded before putty is initialized,
- // so that random seed path is known
- Configuration = CreateConfiguration();
- try
- {
- Configuration->Load();
- }
- catch (Exception & E)
- {
- ShowExtendedException(&E);
- }
- PuttyInitialize();
- #ifndef NO_FILEZILLA
- TFileZillaIntf::Initialize();
- #endif
- StoredSessions = new TStoredSessionList();
- try
- {
- StoredSessions->Load();
- }
- catch (Exception & E)
- {
- ShowExtendedException(&E);
- }
- }
- //---------------------------------------------------------------------------
- void CoreFinalize()
- {
- try
- {
- // only modified, implicit
- Configuration->Save(false, false);
- }
- catch(Exception & E)
- {
- ShowExtendedException(&E);
- }
- #ifndef NO_FILEZILLA
- TFileZillaIntf::Finalize();
- #endif
- PuttyFinalize();
- delete StoredSessions;
- StoredSessions = NULL;
- delete Configuration;
- Configuration = NULL;
- CryptographyFinalize();
- }
- //---------------------------------------------------------------------------
- void CoreSetResourceModule(void * ResourceHandle)
- {
- #ifndef NO_FILEZILLA
- TFileZillaIntf::SetResourceModule(ResourceHandle);
- #else
- USEDPARAM(ResourceHandle);
- #endif
- }
- //---------------------------------------------------------------------------
- void CoreMaintenanceTask()
- {
- DontSaveRandomSeed();
- }
- //---------------------------------------------------------------------------
|