Statistics: Posted by Skipper — Fri Sep 16, 2005 1:30 am

Statistics: Posted by Skipper — Tue Sep 13, 2005 1:19 pm

There is something to do with the delete part of the tcl.. i wonder what i should do there.

Statistics: Posted by demond — Tue Sep 13, 2005 2:29 am

Code:

set blacklist_file "scripts/dbase/blacklist"setudef flag blackbind MSG  m|- \$blacklist  blacklist:listbind MSG  m|- \$blackadd   blacklist:addbind MSG  m|- \$blackdel   blacklist:delbind JOIN -|- *            blacklist:joinproc blacklist:list {nickname hostname handle arguments} { global blacklist  set entrys 0  puthelp "PRIVMSG $nickname :BlackList Entrys"  puthelp "PRIVMSG $nickname :Nr. Owner           HostMask"  foreach entry [array names blacklist] {    incr entrys    set owner [lindex $blacklist($entry) 0]    while {[string length $owner] < 15} {      set owner "$owner "    }    if {[string length $entrys] < 2} {      set target "$entrys "    } else {      set target $entrys    }    puthelp "PRIVMSG $nickname :#$target $owner $entry"  }  puthelp "PRIVMSG $nickname :End of list."}proc blacklist:add {nickname hostname handle arguments} { global blacklist  set arguments [blacklist:clean $arguments]  set banmask [blacklist:validate:host [lindex $arguments 0]]  if {([regexp -all -- {!} $banmask] > 1) || ([regexp -all -- {@} $banmask] > 1)} {    puthelp "PRIVMSG $nickname :Sorry, Couldn't Add That HostMask."    return  }  set owner $handle  if {[regexp {^(\d{1,2}|[0-3][0-6][0-5])$} [lindex $arguments 1]]} {   set expire [expr ([lindex $arguments 1] * 86400) + [unixtime]]   set reason [join [lrange $arguments 2 end]]  } else {   set expire 0   set reason [join [lrange $arguments 1 end]]  }  if {[llength $reason] >= 1} {    if {![info exists blacklist($banmask)]} {      set blacklist($banmask) "$owner $expire $reason"      puthelp "PRIVMSG $nickname :Done. $banmask BlackListed Successfully (Reason: $reason)."      } else {      puthelp "PRIVMSG $nickname :Sorry, Couldn't Add That HostMask."    }  } else {    puthelp "PRIVMSG $nickname :You Forgot To Type A BlackList Reason."  }}proc blacklist:del {nickname hostname handle arguments} { global blacklist  set arguments [blacklist:clean $arguments]  set banmask [lindex $arguments 0]  set success 0  if {[regexp {^#([0-9]+)$} $banmask tmp number]} {    set item 0    foreach entry [array names blacklist] {      incr item      if {$item == $number} {        unset blacklist($entry)        set success 1      }    }  } else {    if {[info exists blacklist($banmask)]} {      unset blacklist($banmask)      set success 1    }  }  if {$success == 0} {    puthelp "PRIVMSG $nickname :Couldn't Delete The Requested Ban. Use \$blacklist To View Them."  } else {    puthelp "PRIVMSG $nickname :Done."  }}proc blacklist:join {nickname hostname handle chan} { global blacklist  if {![botisop $chan]} {return}  if {[lsearch -exact [channel info $chan] +black] == -1} {return 0}  set userhost [blacklist:weirdclean "$nickname![getchanhost $nickname]"]  foreach entry [array names blacklist] {    set reason [lrange [blacklist:clean $blacklist($entry)] 2 end]    set blackhost [blacklist:weirdclean $entry]    if {[string match -nocase $blackhost $userhost]} {      putquick "MODE $chan -o+b $nickname $entry"      putquick "KICK $chan $nickname :[join $reason]"    }  }}proc blacklist:validate:host {i} {  regsub -all {\*+} $i {*} i  array set ban {    ident *    host *  }  set ban(nick) $i  if {[regexp -- {!} $i]} {    regexp -- {^(.+?)!(.*?)(@(.*))?$} $i tmp ban(nick) ban(ident) tmp ban(host)  } elseif {[regexp -- {@} $i]} {    regexp -- {^(.+!)?(.*?)(@(.*))?$} $i tmp ban(nick) ban(ident) tmp ban(host)  }  foreach item [array names ban] {    if {[string length $ban($item)] < 1} {      set ban($item) *    }  }  return $ban(nick)!$ban(ident)@$ban(host)}proc blacklist:load {} { global blacklist blacklist_file  regexp {(\S+/)?} $blacklist_file tmp blacklist_dir  if {$blacklist_dir != ""} {    if {![file isdirectory $blacklist_dir]} {      file mkdir $blacklist_dir      putlog "Created directory: $blacklist_dir"    }  }  if {![file exists $blacklist_file]} {    array set blacklist {}    return  }  if {[array exists blacklist]} {    array unset blacklist  }  set file [open $blacklist_file r]  while {![eof $file]} {    gets $file line    if {[regexp -- {(\S+)\s(\S+)\s(\S+)\s(.+)} $line tmp banmask owner expire reason]} {      if {$expire >= [unixtime] || ($expire == 0)} {        set blacklist($banmask) "$owner $expire $reason"      }    }  }  close $file}proc blacklist:save {} { global blacklist blacklist_file  set file "[open $blacklist_file w]"  foreach entry [array names blacklist] {    puts $file "$entry $blacklist($entry)"  }  close $file}proc blacklist:weirdclean {i} {  regsub -all -- \\\\ $i \001 i  regsub -all -- \\\[ $i \002 i  regsub -all -- \\\] $i \003 i  regsub -all -- \\\} $i \004 i  regsub -all -- \\\{ $i \005 i  return $i}proc blacklist:clean {i} {  regsub -all -- \\\\ $i \\\\\\\\ i  regsub -all -- \\\[ $i \\\\\[ i  regsub -all -- \\\] $i \\\\\] i  regsub -all -- \\\} $i \\\\\} i  regsub -all -- \\\{ $i \\\\\{ i  regsub -all -- \\\" $i \\\\\" i  return $i}blacklist:load

Statistics: Posted by Skipper — Tue Sep 13, 2005 1:39 am

if {$reason == ""} {newchanban $chan $banmask $hand " Requested by $hand" [lifetime] [options]} else {newchanban $chan $banmask $hand " $reason" [lifetime] [options]

Statistics: Posted by CrazyEgg — Wed Aug 31, 2005 3:44 am

Statistics: Posted by Skipper — Wed Aug 31, 2005 2:54 am

Statistics: Posted by demond — Tue Aug 30, 2005 8:59 pm

newchanban <channel> <ban> <creator> <comment> [lifetime] [options]

Statistics: Posted by Alchera — Tue Aug 30, 2005 6:25 pm

Statistics: Posted by Skipper — Tue Aug 30, 2005 1:27 am

Code:

set blacklist_file "scripts/dbase/blacklist"bind MSG  m|- \$blacklist  blacklist:listbind MSG  m|- \$blackadd   blacklist:addbind MSG  m|- \$blackdel   blacklist:delbind TIME -|- "0* * * * *" blacklist:sentrybind JOIN -|- *            blacklist:joinproc blacklist:list {nickname hostname handle channel arguments} { global blacklist  set entrys 0  puthelp "NOTICE $nickname :Blacklist entrys"  puthelp "NOTICE $nickname :Nr. Owner           Hostmask"  foreach entry [array names blacklist] {    incr entrys    set owner [lindex $blacklist($entry) 0]    while {[string length $owner] < 15} {      set owner "$owner "    }    if {[string length $entrys] < 2} {      set target "$entrys "    } else {      set target $entrys    }    puthelp "NOTICE $nickname :#$target $owner $entry"  }  puthelp "NOTICE $nickname :End of list."}proc blacklist:add {nickname hostname handle channel arguments} { global blacklist  set arguments [blacklist:clean $arguments]  set banmask [blacklist:validate:host [lindex $arguments 0]]  if {([regexp -all -- {!} $banmask] > 1) || ([regexp -all -- {@} $banmask] > 1)} {    puthelp "NOTICE $nickname :Sorry, couldn't add that hostmask."    return  }  set owner $handle  if {[regexp {^(\d{1,2}|[0-3][0-6][0-5])$} [lindex $arguments 1]]} {   set expire [expr ([lindex $arguments 1] * 86400) + [unixtime]]   set reason [join [lrange $arguments 2 end]]  } else {   set expire 0   set reason [join [lrange $arguments 1 end]]  }  if {[llength $reason] >= 1} {    if {![info exists blacklist($banmask)]} {      set blacklist($banmask) "$owner $expire $reason"      puthelp "NOTICE $nickname :Done. $banmask blacklisted successfully (reason: $reason)."      blacklist:sentry    } else {      puthelp "NOTICE $nickname :Sorry, couldn't add that hostmask."    }  } else {    puthelp "NOTICE $nickname :You forgot to type a blacklist reason."  }}proc blacklist:del {nickname hostname handle channel arguments} { global blacklist  set arguments [blacklist:clean $arguments]  set banmask [lindex $arguments 0]  set success 0  if {[regexp {^#([0-9]+)$} $banmask tmp number]} {    set item 0    foreach entry [array names blacklist] {      incr item      if {$item == $number} {        unset blacklist($entry)        set success 1      }    }  } else {    if {[info exists blacklist($banmask)]} {      unset blacklist($banmask)      set success 1    }  }  if {$success == 0} {    puthelp "NOTICE $nickname :Couldn't delete the requested ban. Use \$blacklist to view them."  } else {    puthelp "NOTICE $nickname :Done."  }}proc blacklist:sentry {{minute "0"} {hour "0"} {day "0"} {week "0"} {year "0"}} { global blacklist  foreach channel [channels] {    if {![botisop $channel]} {continue}    foreach target [chanlist $channel] {      set userhost [blacklist:weirdclean "$target![getchanhost $target]"]      foreach entry [array names blacklist] {        set expire [lindex $blacklist($entry) 1]        if {$expire >= [unixtime] || ($expire == 0)} {          set reason [lrange [blacklist:clean $blacklist($entry)] 2 end]          set blackhost [blacklist:weirdclean $entry]          if {[string match -nocase $blackhost $userhost]} {            putquick "MODE $channel -o+b $target $entry"            putquick "KICK $channel $target :[join $reason]"          }        } else {          unset blacklist($entry)        }      }    }  }  blacklist:save}proc blacklist:join {nickname hostname handle channel} { global blacklist  if {![botisop $channel]} {return}  set userhost [blacklist:weirdclean "$nickname![getchanhost $nickname]"]  foreach entry [array names blacklist] {    set reason [lrange [blacklist:clean $blacklist($entry)] 2 end]    set blackhost [blacklist:weirdclean $entry]    if {[string match -nocase $blackhost $userhost]} {      putquick "MODE $channel -o+b $nickname $entry"      putquick "KICK $channel $nickname :[join $reason]"    }  }}proc blacklist:validate:host {i} {  regsub -all {\*+} $i {*} i  array set ban {    ident *    host *  }  set ban(nick) $i  if {[regexp -- {!} $i]} {    regexp -- {^(.+?)!(.*?)(@(.*))?$} $i tmp ban(nick) ban(ident) tmp ban(host)  } elseif {[regexp -- {@} $i]} {    regexp -- {^(.+!)?(.*?)(@(.*))?$} $i tmp ban(nick) ban(ident) tmp ban(host)  }  foreach item [array names ban] {    if {[string length $ban($item)] < 1} {      set ban($item) *    }  }  return $ban(nick)!$ban(ident)@$ban(host)}proc blacklist:load {} { global blacklist blacklist_file  regexp {(\S+/)?} $blacklist_file tmp blacklist_dir  if {$blacklist_dir != ""} {    if {![file isdirectory $blacklist_dir]} {      file mkdir $blacklist_dir      putlog "Created directory: $blacklist_dir"    }  }  if {![file exists $blacklist_file]} {    array set blacklist {}    return  }  if {[array exists blacklist]} {    array unset blacklist  }  set file [open $blacklist_file r]  while {![eof $file]} {    gets $file line    if {[regexp -- {(\S+)\s(\S+)\s(\S+)\s(.+)} $line tmp banmask owner expire reason]} {      if {$expire >= [unixtime] || ($expire == 0)} {        set blacklist($banmask) "$owner $expire $reason"      }    }  }  close $file}proc blacklist:save {} { global blacklist blacklist_file  set file "[open $blacklist_file w]"  foreach entry [array names blacklist] {    puts $file "$entry $blacklist($entry)"  }  close $file}proc blacklist:weirdclean {i} {  regsub -all -- \\\\ $i \001 i  regsub -all -- \\\[ $i \002 i  regsub -all -- \\\] $i \003 i  regsub -all -- \\\} $i \004 i  regsub -all -- \\\{ $i \005 i  return $i}proc blacklist:clean {i} {  regsub -all -- \\\\ $i \\\\\\\\ i  regsub -all -- \\\[ $i \\\\\[ i  regsub -all -- \\\] $i \\\\\] i  regsub -all -- \\\} $i \\\\\} i  regsub -all -- \\\{ $i \\\\\{ i  regsub -all -- \\\" $i \\\\\" i  return $i}blacklist:load

<(Yammi> [15:50] Tcl error [blacklist:add]: wrong # args: should be "blacklist:add nickname hostname handle channel arguments"

Statistics: Posted by Skipper — Mon Aug 29, 2005 11:51 am