Dproto 0.9.582

/* AMX Mod script. 
* 
* 
*  1.74.1SL [2007/07/19] by Simon Logic
   ! now '<' & '>' symbols within player names display properly on MOTD
*/ 

#include <amxmod>
#include <amxmisc>
#include <geoip>

new strbuf[33][65]
new g_Buffer[2048]
new logfilename[256]

public admin_banip(id, level, cid) { 
	if (!cmd_access(id, level, cid, 2))
		return PLUGIN_HANDLED
	new ban_time = 0
	new arg[32]
	new ip[16]
	read_argv(1, arg, 31) 
	new player = find_player("d",arg)
	if (!player) {
		player = cmd_target(id,arg,1)
		if (!player) return PLUGIN_HANDLED
		get_user_ip(player,ip,15,1)
	} else {
		copy(ip, 15, arg)
	}
	new ban_times[13] 
	read_argv(2, ban_times, 12) 
	ban_time = str_to_num(ban_times) 
	if(!ban_time) 
		ban_time = 0
	new authid[16], name[32]
	get_user_authid(id,authid,15)
	get_user_name(id,name,31) 
	log_to_file(logfilename,"^"%s<%d><%s><>^" ban ^"%s^" (minutes ^"%i^") (reason ^"^")", name,get_user_userid(id),authid, ip, ban_time)
	new srvcmd[65]
	format(srvcmd, 64, "addip %i %s", ban_time, ip)
	if (ban_time == 0) {
	    server_cmd("addip 0 %s; writeip", ip)
	} else {
	    server_cmd("addip %d %s", ban_time, ip)
	}
	return PLUGIN_HANDLED_MAIN
	
} 

public admin_unbanip(id, level, cid) { 
	if (!cmd_access(id, level, cid, 2))
		return PLUGIN_HANDLED
	new ip[16] 
	read_argv(1, ip, 15) 
	new authid[16], name[32]
	get_user_authid(id,authid,15)
	get_user_name(id,name,31) 
	log_to_file(logfilename,"^"%s<%d><%s><>^" unban ^"%s^" (reason ^"^")", name,get_user_userid(id),authid, ip)
	server_cmd("removeip %s; writeip", ip)
	return PLUGIN_HANDLED_MAIN
	
} 

public admin_ips(id, level, cid) { 
	if (!cmd_access(id, level, cid, 1))
		return PLUGIN_HANDLED
	new players[32], name[64], buf[2048], ip[17]
//	new country[3]
	new i, inum, tmpip, j, pos
	new tmpbuf[65]
	new nip[33]
	get_players(players, inum)
	pos = format(g_Buffer, 2047, "<pre>%16s %-28.27s %6s^n", "nick", "IP address", "country")
	for(i = 0; i < inum; i++) { 
		get_user_name(players[i], name, sizeof(name)-1)
		if(contain(name, "<") >= 0)
			replace(name, sizeof(name)-1, "<", "&lt;")
		if(contain(name, ">") >= 0)
			replace(name, sizeof(name)-1, ">", "&gt;");

		get_user_ip(players[i], ip, 16, 1)
//		geoip_code2(ip, country)
		nip[i] = ip_to_number(ip)
//		format(strbuf[i], 64,"%16s %-28.27s %6s^n", name, ip, country)
		format(strbuf[i], 64,"%16s %-28.27s N/A^n", name, ip)
//		format(strbuf[i], 64, "%s ... %s .. %s^n", name, ip, country)
	}
	for(i = 0; i < inum - 1; i++) { 
		for (j = i + 1; j < inum; j++) {
			if (nip[j] < nip[i]) {
				copy(tmpbuf, 64, strbuf[i])
				tmpip = nip[i]
				strbuf[i][0] = 0
				
				copy(strbuf[i], 64, strbuf[j])
				nip[i] = nip[j]
				strbuf[j][0] = 0
				
				copy(strbuf[j], 64, tmpbuf)
				nip[j] = tmpip
				tmpbuf[0] = 0
			}
		}
	}
	
	for(i = 0; i < inum; i++) { 
		pos += format(g_Buffer[pos], 2047 - pos, "%s", strbuf[i])
	}
	format(g_Buffer[pos],2047-pos,"</pre>")
	if (id == 0) {
		console_print(id, buf)
	} else { 
		show_motd(id, g_Buffer, "Player's IP")
	}
	return PLUGIN_HANDLED_MAIN
} 

public admin_ipl(id, level, cid) { 
	if (!cmd_access(id, level, cid, 1))
		return PLUGIN_HANDLED
	new buf[2049], ip[33], temp[65]
	new len
	if (file_exists("listip.cfg")) {
	    for(new i=0; i < 100 && read_file("listip.cfg", i, ip, 32, len) != 0; i += 1) {
		read_file("listip.cfg", i, ip, 32, len)
		format(temp, 32, "%s ^n", ip)
		add(buf, 2048, temp)
	    }
	} 
	show_motd(id, buf, "Banned IP")
	return PLUGIN_HANDLED_MAIN
} 

public plugin_init() 
{ 
	register_plugin("IPTools", "1.74.1SL", "SYZo") 
	register_concmd("amx_ips", "admin_ips", ADMIN_BAN) 
	register_clcmd("amx_ipl", "admin_ipl", ADMIN_BAN) 
//	register_concmd("amx_banip", "admin_banip", ADMIN_BAN, "<ip address | nick> [time]") 
//	register_concmd("amx_unbanip", "admin_unbanip", ADMIN_BAN,"<ip address>") 
	get_time("addons/amxx/logs/admin%m%d.log", logfilename, 255)
	return PLUGIN_CONTINUE 
} 

ip_to_number(userip[17]) 
{
    new ipb1[12]
    new ipb2[12]
    new ipb3[12]
    new ipb4[12]
    new ip
    new nipb1
    new nipb2
    new nipb3
    new nipb4
    new uip[16]
    copy(uip, 16, userip)
    while(replace(uip, 16, ".", " ")){}
    parse(uip, ipb1, 12, ipb2, 12, ipb3, 12, ipb4, 12)
    nipb1 = strtonum(ipb1)
    nipb2 = strtonum(ipb2)
    nipb3 = strtonum(ipb3)
    nipb4 = strtonum(ipb4)
    ip = ((((nipb1 * 256) + nipb2) * 256) + nipb3) + ((((((nipb1 * 256) + nipb2) * 256) + nipb3) * 255) + nipb4)    
    return ip
}