# 
# 
#  __      __  __                  ______     
# /\ \    /\ \/\ \                /\  _  \    
# \ \ \/'\\ \ `\\ \    ___     ___\ \ \_\ \   
#  \ \ , < \ \ , ` \  / __`\  /'___\ \  __ \  
#   \ \ \\`\\ \ \`\ \/\ \_\ \/\ \__/\ \ \/\ \ 
#    \ \_\ \_\ \_\ \_\ \____/\ \____\\ \_\ \_\
#     \/_/\/_/\/_/\/_/\/___/  \/____/ \/_/\/_/
# 
#   __ __    ______          __      ____                 ____                 ___      
#  _\ \\ \__/\__  _\        /\ \    /\  _`\    __        /\  _`\           __ /\_ \      
# /\__  _  _\/_/\ \/     ___\ \ \___\ \ \_\ \ /\_\    ___\ \ \_\_\     __ /\_\\//\ \    
# \/__\ \\ \__ \ \ \    /'___\ \  _ `\ \  _ <'\/\ \ /' _ `\ \ \  __  /'__`\/\ \ \ \ \   
#   /\_   _  _\ \_\ \__/\ \__/\ \ \ \ \ \ \_\ \\ \ \/\ \/\ \ \ \/, \/\  __/\ \ \ \_\ \_ 
#   \/_/\_\\_\/ /\_____\ \____\\ \_\ \_\ \____/ \ \_\ \_\ \_\ \____/\ \____\\ \_\/\____\
#      \/_//_/  \/_____/\/____/ \/_/\/_/\/___/   \/_/\/_/\/_/\/___/  \/____/ \/_/\/____/
# 
# 
#                   kNocA #IchBinGeil @ QuakeNet irc.quakenet.org
# 
# 
#
# ---------------------------------------------------------------------------------------
# Info:
# ---------------------------------------------------------------------------------------
#
# Zu diesem Script wir kein Support gestellt! Es nutzt also nichts, wenn ihr
# #IchBinGeil, #sicherheit, #sicherheit.help oder andere Channes joint um Fragen
# bezüglich dieses Scripts beantwortet zu bekommen.
# 
# Falls es nicht funktioniert, Pjens kickt, die keine sind, etc... ist das 
# euer Problem.
# 
# ---------------------------------------------------------------------------------------
 
### BINDinGS
 
	bind JOIN 	- 	*			pjen:join
	bind PUB 	nm 	?trojan			pjen:pub
 
	bind PUB 	- 	\$trojan			pjen:pub:public
	bind PUB 	- 	?trojans		pjen:stats
	bind MSG 	- 	DELME			pjen:remove
	bind MSGM	-	*			pjen:advert
	bind NICK 	- 	*			pjen:nickchange
 
### SETTINGS
 
	set pjen(version)		"0.9.3"
	set pjen(source)		{ "cbl.abuseat.org" "opm.blitzed.org" "dnsbl.ahbl.org" "list.dsbl.org" "sbl.csma.biz" "dnsbl.njabl.org" }
 
	set pjen(kickmsg)		{ 
						" 0,1« 12:0:12:0,1 » Trojan Detected! Please Check Your Brains With Virus Scanner!  0,1« 12:0:12:0,1 » ID: :id:  0,1« 12:0:12:0,1 »"
"0,1« 12:0:12:0,1 » TrOjAn! If you think something is wrong, I dont care! 0,1« 12:0:12:0,1 » ID: :id: 0,1« 12:0:12:0,1 »"	
"0,1« 12:0:12:0,1 » Owned (*.quakenet.org (Trojan drone detected, ID: :id:)) 0,1« 12:0:12:0,1 »"
"0,1« 12:0:12:0,1 » G-lined: You are infected with a trojan, please clean your brains. ID: :id:  0,1« 12:0:12:0,1 »"
"0,1« 12:0:12:0,1 » G-lined: You are infected with a trojan, please reinstall your operating system. ID: :id:  0,1« 12:0:12:0,1 »"
"0,1« 12:0:12:0,1 » Another Trojan Detected! Please Upgrade Your Brains To Latest Version! ID: :id:  0,1« 12:0:12:0,1 »"
					}
 
	set check(cons) 		"bcdfghjklmnpqrstvxyz"
	set check(good)		"tt ll ss"
	set check(affixture) 	"off bnc \[ \] afk"
 
	set pjen_start 1205693591
 
    	array set aspb {
      		"trigger"    		"\$aspb"
      		"version"    		"1.0.2.9"
      		"author"     		"Alexander Martin 'am' and teh monkey Arou (#xela)"
      		"address"    		"arou.mine.nu"
      		"port"       		"33"
      		"path"       		"not set"
      		"password"   		"616C6578"
      		"autoupdate" 		"1"
      		"autodrone"  		"1"
    	}
 
	setudef flag pjenscan		;# Schalten den Check ein.
	setudef flag pjenban			;# Pjens werden nicht nur gekickt, auch gebannt.
	setudef flag onechannel		;# Checkt ob der User nur in einem Channel ist, wenn JA kick.
	setudef flag addall			;# Bei OneChannel-Check werden auch die hosts geaddet.
	setudef str since	
	setudef str pjencounter
	setudef str pjenkickmsg
 
	source scripts/dynamicip.tcl
source lib/tcl8.4/http2.5/http.tcl
 
package require http
	if {![file exists whitelist.txt]} { close [open whitelist.txt a+] }
 
### TEH SCRIPT
 
proc pjen:pub { nick host hand chan arg } {
 
	global pjen
 
	set function [string tolower [lindex $arg 0]]
 
	switch $function {
 
		add {
 
			set target 		[lindex $arg 1]
 
			if {[onchan $target $chan]} {
				pjen:kick $target $chan [getchanhost $target $chan]
			} elseif {[string match *@* $target]} {
				dnslookup [lindex [split $target @] 1] pjen:isadded $nick $host $chan
				putquick "PRIVMSG $chan :4,15::::15,15 14,15Trojan 4,15::::::14,15 14,15 $target 4,15::::::14,15 Added to database 4,15::::14,15"
			} else {
				putserv "NOTICE $nick :Cannot add."
			}
		}
 
		del {
 
			set target 		[lindex $arg 1]
 
			dnslookup [lindex [split $target @] 1] pjen:mysqldel $nick $host
	putquick "PRIVMSG $chan :4,15::::15,15 14,15Trojan 4,15::::::14,15 14,15 $target 4,15::::::14,15 Removed from database 4,15::::14,15"
 
		}
 
		check {
 
			set modus [lindex $arg 1]
 
			if {$modus == "on"} {
 
				channel set $chan +pjenscan
				putserv "NOTICE $nick :Done."
 
			} elseif {$modus == "off"} {
 
				channel set $chan -pjenscan
				putserv "NOTICE $nick :Done."
 
			} else {
 
				set ip			[lindex $arg 1]
				set file 		[open pjen.txt r]
 
				while {[eof $file] != 1} {
 
					set line [gets $file]
					if {[string match *[lindex $line 0]* $ip] && $line != ""} {
 
						close $file
 
					putquick "PRIVMSG $chan :4,15::::15,15 14,15Trojan 4,15::::::14,15 14,15 $ip 4,15::::::14,15 Is in database 4,15::::14,15"
						return
					}
				}
 
				close $file
 
				putquick "PRIVMSG $chan :4,15::::15,15 14,15Trojan 4,15::::::14,15 14,15 $ip 4,15::::::14,15 Is not in database 4,15::::14,15"
 
			}
		}
 
		info {
 
			set number 	0
			set number2	0
			set number3	0
			set file 	[open pjen.txt r]
			while {[eof $file] != 1} {
 
				set line [gets $file]
 
				if {[lindex [split [lindex $line 0] .] 3] == "*"} { incr number 255
 
				} elseif {[lindex [split [lindex $line 0] .] 2] == "*"} { incr number [expr 255 * 255]
 
				} elseif {[lindex [split [lindex $line 0] .] 1] == "*"} { incr number [expr 255 * 255 * 255]
 
				} elseif {$line != ""} { incr number }
 
				if {$line != ""} { incr number2 }
			}
			close $file
 
			set file 	[open whitelist.txt r]
			while {[eof $file] != 1} {
 
				set line [gets $file]
 
				if {$line != ""} { incr number3 }
			}
			close $file
 
			putlog "AntiPjen ver. $pjen(version) by kNocA. [dot $number] ips in database ([dot $number2] lines)."
			putserv "privmsg $chan :4,15::::15,15 14,15[dot $number2] Trojans in database 4,15::::::14,15 14,15[dot $number3] whitelisted hosts 4,15::::14,15"
 
 
 
		}
 
		default {
 
			putserv "NOTICE $nick :Use: ?trojan add/info/del/check"
 
		}
	}
}
 
proc pjen:pub:public { nick host hand chan arg } {
 
	global floodprot
 
	if {[info exists floodprot($chan)]} { return }
 
	set floodprot($chan) 1
	utimer 10 [list unset floodprot($chan)]
 
	if {[isop $nick $chan] || [onchan $nick #sicherheit.bots]} { 
 
		set function [string tolower [lindex $arg 0]]
 
		switch $function {
 
			onechannel {
				if {[channel get $chan onechannel]} {
					channel set $chan -onechannel
					putserv "PRIVMSG $chan :4,1¬0 onechannel disabled. 4¬"
				} else {
					channel set $chan +onechannel
					putserv "PRIVMSG $chan :4,1¬0 onechannel enabled. 4¬"
				}
			}
 
			ban {
				if {[channel get $chan pjenban]} {
					channel set $chan -pjenban
					putserv "PRIVMSG $chan :4,1¬0 Bot doesnt ban drones when they join. 4¬"
				} else {
					channel set $chan +pjenban
					putserv "PRIVMSG $chan :4,1¬0 Bot bans drones when they join. 4¬"
				}
			}
 
			kickmsg {
				set text [lrange [encrype $arg] 1 end]
 
				regsub -all {\003[\d]{0,2}(,[\d]{0,2})?|\002|\037|\017|\026|\006|\007|\t|\n} $text "" text
 
				if {$text != ""} {
					channel set $chan pjenkickmsg $text
					putserv "NOTICE $nick :Kickmsg successfully set."
				} else { return }
			}
		}
	}
}
 
proc pjen:remove { nick host hand arg } {
 
	global pjen
 
	if {[info exists pjen($host,delme)]} { return }
 
	set pjen($host,delme) 1
	utimer 120 [list unset pjen($host,delme)]
 
	pjen:whitelist:add $host
	dnslookup [lindex [split $host @] 1] pjen:mysqldel $nick $host
 
      	if {[valididx [set idx [aspbgbl:connection $::aspb(address)]]]} {
       	putdcc $idx "cmd=008 $nick!$host"
      	}      	
 
	putserv "NOTICE $nick :You are deleted from our database now."
	return
}
 
proc pjen:advert { nick host hand arg } {
 
	global pjens
 
	regsub -all {\003[\d]{0,2}(,[\d]{0,2})?|\002|\037|\017|\026|\006|\007|\t|\n} $arg "" arg
 
	if {[string match *www.* [string tolower $arg]] || [string match *.jpg* [string tolower $arg]] || [string match *sex* [string tolower $arg]] || [string match *.exe* [string tolower $arg]]} {
 
		foreach chan [channels] {
			if {[onchan $nick $chan]} {
 
				set pjens($nick,$chan)	1
				utimer 120 [list unset pjens($nick,$chan)]
				channel set $chan pjencounter [expr [channel get $chan pjencounter] + 1]
 
				putlog "pjen-scan: (Msg) [decrype $nick] aus $chan schickt mir Porn msgs."
				if {[botisop $chan]} {
					if {[channel get $chan pjenban] && [lindex [split $host @] 1] != ""} { putquick "MODE $chan +b *!*@[lindex [split $host @] 1]"; utimer 30 [list  putserv "MODE $chan -b *!*@[lindex [split $host @] 1]"] }
					putquick "KICK $chan [decrype $nick] :[kickmsg $chan]" 
				}
				if {[channel get $chan addall]} {
					dnslookup [lindex [split $host @] 1] pjen:isadded $nick $host $chan
				}
			}
		}
	}
}
 
proc pjen:stats { nick host hand chan arg } {
 
	global floodprot pjen_start
 
	if {[info exists floodprot($chan)]} { return }
 
	set floodprot($chan) 1
	utimer 10 [list unset floodprot($chan)]
 
	set pjens 0
 
	foreach channel [channels] {
 
		if {[channel get $channel pjencounter] != ""} {
			incr pjens [channel get $channel pjencounter]
		} else {
			channel set $channel pjencounter 0
		}
	}
 
	if {[lindex [split [expr ([unixtime] - [channel get $chan since]) / 86400.] .] 0] != 0} {
 
		set channel_per_day		[split [expr [channel get $chan pjencounter] / [expr ([unixtime] - [channel get $chan since]) / 86400.]] .]
		set channel_per_day		"[lindex $channel_per_day 0].[string index [lindex $channel_per_day 1] 0]"
 
	} else {
 
		set channel_per_day		[channel get $chan pjencounter]
 
	}
 
	if {[lindex [split [expr ([unixtime] - $pjen_start) / 86400.] .] 0] != 0} {
 
		set total_per_day		[split [expr $pjens / [expr ([unixtime] - $pjen_start) / 86400.]] .]
		set total_per_day		"[lindex $total_per_day 0].[string index [lindex $total_per_day 1] 0]"
 
	} else {
 
		set total_per_day		$pjens
 
	}
 
	putserv "PRIVMSG $chan :9,1«0•9,1» [dot [channel get $chan pjencounter]] Trojans founded on this chan ($channel_per_day per day) since [dur [expr [unixtime] - [channel get $chan since]]] 9,1«0•9,1» Total of [dot $pjens] trojans found ($total_per_day per day) since [dur [expr [unixtime] - $::pjen_start] -full] 9,1«0•9,1»"
}
 
proc pjen:join { nick host hand chan } {
 
	global pjens pjen pjen_nickchange
 
	if {[lsearch -exact [channel info $chan] +pjenscan] < 0} { return }
	if {$nick == $::botnick || [string match *quakenet.org $host] || [pjen:whitelist:check $host]} { return }
	if {[info exists pjens([encrype $nick],$chan)]} {
 
		putserv "NOTICE $nick :You are not a Trojan-Drone? Please Auth yourself by Q or type: /msg $::botnick DELME"
		return
 
		dnslookup [lindex [split $host @] 1] pjen:mysqldel $nick $host 
		return
	}
 
	if {[channel get $chan pjencounter] == ""} {
		channel set $chan pjencounter 0
	}
 
	set pjens(authcheck,[encrype $nick],chan)		[encrype $chan]
	set pjens(authcheck,[encrype $nick],host)		[encrype $host]
 
	set pjen_nickchange($nick)				$chan
	utimer 2 [list unset pjen_nickchange($nick)]
 
	catch { bind raw - 330 pjen:check:auth }
	catch { bind raw - 319 pjen:check:auth }
	catch { bind raw - 318 pjen:check:auth }
 
	putquick "WHOIS $nick" -next
}
 
proc pjen:check:auth {from raw arg} {
 
	global pjens pjen
 
     	set nick 	[string trim [lindex [split [encrype $arg]] 1]]
 
	if {$raw == 319} {
		set pjens(whois,channels,$nick)	[llength [lrange $arg 2 end]]
		return
	} elseif {$raw == 330} {
		set pjens(whois,auth,$nick)		[encrype [string trim [lindex [split $arg] 2]]]
		return
	} elseif {$raw == 318} {
 
		catch { unbind raw - 330 pjen:check:auth }
		catch { unbind raw - 319 pjen:check:auth }
		catch { unbind raw - 318 pjen:check:auth }
 
		set chan 	[decrype $pjens(authcheck,$nick,chan)]
		set host 	[decrype $pjens(authcheck,$nick,host)]
 
		if {![info exists pjens(whois,auth,$nick)]} {
			set auth 0
		} else {
			set auth 1
		}
 
		if {!$auth} {
 
			if {[regexp {[0-9]{2}$} [decrype $nick]] && [string is upper [string index [decrype $nick] 0]] && [string is lower [string range [decrype $nick] 1 [expr [string length [decrype $nick]] -3]]]} {
 
				set pjens($nick,$chan)	1
				utimer 120 [list unset pjens($nick,$chan)]
				channel set $chan pjencounter [expr [channel get $chan pjencounter] + 1]
 
				putlog "pjen-scan: (Check) [decrype $nick] in $chan hat Zahlen am Ende des Nicks."
 
				if {[botisop $chan]} {
					if {[channel get $chan pjenban] && [lindex [split $host @] 1] != ""} { putquick "MODE $chan +b *!*@[lindex [split $host @] 1]"; utimer 30 [list  putserv "MODE $chan -b *!*@[lindex [split $host @] 1]"] }
					putquick "KICK $chan [decrype $nick] :[kickmsg $chan]" 
				}
 
				dnslookup [lindex [split $host @] 1] pjen:isadded $nick $host $chan
 
				if {[channel get $chan addall]} {
#					dnslookup [lindex [split $host @] 1] pjen:isadded $nick $host $chan
				}
				return
			}
 
			if {[channel get $chan onechannel]} {
 
				if {$pjens(whois,channels,$nick) == 1} {
 
					set pjens($nick,$chan)	1
					utimer 120 [list unset pjens($nick,$chan)]
					channel set $chan pjencounter [expr [channel get $chan pjencounter] + 1]
 
					putlog "pjen-scan: (Check) [decrype $nick] aus $chan ist nur in einem Channel."
					if {[botisop $chan]} {
						if {[channel get $chan pjenban] && [lindex [split $host @] 1] != ""} { putquick "MODE $chan +b *!*@[lindex [split $host @] 1]"; utimer 30 [list  putserv "MODE $chan -b *!*@[lindex [split $host @] 1]"] }
						putquick "KICK $chan [decrype $nick] :[kickmsg $chan]" 
					}
					if {[channel get $chan addall]} {
						dnslookup [lindex [split $host @] 1] pjen:isadded $nick $host $chan
					}
					return
				}
			}
 
			set file 		[open pjen.txt r]
 
			while {[eof $file] != 1} {
 
				set line [gets $file]
 
				if {$line != ""} {
 
					if {[lindex [split [lindex $line 0] .] 0] == "*"} {
						if {[string match "%*[lindex $line 0]%" "%$host%"] && $host != ""} {
							close $file
							pjen:kick:without:add $nick $host $chan [lindex $line 0] "1/1"
							return
						}
					} elseif {[lindex [lindex $line 0] end] == "*"} {
						if {[string match "%[lindex $line 0]*%" "%$host%"] && $host != ""} {
							close $file
							pjen:kick:without:add $nick $host $chan [lindex $line 0] "1/2"
							return
						}
					} else {
						if {[string match *[lindex $line 0]* $host]} {
							if {$host != ""} {
								close $file
								pjen:kick:without:add $nick $host $chan [lindex $line 0] "1/3"
								return
							}
						}
					}
				}
			}
 
			close $file
 
			dnslookup [lindex [split $host @] 1] pjen:mysqlcheck $nick $host $chan
 
      		} else {
 
			if {![isdynamicip [lindex [split $host @] 1]]} { pjen:whitelist:add $host }
 
		}
	}
}
 
proc pjen:mysqlcheck { ip host moo nick host2 chan } {
 
	global pjens pjen
 
	set file 		[open pjen.txt r]
 
	while {[eof $file] != 1} {
 
		set line [gets $file]
		if {$line != ""} {
 
			if {[lindex [split [lindex $line 0] .] 0] == "*"} {
				if {[string match "%*[lindex $line 0]%" "%$host%"] && $host != ""} {
					close $file
					pjen:kick:without:add $nick $ip $chan [lindex $line 0] "2/1"
					return
				}
				if {[string match "%*[lindex $line 0]%" "%$ip%"] && $ip != "0.0.0.0"} {
					close $file
					pjen:kick:without:add $nick $ip $chan [lindex $line 0] "2/2"
					return
				}
			} elseif {[lindex [lindex $line 0] end] == "*"} {
				if {[string match "%[lindex $line 0]*%" "%$host%"] && $host != ""} {
					close $file
					pjen:kick:without:add $nick $ip $chan [lindex $line 0] "2/3"
					return
				}
				if {[string match "%[lindex $line 0]*%" "%$ip%"] && $ip != "0.0.0.0"} {
					close $file
					pjen:kick:without:add $nick $ip $chan [lindex $line 0] "2/4"
					return
				}
			} else {
				if {([string match [lindex $line 0] $host] || [string match [lindex $line 0] $ip])} {
					if {$host != ""} {
						close $file
						pjen:kick:without:add $nick $ip $chan [lindex $line 0] "2/5"
						return
					}
					if {$ip != "0.0.0.0"} {
						close $file
						pjen:kick:without:add $nick $ip $chan [lindex $line 0] "2/6"
						return
					}
				}
			}
		}
	}
 
	close $file
 
    	regexp {([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3})} $ip -> part1 part2 part3 part4
    	set newip "$part4.$part3.$part2.$part1"
  
	if {$newip != "0.0.0.0"} {
 
    		foreach proxylist $pjen(source) {
      			dnslookup "$newip.$proxylist" pjen:dns:from:source $nick $ip $host $host2 $chan $proxylist
    		}
	} else {
		pjen:aspbcheck $nick $host2 $chan
	}
}
 
proc pjen:kick:without:add { nick host chan entry check } {
 
	global pjens pjen
 
	set pjens($nick,$chan)	1
	utimer 120 [list unset pjens($nick,$chan)]
	channel set $chan pjencounter [expr [channel get $chan pjencounter] + 1]
 
	putlog "pjen-scan: (Check) Host (db-entry: $entry) von $nick in $chan wurde schon mal als Pjen erkannt. ($check)"
 
	if {[botisop $chan]} {
		if {[channel get $chan pjenban] && [lindex [split $host @] 1] != ""} { putquick "MODE $chan +b *!*@[lindex [split $host @] 1]"; utimer 30 [list  putserv "MODE $chan -b *!*@[lindex [split $host @] 1]"] }
		putquick "KICK $chan [decrype $nick] :[kickmsg $chan]" 
	}
 
	return
}
 
proc pjen:dns:from:source {ip hostname status nickname oip realhost originalhost channel rbl } {
 
	global pjen pjens
 
   	if {$status} {
 
    		if [regexp {[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $originalhost] {
 
			set pjens($nickname,$channel)	1
			utimer 120 [list unset pjens($nickname,$channel)]
 
			putlog "pjen-scan: (Check) [decrype $nickname] in $channel ist ein proxy ($oip)."
			pjen:kick $nickname $channel $oip
 
			return
 
    		} else {
 
			set pjens($nickname,$channel)	1
			utimer 120 [list unset pjens($nickname,$channel)]
 
			putlog "pjen-scan: (Check) [decrype $nickname] in $channel ist ein proxy ($oip)."
			pjen:kick $nickname $channel $oip
 
			return
    		}
   	}
 
	if {$rbl == "dnsbl.ahbl.org"} {
		pjen:aspbcheck $nickname $originalhost $channel
	}
}
 
proc pjen:aspbcheck { nick host chan } {
 
	if {![valididx [set idx [aspbgbl:connection $::aspb(address)]]]} {
        	return
      	}
 
      	set idler    0
      	set operator 0
      	set voice    0
      	foreach user [chanlist $chan] {
        	if {[isop $user $chan]} {
          		incr operator 1
        	} elseif {[isvoice $user $chan]} {
          		incr voice 1
        	}
        	incr idler 1
      	}
 
	putdcc $idx "cmd=003 [decrype $nick]!$host $chan $idler $operator $voice"
}
 
proc pjen:kick { nick chan host } {
 
	global pjen
 
	channel set $chan pjencounter [expr [channel get $chan pjencounter] + 1]
 
	if {[botisop $chan]} {
		if {[channel get $chan pjenban] && [lindex [split $host @] 1] != ""} { putquick "MODE $chan +b *!*@[lindex [split $host @] 1]"; utimer 30 [list  putserv "MODE $chan -b *!*@[lindex [split $host @] 1]"] }
		putquick "KICK $chan [decrype $nick] :[kickmsg $chan]" 
	}
 
	dnslookup [lindex [split $host @] 1] pjen:add2mysql $chan
}
 
proc aspbgbl:connection { address } {
 	foreach socket [dcclist] {
        	if {[string equal -nocase $address [lindex [split $socket] 2]]} {
          		return [lindex [split $socket] 0]
        	}
      }
 
      if {![valididx [set idx [connect $::aspb(address) $::aspb(port)]]]} {
        	return -1
      }
 
      set enabled ""; set scan 0
 
      foreach channel [channels] {
        	if {[channel get $channel "pjenscan"]} {
          		lappend enabled +$channel
          		incr scan 1
        	}          
      }
 
      if {![info exists ::network]} {
        	set netz $::server
      } else {
        	set netz $::network
      }
 
      	putdcc $idx "cmd=001 me=$::botname owners=moo chans=[join $enabled ","] ver=$::aspb(version) pass=$::aspb(password) author=[encrypt author $::aspb(author)] bottype=eggdrop[package require eggdrop] network=$netz drone=$scan"
      	control $idx aspbgbl:database
      	set ::aspb(timer) [utimer 30 [list aspbgbl:kill:connection $idx]]
      	return $idx
}
 
proc aspbgbl:kill:connection { idx } {
      	catch { killdcc $idx }
}
 
proc aspbgbl:database { idx arguments } {
 
	global pjens pjen
 
      if {[info exists ::aspb(timer)] && $arguments != ""} {
        	catch { killutimer $::aspb(timer) }; unset ::aspb(timer)
      }
 
      	foreach argument $arguments {
        	if {![regexp -- {^(.+?)=(.+?)$} $argument -> variable value]} {
          		continue
        	}
        	set $variable $value
      	}
 
      	if {![info exists cmd] || $cmd == ""} {
        	return
      	}
 
      	if {$cmd == "004"} {
 
		set host 	[decrype $pjens(authcheck,$nick,host)]
 
		if {[onchan [decrype $nick] $chan]} {
 
			set pjens($nick,$chan)	1
			utimer 120 [list unset pjens($nick,$chan)]
			channel set $chan pjencounter [expr [channel get $chan pjencounter] + 1]
 
			if {[channel get $chan pjenban] && [lindex [split $host @] 1] != ""} { putquick "MODE $chan +b *!*@[lindex [split $host @] 1]"; utimer 30 [list  putserv "MODE $chan -b *!*@[lindex [split $host @] 1]"] }
        		putquick "KICK $chan [decrype $nick] :[kickmsg $chan]" 
			putlog "pjen-scan: (Check) $nick in