Subversion Repositories DevTools

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "GenerationProperties.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvDirectoryEdit"
#pragma link "AdvEdBtn"
#pragma link "AdvEdit"
#pragma link "AdvPanel"
#pragma link "advlued"
#pragma link "dbadvle"
#pragma resource "*.dfm"
TGenerationPropertiesForm *GenerationPropertiesForm;
//---------------------------------------------------------------------------
__fastcall TGenerationPropertiesForm::TGenerationPropertiesForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::FormShow(TObject *Sender)
{
        TRegistry * registry = 0;

        try
        {
                registry = new TRegistry();
                registry->RootKey = HKEY_CURRENT_USER;

                // Create the key if it doesn't exist.
                registry->OpenKey( "Software\\ERG\\TxnTestManager", true );

                AnsiString      profile;
                AnsiString      securityServer;
                AnsiString      keyNumber;
                AnsiString      keyVersion;
                AnsiString      macAlgorithm;

                profile = registry->ReadString( "Profile" );
                if ( profile.IsEmpty() )
                {
                        profile = "TDS";
                }

                securityServer = registry->ReadString( "SecurityServerPipe" );
                if ( securityServer.IsEmpty() )
                {
                        securityServer = "CryptoServer";
                }

                keyNumber = registry->ReadString( "KeyNumber" );
                if ( keyNumber.IsEmpty() )
                {
                        keyNumber = "5";
                }

                keyVersion = registry->ReadString( "KeyVersion" );
                if ( keyVersion.IsEmpty() )
                {
                        keyVersion = "-2";
                }

                GenerationProfileComboBox->Text = profile;
                GenerationProfileComboBox->ItemIndex = -1;
                int index = 0;
                for ( index = 0; index < GenerationProfileComboBox->Items->Count; ++index )
                {
                        if ( GenerationProfileComboBox->Items->Strings[ index ] == profile )
                        {
                                GenerationProfileComboBox->ItemIndex = index;
                                break;
                        }
                }

                SecurityServerPipeEdit->Text = securityServer;
                KeyNumberEdit->Text = keyNumber;
                KeyVersionEdit->Text = keyVersion;

                macAlgorithm = registry->ReadString( "MacAlgorithm" );
                if ( macAlgorithm.IsEmpty() )
                {
                        macAlgorithm = "MAC";
                }
                
                for ( index = 0; index < MacAlgorithmComboBox->Items->Count; ++index )
                {
                        if ( MacAlgorithmComboBox->Items->Strings[ index ] == macAlgorithm )
                        {
                                MacAlgorithmComboBox->ItemIndex = index;
                                break;
                        }
                }

                readProfile( *registry, profile );
        }
        __finally
        {
                delete registry;
        }
}
//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::OKClick(TObject *Sender)
{
    TRegistry * registry = 0;

    try
    {
                registry = new TRegistry();
        registry->RootKey = HKEY_CURRENT_USER;

                // Create the key if it doesn't exist.
                registry->OpenKey( "Software\\ERG\\TxnTestManager", true );
                registry->WriteString( "Profile", GenerationProfileComboBox->Text );

                registry->WriteString( "SecurityServerPipe", SecurityServerPipeEdit->Text );
                registry->WriteString( "KeyNumber", KeyNumberEdit->Text );
                registry->WriteString( "KeyVersion", KeyVersionEdit->Text );
                registry->WriteString( "MacAlgorithm", MacAlgorithmComboBox->Text );

                if ( registry->OpenKey( GenerationProfileComboBox->Text, true ) )
                {
                        registry->WriteString( "Folder", GenerationFolderDirectoryEdit->Text );
                        
                        registry->WriteBool( "GenerateHeaders", GenerateHeadersCheckBox->Checked );
                        registry->WriteString( "DrainFilePrefix", DrainFilePrefixEdit->Text );
                        registry->WriteString( "DrainFileSuffix", DrainFileSuffixEdit->Text );

                        registry->WriteBool( "BuildManifest", BuildManifestCheckBox->Checked );
                        registry->WriteString( "ManifestPrefix", ManifestPrefixEdit->Text );
                        registry->WriteString( "ManifestSuffix", ManifestSuffixEdit->Text );
                        registry->WriteString( "PathmapTarget", PathmapTargetEdit->Text );
                }
        }
        __finally
        {
                delete registry;
        }
}
//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::GenerationProfileComboBoxChange(
          TObject *Sender)
{
        TRegistry * registry = 0;

        try
        {
                registry = new TRegistry();
                registry->RootKey = HKEY_CURRENT_USER;

                // Create the key if it doesn't exist.
                registry->OpenKey( "Software\\ERG\\TxnTestManager", true );

                readProfile( *registry, GenerationProfileComboBox->Text );
        }
        __finally
        {
                delete registry;
        }
}
//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::readProfile( TRegistry & registry, const AnsiString & profile )
{
        if ( registry.OpenKey( profile, true ) )
        {
                AnsiString      folder;
                bool            generateHeaders         = true;
                AnsiString      drainFilePrefix;
                AnsiString      drainFileSuffix         = ".devud";
                bool            buildManifest           = true;
                AnsiString      manifestPrefix          = "udMan";
                AnsiString      manifestSuffix          = ".txt";
                AnsiString      pathmapTarget           = "/afc/ergdce/var/DCE/ud/drained";

                folder = registry.ReadString( "Folder" );

                try
                {
                        generateHeaders = registry.ReadBool( "GenerateHeaders" );
                }
                catch ( ... )
                {
                        generateHeaders = true;
                }
                drainFilePrefix = registry.ReadString( "DrainFilePrefix" );
                drainFileSuffix = registry.ReadString( "DrainFileSuffix" );
                if ( drainFileSuffix.IsEmpty() )
                {
                        drainFileSuffix = ".devud";
                }

                try
                {
                        buildManifest = registry.ReadBool( "BuildManifest" );
                }
                catch ( ... )
                {
                        buildManifest = false;
                }
                manifestPrefix = registry.ReadString( "ManifestPrefix" );
                if ( manifestPrefix.IsEmpty() )
                {
                        manifestPrefix = "udMan";
                }
                manifestSuffix = registry.ReadString( "ManifestSuffix" );
                if ( manifestSuffix.IsEmpty() )
                {
                        manifestSuffix = ".txt";
                }
                pathmapTarget = registry.ReadString( "PathmapTarget" );
                if ( pathmapTarget.IsEmpty() )
                {
                        pathmapTarget = "/afc/ergdce/var/DCE/ud/drained";
                }

                GenerationFolderDirectoryEdit->Text = folder;
                GenerateHeadersCheckBox->Checked = generateHeaders;
                DrainFilePrefixEdit->Text = drainFilePrefix;
                DrainFileSuffixEdit->Text = drainFileSuffix;

                BuildManifestCheckBox->Checked = buildManifest;
                ManifestPrefixEdit->Text = manifestPrefix;
                ManifestSuffixEdit->Text = manifestSuffix;
                PathmapTargetEdit->Text = pathmapTarget;
                ManifestPrefixEdit->Enabled = BuildManifestCheckBox->Checked;
                ManifestSuffixEdit->Enabled = BuildManifestCheckBox->Checked;
                PathmapTargetEdit->Enabled = BuildManifestCheckBox->Checked;
        }
}
//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::BuildManifestCheckBoxClick(
          TObject *Sender)
{
        ManifestPrefixEdit->Enabled = BuildManifestCheckBox->Checked;
        ManifestSuffixEdit->Enabled = BuildManifestCheckBox->Checked;
        PathmapTargetEdit->Enabled = BuildManifestCheckBox->Checked;
}
//---------------------------------------------------------------------------