| View previous topic :: View next topic |
| Author |
Message |
doc
Voice
Joined: 29 Jul 2007
Posts: 2
|
 Posted: Sun Jul 29, 2007 12:50 pm Post subject: VHOST |
 |
|
hi guys
not up on coding but im trying one of the scripts off your site and seems to work fine as far as setting a vhost but when it comes to not allowing one due to the disalow list it come up with the error in the bot
Tcl error [tls:ident]: can't read "chan": no such variable
as i say it works fine as far as setting one but when it come to the words in the badvhost i get that error
| Code: | #set this to channel
set scan(chan) "#vhost"
# Set this to the bot's O-Line username #
set oper(username) "*******"
# Set this to the bots O-Line password #
set oper(password) "*****"
# Set here the words that are not alowed in the vhost #
set dvb_badvhost {
"*admin*"
"*bitch*"
"*operator*"
"*ircop*"
"*FutureForce*"
"*Future*"
"*C0mPl3x*"
"*ComPlex*"
"*Marro*"
"*Maro*"
"*netadmin*"
"*N3TADM1N*"
}
## dont change below unless your know what your doing ##
bind msg o oper oper-up
bind join - "$scan(chan) *" tls:join
bind raw - 307 tls:ident
bind pub -|- !vhost tls:vhost
bind evnt - init-server oper:connect
proc oper:connect init-server {
putserv "OPER $::oper(username) $::oper(password)"
}
proc oper-up {nick host chan text} {
global operid operpass owner2
putserv "OPER $::oper(username) $::oper(password)"
putserv "NOTICE $nick : I Opered up"
}
proc tls:join {nick host hand chan} {
global tls_nick tls_ident
set tls_ident "1"
set tls_nick $nick
putserv "WHOIS $nick"
utimer 3 tls:not:ident
}
proc tls:vhost {nick host hand chan vhost} {
global tls_nick tls_ident tls_vhost scan(chan)
if {$chan != "#vhost"} {
putserv "NOTICE $tls_nick : Don't Use This Command Outside #vhost"
return 0
}
if {$vhost == ""} {
if {$chan == "#vhost"} {
putserv "PRIVMSG $chan : With the command 4!VHOST you can make a vhost."
putserv "PRIVMSG $chan : Do it this way, !vhost This.is.my.vhost.com ."
putserv "PRIVMSG $chan : You can only use this service if you have your nick registered and identified"
putserv "PRIVMSG $chan : For more information type /msg nickserv HELP"
putserv "PRIVMSG $chan : 4 "
return 0
}
putserv "NOTICE $tls_nick : Met het commando 4!VHOST kan u een vhost instellen."
putserv "NOTICE $tls_nick : Dit commando kunt u echter alleen gebruiken in #vhost"
return 0
}
set tls_ident "2"
set tls_vhost [lindex $vhost 0]
set tls_nick $nick
putserv "WHOIS $nick"
utimer 3 tls:not:ident
}
proc tls:ident {from key args } {
global tls_ident tls_nick tls_vhost
set args [join $args]
set nick [string tolower [lindex $args 1]]
set regist [strlwr [lindex [lrange [split $args ":"] 1 end] 0]]
if {$tls_ident == "1" && $regist == "is a registered nick"} {
foreach j [utimers] {
if {[lindex $j 1] == "tls:not:ident"} { killutimer [lindex $j 2] }
}
putserv "PRIVMSG #vhost :$nick your nick is registered and identified use !vhost <vhost>"
}
if {$tls_ident == "2" && $regist == "is a registered nick"} {
foreach j [utimers] {
if {[lindex $j 1] == "tls:not:ident"} { killutimer [lindex $j 2] }
}
global dvb_badvhost
set temp 0
foreach i [string tolower $dvb_badvhost] {
if {[string match $i [string tolower $tls_vhost]]} {
set temp 1
putserv "PRIVMSG $chan : Your vhost is not changed 3$tls_vhost3"
putserv "PRIVMSG $chan : Its not a valid vhost 3$tls_vhost3"
return 0
}
}
putserv "PRIVMSG hostserv : set $tls_nick $tls_vhost"
putserv "PRIVMSG hostserv : set $tls_nick $tls_vhost"
putserv "NOTICE $tls_nick : Your vhost is changed in 3$tls_vhost3"
putserv "NOTICE $tls_nick : Type /msg hostserv on "
}
return 0
}
proc tls:not:ident {} {
global tls_nick
putserv "PRIVMSG #vhost :$tls_nick is: is not registered or identified"
putserv "PRIVMSG #vhost :Type: 4/MSG nickserv HELP for info how to register and identify you nick."
}
putlog "vhost was successfully loaded." |
|
|
| Back to top |
|
 |
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sun Jul 29, 2007 1:03 pm Post subject: |
|
|
The problem is in these 2 lines in proc tls:ident:
| Code: | putserv "PRIVMSG $chan : Your vhost is not changed 3$tls_vhost3"
putserv "PRIVMSG $chan : Its not a valid vhost 3$tls_vhost3" |
by $chan, you probably meant #vhost.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
doc
Voice
Joined: 29 Jul 2007
Posts: 2
|
| Posted: Sun Jul 29, 2007 2:37 pm Post subject: |
|
|
| Thankyou Sir_Fz your help was much appreciated |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
