psyc-mirrors/psyced
1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-08-15 03:25:10 +00:00
Code Issues 2 Releases Wiki Activity

babeldos magicos

Browse source
This commit is contained in:
psyc://psyced.org/~lynX 2009-12-10 11:42:58 +01:00
parent 0221131dc3
commit a10d36ba5b
3 changed files with 35 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

39
place/babeldos.i
View file

@ -10,13 +10,17 @@
#include <input_to.h>
#include <ht/http.h>
#include <net.h>
#define INHERIT_CONNECT
start();
babel();
#define CRESET start();
inherit "net/connect";
#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
@ -26,10 +30,9 @@ volatile mixed *current;
volatile string krank, buffer;
start() {
qInit(ME, 1000, 100);
unless (has_con || is_con) {
is_con = 1;
call_out(#'connect, 0, "babelfish.altavista.com", 80);
call_out(#'connect, 0, "babelfish.yahoo.com", 80);
}
}
@ -37,21 +40,24 @@ escape(data) {
return regreplace(data, "[^a-zA-Z0-9]", (: return sprintf("%%%x", $1[0]); :), 1);
}
disconnect() {
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] : "") {
string k;
case TRANSLATION:
if (sscanf(buffer, "%~s<td bgcolor=white class=s><div style=padding:10px;>%s</div></td>%~s", k)) {
krank = k;
}
if (sscanf(buffer, FMT, k)) krank = k;
else krank = "und es geschah ihr als sei es von der ferne";
#ifdef TRANSLATION2
babel(TRANSLATION2, current[1], current[2], krank, current[4]);
break;
case TRANSLATION2:
if (sscanf(buffer, "%~s<td bgcolor=white class=s><div style=padding:10px;>%s</div></td>%~s", k)) {
krank = k;
}
if (sscanf(buffer, FMT, k)) krank = k;
else krank = "und sie sah fern als sei es ein geschehen";
#endif
::msg(current[1], current[2], replace(krank, "&quot;", "\""), current[4]);
default:
@ -103,8 +109,13 @@ babel(mode, source, mc, data, mapping vars) {
buffer = "";
krank = 0;
current = ({ mode, source, mc, data, vars });
emit("GET /tr?lp=" + mode + "&urltext=" + escape(data) + " HTTP/1.1\r\n"
"Host: babelfish.altavista.com\r\n\r\n");
// 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) {