use /query $mud instead of /mud

This commit is contained in:
psyc://loupsycedyglgamf.onion/~lynX 2016-07-21 00:45:09 +02:00
parent 4176e267d8
commit 484b6440dc
2 changed files with 8 additions and 9 deletions

View File

@ -41,7 +41,7 @@ parse(all) {
#ifdef _flag_log_sockets_telnet_outgoing #ifdef _flag_log_sockets_telnet_outgoing
log_file("RAW_TN_OUT", "%O < %O\n", ME, all); log_file("RAW_TN_OUT", "%O < %O\n", ME, all);
#endif #endif
iconv(all, "ASCII//TRANSLIT", SYSTEM_CHARSET); if (all && all != "") iconv(all, "ASCII//TRANSLIT", SYSTEM_CHARSET);
if (owner) sendmsg(owner, if (owner) sendmsg(owner,
"_notice_telnet_verbatim", "[_text_verbatim]", "_notice_telnet_verbatim", "[_text_verbatim]",
([ "_text_verbatim": all ])); ([ "_text_verbatim": all ]));

View File

@ -1414,14 +1414,6 @@ cmd(a, args, dest, command) {
w("_echo_save", "[_amount_lines] lines of log saved.", w("_echo_save", "[_amount_lines] lines of log saved.",
(["_amount_lines": t])); (["_amount_lines": t]));
break; break;
#ifdef MUDLINK
case "mud":
unless (objectp(mudlink) && interactive(mudlink)) mudlink(v("mudlink"));
// nicer UI using simulated query with $mud TBD.. FIXME
// also, this send() is not doing the translit!?!!
if (objectp(mudlink)) mudlink -> send(ARGS(1) +"\n");
break;
#endif // MUDLINK
#endif /* USER_PROGRAM */ #endif /* USER_PROGRAM */
default: default:
#ifdef USER_PROGRAM #ifdef USER_PROGRAM
@ -2040,6 +2032,13 @@ tell(pal, what, palo, how, mc, tv) {
return; return;
} }
#endif #endif
#ifdef MUDLINK
if (pal == "$mud") {
unless (objectp(mudlink) && interactive(mudlink)) mudlink(v("mudlink"));
if (objectp(mudlink)) mudlink -> send(what +"\n");
return;
}
#endif // MUDLINK
#ifdef ALIASES #ifdef ALIASES
// this also allows for /alias MEP MunichElectropunk // this also allows for /alias MEP MunichElectropunk
deaPal = aliases[lower_case(pal)] || pal; deaPal = aliases[lower_case(pal)] || pal;