proxycheck.tcl
No OneTemporary
Actions

Size

2 KB

Referenced Files

None

Subscribers

None

proxycheck.tcl
View Options

	# open proxy checker for eggdrop
	# (c) James Seward 2003-6
	# version 1.11

	# http://www.jamesoff.net/site/projects/eggdrop-scripts/proxycheck
	# james@jamesoff.net

	# Released under the GPL

	set proxycheck_rbls [registry get proxycheck.rbls]
	set proxycheck_bantime [registry get proxycheck.bantime]

	#add our channel flag
	setudef flag proxycheck

	#bind our events
	bind join - !@* proxycheck_join

	#cache
	set proxycheck_lastip ""

	#swing your pants

	# catch joins
	proc proxycheck_join { nick host handle channel } {
	#check we're active
	if {![channel get $channel proxycheck]} {
	return 0
	}

	#don't apply to friends, voices, ops
	if {[matchattr $handle fov\|fov $channel]} {
	return 0
	}

	#get the actual host
	regexp ".+@(.+)" $host matches newhost
	if [regexp {[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $newhost] {
	#it's a numeric host, skip the lookup
	proxycheck_check2 $newhost $newhost 1 $nick $newhost $channel 1
	proxycheck_check2 $newhost $newhost 1 $nick $newhost $channel 0
	} else {
	putloglev d * "proxycheck: doing dns lookup on $newhost to get IP"
	dnslookup $newhost proxycheck_check2 $nick $newhost $channel
	}
	}

	# first callback (runs RBL checks)
	proc proxycheck_check2 { ip host status nick orighost channel {reverse 1} } {
	global proxycheck_rbls proxylookup_rbls

	if {$status == 1} {
	putloglev d * "proxycheck: $host resolves to $ip"

	# extract the IP
	regexp {([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3})} $ip matches a b c d
	if $reverse {
	set newip "$d.$c.$b.$a"
	} {
	set newip "$a.$b.$c.$d"
	}

	# look it up in the rbls
	foreach rbl $proxycheck_rbls {
	putloglev d * "proxycheck: looking up $newip.$rbl"
	dnslookup "$newip.$rbl" proxycheck_check3 $nick $host $channel $rbl
	}
	}
	}

	# second callback (catches RBL results)
	proc proxycheck_check3 { ip host status nick orighost channel rbl } {
	global proxycheck_bantime proxycheck_lastip

	if {$status} {
	if {$ip == $proxycheck_lastip} {
	putloglev d * "proxycheck: $host = $ip appears in RBL $ip, but I've already seen this one."
	return 0
	}
	set proxycheck_lastip $ip
	putloglev d * "proxycheck: got host $host = ip $ip from RBL $rbl ... banning"
	putlog "proxycheck: $nick ($orighost) is listed in $rbl ... banning from $channel"
	newchanban $channel "*@$orighost" "proxychk" "proxycheck: $rbl" $proxycheck_bantime
	}
	#if we didn't get a host, they're not in RBL
	}

File Metadata

Mime Type: text/plain
Expires: Sat, Jan 31, 17:43 (22 h, 17 m)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 3377240
Default Alt Text: proxycheck.tcl (2 KB)

proxycheck.tclNo OneTemporaryActions

proxycheck.tclView Options

File Metadata

Event Timeline

proxycheck.tcl
No OneTemporary
Actions

proxycheck.tcl
View Options