egghelp/eggheads community

Don't use append (a+) Use w or w+ I guess you missed the "truncate it if it exists" part. Anyway, did some testing and looks like with "r+" works as expected. % proc count:kicks args { set fh [open "~/test.txt" "r+"] set count [expr [read -nonewline $fh] + 1]...

I tried to compress stuff as well, but for some reason it doesn't seem to be working: % proc count:kicks args { set file "/home/cezar/test.txt" set fh [open $file "a+"] seek $fh 0 set count [expr [read -nonewline $fh] + 1] seek $fh 0 puts $fh $count return $count } % count:kicks ...

if {[string match "!*" $x]} {set reason "\002\037\0037(\017\00312\u00bb\0031\002j\002a\0034\002D\002u\0031\u00ae\00312\u00ab\0037\002\037)\017 $x"} else {if {[matchattr [nick2hand $x $chan] m]} {append ownicks " $x"} else {if {![onchan $x $chan]} {append nonenicks &quo...

Actually it won't get any reason at all given:

Code: Select all

set chan [lindex $rest 0]
set knick [lrange $rest 1 end]

Yes, as I was testing stuff and kept editing the text i posted forgot to leave that as well.

Your regsub should be: regsub -all {[\s]} $text "" because that will substitute all white spaces not just space with nothing: % set text "some tab space" some tab space % regsub -all {\ } $text "" some tabspace % regsub -all {[\s]} $text "" sometabspace % stri...

No problem.

The e-mail validator isn't quite fool proof cos has a problem with domain names, would be too much of a hassle to make it fully functional.

proc randPass {len {min 33} {max 125}} { return [subst [string repeat {[format %c [expr int(rand()*($max-$min+1)) + $min]]} $len]] } bind pub -|- !request pub:request proc pub:request {nick uhost hand chan text} { if {[scan $text {%s%s} user email] != 2} { putserv "NOTICE $nick :usage: !reques...

The putserv "notice $nick part is responsible for where is the message going to be sent and in what format. In this given example it will be sent to $nick as a notice. If you want to make it a private message (PM) then change 'notice' into 'privmsg'. You need to alter the code so the '!request'...

Code: Select all

% set nick "f2A94d"
f2A94d
% regsub -all {[^0-9]} $nick ""
294
% string length [regsub -all {[^0-9]} $nick ""]
3
% set nick "aaaa3db4"
aaaa3db4
% string length [regsub -all {[^0-9]} $nick ""]
2

isn't this what you where looking for?

The code you mentioned returns the digits from the string, not it's length, hence why i suggested the initial code: if {[string length [regsub -all {[^0-9]} $nick ""]] > 6} { # do whatever } that removes any character that isn't in the 0 to 9 range and then returns it's length. Anyway, the...

Untested code: namespace eval clonescan { set trigger "!" set ghz "1" set skip { "S" "Q" } bind pub -|- "${trigger}clones" [namespace current]::clonescan proc checknick {nick} { variable skip set test [expr {[lsearch -nocase $skip $nick] > -1 ? "...

That's cos the qwhy needs to be like "some reason here" (notice the ").

In the original topic first was considered "human" and the second one was the clone, hence the numbers says 1 clone.

Anyway, so, basically you want on-command to scan and punish clones if are more than specified amount? I've linked to this old code cos I found the percentage interesting.

Just remove the:

Code: Select all

set qwhy "Go away."

and replace:

Code: Select all

proc qkick {ch {nk ""}} {  global qkick

with:

Code: Select all

proc qkick {ch {nk ""} {qwhy "Go away."}} {  global qkick

for example. If you don't give a reason the default "Go away." one will be used.

Search found 3735 matches