refer liks

This commit is contained in:
CHIEFSOFT\ameye
2024-12-02 10:49:25 -05:00
parent e592aa9f6e
commit ed334ab4cc
4 changed files with 171 additions and 1 deletions
+7
View File
@@ -542,9 +542,16 @@ long WrenchResendMyReferLink(CVars in, CVars &out) {
try {
REQ_STRING(in, "uid_part", 5, 15, "(.*)");
REQ_STRING(in, "refer_link", 5, 150, "(.*)");
long member_id = REQ_LONG(in, "member_id", 1, -1);
if ( load_db_record(x, " SELECT id, uid,email,firstname,lastname FROM members "
" WHERE LOWER(SUBSTRING(uid::text, 0,9)) = LOWER('%s') "
" AND id = %s", in["uid_part"].Long(), in["member_id"].Long()) > 0){
account_email(WRENCHBOARD_MYREFLINK, x, x);
}
} catch (bad_parameter) {
out["status"] = "ERROR";
}
+6
View File
@@ -546,6 +546,12 @@ long account_email(long mailtype, CVars in, CVars &out) {
return AccountPendingMail(in);
break;
case WRENCHBOARD_MYREFLINK:
vars2form(in, form);
form.LetStr("email", in["email"].c_str());
form.Email("ACCOUNT/member_refer_link.mailfile");
break;
case ACCOUNT_SEND_REFEREMAIL:
REQ_LONG(in, "refer_id", 1, -1);
ml["action"] = ACCOUNT_SEND_REFEREMAIL; ml["action"].set_valid( true );