/*
**	ModemPanel.c
**
**	Editing panel for modem configuration
**
**	Copyright © 1990-1996 by Olaf `Olsen' Barthel
**		All Rights Reserved
**
**	:ts=4
*/

#ifndef _GLOBAL_H
#include "Global.h"
#endif

enum	{	GAD_LIMIT_MACRO=1000,GAD_DIAL_PREFIX,GAD_DIAL_SUFFIX,
			GAD_DIAL_MODE,GAD_USE,GAD_CANCEL,
			GAD_PAGER,GAD_PAGEGROUP,GAD_INTER_DIAL_DELAY,
			GAD_PBX_PREFIX,GAD_PBX
		};

STATIC STRPTR SAVE_DS STACKARGS
ShowDialRetries(struct Gadget *UnusedGadget,LONG Level)
{
	if(Level > 1000)
		return(LocaleString(MSG_DIAL_RETRIES_UNLIMITED_TXT));
	else
	{
		STATIC UBYTE Buffer[10];

		LimitedSPrintf(sizeof(Buffer),Buffer,"%ld",Level);

		return(Buffer);
	}
}

STATIC STRPTR SAVE_DS STACKARGS
ShowHours(struct Gadget *UnusedGadget,LONG Level)
{
	STATIC UBYTE Buffer[15];

	LimitedSPrintf(sizeof(Buffer),Buffer,LocaleString(MSG_GLOBAL_SHOW_HOURS_TXT),Level / 60,Level % 60);

	return(Buffer);
}

STATIC STRPTR SAVE_DS STACKARGS
ModemShowSeconds(struct Gadget *UnusedGadget,LONG Level)
{
	STATIC UBYTE Buffer[15];

	LimitedSPrintf(sizeof(Buffer),Buffer,LocaleString(MSG_GLOBAL_SHOW_MINUTES_TXT),Level / 60,Level % 60);

	return(Buffer);
}

BOOL
ModemPanel(struct Window *Parent,struct Configuration *LocalConfig)
{
	STATIC LONG PageTitleID[7] =
	{
		MSG_V36_0110,
		MSG_V36_0111,
		MSG_DIALCOMMANDS_TXT,
		MSG_V36_0112,
		MSG_V36_0116,
		MSG_V36_0118,
		-1
	};

	STATIC BYTE InitialPage = 0;

	LayoutHandle *Handle;
	BOOL UseIt;

	UseIt = FALSE;

	SaveConfig(LocalConfig,PrivateConfig);

	if(Handle = LT_CreateHandleTags(Parent->WScreen,
		LAHN_LocaleHook,	&LocaleHook,
		LAHN_ExitFlush,	FALSE,
	TAG_DONE))
	{
		struct Window *PanelWindow;

		LT_New(Handle,
			LA_Type,	VERTICAL_KIND,
		TAG_DONE);
		{
			LT_New(Handle,
				LA_Type,VERTICAL_KIND,
			TAG_DONE);
			{
				LT_New(Handle,
					LA_Type,		TAB_KIND,
					LA_ID,			GAD_PAGER,
					LA_LabelID,		MSG_XFER_PAGE_TXT,
					LACY_LabelTable,PageTitleID,
					LACY_AutoPageID,GAD_PAGEGROUP,
					LACY_TabKey,	TRUE,
					LA_BYTE,		&InitialPage,
					LATB_FullWidth,	TRUE,
				TAG_DONE);

				LT_EndGroup(Handle);
			}

			LT_New(Handle,
				LA_Type,		VERTICAL_KIND,
				LA_ID,			GAD_PAGEGROUP,
				LAGR_ActivePage,InitialPage,
			TAG_DONE);
			{
				LT_New(Handle,
					LA_Type,	VERTICAL_KIND,
				TAG_DONE);
				{
					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_MODEM_INIT_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->ModemInit,
						LA_Chars,		20,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->ModemInit) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_MODEM_EXIT_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->ModemExit,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->ModemExit) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_MODEM_HANGUP_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->ModemHangup,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->ModemHangup) - 1,
					TAG_DONE);

					if(LocalConfig == Config)
					{
						LT_New(Handle,
							LA_Type,		CHECKBOX_KIND,
							LA_LabelID,		MSG_DO_NOT_SEND_MODEM_COMMANDS_TXT,
							LA_BYTE,		&PrivateConfig->ModemConfig->DoNotSendMainModemCommands,
							LA_ExtraSpace,	TRUE,
						TAG_DONE);
					}

					LT_New(Handle,
						LA_Type,	XBAR_KIND,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,				INTEGER_KIND,
						LA_LabelID,				MSG_COMMAND_SEND_DELAY_TXT,
						LA_LONG,				&PrivateConfig->ModemConfig->CharSendDelay,
						LAIN_Min,				0,
						LAIN_UseIncrementers,	TRUE,
					TAG_DONE);

					LT_EndGroup(Handle);
				}

				LT_New(Handle,
					LA_Type,	VERTICAL_KIND,
				TAG_DONE);
				{
					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_NO_CARRIER_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->NoCarrier,
						LA_Chars,		20,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->NoCarrier) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_NO_DIALTONE_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->NoDialTone,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->NoDialTone) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_CONNECT_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->Connect,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->Connect) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_VOICE_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->Voice,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->Voice) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_RING_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->Ring,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->Ring) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_BUSY_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->Busy,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->Busy) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_OK_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->Ok,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->Ok) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_ERROR_STRING_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->Error,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->Error) - 1,
					TAG_DONE);

					LT_EndGroup(Handle);
				}

				LT_New(Handle,
					LA_Type,	VERTICAL_KIND,
				TAG_DONE);
				{
					STATIC LONG DialLabels[] =
					{
						MSG_DIALMODE1_TXT,
						MSG_DIALMODE2_TXT,
						MSG_DIALMODE3_TXT,
						MSG_DIALMODE4_TXT,
						-1
					};

					BOOL NotFound;
					LONG i;

					for(i = 0, NotFound = TRUE ; NotFound && i < strlen(PrivateConfig->ModemConfig->DialPrefix) - 1 ; i++)
					{
						if(PrivateConfig->ModemConfig->DialPrefix[i] == '\\' && ToUpper(PrivateConfig->ModemConfig->DialPrefix[i + 1]) == 'W')
							NotFound = FALSE;
					}

					for(i = 0 ; NotFound && i < strlen(PrivateConfig->ModemConfig->DialSuffix) - 1 ; i++)
					{
						if(PrivateConfig->ModemConfig->DialSuffix[i] == '\\' && ToUpper(PrivateConfig->ModemConfig->DialSuffix[i + 1]) == 'W')
							NotFound = FALSE;
					}

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_DIAL_PREFIX_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->DialPrefix,
						LA_Chars,		20,
						LA_ID,			GAD_DIAL_PREFIX,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->DialPrefix) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_MODEMPANEL_DIAL_SUFFIX_GAD,
						LA_STRPTR,		PrivateConfig->ModemConfig->DialSuffix,
						LA_ID,			GAD_DIAL_SUFFIX,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->DialSuffix) - 1,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		CYCLE_KIND,
						LA_LabelID,		MSG_DIALMODE2_GAD,
						LA_BYTE,		&PrivateConfig->ModemConfig->DialMode,
						LA_ID,			GAD_DIAL_MODE,
						LACY_LabelTable,DialLabels,
						GA_Disabled,	NotFound,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		STRING_KIND,
						LA_LabelID,		MSG_PBX_DIAL_PREFIX_TXT,
						LA_STRPTR,		PrivateConfig->ModemConfig->PBX_Prefix,
						LA_ID,			GAD_PBX_PREFIX,
						GTST_MaxChars,	sizeof(PrivateConfig->ModemConfig->PBX_Prefix) - 1,
						LA_ExtraSpace,	TRUE,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		CHECKBOX_KIND,
						LA_LabelID,		MSG_PBX_DIAL_MODE_TXT,
						LA_BYTE,		&PrivateConfig->ModemConfig->PBX_Mode,
					TAG_DONE);

					LT_EndGroup(Handle);
				}

				LT_New(Handle,
					LA_Type,	VERTICAL_KIND,
				TAG_DONE);
				{
					LT_New(Handle,
						LA_Type,			SliderType,
						LA_LabelID,			MSG_MODEMPANEL_REDIAL_DELAY_GAD,
						LA_LONG,			&PrivateConfig->ModemConfig->RedialDelay,
						GTSL_Min,			0,
						GTSL_Max,			60 * 60,
						GTSL_DispFunc,		ModemShowSeconds,
						GTSL_LevelFormat,	"%s",
					TAG_DONE);

					if(PrivateConfig->ModemConfig->DialRetries < 0)
						PrivateConfig->ModemConfig->DialRetries = 1001;

					LT_New(Handle,
						LA_Type,			SliderType,
						LA_LabelID,			MSG_MODEMPANEL_DIAL_RETRIES_GAD,
						LA_LONG,			&PrivateConfig->ModemConfig->DialRetries,
						GTSL_DispFunc,		ShowDialRetries,
						GTSL_Min,			0,
						GTSL_Max,			1001,
						GTSL_LevelFormat,	"%s",
					TAG_DONE);

					LT_New(Handle,
						LA_Type,			SliderType,
						LA_LabelID,			MSG_MODEMPANEL_DIAL_TIMEOUT_GAD,
						LA_LONG,			&PrivateConfig->ModemConfig->DialTimeout,
						GTSL_Min,			0,
						GTSL_Max,			1800,
						GTSL_DispFunc,		ModemShowSeconds,
						GTSL_LevelFormat,	"%s",
					TAG_DONE);

					LT_New(Handle,
						LA_Type,			SliderType,
						LA_LabelID,			MSG_INTER_DIAL_DELAY_TXT,
						LA_LONG,			&PrivateConfig->ModemConfig->InterDialDelay,
						GTSL_Min,			0,
						GTSL_Max,			1800,
						GTSL_DispFunc,		ModemShowSeconds,
						GTSL_LevelFormat,	"%s",
					TAG_DONE);

					LT_New(Handle,
						LA_Type,			CHECKBOX_KIND,
						LA_LabelID,			MSG_VERBOSE_DIALING_TXT,
						LA_BYTE,			&PrivateConfig->ModemConfig->VerboseDialing,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,			CHECKBOX_KIND,
						LA_LabelID,			MSG_MODEMPANEL_NOCARRIER_IS_BUSY_GAD,
						LA_BYTE,			&PrivateConfig->ModemConfig->NoCarrierIsBusy,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,			XBAR_KIND,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,			CHECKBOX_KIND,
						LA_LabelID,			MSG_MODEMPANEL_CONNECT_AUTO_BAUD_GAD,
						LA_BYTE,			&PrivateConfig->ModemConfig->ConnectAutoBaud,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,			CHECKBOX_KIND,
						LA_LabelID,			MSG_MODEMPANEL_ABORT_HANGS_UP_TXT,
						LA_BYTE,			&PrivateConfig->ModemConfig->AbortHangsUp,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,			SliderType,
						LA_LabelID,			MSG_MODEMPANEL_TIME_TO_CONNECT_GAD,
						LA_LONG,			&PrivateConfig->ModemConfig->TimeToConnect,
						LA_Chars,			8,
						GTSL_Min,			0,
						GTSL_Max,			60 * 60,
						GTSL_DispFunc,		ModemShowSeconds,
						GTSL_LevelFormat,	"%s",
					TAG_DONE);

					LT_EndGroup(Handle);
				}

				LT_New(Handle,
					LA_Type,	VERTICAL_KIND,
				TAG_DONE);
				{
					LT_New(Handle,
						LA_Type,		CHECKBOX_KIND,
						LA_LabelID,		MSG_MODEMPANEL_DROP_DTR_ON_HANGUP_GAD,
						LA_BYTE,		&PrivateConfig->ModemConfig->DropDTR,
					TAG_DONE);

					LT_New(Handle,
						LA_Type,		CHECKBOX_KIND,
						LA_LabelID,		MSG_MODEMPANEL_REDIAL_AFTER_HANGUP_GAD,
						LA_BYTE,		&PrivateConfig->ModemConfig->RedialAfterHangup,
					TAG_DONE);

					LT_EndGroup(Handle);
				}

				LT_New(Handle,
					LA_Type,	VERTICAL_KIND,
				TAG_DONE);
				{
					LT_New(Handle,
						LA_Type,			SliderType,
						LA_LabelID,			MSG_MODEMPANEL_CONNECTION_LIMIT_GAD,
						LA_WORD,			&PrivateConfig->ModemConfig->ConnectLimit,
						GTSL_Min,			0,
						GTSL_Max,			1440,
						GTSL_DispFunc,		ShowHours,
						GTSL_LevelFormat,	"%s",
					TAG_DONE);

					LT_New(Handle,
						LA_Type,			STRING_KIND,
						LA_LabelID,			MSG_MODEMPANEL_LIMIT_MACRO_GAD,
						LA_STRPTR,			PrivateConfig->ModemConfig->ConnectLimitMacro,
						LA_Chars,			20,
						LA_ID,				GAD_LIMIT_MACRO,
						GTST_MaxChars,		sizeof(PrivateConfig->ModemConfig->ConnectLimitMacro) - 1,
					TAG_DONE);

					LT_EndGroup(Handle);
				}

				LT_EndGroup(Handle);
			}

			LT_New(Handle,
				LA_Type,	VERTICAL_KIND,
			TAG_DONE);
			{
				LT_New(Handle,
					LA_Type,		XBAR_KIND,
					LAXB_FullSize,	TRUE,
				TAG_DONE);

				LT_EndGroup(Handle);
			}

			LT_New(Handle,LA_Type,HORIZONTAL_KIND,
				LAGR_SameSize,	TRUE,
				LAGR_Spread,	TRUE,
			TAG_DONE);
			{
				LT_New(Handle,
					LA_Type,		BUTTON_KIND,
					LA_LabelID,		MSG_GLOBAL_USE_GAD,
					LA_ID,			GAD_USE,
					LABT_ReturnKey,	TRUE,
					LABT_ExtraFat,	TRUE,
				TAG_DONE);

				LT_New(Handle,
					LA_Type,		BUTTON_KIND,
					LA_LabelID,		MSG_GLOBAL_CANCEL_GAD,
					LA_ID,			GAD_CANCEL,
					LABT_EscKey,	TRUE,
					LABT_ExtraFat,	TRUE,
				TAG_DONE);

				LT_EndGroup(Handle);
			}

			LT_EndGroup(Handle);
		}

		if(PanelWindow = LT_Build(Handle,
			LAWN_TitleID,		MSG_MODEMPANEL_MODEM_PREFERENCES_TXT,
			LAWN_HelpHook,		&GuideHook,
			LAWN_Parent,		Parent,
			WA_DepthGadget,		TRUE,
			WA_DragBar,			TRUE,
			WA_RMBTrap,			TRUE,
			WA_Activate,		TRUE,
			WA_SimpleRefresh,	TRUE,
		TAG_DONE))
		{
			struct IntuiMessage	*Message;
			struct Gadget *MsgGadget;
			ULONG MsgClass;
			BOOL NotFound;
			BOOL Done;
			LONG i;

			GuideContext(CONTEXT_MODEM);

			PushWindow(PanelWindow);

			LT_ShowWindow(Handle,TRUE);

			Done = FALSE;

			do
			{
				if(Wait(PORTMASK(PanelWindow->UserPort) | SIG_BREAK) & SIG_BREAK)
					break;

				while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
				{
					MsgClass	= Message->Class;
					MsgGadget	= (struct Gadget *)Message->IAddress;

					LT_ReplyIMsg(Message);

					if(MsgClass == IDCMP_GADGETUP)
					{
						switch(MsgGadget->GadgetID)
						{
							case GAD_DIAL_PREFIX:
							case GAD_DIAL_SUFFIX:
							case GAD_DIAL_MODE:

								for(i = 0, NotFound = TRUE ; NotFound && i < strlen(PrivateConfig->ModemConfig->DialPrefix) - 1 ; i++)
								{
									if(PrivateConfig->ModemConfig->DialPrefix[i] == '\\' && ToUpper(PrivateConfig->ModemConfig->DialPrefix[i + 1]) == 'W')
										NotFound = FALSE;
								}

								for(i = 0 ; NotFound && i < strlen(PrivateConfig->ModemConfig->DialSuffix) - 1 ; i++)
								{
									if(PrivateConfig->ModemConfig->DialSuffix[i] == '\\' && ToUpper(PrivateConfig->ModemConfig->DialSuffix[i + 1]) == 'W')
										NotFound = FALSE;
								}

								LT_SetAttributes(Handle,GAD_DIAL_MODE,
									GA_Disabled,NotFound,
								TAG_DONE);

								break;

							case GAD_USE:

								LT_UpdateStrings(Handle);

								UseIt = Done = TRUE;
								break;

							case GAD_CANCEL:

								Done = TRUE;
								break;
						}
					}
				}
			}
			while(!Done);

			PopWindow();
		}

		LT_DeleteHandle(Handle);
	}

	if(UseIt)
	{
		if(PrivateConfig->ModemConfig->DialRetries > 1000)
			PrivateConfig->ModemConfig->DialRetries = -1;

		if(Config->MiscConfig->ProtectiveMode && PrivateConfig->SerialConfig->BaudRate >= 4800 && PrivateConfig->ModemConfig->ConnectAutoBaud)
		{
			if(ShowRequest(Window,LocaleString(MSG_AUTOBAUD_TXT),LocaleString(MSG_GLOBAL_YES_NO_TXT)))
				PrivateConfig->ModemConfig->ConnectAutoBaud = FALSE;
		}
	}

	if(UseIt)
		SwapConfig(LocalConfig,PrivateConfig);
	else
		SaveConfig(LocalConfig,PrivateConfig);

	return(UseIt);
}