void cmd_einf(char *ok)
{ /* enter info file for current room */
FILE *fp;
char infofilename[SIZ];
char buf[SIZ];
unbuffer_output();
if (CtdlAccessCheck(ac_room_aide)) return;
if (atoi(ok) == 0) {
cprintf("%d Ok.\n", CIT_OK);
return;
}
assoc_file_name(infofilename, sizeof infofilename, &CC->room, ctdl_info_dir);
syslog(LOG_DEBUG, "opening\n");
fp = fopen(infofilename, "w");
syslog(LOG_DEBUG, "checking\n");
if (fp == NULL) {
cprintf("%d Cannot open %s: %s\n",
ERROR + INTERNAL_ERROR, infofilename, strerror(errno));
return;
}
cprintf("%d Send info...\n", SEND_LISTING);
do {
client_getln(buf, sizeof buf);
if (strcmp(buf, "000"))
fprintf(fp, "%s\n", buf);
} while (strcmp(buf, "000"));
fclose(fp);
/* now update the room index so people will see our new info */
CtdlGetRoomLock(&CC->room, CC->room.QRname); /* lock so no one steps on us */
CC->room.QRinfo = CC->room.QRhighest + 1L;
CtdlPutRoomLock(&CC->room);
}
/*
* Get or set global configuration options
*
* IF YOU ADD OR CHANGE FIELDS HERE, YOU *MUST* DOCUMENT YOUR CHANGES AT:
* http://www.citadel.org/doku.php?id=documentation:applicationprotocol
*
*/
void cmd_conf(char *argbuf)
{
char cmd[16];
char buf[256];
int a;
char *confptr;
char confname[128];
if (CtdlAccessCheck(ac_aide)) return;
extract_token(cmd, argbuf, 0, '|', sizeof cmd);
if (!strcasecmp(cmd, "GET")) {
cprintf("%d Configuration...\n", LISTING_FOLLOWS);
cprintf("%s\n", config.c_nodename);
cprintf("%s\n", config.c_fqdn);
cprintf("%s\n", config.c_humannode);
cprintf("%s\n", config.c_phonenum);
cprintf("%d\n", config.c_creataide);
cprintf("%d\n", config.c_sleeping);
cprintf("%d\n", config.c_initax);
cprintf("%d\n", config.c_regiscall);
cprintf("%d\n", config.c_twitdetect);
cprintf("%s\n", config.c_twitroom);
cprintf("%s\n", config.c_moreprompt);
cprintf("%d\n", config.c_restrict);
cprintf("%s\n", config.c_site_location);
cprintf("%s\n", config.c_sysadm);
cprintf("%d\n", config.c_maxsessions);
cprintf("xxx\n"); /* placeholder -- field no longer in use */
cprintf("%d\n", config.c_userpurge);
cprintf("%d\n", config.c_roompurge);
cprintf("%s\n", config.c_logpages);
cprintf("%d\n", config.c_createax);
cprintf("%ld\n", config.c_maxmsglen);
cprintf("%d\n", config.c_min_workers);
cprintf("%d\n", config.c_max_workers);
cprintf("%d\n", config.c_pop3_port);
cprintf("%d\n", config.c_smtp_port);
cprintf("%d\n", config.c_rfc822_strict_from);
cprintf("%d\n", config.c_aide_zap);
cprintf("%d\n", config.c_imap_port);
cprintf("%ld\n", config.c_net_freq);
cprintf("%d\n", config.c_disable_newu);
cprintf("1\n"); /* niu */
cprintf("%d\n", config.c_purge_hour);
#ifdef HAVE_LDAP
cprintf("%s\n", config.c_ldap_host);
cprintf("%d\n", config.c_ldap_port);
cprintf("%s\n", config.c_ldap_base_dn);
cprintf("%s\n", config.c_ldap_bind_dn);
cprintf("%s\n", config.c_ldap_bind_pw);
#else
cprintf("\n");
cprintf("0\n");
cprintf("\n");
cprintf("\n");
cprintf("\n");
#endif
cprintf("%s\n", config.c_ip_addr);
cprintf("%d\n", config.c_msa_port);
cprintf("%d\n", config.c_imaps_port);
cprintf("%d\n", config.c_pop3s_port);
cprintf("%d\n", config.c_smtps_port);
cprintf("%d\n", config.c_enable_fulltext);
cprintf("%d\n", config.c_auto_cull);
cprintf("1\n");
cprintf("%d\n", config.c_allow_spoofing);
cprintf("%d\n", config.c_journal_email);
cprintf("%d\n", config.c_journal_pubmsgs);
cprintf("%s\n", config.c_journal_dest);
cprintf("%s\n", config.c_default_cal_zone);
cprintf("%d\n", config.c_pftcpdict_port);
cprintf("%d\n", config.c_managesieve_port);
cprintf("%d\n", config.c_auth_mode);
cprintf("%s\n", config.c_funambol_host);
cprintf("%d\n", config.c_funambol_port);
cprintf("%s\n", config.c_funambol_source);
cprintf("%s\n", config.c_funambol_auth);
cprintf("%d\n", config.c_rbl_at_greeting);
cprintf("%s\n", config.c_master_user);
cprintf("%s\n", config.c_master_pass);
cprintf("%s\n", config.c_pager_program);
cprintf("%d\n", config.c_imap_keep_from);
cprintf("%d\n", config.c_xmpp_c2s_port);
cprintf("%d\n", config.c_xmpp_s2s_port);
cprintf("%ld\n", config.c_pop3_fetch);
cprintf("%ld\n", config.c_pop3_fastest);
cprintf("%d\n", config.c_spam_flag_only);
cprintf("%d\n", config.c_guest_logins);
cprintf("%d\n", config.c_port_number);
cprintf("%d\n", config.c_ctdluid);
cprintf("%d\n", config.c_nntp_port);
cprintf("%d\n", config.c_nntps_port);
cprintf("000\n");
}
else if (!strcasecmp(cmd, "SET")) {
unbuffer_output();
cprintf("%d Send configuration...\n", SEND_LISTING);
a = 0;
while (client_getln(buf, sizeof buf) >= 0 && strcmp(buf, "000")) {
switch (a) {
case 0:
configlen.c_nodename = safestrncpy(config.c_nodename, buf,
sizeof config.c_nodename);
break;
case 1:
configlen.c_fqdn = safestrncpy(config.c_fqdn, buf,
sizeof config.c_fqdn);
break;
case 2:
configlen.c_humannode = safestrncpy(config.c_humannode, buf,
sizeof config.c_humannode);
break;
case 3:
configlen.c_phonenum = safestrncpy(config.c_phonenum, buf,
sizeof config.c_phonenum);
break;
case 4:
config.c_creataide = atoi(buf);
break;
case 5:
config.c_sleeping = atoi(buf);
break;
case 6:
config.c_initax = atoi(buf);
if (config.c_initax < 1)
config.c_initax = 1;
if (config.c_initax > 6)
config.c_initax = 6;
break;
case 7:
config.c_regiscall = atoi(buf);
if (config.c_regiscall != 0)
config.c_regiscall = 1;
break;
case 8:
config.c_twitdetect = atoi(buf);
if (config.c_twitdetect != 0)
config.c_twitdetect = 1;
break;
case 9:
configlen.c_twitroom = safestrncpy(config.c_twitroom, buf,
sizeof config.c_twitroom);
break;
case 10:
configlen.c_moreprompt = safestrncpy(config.c_moreprompt, buf,
sizeof config.c_moreprompt);
break;
case 11:
config.c_restrict = atoi(buf);
if (config.c_restrict != 0)
config.c_restrict = 1;
break;
case 12:
configlen.c_site_location = safestrncpy(
config.c_site_location, buf,
sizeof config.c_site_location);
break;
case 13:
configlen.c_sysadm = safestrncpy(config.c_sysadm, buf,
sizeof config.c_sysadm);
break;
case 14:
config.c_maxsessions = atoi(buf);
if (config.c_maxsessions < 0)
config.c_maxsessions = 0;
break;
case 15:
/* placeholder -- field no longer in use */
break;
case 16:
config.c_userpurge = atoi(buf);
break;
case 17:
config.c_roompurge = atoi(buf);
break;
case 18:
configlen.c_logpages = safestrncpy(config.c_logpages, buf,
sizeof config.c_logpages);
break;
case 19:
config.c_createax = atoi(buf);
if (config.c_createax < 1)
config.c_createax = 1;
if (config.c_createax > 6)
config.c_createax = 6;
break;
case 20:
if (atoi(buf) >= 8192)
config.c_maxmsglen = atoi(buf);
break;
case 21:
if (atoi(buf) >= 2)
config.c_min_workers = atoi(buf);
case 22:
if (atoi(buf) >= config.c_min_workers)
config.c_max_workers = atoi(buf);
case 23:
config.c_pop3_port = atoi(buf);
break;
case 24:
config.c_smtp_port = atoi(buf);
break;
case 25:
config.c_rfc822_strict_from = atoi(buf);
break;
case 26:
config.c_aide_zap = atoi(buf);
if (config.c_aide_zap != 0)
config.c_aide_zap = 1;
break;
case 27:
config.c_imap_port = atoi(buf);
break;
case 28:
config.c_net_freq = atol(buf);
break;
case 29:
config.c_disable_newu = atoi(buf);
if (config.c_disable_newu != 0)
config.c_disable_newu = 1;
break;
case 30:
/* niu */
break;
case 31:
if ((config.c_purge_hour >= 0)
&& (config.c_purge_hour <= 23)) {
config.c_purge_hour = atoi(buf);
}
break;
#ifdef HAVE_LDAP
case 32:
configlen.c_ldap_host = safestrncpy(config.c_ldap_host, buf,
sizeof config.c_ldap_host);
break;
case 33:
config.c_ldap_port = atoi(buf);
break;
case 34:
configlen.c_ldap_base_dn = safestrncpy(config.c_ldap_base_dn, buf,
sizeof config.c_ldap_base_dn);
break;
case 35:
configlen.c_ldap_bind_dn = safestrncpy(config.c_ldap_bind_dn, buf,
sizeof config.c_ldap_bind_dn);
break;
case 36:
configlen.c_ldap_bind_pw = safestrncpy(config.c_ldap_bind_pw, buf,
sizeof config.c_ldap_bind_pw);
break;
#endif
case 37:
configlen.c_ip_addr = safestrncpy(config.c_ip_addr, buf,
sizeof config.c_ip_addr);
case 38:
config.c_msa_port = atoi(buf);
break;
case 39:
config.c_imaps_port = atoi(buf);
break;
case 40:
config.c_pop3s_port = atoi(buf);
break;
case 41:
config.c_smtps_port = atoi(buf);
break;
case 42:
config.c_enable_fulltext = atoi(buf);
break;
case 43:
config.c_auto_cull = atoi(buf);
break;
case 44:
/* niu */
break;
case 45:
config.c_allow_spoofing = atoi(buf);
break;
case 46:
config.c_journal_email = atoi(buf);
break;
case 47:
config.c_journal_pubmsgs = atoi(buf);
break;
case 48:
configlen.c_journal_dest = safestrncpy(config.c_journal_dest, buf,
sizeof config.c_journal_dest);
case 49:
configlen.c_default_cal_zone = safestrncpy(
config.c_default_cal_zone, buf,
sizeof config.c_default_cal_zone);
break;
case 50:
config.c_pftcpdict_port = atoi(buf);
break;
case 51:
config.c_managesieve_port = atoi(buf);
break;
case 52:
config.c_auth_mode = atoi(buf);
case 53:
configlen.c_funambol_host = safestrncpy(
config.c_funambol_host, buf,
sizeof config.c_funambol_host);
break;
case 54:
config.c_funambol_port = atoi(buf);
break;
case 55:
configlen.c_funambol_source = safestrncpy(
config.c_funambol_source, buf,
sizeof config.c_funambol_source);
break;
case 56:
configlen.c_funambol_auth = safestrncpy(
config.c_funambol_auth, buf,
sizeof config.c_funambol_auth);
break;
case 57:
config.c_rbl_at_greeting = atoi(buf);
break;
case 58:
configlen.c_master_user = safestrncpy(
config.c_master_user,
buf, sizeof config.c_master_user);
break;
case 59:
configlen.c_master_pass = safestrncpy(
config.c_master_pass, buf, sizeof config.c_master_pass);
break;
case 60:
configlen.c_pager_program = safestrncpy(
config.c_pager_program, buf, sizeof config.c_pager_program);
break;
case 61:
config.c_imap_keep_from = atoi(buf);
break;
case 62:
config.c_xmpp_c2s_port = atoi(buf);
break;
case 63:
config.c_xmpp_s2s_port = atoi(buf);
break;
case 64:
config.c_pop3_fetch = atol(buf);
break;
case 65:
config.c_pop3_fastest = atol(buf);
break;
case 66:
config.c_spam_flag_only = atoi(buf);
break;
case 67:
config.c_guest_logins = atoi(buf);
break;
case 68:
config.c_port_number = atoi(buf);
break;
case 69:
config.c_ctdluid = atoi(buf);
break;
case 70:
config.c_nntp_port = atoi(buf);
break;
case 71:
config.c_nntps_port = atoi(buf);
break;
}
++a;
}
put_config();
snprintf(buf, sizeof buf,
"The global system configuration has been edited by %s.\n",
(CC->logged_in ? CC->curr_user : "******")
);
CtdlAideMessage(buf,"Citadel Configuration Manager Message");
if (!IsEmptyStr(config.c_logpages))
CtdlCreateRoom(config.c_logpages, 3, "", 0, 1, 1, VIEW_BBS);
/* If full text indexing has been disabled, invalidate the
* index so it doesn't try to use it later.
*/
if (config.c_enable_fulltext == 0) {
CitControl.fulltext_wordbreaker = 0;
put_control();
}
}
else if (!strcasecmp(cmd, "GETSYS")) {
extract_token(confname, argbuf, 1, '|', sizeof confname);
confptr = CtdlGetSysConfig(confname);
if (confptr != NULL) {
long len;
len = strlen(confptr);
cprintf("%d %s\n", LISTING_FOLLOWS, confname);
client_write(confptr, len);
if ((len > 0) && (confptr[len - 1] != 10))
client_write("\n", 1);
cprintf("000\n");
free(confptr);
} else {
cprintf("%d No such configuration.\n",
ERROR + ILLEGAL_VALUE);
}
}
else if (!strcasecmp(cmd, "PUTSYS")) {
extract_token(confname, argbuf, 1, '|', sizeof confname);
unbuffer_output();
cprintf("%d %s\n", SEND_LISTING, confname);
confptr = CtdlReadMessageBody(HKEY("000"), config.c_maxmsglen, NULL, 0, 0);
CtdlPutSysConfig(confname, confptr);
free(confptr);
}
else {
cprintf("%d Illegal option(s) specified.\n",
ERROR + ILLEGAL_VALUE);
}
}
/*
* imap_search() calls imap_do_search() to do its actual work, once it's
* validated and boiled down the request a bit.
*/
void imap_do_search(int num_items, ConstStr *itemlist, int is_uid) {
citimap *Imap = IMAP;
int i, j, k;
int fts_num_msgs = 0;
long *fts_msgs = NULL;
int is_in_list = 0;
int num_results = 0;
/* Strip parentheses. We realize that this method will not work
* in all cases, but it seems to work with all currently available
* client software. Revisit later...
*/
for (i=0; i<num_items; ++i) {
if (itemlist[i].Key[0] == '(') {
TokenCutLeft(&Imap->Cmd,
&itemlist[i],
1);
}
if (itemlist[i].Key[itemlist[i].len-1] == ')') {
TokenCutRight(&Imap->Cmd,
&itemlist[i],
1);
}
}
/* If there is a BODY search criterion in the query, use our full
* text index to disqualify messages that don't have any chance of
* matching. (Only do this if the index is enabled!!)
*/
if (config.c_enable_fulltext) for (i=0; i<(num_items-1); ++i) {
if (!strcasecmp(itemlist[i].Key, "BODY")) {
CtdlModuleDoSearch(&fts_num_msgs, &fts_msgs, itemlist[i+1].Key, "fulltext");
if (fts_num_msgs > 0) {
for (j=0; j < Imap->num_msgs; ++j) {
if (Imap->flags[j] & IMAP_SELECTED) {
is_in_list = 0;
for (k=0; k<fts_num_msgs; ++k) {
if (Imap->msgids[j] == fts_msgs[k]) {
++is_in_list;
}
}
}
if (!is_in_list) {
Imap->flags[j] = Imap->flags[j] & ~IMAP_SELECTED;
}
}
}
else { /* no hits on the index; disqualify every message */
for (j=0; j < Imap->num_msgs; ++j) {
Imap->flags[j] = Imap->flags[j] & ~IMAP_SELECTED;
}
}
if (fts_msgs) {
free(fts_msgs);
}
}
}
/* Now go through the messages and apply all search criteria. */
buffer_output();
IAPuts("* SEARCH ");
if (Imap->num_msgs > 0)
for (i = 0; i < Imap->num_msgs; ++i)
if (Imap->flags[i] & IMAP_SELECTED) {
if (imap_do_search_msg(i+1, NULL, num_items, itemlist, is_uid)) {
if (num_results != 0) {
IAPuts(" ");
}
if (is_uid) {
IAPrintf("%ld", Imap->msgids[i]);
}
else {
IAPrintf("%d", i+1);
}
++num_results;
}
}
IAPuts("\r\n");
unbuffer_output();
}
/*
* send instant messages
*/
void cmd_sexp(char *argbuf)
{
int message_sent = 0;
char x_user[USERNAME_SIZE];
char x_msg[1024];
char *lun;
char *lem;
char *x_big_msgbuf = NULL;
if ((!(CC->logged_in)) && (!(CC->internal_pgm))) {
cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN);
return;
}
if (CC->fake_username[0])
lun = CC->fake_username;
else
lun = CC->user.fullname;
lem = CC->cs_inet_email;
extract_token(x_user, argbuf, 0, '|', sizeof x_user);
extract_token(x_msg, argbuf, 1, '|', sizeof x_msg);
if (!x_user[0]) {
cprintf("%d You were not previously paged.\n", ERROR + NO_SUCH_USER);
return;
}
if ((!strcasecmp(x_user, "broadcast")) && (CC->user.axlevel < AxAideU)) {
cprintf("%d Higher access required to send a broadcast.\n",
ERROR + HIGHER_ACCESS_REQUIRED);
return;
}
/* This loop handles text-transfer pages */
if (!strcmp(x_msg, "-")) {
message_sent = PerformXmsgHooks(lun, lem, x_user, "");
if (message_sent == 0) {
if (CtdlGetUser(NULL, x_user))
cprintf("%d '%s' does not exist.\n",
ERROR + NO_SUCH_USER, x_user);
else
cprintf("%d '%s' is not logged in "
"or is not accepting pages.\n",
ERROR + RESOURCE_NOT_OPEN, x_user);
return;
}
unbuffer_output();
cprintf("%d Transmit message (will deliver to %d users)\n",
SEND_LISTING, message_sent);
x_big_msgbuf = malloc(SIZ);
memset(x_big_msgbuf, 0, SIZ);
while (client_getln(x_msg, sizeof x_msg) >= 0 && strcmp(x_msg, "000")) {
x_big_msgbuf = realloc(x_big_msgbuf,
strlen(x_big_msgbuf) + strlen(x_msg) + 4);
if (!IsEmptyStr(x_big_msgbuf))
if (x_big_msgbuf[strlen(x_big_msgbuf)] != '\n')
strcat(x_big_msgbuf, "\n");
strcat(x_big_msgbuf, x_msg);
}
PerformXmsgHooks(lun, lem, x_user, x_big_msgbuf);
free(x_big_msgbuf);
/* This loop handles inline pages */
} else {
message_sent = PerformXmsgHooks(lun, lem, x_user, x_msg);
if (message_sent > 0) {
if (!IsEmptyStr(x_msg))
cprintf("%d Message sent", CIT_OK);
else
cprintf("%d Ok to send message", CIT_OK);
if (message_sent > 1)
cprintf(" to %d users", message_sent);
cprintf(".\n");
} else {
if (CtdlGetUser(NULL, x_user))
cprintf("%d '%s' does not exist.\n",
ERROR + NO_SUCH_USER, x_user);
else
cprintf("%d '%s' is not logged in "
"or is not accepting pages.\n",
ERROR + RESOURCE_NOT_OPEN, x_user);
}
}
}
