/datum/admins/proc/DB_ban_record(var/bantype, var/mob/banned_mob, var/duration = -1, var/reason, var/job = "", var/rounds = 0, var/banckey = null) if(!check_rights(R_BAN)) return if(!SSdbcore.Connect()) return var/serverip = "[world.internet_address]:[world.port]" var/bantype_pass = 0 var/bantype_str switch(bantype) if(BANTYPE_PERMA) bantype_str = "PERMABAN" duration = -1 bantype_pass = 1 if(BANTYPE_TEMP) bantype_str = "TEMPBAN" bantype_pass = 1 if(BANTYPE_JOB_PERMA) bantype_str = "JOB_PERMABAN" duration = -1 bantype_pass = 1 if(BANTYPE_JOB_TEMP) bantype_str = "JOB_TEMPBAN" bantype_pass = 1 if(BANTYPE_APPEARANCE) bantype_str = "APPEARANCE_PERMABAN" bantype_pass = 1 if(BANTYPE_OOC_PERMA) bantype_str = "OOC_PERMABAN" duration = -1 bantype_pass = 1 if(BANTYPE_OOC_TEMP) bantype_str = "OOC_TEMPBAN" bantype_pass = 1 if( !bantype_pass ) return if( !istext(reason) ) return if( !isnum(duration) ) return var/ckey var/computerid var/ip if(ismob(banned_mob)) ckey = banned_mob.ckey if(banned_mob.client) computerid = banned_mob.client.computer_id ip = banned_mob.client.address else if(banckey) ckey = ckey(banckey) var/datum/DBQuery/query = SSdbcore.NewQuery("SELECT id FROM erro_player WHERE ckey = :ckey", list("ckey" = "[ckey]")) if(!query.Execute()) message_admins("Error: [query.ErrorMsg()]") log_sql("Error: [query.ErrorMsg()]") qdel(query) return var/validckey = 0 if(query.NextRow()) validckey = 1 qdel(query) if(!validckey) if(!banned_mob || (banned_mob && !IsGuestKey(banned_mob.key))) message_admins("[key_name_admin(usr)] attempted to ban [ckey], but [ckey] has not been seen yet. Please only ban actual players.",1) return var/a_ckey var/a_computerid var/a_ip if(src.owner && istype(src.owner, /client)) a_ckey = src.owner:ckey a_computerid = src.owner:computer_id a_ip = src.owner:address var/who for(var/client/C in clients) if(!who) who = "[C]" else who += ", [C]" var/adminwho for(var/client/C in admins) if(!adminwho) adminwho = "[C]" else adminwho += ", [C]" var/sql = "INSERT INTO erro_ban (`id`,`bantime`,`serverip`,`bantype`,`reason`,`job`,`duration`,`rounds`,`expiration_time`,`ckey`,`computerid`,`ip`,`a_ckey`,`a_computerid`,`a_ip`,`who`,`adminwho`,`edits`,`unbanned`,`unbanned_datetime`,`unbanned_ckey`,`unbanned_computerid`,`unbanned_ip`, `unbanned_notification`) VALUES (null, Now(), '[serverip]', '[bantype_str]', :reason, :job, [(duration)?"[duration]":"0"], [(rounds)?"[rounds]":"0"], Now() + INTERVAL [(duration>0) ? duration : 0] MINUTE, :ckey, :computer_id, :ip, :a_ckey, :a_computerid, :a_ip, :who, :admin_who, '', null, null, null, null, null, 0)" var/datum/DBQuery/query_insert = SSdbcore.NewQuery(sql, list( "reason" = reason, "job" = job, "ckey" = ckey, "computer_id" = computerid, "ip" = ip, "a_ckey" = a_ckey, "a_computerid" = a_computerid, "a_ip" = a_ip, "who" = who, "admin_who" = adminwho, )) if(!query_insert.Execute()) message_admins("Error: [query_insert.ErrorMsg()]") log_sql("Error: [query_insert.ErrorMsg()]") qdel(query_insert) return qdel(query_insert) to_chat(usr, "Ban saved to database.") message_admins("[key_name_admin(usr)] has added a [bantype_str] for [ckey] [(job)?"([job])":""] [(duration > 0)?"([duration] minutes)":""] with the reason: \"[reason]\" to the ban database.",1) /datum/admins/proc/DB_ban_unban(var/ckey, var/bantype, var/job = "") if(!check_rights(R_BAN)) return var/bantype_str if(bantype) var/bantype_pass = 0 switch(bantype) if(BANTYPE_PERMA) bantype_str = "PERMABAN" bantype_pass = 1 if(BANTYPE_TEMP) bantype_str = "TEMPBAN" bantype_pass = 1 if(BANTYPE_JOB_PERMA) bantype_str = "JOB_PERMABAN" bantype_pass = 1 if(BANTYPE_JOB_TEMP) bantype_str = "JOB_TEMPBAN" bantype_pass = 1 if(BANTYPE_APPEARANCE) bantype_str = "APPEARANCE_PERMABAN" bantype_pass = 1 if(BANTYPE_ANY_FULLBAN) bantype_str = "ANY" bantype_pass = 1 if( !bantype_pass ) return var/bantype_sql if(bantype_str == "ANY") bantype_sql = "(bantype = 'PERMABAN' OR (bantype = 'TEMPBAN' AND expiration_time > Now() ) )" else bantype_sql = "bantype = '[bantype_str]'" var/sql = "SELECT id FROM erro_ban WHERE ckey = '[ckey]' AND [bantype_sql] AND (unbanned is null OR unbanned = false)" if(job) sql += " AND job = '[job]'" if(!SSdbcore.Connect()) return var/ban_id var/ban_number = 0 //failsafe var/datum/DBQuery/query = SSdbcore.NewQuery(sql) if(!query.Execute()) message_admins("Error: [query.ErrorMsg()]") log_sql("Error: [query.ErrorMsg()]") qdel(query) return while(query.NextRow()) ban_id = query.item[1] ban_number++; qdel(query) if(ban_number == 0) to_chat(usr, "Database update failed due to no bans fitting the search criteria. If this is not a legacy ban you should contact the database admin.") return if(ban_number > 1) to_chat(usr, "Database update failed due to multiple bans fitting the search criteria. Note down the ckey, job and current time and contact the database admin.") return if(istext(ban_id)) ban_id = text2num(ban_id) if(!isnum(ban_id)) to_chat(usr, "Database update failed due to a ban ID mismatch. Contact the database admin.") return DB_ban_unban_by_id(ban_id) /datum/admins/proc/DB_ban_edit(var/banid = null, var/param = null) if(!check_rights(R_BAN)) return if(!isnum(banid) || !istext(param)) to_chat(usr, "Cancelled") return var/datum/DBQuery/query = SSdbcore.NewQuery("SELECT ckey, duration, reason FROM erro_ban WHERE id = :banid", list("banid" = banid)) if(!query.Execute()) message_admins("Error: [query.ErrorMsg()]") log_sql("Error: [query.ErrorMsg()]") qdel(query) return var/eckey = usr.ckey //Editing admin ckey var/pckey //(banned) Player ckey var/duration //Old duration var/reason //Old reason if(query.NextRow()) pckey = query.item[1] duration = query.item[2] reason = query.item[3] else to_chat(usr, "Invalid ban id. Contact the database admin") qdel(query) return qdel(query) reason = sql_sanitize_text(reason) var/value switch(param) if("reason") if(!value) value = input("Insert the new reason for [pckey]'s ban", "New Reason", "[reason]", null) as null|text value = sql_sanitize_text(value) if(!value) to_chat(usr, "Cancelled") return var/datum/DBQuery/update_query = SSdbcore.NewQuery("UPDATE erro_ban SET reason = :value, edits = CONCAT(edits,:edits) WHERE id = :banid", list( "value" = "[value]", "edits" = "- [eckey] changed ban reason from \\\"[reason]\\\" to \\\"[value]\\\"
", "banid" = banid )) if(!update_query.Execute()) message_admins("Error: [update_query.ErrorMsg()]") log_sql("Error: [update_query.ErrorMsg()]") qdel(update_query) return message_admins("[key_name_admin(usr)] has edited a ban for [pckey]'s reason from [reason] to [value]",1) qdel(update_query) if("duration") if(!value) value = input("Insert the new duration (in minutes) for [pckey]'s ban", "New Duration", "[duration]", null) as null|num if(!isnum(value) || !value) to_chat(usr, "Cancelled") return var/datum/DBQuery/update_query = SSdbcore.NewQuery("UPDATE erro_ban SET duration = :value, edits = CONCAT(edits,:edits), expiration_time = DATE_ADD(bantime, INTERVAL :value MINUTE) WHERE id = :banid", list( "value" = "[value]", "edits" = "- [eckey] changed ban duration from [duration] to [value]
", "banid" = banid, )) message_admins("[key_name_admin(usr)] has edited a ban for [pckey]'s duration from [duration] to [value]",1) if(!update_query.Execute()) message_admins("Error: [update_query.ErrorMsg()]") log_sql("Error: [update_query.ErrorMsg()]") qdel(update_query) return qdel(update_query) if("unban") if(alert("Unban [pckey]?", "Unban?", "Yes", "No") == "Yes") DB_ban_unban_by_id(banid) return else to_chat(usr, "Cancelled") return else to_chat(usr, "Cancelled") return /datum/admins/proc/DB_ban_unban_by_id(var/id) if(!check_rights(R_BAN)) return var/sql = "SELECT ckey FROM erro_ban WHERE id = [id]" if(!SSdbcore.Connect()) return var/ban_number = 0 //failsafe var/pckey var/datum/DBQuery/query = SSdbcore.NewQuery(sql) if(!query.Execute()) message_admins("Error: [query.ErrorMsg()]") log_sql("Error: [query.ErrorMsg()]") qdel(query) return while(query.NextRow()) pckey = query.item[1] ban_number++; qdel(query) if(ban_number == 0) to_chat(usr, "Database update failed due to a ban id not being present in the database.") return if(ban_number > 1) to_chat(usr, "Database update failed due to multiple bans having the same ID. Contact the database admin.") return if(!src.owner || !istype(src.owner, /client)) return var/unban_ckey = src.owner:ckey var/unban_computerid = src.owner:computer_id var/unban_ip = src.owner:address var/sql_update = "UPDATE erro_ban SET unbanned = 1, unbanned_datetime = Now(), unbanned_ckey = '[unban_ckey]', unbanned_computerid = '[unban_computerid]', unbanned_ip = '[unban_ip]' WHERE id = [id]" message_admins("[key_name_admin(usr)] has lifted [pckey]'s ban.",1) var/datum/DBQuery/query_update = SSdbcore.NewQuery(sql_update) if(!query_update.Execute()) message_admins("Error: [query_update.ErrorMsg()]") log_sql("Error: [query_update.ErrorMsg()]") qdel(query_update) return qdel(query_update) /client/proc/DB_ban_panel() set category = "Admin" set name = "Banning Panel" set desc = "Edit admin permissions" if(!holder) return holder.DB_ban_panel() /datum/admins/proc/DB_ban_panel(var/playerckey = null, var/adminckey = null) if(!usr.client) return if(!check_rights(R_BAN)) return if(!SSdbcore.Connect()) to_chat(usr, "Failed to establish database connection") return var/output = "
" output += {"

Banning panel
Add custom ban: (ONLY use this if you can't ban through any other method)
Ban type: Ckey:
Duration: Job:
Reason:
Search: Ckey: Admin ckey:
Please note that all jobban bans or unbans are in-effect the following round."} if(adminckey || playerckey) var/blcolor = "#ffeeee" //banned light var/bdcolor = "#ffdddd" //banned dark var/ulcolor = "#eeffee" //unbanned light var/udcolor = "#ddffdd" //unbanned dark output += {""} adminckey = ckey(adminckey) playerckey = ckey(playerckey) var/adminsearch = "" var/playersearch = "" if(adminckey) adminsearch = "AND a_ckey = :adminckey " if(playerckey) playersearch = "AND ckey = :playerckey " var/datum/DBQuery/select_query = SSdbcore.NewQuery("SELECT id, bantime, bantype, reason, job, duration, expiration_time, ckey, a_ckey, unbanned, unbanned_ckey, unbanned_datetime, edits FROM erro_ban WHERE 1 [playersearch] [adminsearch] ORDER BY bantime DESC", list( "adminckey" = adminckey, "playerckey" = playerckey, )) if(!select_query.Execute()) qdel(select_query) message_admins("Error: [select_query.ErrorMsg()]") log_sql("Error: [select_query.ErrorMsg()]") return while(select_query.NextRow()) var/banid = select_query.item[1] var/bantime = select_query.item[2] var/bantype = select_query.item[3] var/reason = select_query.item[4] var/job = select_query.item[5] var/duration = select_query.item[6] var/expiration = select_query.item[7] var/ckey = select_query.item[8] var/ackey = select_query.item[9] var/unbanned = select_query.item[10] var/unbanckey = select_query.item[11] var/unbantime = select_query.item[12] var/edits = select_query.item[13] var/lcolor = blcolor var/dcolor = bdcolor if(unbanned) lcolor = ulcolor dcolor = udcolor var/typedesc ="" switch(bantype) if("PERMABAN") typedesc = "PERMABAN" if("TEMPBAN") typedesc = "TEMPBAN
([duration] minutes [(unbanned) ? "" : "(Edit))"]
Expires [expiration]" if("JOB_PERMABAN") typedesc = "JOBBAN
([job])" if("JOB_TEMPBAN") typedesc = "TEMP JOBBAN
([job])
([duration] minutes
Expires [expiration]" if("APPEARANCE_PERMABAN") typedesc = "APPEARANCE/NAME BAN" if("OOC_PERMABAN") typedesc = "PERMA OOCBAN" if("OOC_TEMPBAN") typedesc = "TEMP OOCBAN" output += {""} if(edits) output += {""} if(unbanned) output += {""} output += {""} if(playerckey && world.GetConfig("ban", playerckey)) var/list/params = list2params(world.GetConfig("ban", playerckey)) var/admin = params["admin"] var/reason = params["reason"] output += {""} output += {""} output += "
TYPE CKEY TIME APPLIED ADMIN OPTIONS
[typedesc] [ckey] [bantime] [ackey] [(unbanned) ? "" : "Unban"]
Reason: [(unbanned) ? "" : "(Edit)"] \"[reason]\"
EDITS
[edits]
UNBANNED by admin [unbanckey] on [unbantime]
 
STICKYBANNED [playerckey] Time not stored [admin] "Unban"
Reason: \"[reason]\"
 
" qdel(select_query) usr << browse(output,"window=lookupbans;size=900x500")