#include <exec/types.h>
#include <exec/exec.h>
#include <stdio.h>
#include <fcntl.h>

struct DoorMsg {
	struct Message Door_Msg;
	short command;
	short data;
	char string[80];
	short carrier;
	};

struct DoorMsg *doormsg,*garbage;
struct MsgPort *MyPort,*replyport;

struct Task *mytask; /* Pointer to this task so we can name it */

int err;
/*
 * end() -  Notifies Paragon that we are done and ready to continue with
 *		the BBS.  ALWAYS use this to exit from your program, or
 *		the BBS will go to never-never land.
 */

void end()
{
	doormsg->command = 20;
	PutMsg(MyPort,(struct Message *)doormsg);
	(void)WaitPort(replyport);
	(void)GetMsg(replyport);
	FreeMem(doormsg,(long)sizeof(*doormsg));
	DeletePort(replyport);
	exit(0);
}

/*
 * getsvar(typ,mstring) - Gets certain string variables from Paragon.
 * "mstring" is a pointer to a string to dump the string into.  "typ" tells
 * it what you want: 1=Name, 2=Password, 3=Address, 4=City, 5=State
 * 6=Postal code, 7=Door pathname, 8=Default BBS pathname.
 */

void getsvar(typ,mstring)
int typ;
char *mstring;
{
	doormsg->data = typ;
	doormsg->command = 14;
	PutMsg(MyPort,(struct Message *)doormsg);
	(void)WaitPort(replyport);
	strcpy(mstring,doormsg->string);
	(void)GetMsg(replyport);
}

/*
 * sendmessage(mstring,nl) - Sends a message to the local window and to
 * the modem (if applicable).  "mstring" is the output string you want to
 * send, "nl" is and integer which is 1 if you want it to send the
 * c/r+l/f combination, or 0 if not.
 */

void
sendmessage(mstring,nl)
char mstring[];
int nl;
{
	doormsg->data = nl;
	doormsg->command = 1;
	strcpy(doormsg->string,mstring);
	PutMsg(MyPort,(struct Message *)doormsg);
	(void)WaitPort(replyport);
	(void)GetMsg(replyport);
}

/*
 * hotkey(mstring,ostring) - outputs the string "mstring" and waits
 * for one key which it will place in element [0] of "ostring".
 * "mstring" may be a null string, in which case it will only wait for
 * the key, and not output any prompt.
 */

void
hotkey(mstring,ostring)
char mstring[];
char *ostring;
{
	strcpy(doormsg->string,mstring);
	doormsg->command = 8;
	PutMsg(MyPort,(struct Message *)doormsg);
	(void)WaitPort(replyport);
	(void)GetMsg(replyport);
	strcpy(ostring,doormsg->string);
}

/*
 * prompt(mstring,ostring,len) - outputs the string "mstring" and inputs
 * a string which is placed in ostring.  'len' is the maximum number of
 * characters which will be accepted.
 */

void
prompt(mstring,ostring,len)
char mstring[];
char *ostring;
int len;
{
	strcpy(doormsg->string,mstring);
	doormsg->data=len;
	doormsg->command = 6;
	PutMsg(MyPort,(struct Message *)doormsg);
	(void)WaitPort(replyport);
	(void)GetMsg(replyport);
	strcpy(ostring,doormsg->string);
}


/* showfile(mstring) shows the text file which mstring is the path to.
   It handles ^C aborting, and ^S/^Q pausing. */

void
showfile(mstring)
char mstring[];
{
	strcpy(doormsg->string,mstring);
	doormsg->command = 10;
	PutMsg(MyPort,(struct Message *)doormsg);
	(void)WaitPort(replyport);
	(void)GetMsg(replyport);
}

/****************************************************
	These two functions were added by
	     SWhite. MAX's BBS only!
****************************************************/
/* enter a menu function to execute 1-33 */
void
domenu(menu,extra,filename)
int menu,extra;
char *filename;
 {
	strcpy(doormsg->string,filename);
	doormsg->command = menu+100;
	doormsg->data	 = extra;
	PutMsg(MyPort,(struct Message *)doormsg);
	(void)WaitPort(replyport);
	(void)GetMsg(replyport);
 }

/* change user information 1-15 */
void
changeuserint(number,val)
int number;
long val;
 {
	long *ptr;

	ptr = (long *)&doormsg->string;	/* We need a long value not a ptr */
	*ptr = val;
	
	doormsg->command = 200;
	doormsg->data    = number;
	PutMsg(MyPort,(struct Message *)doormsg);
	(void)WaitPort(replyport);
	(void)GetMsg(replyport);
 }
		

void
main(argc,argv)
int argc;
char *argv[];
{
	char buffer[81],buffer2[81],line_number;
	char cportname[12];	/* ReplyPort and Control Port names */
	long value;


	/* Pull out the line number from the argv field to find where we are */
	
	line_number=argv[1][0];
	
	mytask=(struct Task *)FindTask(0L);
	mytask->tc_Node.ln_Name = "DoorExample";
	
	/* Create the Reply port, with the name based on the number... */
	
	sprintf(buffer,"DoorReply%c",line_number);
	replyport=(struct MsgPort *)CreatePort(buffer,0L);
	
	doormsg=(struct DoorMsg *)AllocMem((long)sizeof(*doormsg),MEMF_PUBLIC);
	
	if(doormsg==0)
	{
		puts("Couldn't allocate DoorMsg!");
		return;
	}
	
	doormsg->Door_Msg.mn_Node.ln_Type = NT_MESSAGE;
	doormsg->Door_Msg.mn_ReplyPort = replyport;
	doormsg->Door_Msg.mn_Length = (UWORD)sizeof(*doormsg);
	
	/* Locate the correct DoorControl port based on the line number */
	
	sprintf(cportname,"DoorControl%c",line_number);
   	MyPort=(struct MsgPort *)FindPort(cportname);
   	if(MyPort==0L) 
	{
		puts("DoorControl port not located!");
		FreeMem(doormsg,(long)sizeof(*doormsg));
		return;
	}
	
	sendmessage("\r\nHi there!\r\n",1);
	hotkey("Press any key to continue...",buffer);	

	for(;;)
	 {
		prompt("\nEnter some text (CR to Exit) : ",buffer,20);
		if(buffer[0] == NULL) break;
	  	strcpy(buffer2,"\nYou typed : ");
		strcat(buffer2,buffer);
	   	sendmessage(buffer2,1);
	 }
	
	prompt("\nEnter a filename to print : ",buffer,64);
	showfile(buffer);

	sendmessage("\nHere is some info on you and the bbs...",1);
	getsvar(1,buffer);
	strcpy(buffer2,"Name : ");
	strcat(buffer2,buffer);
	sendmessage(buffer2,1);

	getsvar(2,buffer);
	strcpy(buffer2,"Password : ");
	strcat(buffer2,buffer);
	sendmessage(buffer2,1);

	getsvar(3,buffer);
	strcpy(buffer2,"Address : ");
	strcat(buffer2,buffer);
	sendmessage(buffer2,1);

	getsvar(4,buffer);
	strcpy(buffer2,"City : ");
	strcat(buffer2,buffer);
	sendmessage(buffer2,1);

	getsvar(5,buffer);
	strcpy(buffer2,"State : ");
	strcat(buffer2,buffer);
	sendmessage(buffer2,1);

	getsvar(6,buffer);
	strcpy(buffer2,"Postcode : ");
	strcat(buffer2,buffer);
	sendmessage(buffer2,1);
	
	getsvar(7,buffer);
	strcpy(buffer2,"Door Path : ");
	strcat(buffer2,buffer);
	sendmessage(buffer2,1);

	getsvar(8,buffer);
	strcpy(buffer2,"Default path : ");
	strcat(buffer2,buffer);
	sendmessage(buffer2,1);


	prompt("\nEnter a user int to change (1-15, CR to skip) : ",buffer,5);
	if(buffer[0] != NULL)
         {
	    prompt("\nEnter new value : ",buffer2,10);
	    changeuserint(atoi(buffer),atol(buffer2));
	 }
			
	prompt("\nEnter a menu function number : (1-33, CR to skip) : ",buffer,5);
	if(buffer[0] != NULL)
	 {
	    prompt("\nEnter a value for Extra : ",buffer2,5);
	    value = atoi(buffer2);
	    prompt("\nEnter a value for Name/FileName/Dest : ",buffer2,80);
	    domenu(atoi(buffer),value,buffer2);
	 }

	end();
}