![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to configwizardunit.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3 / ctrl|
Return to configwizardunit.cpp CVS log | Up to [Synchronet] / sbbs / src / sbbs3 / ctrl |
1.1 root 1: /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */
2:
3: /* $Id: ConfigWizardUnit.cpp,v 1.21 2006/09/24 20:05:20 deuce Exp $ */
4:
5: /****************************************************************************
6: * @format.tab-size 4 (Plain Text/Source Code File Header) *
7: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
8: * *
9: * Copyright 2005 Rob Swindell - http://www.synchro.net/copyright.html *
10: * *
11: * This program is free software; you can redistribute it and/or *
12: * modify it under the terms of the GNU General Public License *
13: * as published by the Free Software Foundation; either version 2 *
14: * of the License, or (at your option) any later version. *
15: * See the GNU General Public License for more details: gpl.txt or *
16: * http://www.fsf.org/copyleft/gpl.html *
17: * *
18: * Anonymous FTP access to the most recent released source is available at *
19: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
20: * *
21: * Anonymous CVS access to the development source and modification history *
22: * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
23: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login *
24: * (just hit return, no password is necessary) *
25: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src *
26: * *
27: * For Synchronet coding style and modification guidelines, see *
28: * http://www.synchro.net/source.html *
29: * *
30: * You are encouraged to submit any modifications (preferably in Unix diff *
31: * format) via e-mail to [email protected] *
32: * *
33: * Note: If this box doesn't appear square, then you need to fix your tabs. *
34: ****************************************************************************/
35: //---------------------------------------------------------------------------
36:
37: #include "sbbs.h"
38: #include <vcl.h>
39: #pragma hdrstop
40:
41: #include "MainFormUnit.h"
42: #include "ConfigWizardUnit.h"
43: #include <stdio.h> // sprintf
44: #include <winsock.h> // addresses and such
45:
46: //---------------------------------------------------------------------------
47: #pragma package(smart_init)
48: #pragma resource "*.dfm"
49:
50: #define ILLEGAL_FILENAME_CHARS "\\/|<>+[]:=\";,%"
51: #define ILLEGAL_QWKID_CHARS "*?" ILLEGAL_FILENAME_CHARS
52:
53: char ctrl_dir[MAX_PATH+1];
54: short tz_val[]= {
55: 0
56: ,AST
57: ,EST
58: ,CST
59: ,MST
60: ,PST
61: ,YST
62: ,HST
63: ,BST
64: ,MID
65: ,VAN
66: ,EDM
67: ,WIN
68: ,BOG
69: ,CAR
70: ,RIO
71: ,FER
72: ,AZO
73: ,LON
74: ,BER
75: ,ATH
76: ,MOS
77: ,DUB
78: ,KAB
79: ,KAR
80: ,BOM
81: ,KAT
82: ,DHA
83: ,BAN
84: ,HON
85: ,TOK
86: ,SYD
87: ,NOU
88: ,WEL
89: };
90:
91: char* tz_str[]={
92: "Universal (UTC/GMT)"
93: ,"U.S. - Atlantic"
94: ,"U.S. - Eastern"
95: ,"U.S. - Central"
96: ,"U.S. - Mountain"
97: ,"U.S. - Pacific"
98: ,"U.S. - Yukon"
99: ,"U.S. - Hawaii/Alaska"
100: ,"U.S. - Bering"
101: ,"Midway"
102: ,"Vancouver"
103: ,"Edmonton"
104: ,"Winnipeg"
105: ,"Bogota"
106: ,"Caracas"
107: ,"Rio de Janeiro"
108: ,"Fernando de Noronha"
109: ,"Azores"
110: ,"London"
111: ,"Berlin"
112: ,"Athens"
113: ,"Moscow"
114: ,"Dubai"
115: ,"Kabul"
116: ,"Karachi"
117: ,"Bombay"
118: ,"Kathmandu"
119: ,"Dhaka"
120: ,"Bangkok"
121: ,"Hong Kong"
122: ,"Tokyo"
123: ,"Sydney"
124: ,"Noumea"
125: ,"Wellington"
126: };
127:
128: //---------------------------------------------------------------------------
129: __fastcall TConfigWizard::TConfigWizard(TComponent* Owner)
130: : TForm(Owner)
131: {
132: }
133: //---------------------------------------------------------------------------
134: void __fastcall TConfigWizard::FormShow(TObject *Sender)
135: {
136: char str[512];
137: int i;
138: int status;
139:
140: Application->BringToFront();
141:
142: memset(&scfg,0,sizeof(scfg));
143: SAFECOPY(scfg.ctrl_dir,MainForm->global.ctrl_dir);
144: scfg.size=sizeof(scfg);
145: char error[256];
146: SAFECOPY(error,UNKNOWN_LOAD_ERROR);
147: if(!load_cfg(&scfg,NULL,FALSE,error)) {
148: Application->MessageBox(error,"ERROR Loadin Configuration"
149: ,MB_OK|MB_ICONEXCLAMATION);
150: Close();
151: return;
152: }
153:
154: if(scfg.new_install) {
155: TIME_ZONE_INFORMATION tz;
156: memset(&tz,0,sizeof(tz));
157: DWORD tzRet=GetTimeZoneInformation(&tz);
158:
159: /* Convert to SMB tz format */
160: scfg.sys_timezone=0;
161: if(tz.Bias>0) {
162: switch(tz.Bias|US_ZONE) {
163: case AST:
164: case EST:
165: case CST:
166: case MST:
167: case PST:
168: case YST:
169: case HST:
170: case BST:
171: scfg.sys_timezone=tz.Bias|US_ZONE;
172: if(tzRet==TIME_ZONE_ID_DAYLIGHT)
173: scfg.sys_timezone|=DAYLIGHT;
174: break;
175: default:
176: scfg.sys_timezone=tz.Bias|WESTERN_ZONE;
177: break;
178: }
179: } else if(tz.Bias<0)
180: scfg.sys_timezone=(-tz.Bias)|EASTERN_ZONE;
181: #if 0
182: /* Get DNS Server Address */
183: str_list_t dns_list = getNameServerList();
184: if(dns_list!=NULL) {
185: SAFECOPY(MainForm->mail_startup.dns_server,dns_list[0]);
186: freeNameServerList(dns_list);
187: }
188: #endif
189: } else {
190: SystemNameEdit->Text=AnsiString(scfg.sys_name);
191: SystemLocationEdit->Text=AnsiString(scfg.sys_location);
192: SysopNameEdit->Text=AnsiString(scfg.sys_op);
193: SystemPasswordEdit->Text=AnsiString(scfg.sys_pass);
194: InternetAddressComboBox->Text=AnsiString(scfg.sys_inetaddr);
195: QWKIDEdit->Text=AnsiString(scfg.sys_id);
196: QNetTaglineEdit->Text=AnsiString(scfg.qnet_tagline);
197: AllNodesTelnetCheckBox->Checked
198: =(scfg.sys_nodes==MainForm->bbs_startup.last_node);
199: }
200:
201: NewUsersCheckBox->Checked=!(scfg.sys_misc&SM_CLOSED);
202: FeedbackCheckBox->Checked=scfg.node_valuser;
203: AliasesCheckBox->Checked=scfg.uq&UQ_ALIASES;
204: NewUsersCheckBoxClick(Sender);
205:
206: if(scfg.sys_misc&SM_USRVDELM)
207: DeletedEmailYesButton->Checked=true;
208: else if(scfg.sys_misc&SM_SYSVDELM)
209: DeletedEmailSysopButton->Checked=true;
210: else
211: DeletedEmailNoButton->Checked=true;
212:
213: // DNSAddressEdit->Text=MainForm->mail_startup.dns_server;
214: MaxMailUpDown->Position=MainForm->mail_startup.max_clients;
215: MaxFtpUpDown->Position=MainForm->ftp_startup.max_clients;
216: MaxWebUpDown->Position=MainForm->web_startup.max_clients;
217: NodesUpDown->Position=scfg.sys_nodes;
218:
219: for(i=0;i<sizeof(tz_str)/sizeof(tz_str[0]);i++) {
220: char str[128];
221: if(tz_val[i] && !(tz_val[i]&US_ZONE))
222: sprintf(str,"%c%u:%02u %s"
223: ,tz_val[i]&WESTERN_ZONE ? '-':'+'
224: ,(tz_val[i]&0xfff)/60
225: ,(tz_val[i]&0xfff)%60
226: ,tz_str[i]
227: );
228: else
229: strcpy(str,tz_str[i]);
230: TimeZoneComboBox->Items->Add(str);
231: }
232: sprintf(str,"Other (%s)",smb_zonestr(scfg.sys_timezone,NULL));
233: TimeZoneComboBox->Items->Add(str);
234:
235: for(i=0;i<sizeof(tz_val)/sizeof(tz_val[0]);i++)
236: if((scfg.sys_timezone&((short)~DAYLIGHT))==tz_val[i])
237: break;
238: TimeZoneComboBox->ItemIndex=i;
239: DaylightCheckBox->Enabled=scfg.sys_timezone&US_ZONE;
240: DaylightCheckBox->Checked=scfg.sys_timezone&DAYLIGHT;
241: if(scfg.sys_misc&SM_MILITARY)
242: Time24hrRadioButton->Checked=true;
243: else
244: Time12hrRadioButton->Checked=true;
245: if(scfg.sys_misc&SM_EURODATE)
246: DateEuRadioButton->Checked=true;
247: else
248: DateUsRadioButton->Checked=true;
249:
250: WizNotebook->PageIndex=0;
251: ProgressBar->Max=WizNotebook->Pages->Count-1;
252: IllegalCharsLabel->Caption="Illegal characters: '"
253: ILLEGAL_QWKID_CHARS "'";
254:
255: NextButton->Enabled=true;
256: }
257: //---------------------------------------------------------------------------
258: void __fastcall TConfigWizard::NextButtonClick(TObject *Sender)
259: {
260: if(ProgressBar->Position==ProgressBar->Max) /* Finished */
261: {
262: // Write Registry keys
263: if(AllNodesTelnetCheckBox->Checked)
264: MainForm->bbs_startup.last_node=NodesUpDown->Position;
265: MainForm->ftp_startup.max_clients=MaxFtpUpDown->Position;
266: MainForm->mail_startup.max_clients=MaxMailUpDown->Position;
267: MainForm->web_startup.max_clients=MaxWebUpDown->Position;
268: // strcpy(MainForm->mail_startup.dns_server,DNSAddressEdit->Text.c_str());
269:
270: MainForm->SaveIniSettings(Sender);
271:
272: // Write CNF files
273: strcpy(scfg.sys_name,SystemNameEdit->Text.c_str());
274: strcpy(scfg.sys_id,QWKIDEdit->Text.c_str());
275: strcpy(scfg.sys_location,SystemLocationEdit->Text.c_str());
276: strcpy(scfg.sys_op,SysopNameEdit->Text.c_str());
277: strcpy(scfg.sys_pass,SystemPasswordEdit->Text.c_str());
278: strcpy(scfg.sys_inetaddr,InternetAddressComboBox->Text.c_str());
279: strcpy(scfg.qnet_tagline,QNetTaglineEdit->Text.c_str());
280: scfg.sys_nodes=NodesUpDown->Position;
281: if(TimeZoneComboBox->ItemIndex>=0
282: && TimeZoneComboBox->ItemIndex<=sizeof(tz_val)/sizeof(tz_val[0]))
283: scfg.sys_timezone=tz_val[TimeZoneComboBox->ItemIndex];
284: if(DaylightCheckBox->Checked)
285: scfg.sys_timezone|=DAYLIGHT;
286: if(Time24hrRadioButton->Checked)
287: scfg.sys_misc|=SM_MILITARY;
288: else
289: scfg.sys_misc&=~SM_MILITARY;
290: if(DateEuRadioButton->Checked)
291: scfg.sys_misc|=SM_EURODATE;
292: else
293: scfg.sys_misc&=~SM_EURODATE;
294: if(NewUsersCheckBox->Checked)
295: scfg.sys_misc&=~SM_CLOSED;
296: else
297: scfg.sys_misc|=SM_CLOSED;
298: if(AliasesCheckBox->Checked)
299: scfg.uq|=UQ_ALIASES;
300: else
301: scfg.uq&=~UQ_ALIASES;
302: scfg.node_valuser=FeedbackCheckBox->Checked;
303:
304: if(DeletedEmailYesButton->Checked)
305: scfg.sys_misc|=(SM_USRVDELM|SM_SYSVDELM);
306: else if(DeletedEmailNoButton->Checked)
307: scfg.sys_misc&=~(SM_USRVDELM|SM_SYSVDELM);
308: else {
309: scfg.sys_misc|=SM_SYSVDELM;
310: scfg.sys_misc&=~SM_USRVDELM;
311: }
312:
313: scfg.new_install=FALSE;
314: if(!save_cfg(&scfg,0)) {
315: Application->MessageBox("Error saving configuration"
316: ,"ERROR",MB_OK|MB_ICONEXCLAMATION);
317: } else
318: refresh_cfg(&scfg);
319:
320: Close();
321: return;
322: }
323: WizNotebook->PageIndex++;
324: ProgressBar->Position=WizNotebook->PageIndex;
325: if(ProgressBar->Position==ProgressBar->Max) /* Last page */
326: NextButton->Caption="&Finish";
327: }
328: //---------------------------------------------------------------------------
329: void __fastcall TConfigWizard::BackButtonClick(TObject *Sender)
330: {
331: WizNotebook->PageIndex--;
332: ProgressBar->Position=WizNotebook->PageIndex;
333: NextButton->Caption="&Next >";
334: }
335: //---------------------------------------------------------------------------
336: void __fastcall TConfigWizard::CancelButtonClick(TObject *Sender)
337: {
338: Close();
339: }
340: //---------------------------------------------------------------------------
341: void __fastcall TConfigWizard::LogoImageClick(TObject *Sender)
342: {
343: LogoImage->Visible=false;
344: ProgressBar->Visible=false;
345: }
346: //---------------------------------------------------------------------------
347: void __fastcall TConfigWizard::TitleLabelClick(TObject *Sender)
348: {
349: LogoImage->Visible=true;
350: ProgressBar->Visible=true;
351: }
352: //---------------------------------------------------------------------------
353: void __fastcall TConfigWizard::WizNotebookPageChanged(TObject *Sender)
354: {
355: TFont* current;
356:
357: switch(WizNotebook->PageIndex) {
358: case 0:
359: current=IntroductionLabel->Font;
360: NextButton->Enabled=true;
361: break;
362: case 1:
363: current=IdentificationLabel->Font;
364: // ActiveControl=SystemNameEdit;
365: if(!SysopNameEdit->Text.Length()) {
366: char username[41];
367: DWORD len=sizeof(username)-1;
368: GetUserName(username,&len);
369: SysopNameEdit->Text=AnsiString(username);
370: }
371: if(!SystemNameEdit->Text.Length()) {
372: char bbsname[41];
373: DWORD len=sizeof(bbsname)-1;
374: GetComputerName(bbsname,&len);
375: SystemNameEdit->Text=AnsiString(bbsname);
376: }
377: VerifyIdentification(Sender);
378: break;
379: case 2:
380: current=TimeLabel->Font;
381: NextButton->Enabled=true;
382: break;
383: case 3:
384: current=InternetLabel->Font;
385: if(!InternetAddressComboBox->Items->Count) {
386: WSADATA WSAData;
387: WSAStartup(MAKEWORD(1,1), &WSAData); /* req'd for gethostname */
388: if(scfg.sys_inetaddr[0])
389: InternetAddressComboBox->Items->Add(scfg.sys_inetaddr);
390: char hostname[128];
391: gethostname(hostname,sizeof(hostname)-1);
392: if(hostname[0]) {
393: InternetAddressComboBox->Items->Add(hostname);
394: HOSTENT* host=gethostbyname(hostname);
395: SOCKADDR_IN addr;
396: for(int i=0;host && host->h_addr_list[i];i++) {
397: addr.sin_addr.s_addr
398: =*((DWORD*)host->h_addr_list[i]);
399: InternetAddressComboBox->Items->Add(inet_ntoa(addr.sin_addr));
400: }
401: }
402: WSACleanup();
403: InternetAddressComboBox->ItemIndex=0;
404: }
405: VerifyInternetAddresses(Sender);
406: break;
407: case 4:
408: current=QWKLabel->Font;
409: if(!QWKIDEdit->Text.Length()) {
410: char bbsname[41];
411: char qwkid[9];
412: int len=0;
413: strcpy(bbsname,SystemNameEdit->Text.UpperCase().c_str());
414: for(char*p=bbsname;*p && len<8;p++) {
415: if(strchr(ILLEGAL_QWKID_CHARS,*p))
416: continue;
417: if(!len && isdigit(*p))
418: continue;
419: if(*p<=' ')
420: continue;
421: qwkid[len++]=*p;
422: }
423: qwkid[len]=0;
424: QWKIDEdit->Text=AnsiString(qwkid);
425: }
426: if(!QNetTaglineEdit->Text.Length()) {
427: QNetTaglineEdit->Text = SystemNameEdit->Text +
428: " - " + InternetAddressComboBox->Text;
429: }
430: VerifyQWK(Sender);
431: break;
432: case 5:
433: current=MaximumsLabel->Font;
434: NextButton->Enabled=true;
435: break;
436: case 6:
437: current=OptionsLabel->Font;
438: NextButton->Enabled=true;
439: break;
440: case 7:
441: current=VerifyLabel->Font;
442: VerifyPassword(Sender);
443: if(!NextButton->Enabled)
444: ActiveControl=SysPassVerifyEdit;
445: break;
446: case 8:
447: current=CompleteLabel->Font;
448: break;
449: default:
450: return;
451: }
452:
453: /* default to inactive */
454: IntroductionLabel->Font->Color=clGray;
455: IdentificationLabel->Font->Color=clGray;
456: QWKLabel->Font->Color=clGray;
457: TimeLabel->Font->Color=clGray;
458: InternetLabel->Font->Color=clGray;
459: MaximumsLabel->Font->Color=clGray;
460: OptionsLabel->Font->Color=clGray;
461: VerifyLabel->Font->Color=clGray;
462: CompleteLabel->Font->Color=clGray;
463:
464: /* active */
465: current->Color=clYellow;
466:
467: BackButton->Enabled=WizNotebook->PageIndex;
468: }
469: //---------------------------------------------------------------------------
470: void __fastcall TConfigWizard::VerifyIdentification(TObject *Sender)
471: {
472: NextButton->Enabled=(SystemNameEdit->Text.Length()
473: && SystemLocationEdit->Text.Length()
474: && SysopNameEdit->Text.Length()
475: && SystemPasswordEdit->Text.Length()
476: );
477: }
478: //---------------------------------------------------------------------------
479: void __fastcall TConfigWizard::VerifyPassword(TObject *Sender)
480: {
481: NextButton->Enabled=(SystemPasswordEdit->Text==SysPassVerifyEdit->Text);
482: }
483: //---------------------------------------------------------------------------
484: void __fastcall TConfigWizard::VerifyQWK(TObject *Sender)
485: {
486: char qwk_id[9];
487:
488: SAFECOPY(qwk_id,QWKIDEdit->Text.c_str());
489: NextButton->Enabled=(
490: strlen(qwk_id)>=2
491: && isalpha(qwk_id[0])
492: && strcspn(qwk_id,ILLEGAL_QWKID_CHARS)==strlen(qwk_id)
493: && QNetTaglineEdit->Text.Length());
494: }
495: //---------------------------------------------------------------------------
496: void __fastcall TConfigWizard::QNetTaglineEditKeyPress(TObject *Sender,
497: char &Key)
498: {
499: if(Key==1) /* Ctrl-A */
500: QNetTaglineEdit->SetSelTextBuf("\1");
501: }
502: //---------------------------------------------------------------------------
503:
504: void __fastcall TConfigWizard::VerifyInternetAddresses(TObject *Sender)
505: {
506: NextButton->Enabled=(InternetAddressComboBox->Text.Length()
507: // && DNSAddressEdit->Text.Length()
508: );
509: }
510: //---------------------------------------------------------------------------
511: void __fastcall TConfigWizard::TimeZoneComboBoxChange(TObject *Sender)
512: {
513: if(TimeZoneComboBox->ItemIndex>=0
514: && TimeZoneComboBox->ItemIndex<=sizeof(tz_val)/sizeof(tz_val[0]))
515: DaylightCheckBox->Enabled=tz_val[TimeZoneComboBox->ItemIndex]&US_ZONE;
516: else
517: DaylightCheckBox->Enabled=false;
518: if(!DaylightCheckBox->Enabled)
519: DaylightCheckBox->Checked=false;
520: }
521: //---------------------------------------------------------------------------
522:
523: void __fastcall TConfigWizard::NewUsersCheckBoxClick(TObject *Sender)
524: {
525: AliasesCheckBox->Enabled=NewUsersCheckBox->Checked;
526: FeedbackCheckBox->Enabled=NewUsersCheckBox->Checked;
527: }
528: //---------------------------------------------------------------------------
529:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.