why this portscan makes my eggdrop laggie

[SirDon]

Hello

i have tried this script on allmost 13 boxies and this scripts make my eggdrop laggie.here is the code please can somebody help me with this?

Code: Select all

putlog "loaded portcheck - Gh0st@Dalnet"

set banports {
  1080
  3128
  8080
  6588
  7212
  32167
  
}

set checkchans {
  #Chan
}

# set bantext "Proxys are not allowed."

# set onjoin "Scanning for open proxies, please discard any warnings on your firewall"

bind join - * prox_join

proc prox_join {nick uhost hand chan} {
  global banports checkchans
  set bchan [string tolower $chan]
  if {[lsearch -exact $checkchans $chan] == -1} {return 1}
  set host [lindex [split $uhost @] 1]
  foreach a $banports {
   catch {socket $host $a} p
   if {([string range $p 0 3] == "sock") && ([lindex $p 1] == "")} {
     utimer 2 [list prox:t $nick $host $chan $a]
     close $p
     break
    }
  }
}


proc prox:t {nick host chan a} {
  if {[botisop $chan] && [onchan $nick $chan] && ![isbotnick $nick] && ![isop $nick $chan]} {
    putlog "### Kicking $nick on channel $chan for an open port $a"
    putserv "NOTICE $nick :You have been kicked due to port $a being open."
    pushmode $chan +b *!*@$host
    putserv "kick $chan $nick :Open Proxies are not allowed in the channel !"
  }
}

Regards

[demond]

because the script is lame

don't use it

[caesar]

user had posted a long time ago a script that would check for open ports (or something like this, anyway, it could be *updated* to do whatever you wish) without making it block. Check the Search function.