static void MacDeactProc (WindoW w)
{
termListUp = FALSE;
docSumUp = FALSE;
currentFormDataPtr = NULL;
SafeSetTitle (exportItem, "Export...");
SafeSetTitle (importItem, "Import...");
SafeSetValue (queryChoice, 0);
SafeSetValue (neighborChoice, 0);
RepeatProcOnHandles (Disable,
(HANDLE) closeItem,
(HANDLE) duplicateItem,
(HANDLE) importItem,
(HANDLE) exportItem,
(HANDLE) printItem,
(HANDLE) cutItem,
(HANDLE) copyItem,
(HANDLE) pasteItem,
(HANDLE) deleteItem,
(HANDLE) docsumfontItem,
(HANDLE) displayfontItem,
(HANDLE) preferencesItem,
(HANDLE) queryChoice,
(HANDLE) clearUnusedItem,
(HANDLE) neighborChoice,
(HANDLE) legendItem,
NULL);
}
static void DocumentSummaryActivateProc (WindoW w)
{
docSumUp = TRUE;
currentFormDataPtr = (VoidPtr) GetObjectExtra (w);
if (UsingDelayedNeighbor ((ForM) w)) {
SafeSetValue (neighborChoice, 2);
} else {
SafeSetValue (neighborChoice, 1);
}
RepeatProcOnHandles (Enable,
(HANDLE) closeItem,
(HANDLE) importItem,
(HANDLE) exportItem,
(HANDLE) printItem,
(HANDLE) copyItem,
(HANDLE) docsumfontItem,
(HANDLE) preferencesItem,
(HANDLE) neighborChoice,
NULL);
}
static void TermSelectionActivateProc (WindoW w)
{
termListUp = TRUE;
currentFormDataPtr = (VoidPtr) GetObjectExtra (w);
if (UsingTextQuery ((ForM) w)) {
SafeSetValue (queryChoice, 2);
} else {
SafeSetValue (queryChoice, 1);
}
RepeatProcOnHandles (Enable,
(HANDLE) importItem,
(HANDLE) exportItem,
(HANDLE) cutItem,
(HANDLE) copyItem,
(HANDLE) pasteItem,
(HANDLE) deleteItem,
(HANDLE) preferencesItem,
(HANDLE) queryChoice,
(HANDLE) clearUnusedItem,
NULL);
}
static void CalendarDatePtrToDatePage (
DialoG d,
Pointer data
)
{
CalendarDatePtr cdp;
DatePagePtr dpp;
dpp = (DatePagePtr) GetObjectExtra (d);
if (dpp == NULL) return;
cdp = (CalendarDatePtr) data;
if (cdp != NULL) {
SetEnumPopup (dpp->month, months_alist, (UIEnum) cdp->month);
SetEnumPopup (dpp->day, days_alist, (UIEnum) cdp->day);
SetEnumPopup (dpp->year, years_alist, (UIEnum) cdp->year);
return;
}
SafeSetValue (dpp->month, 1);
SafeSetValue (dpp->day, 1);
SafeSetValue (dpp->year, 1);
}
void CBanManager::SaveBanList ( void )
{
// Create the XML file
CXMLFile* pFile = g_pServerInterface->GetXML ()->CreateXML ( m_strPath );
if ( pFile )
{
// create the root node again as you are outputting all the bans again not just new ones
CXMLNode* pRootNode = pFile->CreateRootNode ( "banlist" );
// Check it was created
if ( pRootNode )
{
// Iterate the ban list adding it to the XML tree
CXMLNode* pNode;
list < CBan* >::const_iterator iter = m_BanManager.begin ();
for ( ; iter != m_BanManager.end (); iter++ )
{
pNode = pRootNode->CreateSubNode ( "ban" );
if ( pNode )
{
SafeSetValue ( pNode, "nick", (*iter)->GetNick() );
SafeSetValue ( pNode, "ip", (*iter)->GetIP() );
SafeSetValue ( pNode, "serial", (*iter)->GetSerial() );
SafeSetValue ( pNode, "account", (*iter)->GetAccount() );
SafeSetValue ( pNode, "banner", (*iter)->GetBanner() );
SafeSetValue ( pNode, "reason", (*iter)->GetReason() );
SafeSetValue ( pNode, "time", ( unsigned int )(*iter)->GetTimeOfBan() );
if ( (*iter)->GetTimeOfUnban() > 0 )
{
SafeSetValue ( pNode, "unban", ( unsigned int )(*iter)->GetTimeOfUnban() );
}
}
}
// Write the XML file
pFile->Write ();
}
// Delete the file pointer
delete pFile;
}
}
void ArpIntControl::StopEdit(bool keepChanges)
{
if (mTextCtrl) {
if( keepChanges && mTextCtrl->HasChanged() ) {
const BString16* text = mTextCtrl->Text();
if (text) {
int32 val;
if (ValueFromLabel(text, &val) == B_OK)
SafeSetValue(val);
}
}
SetEventMask(0, 0);
mTextCtrl->RemoveSelf();
delete mTextCtrl;
mTextCtrl = NULL;
}
}
static void AddSpecMember (
ButtoN b
)
{
Char buf [128];
DollarAmountPtr dap;
Int2 days = 0;
MiscRatePtr mrp;
SscSpecPtr ssp;
SscTablesPtr stp;
Int2 which;
ssp = (SscSpecPtr) GetObjectExtra (b);
if (ssp == NULL) return;
stp = ssp->tables;
if (stp == NULL) return;
mrp = stp->miscrate_table;
if (mrp == NULL) return;
GetTitle (ssp->name, buf, sizeof (buf));
if (StringHasNoText (buf)) return;
TrimSpacesAroundString (buf);
if (! NormalizeAuthorCaps (buf)) return;
which = GetValue (ssp->whichspec);
if (which < 1) return;
switch (which) {
case 1 :
days = mrp->special_memb_days;
if (days < 0) {
days = 0;
}
if (AddToTempMemberList (stp, buf, days)) {
AddToContactList (stp->new_contacts, buf, VISITING_MEMBER);
if (GetStatus (ssp->visitfee)) {
dap = mrp->visiting_fee;
if (dap != NULL) {
AddFeeItem (stp->fees, buf, 0, NULL, dap->dollars, dap->cents,
VISITING_MEMB_FEE, NULL, NULL);
}
}
}
break;
case 2 :
days = mrp->special_memb_days;
if (days < 0) {
days = 0;
}
if (AddToTempMemberList (stp, buf, days)) {
AddToContactList (stp->new_contacts, buf, AFFIL_MEMBER);
if (GetStatus (ssp->affilfee)) {
dap = mrp->affiliated_fee;
if (dap != NULL) {
AddFeeItem (stp->fees, buf, 0, NULL, dap->dollars, dap->cents,
AFFIL_MEMB_FEE, NULL, NULL);
}
}
}
break;
case 3 :
if (AddToFullMemberList (stp, buf, ssp->jobs)) {
AddToContactList (stp->new_contacts, buf, TRANSIENT_MEMBER);
if (GetStatus (ssp->transfee)) {
dap = &(ssp->proratedtrans);
if (dap != NULL) {
AddFeeItem (stp->fees, buf, 0, NULL, dap->dollars, dap->cents,
TRANS_MEMB_FEE, NULL, NULL);
}
}
if (GetStatus (ssp->transssa)) {
dap = &(ssp->proratedssa);
if (dap != NULL) {
AddFeeItem (stp->fees, buf, 0, NULL, dap->dollars, dap->cents,
SSA_DUES_FEE, NULL, NULL);
}
}
}
break;
default :
break;
}
SafeHide (ssp->namegroup);
SafeHide (ssp->controls [ssp->currPage]);
SafeSetValue (ssp->whichspec, 0);
ssp->currPage = 0;
SetTitle (ssp->name, "");
SetStatus (ssp->visitfee, TRUE);
SetStatus (ssp->affilfee, TRUE);
SetStatus (ssp->transfee, TRUE);
SetStatus (ssp->transssa, TRUE);
SetClubJobs (ssp->jobs, FALSE, FALSE, FALSE, FALSE);
Disable (b);
Update ();
}
extern void ShowNetConfigForm (WndActnProc activate, FormMessageFunc messages,
VoidProc accepted, VoidProc cancelled,
VoidProc turnedOff, Boolean netCurrentlyOn)
{
ButtoN b;
GrouP c;
GrouP g;
GrouP h;
GrouP j;
Int2 len;
NetConfigPtr ncp;
PrompT ppt0, ppt1;
ButtoN rb;
Char str [256];
WindoW w;
GrouP x;
GrouP z;
w = NULL;
ncp = (NetConfigPtr) MemNew (sizeof (NetConfigData));
if (ncp != NULL) {
w = FixedWindow (-50, -33, -10, -10, "Network Configuration",
StdSendCloseWindowMessageProc);
SetObjectExtra (w, ncp, StdCleanupFormProc);
ncp->form = (ForM) w;
ncp->formmessage = ConfigMessageProc;
ncp->appmessage = messages;
ncp->activate = activate;
SetActivate (w, ConfigFormActivate);
ncp->accepted = accepted;
ncp->cancelled = cancelled;
ncp->turnedOff = turnedOff;
h = HiddenGroup (w, -1, 0, NULL);
SetGroupSpacing (h, 5, 10);
j = HiddenGroup (h, 2, 0, NULL);
ppt0 = StaticPrompt (j, "Connection", 0, 0, programFont, 'l');
ncp->srvConnMode = HiddenGroup (j, 4, 0, ChangeConnection);
SetObjectExtra (ncp->srvConnMode, ncp, NULL);
rb = RadioButton (ncp->srvConnMode, "None");
RadioButton (ncp->srvConnMode, "Normal");
RadioButton (ncp->srvConnMode, "Firewall");
/* RadioButton (ncp->srvConnMode, "Stateless"); */
SetValue (ncp->srvConnMode, 2);
if (turnedOff == NULL) {
Disable (rb);
}
AlignObjects (ALIGN_MIDDLE, (HANDLE) ppt0, (HANDLE) ncp->srvConnMode, NULL);
ncp->netGroup = HiddenGroup (h, -1, 0, NULL);
SetGroupSpacing (ncp->netGroup, 5, 10);
SelectFont (programFont);
len = StringWidth ("HTTP Proxy Server ") + 2;
SelectFont (systemFont);
z = HiddenGroup (ncp->netGroup, -2, 0, NULL);
StaticPrompt (z, "HTTP Proxy Server", len, dialogTextHeight, programFont, 'l');
ncp->proxyHost = DialogText (z, "", 12, ChangeProxy);
SetObjectExtra (ncp->proxyHost, ncp, NULL);
/*
StaticPrompt (z, "", 0, 0, programFont, 'l');
StaticPrompt (z, "", 0, 0, programFont, 'l');
*/
ppt0 = StaticPrompt (z, "HTTP Proxy Port ", len, dialogTextHeight, programFont, 'l');
ncp->proxyPort = DialogText (z, "", 3, NULL);
x = MultiLinePrompt (z, "Non-transparent Proxy Server", len, programFont);
ncp->firewallProxy = DialogText (z, "", 12, NULL);
AlignObjects (ALIGN_MIDDLE, (HANDLE) x, (HANDLE) ncp->firewallProxy, NULL);
/*
AlignObjects (ALIGN_MIDDLE, (HANDLE) ppt0, (HANDLE) ncp->proxyPort,
(HANDLE) ncp->firewallProxy, NULL);
*/
AlignObjects (ALIGN_RIGHT, (HANDLE) ncp->proxyHost, (HANDLE) ncp->firewallProxy, NULL);
AlignObjects (ALIGN_LEFT, (HANDLE) ncp->proxyHost, (HANDLE) ncp->firewallProxy, NULL);
g = HiddenGroup (ncp->netGroup, 5, 0, NULL);
/*
ppt0 = StaticPrompt (g, "Domain name server", 0, 0, programFont, 'l');
ncp->dnsAvailable = CheckBox (g, "Available", NULL);
*/
ncp->dnsAvailable = CheckBox (g, "Domain Name Server", NULL);
SetStatus (ncp->dnsAvailable, TRUE);
/* StaticPrompt (g, " ", 0, 0, programFont, 'l'); */
ppt1 = StaticPrompt (g, "Timeout", 0, popupMenuHeight, programFont, 'l');
ncp->timeOut = PopupList (g, TRUE, NULL);
PopupItem (ncp->timeOut, "10 seconds");
PopupItem (ncp->timeOut, "30 seconds");
PopupItem (ncp->timeOut, "60 seconds");
PopupItem (ncp->timeOut, " 5 minutes");
SetValue (ncp->timeOut, 2);
AlignObjects (ALIGN_MIDDLE, /* (HANDLE) ppt0, */ (HANDLE) ncp->dnsAvailable,
(HANDLE) ppt1, (HANDLE) ncp->timeOut, NULL);
c = HiddenGroup (w, 4, 0, NULL);
SetGroupSpacing (c, 10, 2);
ncp->accept = PushButton (c, "Accept", AcceptNetConfigForm);
SetObjectExtra (ncp->accept, ncp, NULL);
b = PushButton (c, "Cancel", StdSendCancelButtonMessageProc);
SetObjectExtra (b, ncp, NULL);
/*
AlignObjects (ALIGN_CENTER, (HANDLE) h, (HANDLE) c, NULL);
*/
AlignObjects (ALIGN_CENTER, (HANDLE) j, (HANDLE) z, (HANDLE) g, (HANDLE) c, NULL);
RealizeWindow (w);
if (! netCurrentlyOn) {
SafeSetValue (ncp->srvConnMode, 1);
Hide (ncp->netGroup);
} else if (GetAppParam ("NCBI", "CONN", "FIREWALL", NULL, str, sizeof (str))) {
if (StringICmp (str, "TRUE") == 0) {
SafeSetValue (ncp->srvConnMode, 3);
}
}
if (GetAppParam ("NCBI", "CONN", "HTTP_PROXY_HOST", NULL, str, sizeof (str))) {
if (! StringHasNoText (str)) {
SafeSetTitle (ncp->proxyHost, str);
if (GetValue (ncp->srvConnMode) == 2) {
SafeSetValue (ncp->srvConnMode, 3);
}
}
}
if (GetAppParam ("NCBI", "CONN", "HTTP_PROXY_PORT", NULL, str, sizeof (str))) {
if (! StringHasNoText (str)) {
SafeSetTitle (ncp->proxyPort, str);
}
}
if (GetAppParam ("NCBI", "CONN", "PROXY_HOST", NULL, str, sizeof (str))) {
if (! StringHasNoText (str)) {
SafeSetTitle (ncp->firewallProxy, str);
}
}
if (GetAppParam ("NCBI", "CONN", "HOST", NULL, str, sizeof (str))) {
if (StringICmp (str, "130.14.29.110") == 0) {
SafeSetStatus (ncp->dnsAvailable, FALSE);
}
}
if (GetAppParam ("NCBI", "CONN", "TIMEOUT", "30", str, sizeof (str))) {
if (StringICmp (str, "10") == 0) {
SafeSetValue (ncp->timeOut, 1);
} else if (StringICmp (str, "60") == 0) {
SafeSetValue (ncp->timeOut, 3);
} else if (StringICmp (str, "300") == 0) {
SafeSetValue (ncp->timeOut, 4);
} else {
SafeSetValue (ncp->timeOut, 2);
}
}
ChangeConfigControls (ncp);
Show (w);
Select (w);
Select (ncp->proxyHost);
}
}
