egghelp/eggheads community

on join check

2003-04-05T14:04:19-04:00

Here is the stuff you've requested.

Code:

bind join * * sock:checkproc sock:check {nick uhost handle channel} {  utimer 2 "sock:ban $nick $uhost $channel"}proc sock:ban {nick uhost channel} {  if {![botisop $channel]} { return }  if {![file exists $::socksfile]} {    putlog "\002Error\002: $::socksfile dose not exist!"    return 0  }  set file [open "$::socksfile" r]  while {![eof $file]} {    set lines [split [read $file] "\n"]    foreach line $lines {      if {$line == "" || ![string match "[lindex [split $uhost @] 1]" $line]} { continue }      set mask "*!*@[lindex [split $uhost @] 1]"      if {[ischanban $mask $channel]} { return }      newchanban $channel $mask Socks "$::socksreason" $::socksbantime      break    }  }}

Enjoy..

Statistics: Posted by caesar — Sat Apr 05, 2003 2:04 pm

on join check

2003-04-05T06:00:46-04:00

sorry for asking you again but..
is it possible to make it scan 2 seconds after the join if the sock is banned in the channel and if not then ban it?

Statistics: Posted by ReaLz — Sat Apr 05, 2003 6:00 am

on join check

2003-04-05T02:21:07-04:00

Due the fact that I was borring made something nice for you:

Code:

bind msg m socks msg:socksproc msg:socks {nick host hand text} {  if {![file exists $::socksfile]} {    putserv "PRIVMSG $nick :\002Error\002: $::socksfile dose not exist!"    return 0  }  if {[llength $text] <1} {    putserv "PRIVMSG $nick :\002Usage\002: socks  "    return 0  }  switch -- [string tolower [lindex $text 0]] {    "add" {      if {[lindex $text 1] == ""} {        putserv "PRIVMSG $nick :\002Usage\002: socks  "        return 0      }      set sock "[lindex $text 1]"      set file [open "$::socksfile" r]      while {![eof $file]} {        set line [gets $file]        if {[string match [lindex $text 1] $line]} {          putserv "PRIVMSG $nick :'$sock' socks is already in the list."          return 0        }      }      catch {close $file}      set file [open "$::socksfile" a]      puts $file $sock      putserv "PRIVMSG $nick :Socks '$sock' was added to the list."      catch {close $file}    }    "del" {      if {[lindex $text 1] == ""} {        putserv "PRIVMSG $nick :\002Usage\002: socks  "        return 0      }      set found 0      set index ""      set sock "[lindex $text 1]"      set file [open $::socksfile r]       while {![eof $file]} {        set lines [split [read $file] "\n"]        foreach line $lines {           if {$line == ""} { continue }          if {$line == $sock} {            set found 1          } else { lappend index $line }        }        if {$found == 0} {          putserv "PRIVMSG $nick :'$sock' was not found in the list."        return }      }      catch {close $file}      set file [open $::socksfile w]       foreach line $index {        puts $file $line      }      catch {close $file}      putserv "PRIVMSG $nick :Socks '$sock' was removed."    }    "check" {      if {[lindex $text 1] == ""} {        putserv "PRIVMSG $nick :\002Usage\002: socks  "        return 0      }      set sock "[lindex $text 1]"      set file [open "$::socksfile" r]      while {![eof $file]} {        set line [gets $file]        if {[string match [lindex $text 1] $line]} {          putserv "PRIVMSG $nick :Socks '$sock' was found in the list."          return 0        }      }      catch {close $file}      putserv "PRIVMSG $nick :Socks '$sock' was not found in the list."    }  }}

With 'socks add' you add a socks in to the list, with 'socks del' you delete one and finaly but not the last, with 'socks check' you can check if the specified socks is in the list. Enjoy..

PS: Please tell me if you spot an error or something..

Statistics: Posted by caesar — Sat Apr 05, 2003 2:21 am

on join check

2003-04-05T03:03:49-04:00

I've had a feeling that something is wrong there and decided to run a test. I've noticed that he only tests the first line, so here is the code that will read and test all lines from the file:

Code:

set socksfile "socks.txt"set socksreason "Don't use socks!"set socksbantime 1440bind join * * sock:checkproc sock:check {nick uhost handle channel} {  if {![botisop $channel]} { return }  if {![file exists $::socksfile]} {    putlog "\002Error\002: $::socksfile dose not exist!"    return 0  }  set file [open "$::socksfile" r]  while {![eof $file]} {    set lines [split [read $file] "\n"]    foreach line $lines {      if {$line == "" || ![string match "[lindex [split $uhost @] 1]" $line]} { continue }      set mask "*!*@[lindex [split $uhost @] 1]"      newchanban $channel $mask Socks "$::socksreason" $::socksbantime      break    }  }}

My appologies..

Statistics: Posted by caesar — Sat Apr 05, 2003 1:50 am

on join check

2003-04-04T13:23:26-04:00

thank you

Statistics: Posted by ReaLz — Fri Apr 04, 2003 1:23 pm

on join check

2003-04-04T12:50:02-04:00

Code:

set socksfile "socks.txt"set socksreason "Don't use socks!"set socksbantime 1440bind join * * sock:checkproc sock:check {nick uhost handle channel} {  set file [open "$::socksfile" r]  if {![file exists $::socksfile]} {    putlog "\002Error\002: $::socksfile dose not exist!"    return 0  }  while {![eof $file]} {    set text [split [read $file] "\n"]    if {![string match "[lindex [split $uhost @] 1]" [split $text]]} { return }    set mask "*!*@[lindex [split $uhost @] 1]"    newchanban $channel $mask Socks "$::socksreason" $::socksbantime  }}

Statistics: Posted by caesar — Fri Apr 04, 2003 12:50 pm

on join check

2003-04-04T12:28:47-04:00

could u tell me how to make a simple script that reads a file with socks and when the eggdrop sees a sock joining the channel to ban it?

Statistics: Posted by ReaLz — Fri Apr 04, 2003 12:28 pm