1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-08-15 03:25:10 +00:00
psyced/world/net/tn/user.c

140 lines
3.3 KiB
C
Raw Normal View History

2009-01-26 20:12:53 +00:00
// $Id: user.c,v 1.46 2008/12/01 11:31:33 lynx Exp $ // vim:syntax=lpc
//
// telnet roxx, still ;)
//
#include <net.h>
#include <user.h>
#include <status.h>
input(a, dest) {
next_input_to(#'input);
if (!a || a=="") {
unless (v("clearscreen") == "off") cat(TELNET_PATH "clear.vt");
showStatus(VERBOSITY_STATUS_AUTOMATIC);
} else {
::input(a, dest);
}
prompt();
return 1;
}
logon(failure) {
// bei failure und fippo meint auch bei skurrilen tls zuständen
if (this_interactive()) {
set_prompt("");
cat(TELNET_PATH "clear.vt");
}
vSet("scheme", "tn");
vDel("layout");
vDel("agent");
::logon();
// sTextPath(0, "de", "tn");
next_input_to(#'input);
prompt();
}
prompt() {
// should we want to iconv the prompt,
// then it is a good idea to cache it..
//
// we should get _notice's or signaling every time the
// current place or query change, so we update the prompt.. TODO
#if 0
if (ME && find_call_out(#'quit) == -1)
binary_message("\n"+( v("query") ? v("query")+" ~> " :
( place ? v("place")+" @> " : CHATNAME " <> " )));
#else
if (ME && find_call_out(#'quit) == -1) {
string p = v("query");
if (p)
p = "\n"+ p +" ~> ";
else if (place && stringp(place))
return;
else if (p = v("place"))
p = "\n"+ p +" @> ";
else
p = "\n" CHATNAME " <> ";
binary_message(p);
}
#endif
}
w(string mc, string data, mapping vars, mixed source) {
if (abbrev("_request_attention", mc)) vars["_beep"] = " ";
return ::w(mc, data, vars, source);
}
// inherit output functions per protocol?
2009-01-26 20:12:53 +00:00
emit(message) {
#ifdef LETS_NOT_USE_TELL_OBJECT
int l, rc;
#endif
unless (strlen(message)) {
PT(("%O got empty emit call in tn/user\n", ME))
#if DEBUG > 1
tell_object(ME, "**EMPTY**");
raise_error("empty");
#endif
return;
}
2009-01-26 20:12:53 +00:00
#if __EFUN_DEFINED__(convert_charset)
if (v("charset") && v("charset") != SYSTEM_CHARSET) {
// this breaks when it encounters an old log or history which
// is already/still in the target charset thus not utf8. waah!
P3(("telnet»%s: %s\n", v("charset"), message || "(null!?)"))
iconv(message, SYSTEM_CHARSET, v("charset"));
}
2009-01-26 20:12:53 +00:00
#endif
#ifdef LETS_NOT_USE_TELL_OBJECT
2009-01-26 20:12:53 +00:00
# echo using binary_message for telnet
// this solution does NOT work when viewing /history with
// prefixes. should we ever want to use this code again,
// we need to do a regreplace from \n to \r\n
message += "\r";
l = strlen(message);
// iso-latin-1 output with amylaar's gd
rc = binary_message(message);
D1( if (rc != l && rc != -1)
D(S("emit: %O of %O returned for %O from %O.\n",
rc, l, MYNICK, v("host"))); )
return rc == l;
#else
2009-01-26 20:12:53 +00:00
# ifdef NEW_LINE
message += "\n";
# endif
tell_object(ME, message);
#endif
}
errorParse(s) {
#ifdef TN_FIX
if (!s || s == "") {
#endif
object o;
exec(o = clone_object(TELNET_PATH "server"), ME);
o->logon();
#ifdef TN_FIX
} else if (s == "fixit") {
next_input_to(#'input);
prompt();
} else {
internalError();
}
#endif
}
internalError() {
emit(">> BROKEN PARSER: This server will not accept anything you send "
"unless you relogin. You can, however, press enter and then relogin "
"without reconnecting.\n"
#ifdef TN_FIX
" Also, you can order me to repair things by sending 'fixit' "
"(without ticks!)\n"
#endif
);
next_input_to(#'errorParse);
}