Advertisement
Guest User

Untitled

a guest
Jul 4th, 2017
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.56 KB | None | 0 0
  1. function RegisterAccount(p, c, a)
  2. if a[3] != "jh&S7FAs7FGASA*(SFA*9sf6ghw87h8" then return end
  3.  
  4. local User,Pass = ForumsConnection:escape(a[1]), ForumsConnection:escape(a[2])
  5.  
  6. local CheckName = ForumsConnection:query("SELECT id_member FROM smf_members WHERE LOWER(member_name) = '" .. string.lower(User) .. "'")
  7. CheckName.onSuccess = function() if CheckName:getData()[1] then p:iMsg("Username already taken!") SendUserMessage("AccountLinkMenu", p) else GrabID() end end
  8. CheckName.onFailure = function(s,e) print("[iAdmin] MySQL Error | Checking for duplicate username | " .. e) end
  9. CheckName:start()
  10.  
  11. function GrabID()
  12. local GrabNextID = ForumsConnection:query("SELECT MAX(id_member) FROM smf_members")
  13. GrabNextID.onSuccess = function() DoReg(GrabNextID:getData()[1]['MAX(id_member)'] + 1) end
  14. GrabNextID.onFailure = function(s,e) print("[iAdmin] MySQL Error | Grabbing next ID | " .. e) end
  15. GrabNextID:start()
  16. end
  17.  
  18. function DoReg(d)
  19. local RegisterUser = ForumsConnection:query("INSERT INTO smf_members (id_member, member_name, date_registered, real_name, passwd, member_ip, member_ip2, id_msg_last_visit, id_post_group, steamid) VALUES (" .. d .. ", '" .. User .. "', " .. os.time() .. ", '" .. User .. "', SHA1('" .. string.lower(User) .. "" .. Pass .. "'), '" .. p:IPAddress() .. "', '" .. p:IPAddress() .. "', 7, 4, '" .. p:SteamID() .. "')")
  20. RegisterUser.onFailure = function(s,e) print("[iAdmin] MySQL Error | Registering user (main) | " .. e) end
  21. RegisterUser:start()
  22.  
  23. local SetUser = ForumsConnection:query("UPDATE smf_settings SET value = " .. d .. " WHERE variable = 'latestMember'")
  24. SetUser.onFailure = function(s,e) print("[iAdmin] MySQL Error | Registering user (settings) | " .. e) end
  25. SetUser:start()
  26. local SetUser2 = ForumsConnection:query("UPDATE smf_settings SET value = " .. d .. " WHERE variable = 'totalMembers'")
  27. SetUser2.onFailure = function(s,e) print("[iAdmin] MySQL Error | Registering user (settings 2) | " .. e) end
  28. SetUser2:start()
  29. local SetUser3 = ForumsConnection:query("UPDATE smf_settings SET value = '" .. User .. "' WHERE variable = 'latestRealName'")
  30. SetUser3.onFailure = function(s,e) print("[iAdmin] MySQL Error | Registering user (settings 3) | " .. e) end
  31. SetUser3:start()
  32. local SetUser4 = ForumsConnection:query("UPDATE smf_settings SET value = '" .. os.time() .. "' WHERE variable = 'memberlist_updated'")
  33. SetUser4.onFailure = function(s,e) print("[iAdmin] MySQL Error | Registering user (settings 4) | " .. e) end
  34. SetUser4:start()
  35. end
  36. end
  37. concommand.Add("ia_registeraccount", RegisterAccount)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement