mirror of git://git.psyced.org/git/psyced
130 lines
3.2 KiB
OpenEdge ABL
130 lines
3.2 KiB
OpenEdge ABL
// vim:noexpandtab:syntax=lpc
|
|
// $Id: babeldos.i,v 1.3 2007/10/08 11:00:30 lynx Exp $
|
|
|
|
/*
|
|
* this is one of the most impressive abuses of psyc rooms i've seen
|
|
* so far.. have fun with it.. then maybe patch it in a fashion that
|
|
* it becomes potentially actually useful. yet another drunken master-
|
|
* piece coded by heldensaga and elridion.
|
|
*/
|
|
|
|
#include <input_to.h>
|
|
#include <ht/http.h>
|
|
#include <net.h>
|
|
#define INHERIT_CONNECT
|
|
|
|
start();
|
|
babel();
|
|
|
|
#define CREATE qInit(ME, 1000, 100);
|
|
|
|
// too aggressive to connect babelfish on every reset!!
|
|
//efine CRESET start();
|
|
inherit NET_PATH "connect";
|
|
#include <place.gen>
|
|
|
|
#define emit binary_message
|
|
|
|
volatile int has_con, is_translating, is_con;
|
|
volatile mixed *current;
|
|
volatile string krank, buffer;
|
|
|
|
start() {
|
|
unless (has_con || is_con) {
|
|
is_con = 1;
|
|
call_out(#'connect, 0, "babelfish.yahoo.com", 80);
|
|
}
|
|
}
|
|
|
|
escape(data) {
|
|
return regreplace(data, "[^a-zA-Z0-9]", (: return sprintf("%%%x", $1[0]); :), 1);
|
|
}
|
|
|
|
disconnected() {
|
|
string k;
|
|
|
|
//efine FMT "%~s<td bgcolor=white class=s><div style=padding:10px;>%s</div></td>%~s"
|
|
#define FMT "%~s<input type=\"hidden\" name=\"p\" value=\"%s\">%~s"
|
|
|
|
has_con = 0;
|
|
P0(("%O received %O bytes of buffer for %O\n", ME, sizeof(buffer), current))
|
|
switch (pointerp(current) ? current[0] : "") {
|
|
case TRANSLATION:
|
|
// can you believe, some people want this in their
|
|
// psyc clients ;)))
|
|
current[4]["_data_original"] = current[3];
|
|
if (sscanf(buffer, FMT, k)) krank = k;
|
|
else krank = current[3];
|
|
#ifdef TRANSLATION2
|
|
babel(TRANSLATION2, current[1], current[2], krank, current[4]);
|
|
break;
|
|
case TRANSLATION2:
|
|
if (sscanf(buffer, FMT, k)) krank = k;
|
|
else krank = current[3];
|
|
#endif
|
|
::msg(current[1], current[2], replace(krank, """, "\""), current[4]);
|
|
default:
|
|
current = 0;
|
|
start();
|
|
}
|
|
}
|
|
|
|
parse(data) {
|
|
buffer += data + " ";
|
|
input_to(#'parse, INPUT_IGNORE_BANG);
|
|
}
|
|
|
|
logon(int f) {
|
|
is_con = 0;
|
|
unless (::logon(f)) {
|
|
return;
|
|
}
|
|
has_con = 1;
|
|
input_to(#'parse, INPUT_IGNORE_BANG);
|
|
|
|
if (qSize(ME)) {
|
|
funcall(lambda(({}), ({ #'babel }) + shift(ME) ));
|
|
} else {
|
|
is_translating = 0;
|
|
}
|
|
}
|
|
|
|
translat(source, mc, data, mapping vars, count) {
|
|
if (is_translating) {
|
|
//debug_message("enqueing: " + data + "\n");
|
|
enqueue(ME, ({ TRANSLATION, source, mc, data, vars }));
|
|
} else {
|
|
//debug_message("babeling: " + data + "\n");
|
|
is_translating = 1;
|
|
babel(TRANSLATION, source, mc, data, vars);
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
babel(mode, source, mc, data, mapping vars) {
|
|
unless (has_con) {
|
|
unshift(ME, ({ mode, source, mc, data, vars }));
|
|
start();
|
|
return;
|
|
}
|
|
|
|
buffer = "";
|
|
krank = 0;
|
|
current = ({ mode, source, mc, data, vars });
|
|
// old API
|
|
// emit("GET /tr?lp=" + mode + "&urltext=" + escape(data) + " HTTP/1.1\r\n"
|
|
// "Host: babelfish.altavista.com\r\n\r\n");
|
|
// new API
|
|
emit("GET /translate_txt?ei=UTF-8&doit=done&fr=bf-res&intl=1&lp="+
|
|
mode +"&tt=urltext&trtext="+
|
|
escape(data) +" HTTP/1.1\r\nHost: babelfish.yahoo.com\r\n\r\n");
|
|
}
|
|
|
|
msg(source, mc, data, mapping vars) {
|
|
if (abbrev("_message_public", mc) && data) {
|
|
return translat(source, mc, data, vars);
|
|
}
|
|
return ::msg(source, mc, data, vars);
|
|
}
|