psyced/world/net/irc/gatebot.c

903 lines
25 KiB
C
Raw Normal View History

2009-01-26 20:12:53 +00:00
// $Id: gatebot.c,v 1.151 2008/09/12 15:37:39 lynx Exp $ // vim:syntax=lpc
//
// the PSYC-IRC gateway robot.
// based on the ircbot.c in Nemesis that i wrote in 1992. -lynX
// documentation: http://www.psyc.eu/ircgate
// it can still use plenty of improvements and new features, just go ahead!
// gatebot hands out some room status to the channel:
// -|symlynX/#23c3- PSYC Identification of freeNode: psyc://psyced.org/@freenode
// -|symlynX/#23c3- You enter freeNode.
// "you" is obviously wrong here. also why |symlynX rather than PSYCgate?
// TODO? fippo doesn't like #ifdefs, so he wrote the next generation gateway.c
// that allows for entering channels on the ircnet in a way not compatible
// to this file. How can we merge this back? Can we handle things better?
//
// #ifdef SERVER is a bit ugly, yet having several files would result
// in almost the same code in several files, just slightly different. We can
// try to simplify some ifdefs via textdb. Then again, I don't think #ifdef
// is really that bad. The biggest problem of ifdef is not the preprocessing
// as such, it's just how ugly preprocessor statements look. Maybe a macro
// would help? As in GATEWAY( ...code... ) vs GATEBOT( ...code... ). Hm!
//
// Several files would look like this: Put the majority of gatebot.c in a
// gateshare.i or even gateshare.c, then have gatebot.c and gateway.c
// include or inherit it and adapt. The stupid thing is that functions like
// disc() or reboot() contain almost the same code for both variants and
// should better stay the way they are - together. And once gateway.c has
// learned how to enter channels, wouldn't you want gatebot.c to be able
// to do that as well? So we have to code it in a generic way, anyway.
// Sure, it's harder to do abstract coding, but the benefit can be double.
// Not only you solve two things at once, you also only have one place to
// deal with when something needs to be fixed. Having two implementations
// of the same thing wouldn't be what we want, anyway.
2009-01-26 20:12:53 +00:00
#include "gatebot.h"
#include <status.h>
#include <services.h>
#include <text.h>
#include <uniform.h>
#include "error.h" // gets numeric codes
#include "reply.h" // gets numeric codes
// ctcp support etc.. yes even dcc works across the gateway if the psyc
// user runs an irc client
inherit IRC_PATH "decode";
// message queueing and automatic reconnect mgmt
inherit NET_PATH "circuit";
#ifdef RELAY
2009-01-29 16:31:32 +00:00
# define IRCER_UNIFORM(NICK) (SERVER_UNIFORM +"~"+ NICK)
#else
// will upgrade to irc: syntax..
# define IRCER_UNIFORM(NICK) (MYLOWERNICK +":"+ NICK)
#endif
// dieses objekt ist ein blueprint für einen raum -
// d.h. man kann ircgateways betreten und auf diese weise
// nicht zuordnungsfähige protokollreplies von irc abholen
// (irc bietet kein request/response-tagging, und andere
// lösungsansätze sind gepfriemel)
#ifdef IRCGATE_HISTORY
inherit NET_PATH "place/storic";
#else
// we normally don't want to irritate our fellow ircers by
// keeping logs of their conversations. it's atypical to
// irc traditions. unfortunately we can take this decision
// only systemwide as of now.
inherit NET_PATH "place/public";
#endif
#ifndef SERVER
# undef IRCGATE_REGISTERED_ONLY
// the gateway command level also used by other gateways like ICQ
inherit NET_PATH "gateway/generic";
#else
// allow federated communications for registered nicks only.
// this could've been implemented in the ircd aswell...
# define psycer rcpt
# ifdef ADVERTISE_PSYCERS
volatile mapping gated;
# endif
# ifdef IRCGATE_REGISTERED_ONLY
volatile mapping regged;
# endif
volatile string joe, joe_nick;
volatile mixed joe_unl;
#endif
volatile int notice;
volatile string names, namesfrom, namesto;
qChatChannel () { }
#ifdef SERVER
ulogin(ni) {
#ifndef IRCGATE_NO_LOGIN
object u = summon_person(ni, IRC_PATH "ghost");
if (u) u -> logon();
#endif
#ifdef IRCGATE_REGISTERED_ONLY
regged[lower_case(ni)]++;
#endif
}
ulogout(ni) {
#ifndef IRCGATE_NO_LOGIN
mixed u = find_person(ni);
if (u) return u->quit();
#endif
#ifdef IRCGATE_REGISTERED_ONLY
ni = lower_case(ni);
if (regged[ni]) {
regged[ni] = 0;
}
// PT(("regged: %O\n", regged))
#endif
}
emit(all, source) {
#ifdef ADVERTISE_PSYCERS
if (source) advertise(source);
#endif
#ifdef _flag_log_sockets_IRC
log_file("RAW_IRC", "%d %O\t-> %s", time(), ME, all);
#endif
return ::emit(all);
}
qName() { return joe_nick; }
# if 0
// circumventing library:psyc2irc with its special cases
psyc2irc(mc, source) {
PT(("psyc2irc wird einfach nicht aufgerufen. arggh!!\n"))
return ":" IRCGATE_NICK " NOTICE";
}
# endif
# ifdef ADVERTISE_PSYCERS
advertise(source) {
unless (gated[source]) {
mixed *u;
string login;
// in this case 'gated' doesn't strictly mean this source
// is already advertised but rather this source has already
// been considered for advertising and either been advertised
// or not..
gated[source] = 1;
if (!stringp(source) || !strlen(source)) return;
unless (u = parse_uniform(source)) return;
if (login = u[UUser]) {
#if 1
// for some mysterious reason sporadically we get
// UNRs here. maybe we should raise_error to figure
// out why that happens.
// since gmail likes to change its UNRs quite often,
// this results in 'gated' getting slowly polluted.
// we could either fight this by storing timestamps
// in gated[] and weeding out old entries occasionally
// (how do we find out if an entry has actually been
// advertised and thus needs to be QUITted? parse again?).
// the other option is to have psyced periodically
// reconnect the ircnet. sufficient intermediate solution
// really, since the resync between psyced and a locally
// running ircd is merely cpu exercise, not traffic.
// this whole problem should no longer occur, since
// fippo took a measure in person.c to avoid UNRs
// arriving here. i wonder why person.c gets them
// in the first place. shouldn't entity.c deal with
// them? hmmmm
if (u[UResource]) {
monitor_report("_failure_invalid_identity",
sprintf("%O advertising UNR %O from %O",
ME, source, previous_object()));
source = u[UScheme] +":"+ u[UUserAtHost];
// of course we need to check this variant, too. thx fippo.
if (gated[source]) return 1;
gated[source] = 1;
}
#endif
2009-03-04 10:27:19 +00:00
} else login = u[UNick];
}
unless (login && strlen(login)) return;
// introduce the federation user into the ircnet
// database. not strictly necessary for plain
// messaging but surely as soon as the person wants
// to join an ircnet channel.
P0(("ADVERTISING %O as %O of %O\n",
source, login, u[UHost]))
// hmm PTLINK syntax.. we may have to add some ifdefs here for other flavors
// or maybe we do just like with login() and throw this into the ircgate.c
/* m_nick
** parv[0] = sender prefix
** parv[1] = nickname
** parv[2] = optional hopcount when new user; TS when nick change
** parv[3] = optional TS
** parv[4] = optional umode
** parv[5] = optional username
** parv[6] = optional hostname
** parv[7] = optional spoofed hostname
** parv[8] = optional server
** parv[9] = optional info
*/
emit("NICK "+ source +" 1 4404 +i " + login + " " SERVER_HOST
" " + u[UHost] + " " IRCGATE_NICK " :I'm psyced!\n");
}
// we could update a timestamp in gated[] so every 15m we
// can clean out old names.
}
//static send(source, text) {
render(mc, data, vars, source) {
//# include <uniform.h>
// mixed *u = parse_uniform(psyc_name(source));
// unless (mappingp(u) && u[UHost]) {
// P1(("failed\n"))
// return;
// }
// string ircsrc = (u[UScheme] || "xmpp") +";"+
2009-03-04 10:27:19 +00:00
// (u[UNick] +"|"+
// replace(u[UHost], ".", "_");
if (source) {
advertise(source);
// text = ":"+ source +" "+ text;
}
// PT(("gateOut: "+ text))
// emit(text);
return ::render(mc, data, vars, source);
}
# endif
#else
# define send(source, text) emit(text)
#endif
showStatus(verbosity, al, person, mc, data, vars) {
// this is for my local users only
// TODO: this info doesn't get updated on joins and leaves
// re-request NAMES every time? damn.
if (names && namesfrom) sendmsg(person, "_status_place_members_IRC",
"irc://[_server_IRC]/[_nick_place_IRC] contains: [_members_IRC]",
([ "_members_IRC": names,
//"_source_IRC": "irc://"+namesfrom+"/"+namesto
"_server_IRC": namesfrom,
"_nick_place_IRC": namesto ]));
return ::showStatus(verbosity, al, person, mc, data, vars);
}
link(ho, po) {
register_scheme(MYLOWERNICK);
joe = "nobody";
// we cannot use "irc" here, because we don't want the textdb
// to do the irc protocol formatting for us. we need a plain-text
// formatting of the messages that we can put into NOTICEs etc
// "ircgate" simply gives us the chance to change a few message
// formats specifically for the gateway, textdb inheritance takes
// care of the rest. theoretically we could enable multiple
// languages here, but uh.. do you care?
#ifdef SERVER
sTextPath(0, 0, "irc");
#else
sTextPath(0, 0, "ircgate");
#endif
decodeInit();
return ::circuit(ho, po || IRC_SERVICE);
}
ircMsg(from, cmd, args, text, all) {
string *a, t, rcpt, deb;
//PT(("ircMsg(%O,%O,%O,%O)\n", from,cmd,args,text))
notice = 0;
next_input_to(#'parse);
a = explode(cmd+" "+args, " "); // TODO! redefine a properly
rcpt = sizeof(a)>1 && a[1];
// here we presume PSYC.EU is uppercase!
if (strlen(rcpt) == sizeof(IRCGATE_NICK)
&& upper_case(rcpt) == IRCGATE_NICK) rcpt = 0;
#define DEB if (!deb) deb = MYNICK+" "+(from||"")+" "+\
(t||"")+" '"+(text||"")+"'\n"
// DT( if (cmd != "ping") { DEB; D(deb); } )
switch(cmd) {
case "ping":
//emit(SERVER_SOURCE "PONG " SERVER_HOST " :"+ MYNICK +"\n");
// emit("PONG " SERVER_HOST " :"+ MYLOWERNICK +"\n");
// emit("PONG " SERVER_HOST " :"+ rcpt +"\n");
emit("PONG " IRCGATE_NICK " :"+ text +"\n");
return 1;
#ifndef RELAY
case "notice":
#ifndef RELAY_SMART_IRCSERVS
// would be better if servs weren't talking to us!!
if (strlen(from) > 7 && from[4 .. 7] == "Serv") {
// check for 'Nick' and 'Chan' ?
P2(("... ignoring crap from "+ from +"\n"))
return 1;
}
#endif
// strange behaviour of some ircds.. sending notices
// to a virtual user called 'auth' before login
// correct behaviour is to send "NOTICE *"
if (rcpt == "*"
#ifdef SERVER
|| rcpt == IRCGATE_NICK
#endif
|| rcpt == "AUTH") return 1;
// notice from my or any other server
if (from && index(from, '.') > 0) {
joe = from;
from = 0;
}
notice = 1; // fall thru
case "privmsg":
if (joe_nick = from) {
joe = joe_nick;
if (sscanf(joe, "%s!%s@%s", joe_nick)) {
// if (stupidNetwork())
joe = joe_nick;
}
joe_unl = IRCER_UNIFORM(joe);
joe = lower_case(joe);
}
#ifdef SERVER
# ifdef IRCGATE_REGISTERED_ONLY
unless (regged[joe]) {
// emit(SERVER_SOURCE + ERR_SUMMONDISABLED +" "+
// joe_nick +" :You're not registered yet.\n";
render("_error_necessary_registration",
"Sorry, you cannot use this without prior registration.", ([
"_INTERNAL_source_IRC": IRCGATE_NICK,
2009-03-05 10:42:45 +00:00
"_INTERNAL_nick_me" : joe_nick,
]));
return 1;
}
# endif
# ifndef IRCGATE_FULL_UNIFORM_SUPPORT
// also accept uniform@PSYC syntax.. necessary when the
// ircd has not been patched to always forward uniforms
// to the psyced. newer patches however do that, so we
// should not need this.
if (upper_case(rcpt[<sizeof(IRCGATE_NICK) ..]) == IRCGATE_NICK)
rcpt = rcpt[0 .. <sizeof(IRCGATE_NICK)+2];
# endif
PT(("the rcpt is %O for %O from %O\n", rcpt, text, joe_unl))
if (!rcpt || channel2place(rcpt)) pubmsg(text);
else {
unless (text = decode(text, rcpt, !notice)) break;
sendmsg(rcpt, notice? "_message_private_annotate":
"_message_private", text,
([ "_nick" : joe_nick ]), joe_unl);
}
#else
unless (rcpt && (rcpt = channel2place(rcpt))) rcpt = 0;
unless (text = decode(text, rcpt, !notice)) break;
if (rcpt) {
if (from) pubmsg(text);
// weird hack, i know
else castmsg(ME, "_notice_IRC", "[_server]: [_text]",
([ "_text": text, "_server": joe ]) );
}
else unless (notice) input(text);
#endif
break;
#endif
case ERR_NOSUCHNICK:
#ifdef SERVER
if (rcpt && sizeof(a)>2)
sendmsg(rcpt, "_error_unknown_name_user",
"[_nick_target] isn't available.",
([ "_nick_target": IRCER_UNIFORM(a[2]) ]) );
#else
if (psycer) sendmsg(psycer, "_error_unknown_name_user_IRC",
from+": "+text+"\n");
#endif
break;
case RPL_AWAY:
if (psycer) sendmsg(psycer, "_status_person_absent_IRC",
from+" is away: "+text+"\n");
break;
case RPL_WHOREPLY:
// parsewho(a, text);
break;
case RPL_LUSERCLIENT:
monitor_report("_notice_circuit_established_IRC",
from+": "+text);
break;
case RPL_NAMREPLY:
2009-01-26 20:12:53 +00:00
names = text; namesfrom = from; namesto = a[3][1 ..];
#ifdef CHAT_CHANNEL
castmsg(ME, "_notice_place_members_IRC",
"On [_nick_place_IRC]: [_members_IRC]",
([ "_members_IRC": names,
"_source_IRC": namesfrom,
"_nick_place_IRC": namesto ]));
#endif
#ifndef SERVER
monitor_report("_notice_place_members_IRC",
"irc://"+namesfrom+"/"+namesto+" contains: "+names);
break;
case "join":
unless (rcpt) rcpt = text; // historic syntax bug in JOIN
if (rcpt && (rcpt = channel2place(rcpt))) {
if (stricmp(rcpt, qChatChannel())) {
P0(("%O got autojoined into %O\n", ME, rcpt))
emit("PART #"+rcpt+
" :looks like I was autojoined here\n");
break;
}
} else rcpt = 0;
// fall thru
case "quit": // IRC QUIT is broken really
case "part":
sscanf(from, "%s!%s@%s", t);
castmsg(IRCER_UNIFORM(from), "_notice_place_IRC_"+cmd,
"[_nick] "+ cmd +"s [_channel].",
([ "_nick" : t, "_channel" : (rcpt||text) ]));
break;
case "001":
#ifndef SERVER
emit("JOIN #"+qChatChannel()+" "+CHAT_CHANNEL_MODE+"\n");
#endif
#ifdef EXTRA_LOGON
emit(EXTRA_LOGON+"\n");
#endif
// calling showStatus on myself for my fellow ircers
::showStatus(VERBOSITY_IRCGATE_LOGON, 0, ME);
break;
case "002":
case "003":
case "004":
case "005":
case RPL_LUSEROP:
case RPL_LUSERUNKNOWN:
case RPL_LUSERCHANNELS:
case RPL_LUSERME:
case "250":
// Highest connection count: 775 (774 clients) (19656 connections received)
case "265":
case "266":
case RPL_MOTDSTART:
case RPL_MOTD:
case RPL_ENDOFMOTD:
//case ERR_NOSUCHCHANNEL: // UMODE error messages from old servers
case RPL_ENDOFNAMES:
case RPL_ENDOFWHO:
break; // ignore'm all
default:
#ifdef RELAY
if (strlen(from) && index(from, '.') == -1) {
mixed u = find_person(from);
PT(("cmd:relay %O to %O!\n", cmd, u))
if (u) return u->ircMsg(from, cmd, args, text, all);
}
#else
DEB;
castmsg(ME, "_notice_unexpected_message_IRC", chomp(deb), ([]));
// D1(D(deb);)
#endif
// fall thru
case ERR_NOSUCHSERVER:
case "mode":
DEB;
log_file("IRCEVENT", deb);
#else
case "part": // careful about PART in particular:
// normal irc/user behaviour is to echo this
// which in S2S makes no sense!
break;
case "sjoin":
# if 0 // taken from gateway.c, works quite well, but the place is too noisy
{
// sjoin timestamp channel modelist :list-of-nicks
rcpt = find_place(channel2place(a[2]));
string *members;
members = map(explode(trim(text), " "),
// watch out, this should to be adapted to the
// channel privileges (like chanadmin (.),
// chanpop (@), halfop (%) and voice(+)).
// ifdef as needed
(:
return (
$1[0] == '@' ||
$1[0] == '+' ||
$1[0] == '.' ||
$1[0] == '%')
? $1[1..] : $1;
:));
foreach (string member : members) {
sendmsg(rcpt, "_request_enter", 0,
([ "_nick" : member,
"_INTERNAL_origin" : ME ]), summon_person(member));
}
}
# endif
break;
case "topic": // let's postpone these complications a bit
# if 0 // likewise from gateway.c
{
// source TOPIC channel topic-user timestamp :text
// TODO: we need to catch the "answer" to that
rcpt = find_place(channel2place(a[1]));
sendmsg(rcpt, "_request_set_topic", 0,
([
"_topic" : text,
"_nick" : a[2] ]),
summon_person(a[2]));
}
# endif
#endif
break;
#ifdef SERVER
case "gline":
// block'ing may be appropriate...
// relaying to a remote place is not,
// ignore it for now
break;
case "nnick": // ptlink6 style
case "nick":
PT(("NICK START\n"))
if (trail("Serv", rcpt)) return 1;
#ifndef IRCGATE_REGISTERED_ONLY
ulogin(rcpt);
#endif
// combined nick/user announcement
if (sizeof(a)>4) {
#ifdef IRCGATE_REGISTERED_ONLY
if (index(a[4], 'r') >= 0)
ulogin(rcpt);
#endif
return 1;
}
// otherwise nickchange, fall thru
case "quit":
if (from) ulogout(from);
PT(("QUIT NICK\n"))
return 1;
#ifdef IRCGATE_REGISTERED_ONLY
case "mode":
if (strlen(text) && index(text, 'r') >= 0) {
// regged[lower_case(rcpt)] = text[0] == '-' ? 0 : 1;
if (text[0] == '-') ulogout(rcpt);
else ulogin(rcpt);
}
#endif
return 1;
#endif
}
return 1;
}
action(text, rcpt) {
#ifdef SERVER
if (rcpt) sendmsg(rcpt, "_message_private", 0,
([ "_nick" : joe_nick, "_action": text ]), joe_unl);
#else
if (!rcpt && talk[joe])
sendmsg(talk[joe], "_message_private", 0,
([ "_nick" : joe_nick, "_action": text ]), joe_unl);
#endif
else castmsg(joe_unl, "_message_public", 0,
([ "_nick" : joe_nick, "_action": text ]));
}
// incomplete TODO
version(text, rcpt, req) {
#ifdef SERVER
if (rcpt)
::version(text, rcpt, req, joe_nick, joe_unl);
#else
if (talk[joe])
::version(text, talk[joe], req, joe_nick, joe_unl);
#endif
//else
// send *my* version info
}
ctcp(code, text, rcpt, req) {
#ifdef SERVER
if (rcpt)
::ctcp(code, text, rcpt, req, joe_nick, joe_unl);
#else
if (talk[joe])
::ctcp(code, text, talk[joe], req, joe_nick, joe_unl);
#endif
}
static pubmsg(text, ext) {
castmsg(joe_unl, ext ? "_message_public_external" : "_message_public",
text, ([ "_nick" : joe_nick ]));
}
unknownmsg(text) {
PT(("unknown: "+text+"\n"))
if (abbrev("*** ", text)) {
text = text[4..];
notice = 1;
}
pubmsg(text, 1);
if (notice) return;
// P1(("%s tells %s: %s [%O]\n", joe, MYNICK, text, talk))
// reply("Your message has been relayed. Try HELP for help.");
#ifndef SERVER
return ::unknownmsg(text);
#endif
}
#ifndef SERVER
static reply(text) {
if (text && text != "") emit("NOTICE "+joe+" :"+text+"\n");
}
static stat() {
// calling showStatus on myself for my friend joe
::showStatus(VERBOSITY_IRCGATE_USER, 0, ME);
return ::stat();
}
#endif
reboot(reason, restart, pass) {
#ifdef SERVER
emit("SQUIT :Service "+ (restart ? "restart" : "shutdown")
+": "+ reason +"\n");
#else
emit("QUIT :Service "+ (restart ? "restart" : "shutdown")
+": "+ reason +"\n");
#endif
return ::reboot(reason, restart, pass);
}
static disc() {
log_file("IRC_BOSS", "%O disconnects %O\n", previous_object(), ME);
#ifdef SERVER
emit("SQUIT :Service temporarily disabled\n");
#else
emit("QUIT :Service temporarily disabled\n");
#endif
return 1;
}
logon(failure) {
int rc = ::logon(failure);
unless (rc) return 0;
#ifdef SERVER
# ifdef ADVERTISE_PSYCERS
gated = ([]);
# endif
# ifdef IRCGATE_REGISTERED_ONLY
regged = ([]);
# endif
// leave login procedure to place.gen
#else
2009-01-26 20:12:53 +00:00
emit("NICK "+ IRCGATE_NICK +"\r\nUSER "+ IRCGATE_USERID
+" . . :"+ IRCGATE_NAME +"\r\n"
#ifdef IRCGATE_HIDE
2009-01-26 20:12:53 +00:00
+"MODE "+ IRCGATE_NICK +" +i\r\n"
#endif
);
#endif
next_input_to(#'parse);
call_out(#'runQ, 3); // deliver the queue of messages in circuit.c
return rc;
}
//psycName() { return "@"+MYLOWERNICK; }
#if 0
static parsewho(a, text) {
// string channel, uid, host, server, nik, stat, hops, ircname;
// sscanf(s, "%s %s %s %s %s %s :%s %s", channel, uid, host, server, nik, stat, hops, ircname);
sscanf(text, "%s %s", hops, ircname);
host = a[2];
nik = a[4];
if (!nik || host == "Host") return;
if (wflag == "l" && ircname)
sendmsg(wuser, "_who", nik+" ("+uid+"@"+host+") is \""+ircname+"\"\n");
else
sendmsg(wuser, "_who", ladjust(nik,10)+"("+uid+"@"+host+")\n");
}
// old stuff from the MUD gateway
ircwho(mask) {
if (!interactive(ME)) return;
log_file("IRCWHO", mask ? mask : "(null)");
wflag = 0;
if (mask && !sscanf(mask, "-%s %s", wflag, mask)
&& sscanf(mask, "-%s", wflag))
mask = 0;
if (!mask || strlen(mask) < 3) mask = DEF_WHOMASK;
emit("WHO "+mask+"\n");
wuser = this_player();
return 1;
}
// Quote function for gods, use with marker
quote(text) {
if (!userp(this_player())
|| this_player()->query_level() < LEVEL_GOD) return;
sender = this_player();
emit(text+"\n");
return 1;
}
static plist() {
array(string) list=explode(read_file(TOP_PLAYERS_FILE),"\n");
for (int i=0; i<sizeof(list); i++) {
reply(list[i]);
}
return;
}
#endif
disconnect(remainder) {
// we typically just want to give it one more try
reconnect();
// the reconnect in circuit.c will do certain amount of retries only
return 0; // unexpected
}
#ifdef CHAT_CHANNEL
// place specific methods..
tellChannel(source, mc, vars, data) {
#ifndef SERVER
data = irctext( T(mc, ""), vars, data, source );
PT(("tellChannel(%O) %O\n", mc, data))
send(source, "NOTICE #"+qChatChannel()+" :"+ data +"\n");
#endif
}
msg(source, mc, data, mapping vars, showingLog, target) {
string t, ni, mca;
if (showingLog) return 1;
PT(("GATEMSG(%O,%O,%O,%O,%O,%O)\n", source,mc,data,vars,
showingLog,target))
unless(interactive()) {
connect();
// special requirement for enqueue
unless (vars["_source"])
vars["_source"] = UNIFORM(source);
return enqueue(source, mc, data, vars, showingLog, target);
}
if (abbrev("_status_place",mc) || abbrev("_message_announcement",mc)) {
if (source && source != ME) {
monitor_report("_error_rejected_message_IRC",
S("Caught a %O from %O (%O)", mc, source, data));
return;
}
if (joe_unl && target == joe_unl)
reply(irctext( T(mc, ""), vars, data, source ));
else tellChannel(source, mc, vars, data);
//
// i don't know why it doesn't show member listings to
// psyced-ircd's - must be something in net/irc/user.c -
// but we're not using this on psyceds anyway..
return 1;
}
if (!data && stringp(vars["_action"]) && abbrev("_message", mc))
mca = mc +"_action";
else
mca = mc;
// und DCC und freundschaft und /req ... benötigt alles
// eine generischere oder eben eigene irc-textdb
// hmm... echo geht immernoch nicht.. -|klotz- You tell 0: TODO
if (abbrev("_message_echo", mc)) return;
P4(("gatebot %O,%O,%O target: %O\n", source,mc,data, target))
#ifndef RELAY
if (target && stringp(target) && abbrev(MYLOWERNICK, target))
{
#if 0
//unless (stupidNetwork())
unless (sscanf(target[1+strlen(MYLOWERNICK)..], "%s!%~s@%~s", ni) == 3)
ni = target[1+strlen(MYLOWERNICK)..];
#else
//if (stupidNetwork())
ni = target[1+strlen(MYLOWERNICK)..];
#endif
#else
ni = target;
#endif
# ifdef IRCGATE_REGISTERED_ONLY
unless (regged[lower_case(ni)]) {
sendmsg(source, "_error_unknown_name_user",
"No [_nick_target] is available for talking.",
([ "_nick_target" : ni ]));
return 1;
}
# endif
#ifndef SERVER
psycer = source;
if (stringp(source)) vars["_nick"] = source; // remote psycer
// t = irctext( T(mca, 0), vars, data, source );
#else
t = irctext( T(mca, data), vars, data, source );
#endif
if (t && strlen(t)>5)
{
int pm = 0;
if (abbrev("_message", mc)) {
unless (trail("_annotate", mc)) pm = 1;
// irc doesn't echo, so we "fake" it here
sendmsg(source, "_message_echo"+ mc[8..], data, vars);
} else if (abbrev("_request", mc))
pm = 1;
#ifndef SERVER
send(source, (pm ? "PRIVMSG ": "NOTICE ") + ni
+" :"+ t +"\n");
if (pm && !talk[ni]) {
joe_unl = target;
joe_nick = ni;
joe = lower_case(joe_nick);
talkto(source);
}
#else
// TODO: remove 'pm' logic?
vars["_INTERNAL_source_IRC"] = source;
2009-03-05 10:42:45 +00:00
vars["_INTERNAL_nick_me"] = ni;
//send(source, psyctext(t, vars, data, source));
render(mca, data, vars, source);
#endif
}
#ifndef RELAY
else sendmsg(source, "_failure_unsupported_function_IRC",
"Sorry, [_method] is not supported by the IRC gateway.",
([ "_method": mc ]) );
return 1;
}
// if (::msg(source, mc, data, vars) && abbrev("_message", mc)) {
// sollte 1 zurückgeben wenn die msg ok ist
#ifdef IRCGATE_HISTORY
"place/storic"::msg(source, mc, data, vars);
#else
"place/public"::msg(source, mc, data, vars);
#endif
// ein generischer renderer muss her.. das hier ist
// zu blöd so, erkennt keine varianten mit _action etc
if (abbrev("_message_public", mc)) {
#ifdef SERVER
// t = data || irctext( T(mca, 0), vars, data, source );
// send(source, "PRIVMSG #"+qChatChannel()+" :"+ t);
#else
if (stringp(source)) vars["_nick"] = source;
send(source, "PRIVMSG #"+qChatChannel()+" :"+
irctext( T(mca, 0), vars, data, source ));
#endif
}
else {
PT(("abgefangen: %O\n", mc))
}
#endif
return 1;
}
static chanop(arg) {
#ifndef SERVER
log_file("IRC_BOSS", "%O chops %O on %O\n", previous_object(), arg, ME);
emit("MODE #"+ qChatChannel()+ " +o "+arg+"\n");
#endif
return 1;
}
cmd(a, args, b, source, vars) {
string t;
// extra room commands for operators of the gateway
if (b > 0) switch(a) {
case "chop":
if (sizeof(args) == 2) chanop(args[1]);
return 1;
case "disc":
return disc();
#if !defined(SERVER) || DEBUG > 0
case "quote":
t = ARGS(1);
log_file("IRC_BOSS", "[%s] %O quotes %O\n",
ctime(), previous_object(), t);
emit(t+ "\n");
return 1;
#endif
}
return ::cmd(a, args, b, source, vars);
}
onEnter(source, mc, data, vars) {
if (interactive(ME)) tellChannel(source, mc, vars, data);
return ::onEnter(source, mc, data, vars);
}
leave(source, mc, data, vars) {
if (interactive(ME)) tellChannel(source, mc, vars, data);
return ::leave(source, mc, data, vars);
}
#endif