Return to servicescfgdlgunit.cpp CVS log

Up to [Synchronet] / sbbs / src / sbbs3 / ctrl

Annotation of sbbs/src/sbbs3/ctrl/servicescfgdlgunit.cpp, revision 1.1

1.1     ! root        1: //---------------------------------------------------------------------------
        !             2: 
        !             3: #include <vcl.h>
        !             4: #pragma hdrstop
        !             5: 
        !             6: #include "MainFormUnit.h"
        !             7: #include "TextFileEditUnit.h"
        !             8: #include "ServicesCfgDlgUnit.h"
        !             9: #include <stdio.h>                     // sprintf()
        !            10: #include <mmsystem.h>          // sndPlaySound()
        !            11: //---------------------------------------------------------------------------
        !            12: #pragma package(smart_init)
        !            13: #pragma resource "*.dfm"
        !            14: TServicesCfgDlg *ServicesCfgDlg;
        !            15: //---------------------------------------------------------------------------
        !            16: __fastcall TServicesCfgDlg::TServicesCfgDlg(TComponent* Owner)
        !            17:     : TForm(Owner)
        !            18: {
        !            19: }
        !            20: //---------------------------------------------------------------------------
        !            21: void __fastcall TServicesCfgDlg::ServicesCfgButtonClick(TObject *Sender)
        !            22: {
        !            23:        char filename[MAX_PATH+1];
        !            24: 
        !            25:     iniFileName(filename,sizeof(filename),MainForm->cfg.ctrl_dir,"services.ini");
        !            26:     MainForm->EditFile(filename,"Services Configuration");
        !            27: }
        !            28: //---------------------------------------------------------------------------
        !            29: void __fastcall TServicesCfgDlg::FormShow(TObject *Sender)
        !            30: {
        !            31:     char str[128];
        !            32:     
        !            33:     if(MainForm->services_startup.interface_addr==0)
        !            34:         NetworkInterfaceEdit->Text="<ANY>";
        !            35:     else {
        !            36:         sprintf(str,"%d.%d.%d.%d"
        !            37:             ,(MainForm->services_startup.interface_addr>>24)&0xff
        !            38:             ,(MainForm->services_startup.interface_addr>>16)&0xff
        !            39:             ,(MainForm->services_startup.interface_addr>>8)&0xff
        !            40:             ,MainForm->services_startup.interface_addr&0xff
        !            41:         );
        !            42:         NetworkInterfaceEdit->Text=AnsiString(str);
        !            43:     }
        !            44:     AutoStartCheckBox->Checked=MainForm->ServicesAutoStart;
        !            45: 
        !            46:     AnswerSoundEdit->Text=AnsiString(MainForm->services_startup.answer_sound);
        !            47:     HangupSoundEdit->Text=AnsiString(MainForm->services_startup.hangup_sound);
        !            48:     HostnameCheckBox->Checked
        !            49:         =!(MainForm->services_startup.options&BBS_OPT_NO_HOST_LOOKUP);
        !            50: 
        !            51:     PageControl->ActivePage=GeneralTabSheet;
        !            52: 
        !            53: }
        !            54: //---------------------------------------------------------------------------
        !            55: void __fastcall TServicesCfgDlg::OKButtonClick(TObject *Sender)
        !            56: {
        !            57:     char    str[128],*p;
        !            58:     DWORD   addr;
        !            59: 
        !            60:     SAFECOPY(str,NetworkInterfaceEdit->Text.c_str());
        !            61:     p=str;
        !            62:     while(*p && *p<=' ') p++;
        !            63:     if(*p && isdigit(*p)) {
        !            64:         addr=atoi(p)<<24;
        !            65:         while(*p && *p!='.') p++;
        !            66:         if(*p=='.') p++;
        !            67:         addr|=atoi(p)<<16;
        !            68:         while(*p && *p!='.') p++;
        !            69:         if(*p=='.') p++;
        !            70:         addr|=atoi(p)<<8;
        !            71:         while(*p && *p!='.') p++;
        !            72:         if(*p=='.') p++;
        !            73:         addr|=atoi(p);
        !            74:         MainForm->services_startup.interface_addr=addr;
        !            75:     } else
        !            76:         MainForm->services_startup.interface_addr=0;
        !            77:     MainForm->ServicesAutoStart=AutoStartCheckBox->Checked;
        !            78: 
        !            79: 
        !            80:     SAFECOPY(MainForm->services_startup.answer_sound
        !            81:         ,AnswerSoundEdit->Text.c_str());
        !            82:     SAFECOPY(MainForm->services_startup.hangup_sound
        !            83:         ,HangupSoundEdit->Text.c_str());
        !            84: 
        !            85:        if(HostnameCheckBox->Checked==false)
        !            86:        MainForm->services_startup.options|=BBS_OPT_NO_HOST_LOOKUP;
        !            87:     else
        !            88:            MainForm->services_startup.options&=~BBS_OPT_NO_HOST_LOOKUP;
        !            89: 
        !            90:     MainForm->SaveSettings(Sender);
        !            91: 
        !            92: }
        !            93: //---------------------------------------------------------------------------
        !            94: 
        !            95: void __fastcall TServicesCfgDlg::AnswerSoundButtonClick(TObject *Sender)
        !            96: {
        !            97:        OpenDialog->FileName=AnswerSoundEdit->Text;
        !            98:        if(OpenDialog->Execute()==true) {
        !            99:        AnswerSoundEdit->Text=OpenDialog->FileName;
        !           100:         sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
        !           101:     }
        !           102: }
        !           103: //---------------------------------------------------------------------------
        !           104: 
        !           105: void __fastcall TServicesCfgDlg::HangupSoundButtonClick(TObject *Sender)
        !           106: {
        !           107:        OpenDialog->FileName=HangupSoundEdit->Text;
        !           108:        if(OpenDialog->Execute()==true) {
        !           109:        HangupSoundEdit->Text=OpenDialog->FileName;
        !           110:         sndPlaySound(OpenDialog->FileName.c_str(),SND_ASYNC);
        !           111:        }
        !           112: }
        !           113: 
        !           114: //---------------------------------------------------------------------------

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.