Finished the very basics of mail system.

.gitignore

@@ -2,3 +2,4 @@
 *.sq3
 *.core
 magicka
+msgs/*

ansis/mailmenu.ans

@@ -0,0 +1,15 @@
+[?7h
+ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ  ﾜﾜﾜﾜﾜﾜ  ﾜﾜ ﾜﾜ ﾜﾜﾜﾜ  ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ  ﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜ  ﾜﾜ ﾜ ﾜﾜ
+ｲﾟｰﾜ ｲﾟｰﾜ ｲﾛｲﾟｰ  ｲﾛﾛﾛｲﾟﾛﾟﾟﾟ  ｲﾟｰﾜ ｲﾟｰﾜ ｲﾛｲﾟﾜﾜ ﾟﾟ ｲﾟｰﾜ ｲﾛｲﾟﾛ ﾛｲ
+ｰｲ ｲ ｰｲ ｲ ｱﾟｰｲﾟﾟﾟｱﾟｲｲ ｱﾛﾜﾟ ｱﾟｰｲ ｲ ｰｲ ｲ ｱﾟｱｲﾜｰ ｲﾟｰｲ ｲ ｱﾟｰｲﾜﾟ ｲ 
+ﾟﾟ ﾟ ﾟﾟ ﾟ ｰﾛ ﾟﾟ ﾟ ｰﾛ ﾟﾟ ｰﾟﾟﾟﾟﾟﾟ  ﾟﾟ ﾟ ﾟﾟ ﾟ ｰﾛ  ﾟﾟﾟﾟﾟﾟ ﾟﾟ ﾟ ｰﾛ  ﾟﾟﾟﾟﾟﾟ
+  ﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄ
+    ｳ  C. Change Message Conference    ｳ  E. Email a Userｳ
+    ｳ  A. Change Message Areaｳ  R. Read your Emailｳ
+    ｳ  L. List Messagesｳｳ
+    ｳ  P. Post a Messageｳｳ
+    ｳｳｳ
+    ｳｳ  Q. Quit to Main Menuｳ
+    ｳｳ  G. Goodbye (Log Off)ｳ
+  ﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄ
+

bbs.c

@@ -53,6 +53,12 @@ static int mail_area_handler(void* user, const char* section, const char* name,
 			} else {
 				mc->networked = 0;
 			}
+		} else if (strcasecmp(name, "real names")) {
+			if (strcasecmp(value, "true") == 0) {
+				mc->realnames = 1;
+			} else {
+				mc->realnames = 0;
+			}
 		}
 	} else {
 		// check if it's partially filled in
@@ -109,6 +115,8 @@ static int handler(void* user, const char* section, const char* name,
 			conf->ansi_path = strdup(value);
 		} else if (strcasecmp(name, "bbs path") == 0) {
 			conf->bbs_path = strdup(value);
+		} else if (strcasecmp(name, "email path") == 0) {
+			conf->email_path = strdup(value);
 		}
 	} else if (strcasecmp(section, "mail conferences") == 0) {
 		if (conf->mail_conference_count == 0) {

bbs.h

@@ -18,6 +18,7 @@ struct mail_conference {
 	char *name;
 	char *path;
 	int networked;
+	int realnames;
 	int sec_level;
 	int mail_area_count;
 	struct mail_area **mail_areas;
@@ -29,6 +30,8 @@ struct bbs_config {
 	
 	char *ansi_path;
 	char *bbs_path;
+	char *email_path;
+	
 	int nodes;
 	int newuserlvl;
 	int mail_conference_count;

bbs.ini

@@ -7,6 +7,7 @@ New User Level = 10
 [paths]
 ANSI Path = /home/andrew/MagickaBBS/ansis
 BBS Path = /home/andrew/MagickaBBS
+Email Path = /home/andrew/MagickaBBS/msgs/email
 
 [mail conferences]
 Local Mail = localmail.ini

localmail.ini

@@ -1,6 +1,7 @@
 [main]
 Visible Sec Level = 10
 Networked = false
+Real Names = false
 
 [General]
 Read Sec Level = 10

mail_menu.c

@@ -28,8 +28,9 @@ s_JamBase *open_jam_base(char *path) {
 	return jb;
 }
 
-char *editor(int socket, char *quote) {
+char *editor(int socket, char *quote, char *from) {
 	int lines = 0;
+	char buffer[256];
 	char linebuffer[80];
 	char prompt[12];
 	int doquit = 0;
@@ -37,7 +38,31 @@ char *editor(int socket, char *quote) {
 	int i;
 	char *msg;
 	int size = 0;
+	int quotelines = 0;
+	char **quotecontent;
+	int lineat=0;
+	int qfrom,qto;
 	
+	if (quote != NULL) {
+		for (i=0;i<strlen(quote);i++) {
+			
+			if (quote[i] == '\r' || lineat == 75) {
+				if (quotelines == 0) {
+					quotecontent = (char **)malloc(sizeof(char *));
+				} else {
+					quotecontent = (char **)realloc(quotecontent, sizeof(char *) * (quotelines + 1));
+				}
+				
+				quotecontent[quotelines] = (char *)malloc(strlen(linebuffer) + 4);
+				sprintf(quotecontent[quotelines], "%c> %s", from[0], linebuffer);
+				quotelines++;
+				lineat = 0;
+			} else {
+				linebuffer[lineat++] = quote[i];
+				linebuffer[lineat] = '\0';
+			}
+		}
+	}
 	s_putstring(socket, "\r\nMagicka Internal Editor, Type /S to Save, /A to abort and /? for help\r\n");
 	s_putstring(socket, "-------------------------------------------------------------------------------");
 	
@@ -48,16 +73,23 @@ char *editor(int socket, char *quote) {
 		if (linebuffer[0] == '/') {
 			if (toupper(linebuffer[1]) == 'S') {
 				for (i=0;i<lines;i++) {
-					size += strlen(content[i]) + 2;
+					size += strlen(content[i]) + 1;
 				}
-				
+				size ++;
 				msg = (char *)malloc(size);
+				memset(msg, 0, size);
 				for (i=0;i<lines;i++) {
 					strcat(msg, content[i]);
 					strcat(msg, "\r");
 					free(content[i]);
 				}
 				free(content);
+				if (quote != NULL) {
+					for (i=0;i<quotelines;i++) {
+						free(quotecontent[i]);
+					}
+					free(quotecontent);
+				}				
 				return msg;
 			} else  if (toupper(linebuffer[1]) == 'A') {
 				for (i=0;i<lines;i++) {
@@ -66,7 +98,74 @@ char *editor(int socket, char *quote) {
 				if (lines > 0) {
 					free(content);
 				}
+				
+				if (quote != NULL) {
+					for (i=0;i<quotelines;i++) {
+						free(quotecontent[i]);
+					}
+					free(quotecontent);
+				}
+				
 				return NULL;
+			} else if (toupper(linebuffer[1]) == 'Q') {
+				if (quote == NULL) {
+					s_putstring(socket, "\r\nNo message to quote!\r\n");
+				} else {
+					s_putstring(socket, "\r\n");
+					for (i=0;i<quotelines;i++) {
+						sprintf(buffer, "[%3d] %s\r\n", i, quotecontent[i]);
+						s_putstring(socket, buffer);
+					}
+					
+					s_putstring(socket, "\r\nQuote from Line: ");
+					s_readstring(socket, buffer, 5);
+					qfrom = atoi(buffer);
+					s_putstring(socket, "\r\nQuote to Line: ");
+					s_readstring(socket, buffer, 5);
+					qto = atoi(buffer);
+					s_putstring(socket, "\r\n");
+					
+					if (qto > quotelines) {
+						qto = quotelines;
+					}
+					if (qfrom < 0) {
+						qfrom = 0;
+					}
+					if (qfrom > qto) {
+						s_putstring(socket, "Quoting Cancelled\r\n");
+					}
+					
+					for (i=qfrom;i<=qto;i++) {
+						if (lines == 0) {
+							content = (char **)malloc(sizeof(char *));
+						} else {
+							content = (char **)realloc(content, sizeof(char *) * (lines + 1));
+						}
+						
+						content[lines] = strdup(quotecontent[i]);
+						lines++;
+					}
+					
+					s_putstring(socket, "\r\nMagicka Internal Editor, Type /S to Save, /A to abort and /? for help\r\n");
+					s_putstring(socket, "-------------------------------------------------------------------------------\r\n");
+					for (i=0;i<lines;i++) {
+						sprintf(buffer, "[%3d]: %s\r\n", i, content[i]);
+						s_putstring(socket, buffer);
+					}
+				}
+			} else if (toupper(linebuffer[1]) == 'L') {
+				s_putstring(socket, "\r\nMagicka Internal Editor, Type /S to Save, /A to abort and /? for help\r\n");
+				s_putstring(socket, "-------------------------------------------------------------------------------\r\n");
+				for (i=0;i<lines;i++) {
+					sprintf(buffer, "[%3d]: %s\r\n", i, content[i]);
+					s_putstring(socket, buffer);
+				}				
+			} else if (linebuffer[1] == '?') {
+				s_putstring(socket, "\r\nHELP\r\n");
+				s_putstring(socket, "/S - Save Message\r\n");
+				s_putstring(socket, "/A - Abort Message\r\n");
+				s_putstring(socket, "/Q - Quote Message\r\n");
+				s_putstring(socket, "/L - Relist Message\r\n");
 			}
 		} else {
 			if (lines == 0) {
@@ -80,6 +179,12 @@ char *editor(int socket, char *quote) {
 			lines++;
 		}
 	}
+	if (quote != NULL) {
+		for (i=0;i<quotelines;i++) {
+			free(quotecontent[i]);
+		}
+		free(quotecontent);
+	}	
 	return NULL;
 }
 
@@ -97,7 +202,8 @@ void read_message(int socket, struct user_record *user, int mailno) {
 	char *to = NULL;	
 	char *body = NULL;
 	int lines = 0;
-	
+	char c;
+	char *replybody;
 	
 	jb = open_jam_base(conf.mail_conferences[user->cur_mail_conf]->mail_areas[user->cur_mail_area]->path);
 	if (!jb) {
@@ -155,6 +261,101 @@ void read_message(int socket, struct user_record *user, int mailno) {
 		}
 	}
 
+	s_putstring(socket, "Press R to reply or any other key to quit...\r\n");
+	
+	c = s_getc(socket);
+	
+	if (tolower(c) == 'r') {
+		if (user->sec_level < conf.mail_conferences[user->cur_mail_conf]->mail_areas[user->cur_mail_area]->write_sec_level) {
+			s_putstring(socket, "\r\nSorry, you are not allowed to post in this area\r\n");
+		} else {
+			if (subject != NULL) {
+				sprintf(buffer, "RE: %s", subject);
+				free(subject);
+			}
+			subject = (char *)malloc(strlen(buffer) + 1);
+			strcpy(subject, buffer);
+			if (from != NULL) {
+				strcpy(buffer, from);
+				free(from);
+			}
+			if (conf.mail_conferences[user->cur_mail_conf]->realnames == 0) {
+				from = (char *)malloc(strlen(user->loginname) + 1);
+				strcpy(from, user->loginname);
+			} else {
+				from = (char *)malloc(strlen(user->firstname) + strlen(user->lastname) + 2);
+				sprintf(from, "%s %s", user->firstname, user->lastname);
+			}
+			if (to != NULL) {
+				free(to);
+			}
+			to = (char *)malloc(strlen(buffer) + 1);
+			strcpy(to, buffer);
+			replybody = editor(socket, body, to);
+			if (replybody != NULL) {
+				jb = open_jam_base(conf.mail_conferences[user->cur_mail_conf]->mail_areas[user->cur_mail_area]->path);
+				if (!jb) {
+					printf("Error opening JAM base.. %s\n", conf.mail_conferences[user->cur_mail_conf]->mail_areas[user->cur_mail_area]->path);
+					free(replybody);
+					free(body);
+					free(subject);
+					free(to);
+					free(from);
+					return;
+				}
+							
+				JAM_ClearMsgHeader( &jmh );
+				jmh.DateWritten = time(NULL);
+							
+				jsp = JAM_NewSubPacket();
+				jsf.LoID   = JAMSFLD_SENDERNAME;
+				jsf.HiID   = 0;
+				jsf.DatLen = strlen(from);
+				jsf.Buffer = (uchar *)from;
+				JAM_PutSubfield(jsp, &jsf);
+
+				jsf.LoID   = JAMSFLD_RECVRNAME;
+				jsf.HiID   = 0;
+				jsf.DatLen = strlen(to);
+				jsf.Buffer = (uchar *)to;
+				JAM_PutSubfield(jsp, &jsf);
+							
+				jsf.LoID   = JAMSFLD_SUBJECT;
+				jsf.HiID   = 0;
+				jsf.DatLen = strlen(subject);
+				jsf.Buffer = (uchar *)subject;
+				JAM_PutSubfield(jsp, &jsf);
+							
+							
+				while (1) {
+					z = JAM_LockMB(jb, 100);
+					if (z == 0) {
+						break;
+					} else if (z == JAM_LOCK_FAILED) {
+						sleep(1);
+					} else {
+						free(replybody);
+						free(body);
+						free(subject);
+						free(to);
+						free(from);
+						printf("Failed to lock msg base!\n");
+						return;
+					}
+				}
+				if (JAM_AddMessage(jb, &jmh, jsp, (uchar *)replybody, strlen(replybody))) {
+					printf("Failed to add message\n");
+				}
+								
+				JAM_UnlockMB(jb);
+							
+				JAM_DelSubPacket(jsp);
+				free(replybody);
+				JAM_CloseMB(jb);
+			}
+		}
+	}
+
 	free(body);
 
 	if (from != NULL) {
@@ -192,9 +393,15 @@ int mail_menu(int socket, struct user_record *user) {
 	char *subject;
 	char *from;
 	char *to;
+	char *body;
+	char *replybody;
+	
 	
 	char *msg;
 	int closed;
+	ulong jam_crc;
+	unsigned int lastmsg,currmsg;
+	int lines;
 	
 	while (!domail) {
 		s_displayansi(socket, "mailmenu");
@@ -208,6 +415,10 @@ int mail_menu(int socket, struct user_record *user) {
 		switch(tolower(c)) {
 			case 'p':
 				{
+					if (user->sec_level < conf.mail_conferences[user->cur_mail_conf]->mail_areas[user->cur_mail_area]->write_sec_level) {
+						s_putstring(socket, "\r\nSorry, you are not allowed to post in this area\r\n");
+						break;
+					}
 					s_putstring(socket, "\r\nTO: ");
 					s_readstring(socket, buffer, 16);
 					
@@ -228,7 +439,7 @@ int mail_menu(int socket, struct user_record *user) {
 					subject = strdup(buffer);
 					
 					// post a message
-					msg = editor(socket, NULL);
+					msg = editor(socket, NULL, NULL);
 					
 					if (msg != NULL) {
 						jb = open_jam_base(conf.mail_conferences[user->cur_mail_conf]->mail_areas[user->cur_mail_area]->path);
@@ -243,11 +454,17 @@ int mail_menu(int socket, struct user_record *user) {
 						JAM_ClearMsgHeader( &jmh );
 						jmh.DateWritten = time(NULL);
 						
+						if (conf.mail_conferences[user->cur_mail_conf]->realnames == 0) {
+							strcpy(buffer, user->loginname);
+						} else {
+							sprintf(buffer, "%s %s", user->firstname, user->lastname);
+						}
+						
 						jsp = JAM_NewSubPacket();
 						jsf.LoID   = JAMSFLD_SENDERNAME;
 						jsf.HiID   = 0;
-						jsf.DatLen = strlen(user->loginname);
-						jsf.Buffer = (uchar *)user->loginname;
+						jsf.DatLen = strlen(buffer);
+						jsf.Buffer = (uchar *)buffer;
 						JAM_PutSubfield(jsp, &jsf);
 
 						jsf.LoID   = JAMSFLD_RECVRNAME;
@@ -411,9 +628,10 @@ int mail_menu(int socket, struct user_record *user) {
 				{
 					s_putstring(socket, "\r\n\r\nMail Conferences:\r\n\r\n");
 					for (i=0;i<conf.mail_conference_count;i++) {
-						sprintf(buffer, "  %d. %s\r\n", i, conf.mail_conferences[i]->name);
-						s_putstring(socket, buffer);
-						
+						if (conf.mail_conferences[i]->sec_level <= user->sec_level) {
+							sprintf(buffer, "  %d. %s\r\n", i, conf.mail_conferences[i]->name);
+							s_putstring(socket, buffer);
+						}
 						if (i != 0 && i % 22 == 0) {
 							s_putstring(socket, "Press any key to continue...\r\n");
 							c = s_getc(socket);
@@ -423,7 +641,7 @@ int mail_menu(int socket, struct user_record *user) {
 					s_readstring(socket, buffer, 5);
 					if (tolower(buffer[0]) != 'q') {
 						j = atoi(buffer);
-						if (j < 0 || j >= conf.mail_conference_count) {
+						if (j < 0 || j >= conf.mail_conference_count || conf.mail_conferences[j]->sec_level > user->sec_level) {
 							s_putstring(socket, "\r\nInvalid conference number!\r\n");
 						} else {
 							s_putstring(socket, "\r\n");
@@ -437,9 +655,10 @@ int mail_menu(int socket, struct user_record *user) {
 				{
 					s_putstring(socket, "\r\n\r\nMail Areas:\r\n\r\n");
 					for (i=0;i<conf.mail_conferences[user->cur_mail_conf]->mail_area_count;i++) {
-						sprintf(buffer, "  %d. %s\r\n", i, conf.mail_conferences[user->cur_mail_conf]->mail_areas[i]->name);
-						s_putstring(socket, buffer);
-						
+						if (conf.mail_conferences[user->cur_mail_conf]->mail_areas[i]->read_sec_level <= user->sec_level) {
+							sprintf(buffer, "  %d. %s\r\n", i, conf.mail_conferences[user->cur_mail_conf]->mail_areas[i]->name);
+							s_putstring(socket, buffer);
+						}
 						if (i != 0 && i % 22 == 0) {
 							s_putstring(socket, "Press any key to continue...\r\n");
 							c = s_getc(socket);
@@ -449,7 +668,7 @@ int mail_menu(int socket, struct user_record *user) {
 					s_readstring(socket, buffer, 5);
 					if (tolower(buffer[0]) != 'q') {
 						j = atoi(buffer);
-						if (j < 0 || j >= conf.mail_conferences[user->cur_mail_conf]->mail_area_count) {
+						if (j < 0 || j >= conf.mail_conferences[user->cur_mail_conf]->mail_area_count || conf.mail_conferences[user->cur_mail_conf]->mail_areas[j]->read_sec_level > user->sec_level) {
 							s_putstring(socket, "\r\nInvalid area number!\r\n");
 						} else {
 							s_putstring(socket, "\r\n");
@@ -473,7 +692,369 @@ int mail_menu(int socket, struct user_record *user) {
 					}
 				}
 				break;
-			
+			case 'e':
+				{
+					s_putstring(socket, "\r\nTO: ");
+					s_readstring(socket, buffer, 16);
+					
+					if (strlen(buffer) == 0) {
+						s_putstring(socket, "\r\nAborted\r\n");
+						break;
+					}
+					if (check_user(buffer)) {
+						s_putstring(socket, "\r\n\r\nInvalid Username\r\n");
+						break;
+					}
+					
+					to = strdup(buffer);
+					s_putstring(socket, "\r\nSUBJECT: ");
+					s_readstring(socket, buffer, 25);
+					subject = strdup(buffer);
+					
+					// post a message
+					msg = editor(socket, NULL, NULL);
+					
+					if (msg != NULL) {
+						jb = open_jam_base(conf.email_path);
+						if (!jb) {
+							printf("Error opening JAM base.. %s\n", conf.email_path);
+							free(msg);
+							free(to);
+							free(subject);
+							break;
+						}
+						
+						JAM_ClearMsgHeader( &jmh );
+						jmh.DateWritten = time(NULL);
+						jmh.Attribute |= MSG_PRIVATE;
+						
+						strcpy(buffer, user->loginname);	
+						
+						jsp = JAM_NewSubPacket();
+						jsf.LoID   = JAMSFLD_SENDERNAME;
+						jsf.HiID   = 0;
+						jsf.DatLen = strlen(buffer);
+						jsf.Buffer = (uchar *)buffer;
+						JAM_PutSubfield(jsp, &jsf);
+
+						jsf.LoID   = JAMSFLD_RECVRNAME;
+						jsf.HiID   = 0;
+						jsf.DatLen = strlen(to);
+						jsf.Buffer = (uchar *)to;
+						JAM_PutSubfield(jsp, &jsf);
+						
+						jsf.LoID   = JAMSFLD_SUBJECT;
+						jsf.HiID   = 0;
+						jsf.DatLen = strlen(subject);
+						jsf.Buffer = (uchar *)subject;
+						JAM_PutSubfield(jsp, &jsf);
+						
+						
+						while (1) {
+							z = JAM_LockMB(jb, 100);
+							if (z == 0) {
+								break;
+							} else if (z == JAM_LOCK_FAILED) {
+								sleep(1);
+							} else {
+								free(msg);
+								free(to);
+								free(subject);
+								printf("Failed to lock msg base!\n");
+								break;
+							}
+						}
+						if (z != 0) {
+							JAM_CloseMB(jb);
+							break;
+						}
+						
+						if (JAM_AddMessage(jb, &jmh, jsp, (uchar *)msg, strlen(msg))) {
+							printf("Failed to add message\n");
+						}
+							
+						JAM_UnlockMB(jb);
+						
+						JAM_DelSubPacket(jsp);
+						free(msg);
+						JAM_CloseMB(jb);
+					}
+					free(to);
+					free(subject);
+					
+				}
+				break;
+			case 'r':
+				{
+					// Read your email...
+					s_putstring(socket, "\r\n");
+					// list mail in message base
+					jb = open_jam_base(conf.email_path);
+					if (!jb) {
+						printf("Error opening JAM base.. %s\n", conf.mail_conferences[user->cur_mail_conf]->mail_areas[user->cur_mail_area]->path);
+						break;
+					} else {
+						jam_crc = JAM_Crc32((uchar *)user->loginname, strlen(user->loginname));
+						lastmsg = 0;
+						while (JAM_FindUser(jb, jam_crc, lastmsg, &currmsg) == 0) {
+							if (JAM_ReadMsgHeader(jb, currmsg, &jmh, &jsp) != 0) {
+								continue;
+							}
+							
+							if (jmh.Attribute & MSG_DELETED) {
+								JAM_DelSubPacket(jsp);
+								continue;
+							}
+
+							if (jmh.Attribute & MSG_NODISP) {
+								JAM_DelSubPacket(jsp);
+								continue;
+							}
+							subject = NULL;
+							from = NULL;
+							
+							for (z=0;z<jsp->NumFields;z++) {
+								if (jsp->Fields[z]->LoID == JAMSFLD_SUBJECT) {
+									subject = (char *)malloc(jsp->Fields[z]->DatLen + 1);
+									memset(subject, 0, jsp->Fields[z]->DatLen + 1);
+									memcpy(subject, jsp->Fields[z]->Buffer, jsp->Fields[z]->DatLen);
+								}
+								if (jsp->Fields[z]->LoID == JAMSFLD_SENDERNAME) {
+									from = (char *)malloc(jsp->Fields[z]->DatLen + 1);
+									memset(from, 0, jsp->Fields[z]->DatLen + 1);
+									memcpy(from, jsp->Fields[z]->Buffer, jsp->Fields[z]->DatLen);
+								}														
+							}					
+							sprintf(buffer, "[%3d]. %s From %s\r\n", currmsg, subject, from);
+							if (subject != NULL) {
+								free(subject);
+							}
+							if (from != NULL) {
+								free(from);
+							}
+							s_putstring(socket, buffer);
+							
+							lastmsg = currmsg + 1;
+						}
+						
+						if (lastmsg == 0) {
+							s_putstring(socket, "\r\nYou have no mail...\r\n");
+							JAM_CloseMB(jb);
+						} else {
+							s_putstring(socket, "(#) View Message\r\n");
+							s_readstring(socket, buffer, 5);
+							currmsg = atoi(buffer);
+							
+							if (JAM_ReadMsgHeader(jb, currmsg, &jmh, &jsp) != 0) {
+								JAM_CloseMB(jb);
+								break;
+							}
+							
+							if (jmh.Attribute & MSG_DELETED) {
+								JAM_DelSubPacket(jsp);
+								JAM_CloseMB(jb);
+								break;
+							}
+
+							if (jmh.Attribute & MSG_NODISP) {
+								JAM_DelSubPacket(jsp);
+								JAM_CloseMB(jb);
+								break;
+							}
+							subject = NULL;
+							from = NULL;
+							to = NULL;
+							
+							for (z=0;z<jsp->NumFields;z++) {
+								if (jsp->Fields[z]->LoID == JAMSFLD_SUBJECT) {
+									subject = (char *)malloc(jsp->Fields[z]->DatLen + 1);
+									memset(subject, 0, jsp->Fields[z]->DatLen + 1);
+									memcpy(subject, jsp->Fields[z]->Buffer, jsp->Fields[z]->DatLen);
+								}
+								if (jsp->Fields[z]->LoID == JAMSFLD_SENDERNAME) {
+									from = (char *)malloc(jsp->Fields[z]->DatLen + 1);
+									memset(from, 0, jsp->Fields[z]->DatLen + 1);
+									memcpy(from, jsp->Fields[z]->Buffer, jsp->Fields[z]->DatLen);
+								}	
+								if (jsp->Fields[z]->LoID == JAMSFLD_RECVRNAME) {
+									to = (char *)malloc(jsp->Fields[z]->DatLen + 1);
+									memset(to, 0, jsp->Fields[z]->DatLen + 1);
+									memcpy(to, jsp->Fields[z]->Buffer, jsp->Fields[z]->DatLen);
+								}	
+							}
+							
+							if (strcasecmp(from, user->loginname) == 0) {
+								sprintf(buffer, "\e[2JFrom    : %s\r\n", from);
+								s_putstring(socket, buffer);
+								sprintf(buffer, "To      : %s\r\n", to);
+								s_putstring(socket, buffer);
+								sprintf(buffer, "Subject : %s\r\n", subject);
+								s_putstring(socket, buffer);
+								s_putstring(socket, "-------------------------------------------------------------------------------\r\n");
+
+								body = (char *)malloc(jmh.TxtLen);
+	
+								JAM_ReadMsgText(jb, jmh.TxtOffset, jmh.TxtLen, (uchar *)body);
+
+								JAM_CloseMB(jb);
+								
+								lines = 0;
+								
+								for (z=0;z<jmh.TxtLen;z++) {
+									if (body[z] == '\r') {
+										s_putstring(socket, "\r\n");
+										lines++;
+										if (lines == 18) {
+											s_putstring(socket, "Press a key to continue...\r\n");
+											s_getc(socket);
+											lines = 0;
+										}
+									} else {
+										s_putchar(socket, body[z]);
+									}
+								}
+
+								s_putstring(socket, "Press R to reply, D to delete or any other key to quit...\r\n");
+	
+								c = s_getc(socket);
+	
+								if (tolower(c) == 'r') {
+									if (subject != NULL) {
+										sprintf(buffer, "RE: %s", subject);
+										free(subject);
+									}
+									subject = (char *)malloc(strlen(buffer) + 1);
+									strcpy(subject, buffer);
+									if (from != NULL) {
+										strcpy(buffer, from);
+										free(from);
+									}
+									
+									from = (char *)malloc(strlen(user->loginname) + 1);
+									strcpy(from, user->loginname);
+									
+									if (to != NULL) {
+										free(to);
+									}
+									to = (char *)malloc(strlen(buffer) + 1);
+									strcpy(to, buffer);
+									
+									replybody = editor(socket, body, to);
+									
+									if (replybody != NULL) {
+										jb = open_jam_base(conf.email_path);
+										if (!jb) {
+											printf("Error opening JAM base.. %s\n", conf.email_path);
+											free(replybody);
+											free(body);
+											free(subject);
+											free(to);
+											free(from);
+											break;
+										}
+													
+										JAM_ClearMsgHeader( &jmh );
+										jmh.DateWritten = time(NULL);
+										jmh.Attribute |= MSG_PRIVATE;
+										
+										jsp = JAM_NewSubPacket();
+										jsf.LoID   = JAMSFLD_SENDERNAME;
+										jsf.HiID   = 0;
+										jsf.DatLen = strlen(from);
+										jsf.Buffer = (uchar *)from;
+										JAM_PutSubfield(jsp, &jsf);
+
+										jsf.LoID   = JAMSFLD_RECVRNAME;
+										jsf.HiID   = 0;
+										jsf.DatLen = strlen(to);
+										jsf.Buffer = (uchar *)to;
+										JAM_PutSubfield(jsp, &jsf);
+													
+										jsf.LoID   = JAMSFLD_SUBJECT;
+										jsf.HiID   = 0;
+										jsf.DatLen = strlen(subject);
+										jsf.Buffer = (uchar *)subject;
+										JAM_PutSubfield(jsp, &jsf);
+													
+										free(body);
+										free(subject);
+										free(to);
+										free(from);
+																									
+										while (1) {
+											z = JAM_LockMB(jb, 100);
+											if (z == 0) {
+												break;
+											} else if (z == JAM_LOCK_FAILED) {
+												sleep(1);
+											} else {
+												free(replybody);
+												printf("Failed to lock msg base!\n");
+												break;
+											}
+										}
+										
+										if (z != 0) {
+											break;
+										}
+										
+										if (JAM_AddMessage(jb, &jmh, jsp, (uchar *)replybody, strlen(replybody))) {
+											printf("Failed to add message\n");
+										}
+														
+										JAM_UnlockMB(jb);
+													
+										JAM_DelSubPacket(jsp);
+										free(replybody);
+										JAM_CloseMB(jb);
+									}
+								} else if (tolower(c) == 'd') {
+									jb = open_jam_base(conf.email_path);
+									if (!jb) {
+										printf("Error opening JAM base.. %s\n", conf.email_path);
+										free(body);
+										free(subject);
+										free(to);
+										free(from);
+										break;
+									}
+																				
+									while (1) {
+										z = JAM_LockMB(jb, 100);
+										if (z == 0) {
+											break;
+										} else if (z == JAM_LOCK_FAILED) {
+											sleep(1);
+										} else {
+											free(body);
+											free(subject);
+											free(to);
+											free(from);
+											printf("Failed to lock msg base!\n");
+											break;
+										}
+									}
+									if (z != 0) {
+										break;
+									}
+									
+									JAM_DeleteMessage(jb, currmsg);
+									JAM_UnlockMB(jb);
+									JAM_CloseMB(jb);
+									free(body);
+									free(subject);
+									free(to);
+									free(from);
+								}
+
+							} else {
+								s_putstring(socket, "\r\nInvalid E-Mail\r\n");
+								JAM_CloseMB(jb);
+							}
+						}
+					}
+				}
+				break;
 		}
 	}