Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ##########################################################################
- #
- # BlackGline 1.0
- #
- #This TCL shows information about IPS who have gline on undernet.
- #-The creation date , the reason of the Gline , the date when the Gline will
- #expire.
- #
- #To activate type .chanset #canal +blackgline
- #
- #The command is - !gline <ip>
- #
- # BLaCkShaDoW ProductionS
- ##########################################################################
- #Seteaza aici flagurile care pot folosii comanda !gline <ip>
- set flags "-|-"
- ##########################################################################
- bind pub $flags !gline getgline
- setudef flag blackgline
- proc getgline {nick host hand chan arg} {
- global botnick
- set ip [lindex [split $arg] 0]
- set ::gchan $chan
- if {[channel get $chan blackgline]} {
- if {$ip == ""} { puthelp "NOTICE $nick :Use: !gline <ip>"
- return 0
- }
- putquick "GLINE $ip"
- bind raw - 280 isgline
- bind raw - 512 nogline
- }
- }
- proc isgline { from keyword arguments } {
- set chan $::gchan
- set ip [lindex [split $arguments] 1]
- set fgline [lindex [split $arguments] 4]
- set egline [lindex [split $arguments] 3]
- set reason [join [lrange [split $arguments] 7 end]]
- puthelp "PRIVMSG $chan :This g-line was created on :[ctime $egline] , with the reason $reason"
- puthelp "PRIVMSG $chan :It will expire on :[ctime $fgline]"
- unbind raw - 280 isgline
- }
- proc nogline { from keyword arguments } {
- set chan $::gchan
- puthelp "PRIVMSG $chan :There is no gline for this IP."
- unbind raw - 512 nogline
- }
- putlog "BlackGline Tcl 1.0 by BLaCkShaDoW Loaded"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement