chanserv/chanserv_relay.c

   1 #include "chanserv.h"
   2 #include "../control/control.h"
   3 #include "../lib/version.h"
   4 #include "../lib/irc_string.h"
   5 #include "authlib.h"
   6
   7 #include <stdio.h>
   8 #include <string.h>
   9
  10 MODULE_VERSION(QVERSION);
  11
  12 int csa_docheckhashpass(void *source, int cargc, char **cargv);
  13 int csa_docreateaccount(void *source, int cargc, char **cargv);
  14 int csa_dosettempemail(void *source, int cargc, char **cargv);
  15 int csa_doresendemail(void *source, int cargc, char **cargv);
  16 int csa_doactivateuser(void *source, int cargc, char **cargv);
  17
  18 void _init(void) {
  19   registercontrolhelpcmd("checkhashpass", NO_RELAY, 3, csa_docheckhashpass, "Usage: checkhashpass <username> <digest> ?junk?");
  20   registercontrolhelpcmd("createaccount", NO_RELAY, 4, csa_docreateaccount, "Usage: createaccount <execute> <username> <email address> <password>");
  21   registercontrolhelpcmd("settempemail", NO_RELAY, 2, csa_dosettempemail, "Usage: settempemail <userid> <email address>");
  22   registercontrolhelpcmd("resendemail", NO_RELAY, 1, csa_doresendemail, "Usage: resendemail <userid>");
  23   registercontrolhelpcmd("activateuser", NO_RELAY, 1, csa_doactivateuser, "Usage: activateuser <userid>");
  24 }
  25
  26 void _fini(void) {
  27   deregistercontrolcmd("checkhashpass", csa_docheckhashpass);
  28   deregistercontrolcmd("createaccount", csa_docreateaccount);
  29   deregistercontrolcmd("settempemail", csa_dosettempemail);
  30   deregistercontrolcmd("resendemail", csa_doresendemail);
  31   deregistercontrolcmd("activateuser", csa_doactivateuser);
  32 }
  33
  34 int csa_docheckhashpass(void *source, int cargc, char **cargv) {
  35   nick *sender=(nick *)source;
  36   reguser *rup;
  37   char *flags;
  38
  39   if(cargc<3) {
  40     controlreply(sender, "CHECKHASHPASS FAIL args");
  41     return CMD_ERROR;
  42   }
  43
  44   if (!(rup=findreguserbynick(cargv[0]))) {
  45     controlreply(sender, "CHECKHASHPASS FAIL user");
  46     return CMD_OK;
  47   }
  48
  49   flags = printflags(QUFLAG_ALL & rup->flags, ruflags);
  50   if(UHasSuspension(rup)) {
  51     controlreply(sender, "CHECKHASHPASS FAIL suspended %s %s %u", rup->username, flags, rup->ID);
  52   } else if(UIsInactive(rup)) {
  53     controlreply(sender, "CHECKHASHPASS FAIL inactive %s %s %u", rup->username, flags, rup->ID);
  54   } else if(!checkhashpass(rup, cargc<3?NULL:cargv[2], cargv[1])) {
  55     controlreply(sender, "CHECKHASHPASS FAIL digest %s %s %u", rup->username, flags, rup->ID);
  56   } else {
  57     controlreply(sender, "CHECKHASHPASS OK %s %s %u %s", rup->username, flags, rup->ID, rup->email?rup->email->content:"-");
  58   }
  59
  60   return CMD_OK;
  61 }
  62
  63 static char *email_to_error(char *email) {
  64   maildomain *mdp, *smdp;
  65   char *local;
  66   char *dupemail;
  67   int found = 0;
  68   maillock *mlp;
  69   reguser *ruh;
  70
  71   switch(csa_checkeboy_r(email)) {
  72     case -1:               break;
  73     case QM_EMAILTOOSHORT: return "emailshort";
  74     case QM_EMAILNOAT:     return "emailinvalid";
  75     case QM_EMAILATEND:    return "emailinvalid";
  76     case QM_EMAILINVCHR:   return "emailinvalid";
  77     case QM_NOTYOUREMAIL:  return "emailnotyours";
  78     case QM_INVALIDEMAIL:  return "emailinvalid";
  79     default:               return "emailunknown";
  80   }
  81
  82   /* maildomain BS... c&p from hello.c */
  83   for(mlp=maillocks;mlp;mlp=mlp->next) {
  84     if(!match(mlp->pattern->content, email)) {
  85       return "emaillocked";
  86     }
  87   }
  88
  89   dupemail = strdup(email);
  90   local=strchr(dupemail, '@');
  91   if(!local) {
  92     free(dupemail);
  93     return "emailunknown";
  94   }
  95   *(local++)='\0';
  96
  97   mdp=findnearestmaildomain(local);
  98   if(mdp) {
  99     for(smdp=mdp; smdp; smdp=smdp->parent) {
 100       if(MDIsBanned(smdp)) {
 101         free(dupemail);
 102         return "emaillocked";
 103       }
 104       if((smdp->count >= smdp->limit) && (smdp->limit > 0)) {
 105         free(dupemail);
 106         return "emaildomainlimit";
 107       }
 108     }
 109   }
 110
 111   mdp=findmaildomainbydomain(local);
 112   if(mdp) {
 113     for (ruh=mdp->users; ruh; ruh=ruh->nextbydomain) {
 114       if (ruh->localpart)
 115         if (!strcasecmp(dupemail, ruh->localpart->content)) {
 116           found++;
 117         }
 118     }
 119
 120     if((found >= mdp->actlimit) && (mdp->actlimit > 0)) {
 121       free(dupemail);
 122       return "emailaddresslimit";
 123     }
 124   }
 125
 126   return NULL;
 127 }
 128
 129 static void sendemail(reguser *rup) {
 130   csdb_createmail(rup, QMAIL_ACTIVATEEMAIL);
 131 }
 132
 133 int csa_docreateaccount(void *source, int cargc, char **cargv) {
 134   nick *sender=(nick *)source;
 135   int execute;
 136   char *error_username = NULL, *error_password = NULL, *error_email = NULL;
 137   char *username = NULL, *password = NULL, *email = NULL;
 138   char account_info[512];
 139   int do_create;
 140
 141   if(cargc<4) {
 142     controlreply(sender, "CREATEACCOUNT FALSE args");
 143     return CMD_ERROR;
 144   }
 145
 146   execute = cargv[0][0] == '1';
 147   if(strcmp(cargv[1], "0"))
 148     username = cargv[1];
 149   if(strcmp(cargv[2], "0"))
 150     email = cargv[2];
 151   if(strcmp(cargv[3], "0"))
 152     password = cargv[3];
 153
 154   if(username) {
 155     if (findreguserbynick(username)) {
 156       error_username = "usernameinuse";
 157     } else if(csa_checkaccountname_r(username)) {
 158       error_username = "usernameinvalid";
 159     }
 160   }
 161
 162   if(email)
 163     error_email = email_to_error(email);
 164
 165   if(password) {
 166     int r = csa_checkpasswordquality(password);
 167     if(r == QM_PWTOSHORT) {
 168       error_password = "passwordshort";
 169     } else if(r == QM_PWTOWEAK) {
 170       error_password = "passwordweak";
 171     } else if(r != -1) {
 172       error_password = "passwordunknown";
 173     }
 174   }
 175
 176   if(execute && email && password && username && !error_email && !error_password && !error_username) {
 177     reguser *rup;
 178     do_create = 1;
 179
 180     rup = csa_createaccount(username, password, email);
 181     USetInactive(rup);
 182
 183     cs_log(sender,"CREATEACCOUNT created auth %s (%s)",rup->username,rup->email->content);
 184     csdb_createuser(rup);
 185     snprintf(account_info, sizeof(account_info), " %u", rup->ID);
 186
 187     sendemail(rup);
 188   } else {
 189     account_info[0] = '\0';
 190     do_create = 0;
 191   }
 192
 193   controlreply(sender, "CREATEACCOUNT %s%s%s%s%s%s%s%s",
 194     do_create ? "TRUE" : "FALSE",
 195     account_info,
 196     email && error_email ? " " : "", email && error_email ? error_email : "",
 197     password && error_password ? " " : "", password && error_password ? error_password : "",
 198     username && error_username ? " " : "", username && error_username ? error_username : ""
 199   );
 200
 201   return CMD_OK;
 202 }
 203
 204 int csa_dosettempemail(void *source, int cargc, char **cargv) {
 205   char *email;
 206   char *error;
 207   reguser *rup;
 208   nick *sender=(nick *)source;
 209
 210   if(cargc<2) {
 211     controlreply(sender, "SETTEMPEMAIL FALSE args");
 212     return CMD_ERROR;
 213   }
 214
 215   rup = findreguserbyID(atoi(cargv[0]));
 216   if(rup == NULL) {
 217     controlreply(sender, "SETTEMPEMAIL FALSE useridnotexist");
 218     return CMD_ERROR;
 219   }
 220
 221   if(!UIsInactive(rup)) {
 222     controlreply(sender, "SETTEMPEMAIL FALSE accountactive");
 223     return CMD_ERROR;
 224   }
 225
 226   email = cargv[1];
 227   error = email_to_error(email);
 228   if(error) {
 229     controlreply(sender, "SETTEMPEMAIL FALSE %s", error);
 230     return CMD_ERROR;
 231   }
 232
 233   freesstring(rup->email);
 234   rup->email=getsstring(email,EMAILLEN);
 235   cs_log(sender,"SETTEMPEMAIL OK username %s email %s",rup->username, rup->email->content);
 236
 237   csdb_updateuser(rup);
 238   sendemail(rup);
 239
 240   controlreply(sender, "SETTEMPEMAIL TRUE");
 241
 242   return CMD_OK;
 243 }
 244
 245 int csa_doresendemail(void *source, int cargc, char **cargv) {
 246   reguser *rup;
 247   nick *sender=(nick *)source;
 248
 249   if(cargc<1) {
 250     controlreply(sender, "RESENDEMAIL FALSE args");
 251     return CMD_ERROR;
 252   }
 253
 254   rup = findreguserbyID(atoi(cargv[0]));
 255   if(rup == NULL) {
 256     controlreply(sender, "RESENDEMAIL FALSE useridnotexist");
 257     return CMD_ERROR;
 258   }
 259
 260   if(!UIsInactive(rup)) {
 261     controlreply(sender, "RESENDEMAIL FALSE accountactive");
 262     return CMD_ERROR;
 263   }
 264
 265   sendemail(rup);
 266   controlreply(sender, "RESENDEMAIL TRUE");
 267   cs_log(sender,"RESENDEMAIL OK username %s",rup->username);
 268
 269   return CMD_OK;
 270 }
 271
 272 int csa_doactivateuser(void *source, int cargc, char **cargv) {
 273   reguser *rup;
 274   nick *sender=(nick *)source;
 275
 276   if(cargc<1) {
 277     controlreply(sender, "ACTIVATEUSER FALSE args");
 278     return CMD_ERROR;
 279   }
 280
 281   rup = findreguserbyID(atoi(cargv[0]));
 282   if(rup == NULL) {
 283     controlreply(sender, "ACTIVATEUSER FALSE useridnotexist");
 284     return CMD_ERROR;
 285   }
 286
 287   if(!UIsInactive(rup)) {
 288     controlreply(sender, "ACTIVATEUSER FALSE accountactive");
 289     return CMD_ERROR;
 290   }
 291
 292   UClearInactive(rup);
 293   csdb_updateuser(rup);
 294
 295   cs_log(sender,"ACTIVATEUSER OK username %s",rup->username);
 296   controlreply(sender, "ACTIVATEUSER TRUE");
 297
 298   return CMD_OK;
 299 }