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

let the past begone in cvs land. welcome to igit igit!

Browse source
This commit is contained in:
PSYC 2009-01-26 20:21:29 +01:00
commit 4e601cf1c7
509 changed files with 77963 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

42
place/psyc.c Normal file
View file

@ -0,0 +1,42 @@
#include <net.h>
#define NAME "PSYC"
#define SILENT
#define PLACE_HISTORY_EXPORT
//#define HISTORY
#define HISTORY_METHOD "_notice_update"
#define HISTORY_GLIMPSE 4
#ifdef BRAIN
//# define ON_ANY if (mayLog(mc)) mymsg(source, mc, data, vars);
//# define ALLOW_EXTERNAL_FROM "psyc://fly.symlyn"
//# define ALLOW_EXTERNAL
#else
//# define CONNECT_DEFAULT
# define REDIRECT "psyc://psyced.org/@welcome"
#endif
#include <place.gen>
#ifdef BRAIN
// it was a bad idea anyway.. you don't wanna autorelease thru cvs..
#if 0
mymsg(source, mc, data, vars) {
if (vars["_module"] == "psyconaut"
&& strstr(vars["_files"], "psyconaut.exe") != -1) {
vars["_origin"] = source || vars["_INTERNAL_source"];
P0(("%O forwarding psyconaut %O\n", ME, vars))
sendmsg("psyc://psyced.org/@psyconaut-release", mc,
data, vars);
}
}
#endif
qAllowExternal(source, mc, vars) {
P3(("qAllowExternal: %O,%O,%O\n", source,mc,vars))
unless (stringp(source)) return 0;
if (abbrev( "psyc://213.73.91.20:" , source)) return 1;
if (abbrev( "psyc://fly.symlynx.com:" , lower_case(source))) return 1;
return 0;
}
#endif