JS version of chat_sec

exec/chat_sec.js

+// chat_sec.js
+
+// Chat Section for any/all Synchronet command shells
+
+// $Id$
+
+load("sbbsdefs.js");
+load("nodedefs.js");
+
+var cmdkey;
+
+if(user.compare_ars("rest C")) {
+    write("\r\nYou can't chat.\r\n");
+	exit(0);
+}
+
+// Set continue point for main menu commands
+menu:
+while(1) {
+	var str="";
+
+	// Display TEXT\MENU\CHAT.* if not in expert mode
+	if(!user.settings & USER_EXPERT) {
+		bbs.menu("chat");
+	}
+
+	// Update node status
+	bbs.node_action=NODE_CHAT;
+
+	// async
+	write("\r\n\001_\1y\001hChat: \001n");
+
+	switch(cmdkey=console.getkeys("ACDFIJPQRST?\r",K_UPPER)) {
+		case "S":
+			user.chat_settings ^= CHAT_SPLITP;
+			write("\001n\r\nPrivate split-screen chat is now: \001h");
+			write((user.chat_settings & CHAT_SPLITP)?"ON\001n":"OFF\001n");
+			writeln("");
+			break;
+		case "A":
+			writeln("");
+			user.chat_settings ^= CHAT_NOACT;
+			bbs.node_settings ^= NODE_AOFF;
+			bbs.whos_online();
+			break;
+		case 'D':
+			writeln("");
+			user.chat_settings ^= CHAT_NOPAGE;
+			bbs.node_settings ^= NODE_POFF;
+			bbs.whos_online();
+			break;
+		case 'F':
+			writeln("");
+			bbs.exec("?finger");
+			break;
+		case 'I':
+			writeln("");
+			bbs.exec("?sbbsimsg");
+			break;
+		case 'R':
+			writeln("");
+			write("\001n\001y\001hServer and channel: ");
+			str="irc.synchro.net 6667 #Synchronet";
+			str=console.getstr(str, 50, K_EDIT|K_LINE|K_AUTODEL);
+			if(!console.aborted)
+				bbs.exec("?irc -a "+str);
+			break;
+		case 'J':
+			bbs.multinode_chat();
+			break;
+		case 'P':
+			bbs.private_chat();
+			break;
+		case 'C':
+			if(!bbs.page_sysop())
+				bbs.page_guru();
+			break;
+		case 'T':
+			bbs.page_guru();
+			break;
+		case '?':
+			if(user.settings & USER_EXPERT)
+				bbs.menu("chat");
+			break;
+		default:
+			break menu;
+	}
+}