egghelp/eggheads community

greenbear

take a look at the testip proc in alltools.tcl

greenbear

bind pub - !parse parse:string
proc parse:string {nick uhost hand chan text} {
 set string "a :: b :: c :: d ::"
 set out [lrange [join [split $string ::]] 2 end]
 putserv "PRIVMSG $chan :$out"
}

greenbear

Code: Select all

lrange [join [split $string ::]] 2 end

greenbear

Code: Select all

regsub -all -nocase {[^a-z]} $string {} cleanstring

greenbear

use bind time

greenbear

also make sure you've loaded the share and transfer modules

greenbear

sKy wrote:No better solution?

Don't set global bans, when you don't want them ?

greenbear

There's already some scripts out there thats doing something similar to this,
like SerieInfo and EPGuru and tonight.tcl.

greenbear

strlwr is part of alltools.tcl

greenbear

You don't need a script to do that,
on partyline type

.chanset #channel +greet
.chinfo USER <greet msg>

greenbear

remove it, along with the ending brace (all the way down, almost at the end of the proc)

greenbear

thats caused by *nix linebreaks, just use wordpad instead.

greenbear

they are normal text files, so notepad/wordpad will do.

greenbear

Have a look here.

greenbear

set sfile "/home/user/public_html/stats.html" set schan "#channel" bind time - "?5*" stime proc stime {mi ho da mo yr} { webstats $::schan } proc webstats c { set f [open $::sfile w] puts $f "<html><body><head>" puts $f "<title>channel stats for $c</titl...

Search found 704 matches