unban via X and banlist.

[Nor7on]

i trying run this script, but i get error.

the script

Code: Select all

bind pub o|o .ub pub:unban

proc pub:unban { nick uhost hand chan text } {
 global botnick drchan drreason opsc tnick
  if {[botisop $drchan]} {
    if {[string length $text] > 0} {
      set tnick [lindex $text 0]
      if {[ischanban $tnick $drchan]} {
      killchanban $drchan $tnick
      putserv "MODE $drchan -b $tnick"
      putquick "privmsg X :unban $drchan $tnick"
      putserv "privmsg $opsc :$hand/$nick: I removed \002$tnick\002 from $drchan" }
      if {[isban $drchan $tnick]} {
      killban $tnick
      } else { puthelp "NOTICE $nick : I can't see that ban in the channel list" }
    } else { puthelp "NOTICE $nick :SYNTAX: .ub <nick!user@host> - unbans an address" }
  } else { puthelp "NOTICE $nick :Pfff n-am op!" }
} 

and get this error.

<)Modo> [17:36] Tcl error [pub:unban]: can't read "drchan": no such variable

errorInfo:

Code: Select all

<Nor7on> .set errorInfo
<)Modo> Currently: can't read "drchan": no such variable
<)Modo> Currently:     while executing
<)Modo> Currently: "botisop $drchan"
<)Modo> Currently:     (procedure "pub:unban" line 3)
<)Modo> Currently:     invoked from within
<)Modo> Currently: "pub:unban $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

[Alchera]

That is not the full code.

"drchan" is not defined.

[Nor7on]

ohhh ;(

i want a script for unban in the internal banlist and too via X.

[Nor7on]

or how fix this ( lol.tcl 8.0 ) for unban with X too.

Code: Select all

proc lol_unban { nick hand chan mask byX } {
	if {[isnumber $mask]} {
		set find 0
		foreach bans [banlist $chan] {
			incr find
			if {$find == $mask} { set mask [lindex $bans 0] ; break }
		}
		if {[isnumber $mask]} {
			puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 46 $mask]"
			return 0
		} 
	} else {	
		if {[string first "!" $mask] == -1 && [string first "@" $mask] == -1} {
			if {[isnumber [string index $mask 0]]} { 
				set mask *!*@$mask 
			} else { 
				set mask $mask*!*@* 
			}
		}
		if {[string first "!" $mask] == -1} {set mask *!*$mask}
		if {[string first "@" $mask] == -1} {set mask $mask*@*}
	}
	if {$byX } {
		if {[channel get $chan xlogin] && [channel get $chan protectX] && [isop X $chan]} {
			putserv "PRIVMSG X :unban $chan $mask" 
		     	puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 47 "$mask $chan"]"
			return 0
		}
	}

	if {[isban $mask $chan]} { 
		if {![killchanban $chan $mask]} { killban $mask }
      	puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 47 "$mask $chan"]"
		return 0
	} 
	if {[ischanban $mask $chan] && [botisop $chan]} {
		putserv "MODE $chan -b $mask"
			putserv "PRIVMSG X :unban $chan $mask" 
            puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 47 "$mask $chan"]"
		return 0
	} 
	puthelp "NOTICE $nick :[lang_text lol_lang_data [getlang $hand] 48 $chan]"
	return 0
}

i add this:

putserv "PRIVMSG X :unban $chan $mask"

but, unban channelban, but no unban via X.

[Alchera]

You're making a very lame attempt at grabbing pieces of other's code without a clue as to what you're doing and then expecting other's to assist (which won't happen).

LoL's TooLz is defunct (probably the same goes for that ripped code in your first post).

Either learn Tcl and code something yourself, search the Tcl Archive for what you need OR post an appropriate request of your needs in the Script Requests forum.

In your xbanpurge.tcl error post you were given a solution to fix that script. You (apparently) ignored that advice, hence your creation of a new thread here.

There is a certain amount of self-help required by users of these forums. Those that desire to help expect those helped to do some figuring out themselves as part of their learning curve.

If something is unclear you simply ask and all will (usually) be revealed.

[iamdeath]

i trying run this script, but i get error.

the script

Code: Select all

bind pub o|o .ub pub:unban

proc pub:unban { nick uhost hand chan text } {
 global botnick drchan drreason opsc tnick
  if {[botisop $drchan]} {
    if {[string length $text] > 0} {
      set tnick [lindex $text 0]
      if {[ischanban $tnick $drchan]} {
      killchanban $drchan $tnick
      putserv "MODE $drchan -b $tnick"
      putquick "privmsg X :unban $drchan $tnick"
      putserv "privmsg $opsc :$hand/$nick: I removed \002$tnick\002 from $drchan" }
      if {[isban $drchan $tnick]} {
      killban $tnick
      } else { puthelp "NOTICE $nick : I can't see that ban in the channel list" }
    } else { puthelp "NOTICE $nick :SYNTAX: .ub <nick!user@host> - unbans an address" }
  } else { puthelp "NOTICE $nick :Pfff n-am op!" }
} 

and get this error.

<)Modo> [17:36] Tcl error [pub:unban]: can't read "drchan": no such variable

errorInfo:

Code: Select all

<Nor7on> .set errorInfo
<)Modo> Currently: can't read "drchan": no such variable
<)Modo> Currently:     while executing
<)Modo> Currently: "botisop $drchan"
<)Modo> Currently:     (procedure "pub:unban" line 3)
<)Modo> Currently:     invoked from within
<)Modo> Currently: "pub:unban $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

try adding this line at the beginning of this code then restart.

Code: Select all

set drchan "#mychannel"

[Nor7on]

its good, unban in the channel, chanban, and via X. but get this error.

Code: Select all

<Nor7on> .set errorInfo
<)Modo> Currently: invalid channel: *!*@*.ar
<)Modo> Currently:     while executing
<)Modo> Currently: "isban $drchan $tnick"
<)Modo> Currently:     (procedure "pub:unban" line 11)
<)Modo> Currently:     invoked from within
<)Modo> Currently: "pub:unban $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

and how can do for run this script in all channels?

[iamdeath]

It's simple remove $drchan and replace it with $chan