####
# AUTHOR:
#	AltBlue <altblue@n0i.net> http://altblue.n0i.net
###
# DESCRIPTION:
#	spoofs users' IRC hostmasks based on Hybrid extensions
#   (ofc, needs bot ircop status)
###
# CHANGELOG:
#	* 2002.02.03:
#		- first version
####
set ab_spoof(host)		"n0i.net"
set ab_spoof(flag)		"f"
set ab_spoof(chkpass)	0

bind msg -|- spoof spoof:msg_spoof

proc spoof:msg_spoof {nick uhost hand arg} {
	global botnick ab_spoof
	putlog "SPOOF Request from: $nick!$uhost"
	if {$hand == "*"} {
		putserv "NOTICE $nick :I don't know you!"
		return 0
	}
	if { ![matchattr $hand $ab_spoof(flag)] } {
		putserv "NOTICE $nick :You're not allowed to use this service!"
		return 0
	}
	if { $ab_spoof(chkpass) == 1 } {
    	set pass [lindex [split $arg] 0]
    	if { ![passwdok $hand $pass] } {
    		putserv "NOTICE $nick :Password mismatch!"
    		return 0
    	}
	}

	set real_handle [getuser $hand HANDLE]
	putlog "SPOOFING $hand to $real_handle@$ab_spoof(host)"
	putserv "SETIDENT $nick $real_handle"
	putserv "SETHOST $nick $ab_spoof(host)"
}