load_ywhitelist()
		if (!fexists(WHITELIST_FILE)) //Doesn't it exists?
			text2file(null, WHITELIST_FILE) //CREATE IT
		y_whitelist = file2list(WHITELIST_FILE)

	isInWhitelist(var/K)
		K = ckey(K)
		if (K in y_whitelist)
			return 1
		return 0

	addInWhitelist(var/K as text)
		K = ckey(K)
		if (isInWhitelist(K))
			return 0
		text2file(K, WHITELIST_FILE)
		y_whitelist += K
		return 1

	removeFromWhitelist(var/K as text)
		K = ckey(K)
		if (K in y_whitelist)
			y_whitelist -= K
			fdel(WHITELIST_FILE)
			text2file(dd_list2text(y_whitelist, "\n"), WHITELIST_FILE) //Goddamn BYOND.
			return 1
		return 0