This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Search found 963 matches

by stdragon
Fri Oct 19, 2001 6:04 am
Forum: Archive
Topic: A Script we would all luv
Replies: 11
Views: 2346

Here is a little script to set a default password for all users who don't currently have one. This is just a *little* insecure heh, so hopefully you have a bunch of noble users. # Change this to your preferred password set default "sheep" foreach u [userlist] { if {[passwdok $u ""...
by stdragon
Wed Oct 17, 2001 9:40 pm
Forum: Archive
Topic: string lookup in file fails
Replies: 13
Views: 2165

reverse the args to the string match function _T is the maskhost you read in, so that should be the first arg to string match if that doesn't work, then add some debugging statements (putlog) to see what is going wrong i.e. where you set found add, putlog "setting found to 1" right after y...
by stdragon
Wed Oct 17, 2001 9:37 pm
Forum: Archive
Topic: clearing ban list
Replies: 3
Views: 925

Who knows, put some debugging statements in your proc to see what's going on. Maybe it's a config problem. Put stuff like this in: putlog "there are $numbanlist bans" inside your if test putlog "inside if" in your else putlog "in else instead" in your loop putlog "...
by stdragon
Wed Oct 17, 2001 9:34 pm
Forum: Archive
Topic: Unusual way of defining procedures
Replies: 7
Views: 1345

You don't even need those 3 con_* procedures. foreach cmd [array names con] { bind dcc - $cmd [list con_form $cmd d] bind msg - !$cmd [list con_form $cmd m] bind pub - !$cmd [list con_form $cmd p] } proc con_form {cmd method args} { if {$method == "p"} {set dest [lindex $args 4]} <-- chann...
by stdragon
Wed Oct 17, 2001 9:13 am
Forum: Archive
Topic: tcl request
Replies: 5
Views: 1104

Yeah, it requires people to have an account on the bot.

You are probably better off using one of the seen scripts available on this website.
by stdragon
Wed Oct 17, 2001 9:11 am
Forum: Archive
Topic: Unusual way of defining procedures
Replies: 7
Views: 1345

set con(f2c) {blah blah blah} set con(c2f) {blah blah blah} foreach cmd [array names con] { bind pub - !$cmd [list pub_handler $cmd] bind msg - !$cmd [list msg_handler $cmd] bind dcc - $cmd [list dcc_handler $cmd] } proc pub_handler {cmd nick uhost hand chan text} { global con # con($cmd) is the en...
by stdragon
Wed Oct 17, 2001 9:06 am
Forum: Archive
Topic: string lookup in file fails
Replies: 13
Views: 2165

The 'found' variable should be initialized within your procedure, and should not be a global variable. Look at your string match command.. you're comparing to the filename, not the line. You shouldn't set found = 0 inside the loop. You should break after you set found = 1 (look at the help page for ...
by stdragon
Wed Oct 17, 2001 8:19 am
Forum: Archive
Topic: Unusual way of defining procedures
Replies: 7
Views: 1345

It looks interesting, but why do you have that g in your regsubs? Were you going to allow multiple arguments, like arg2 arg3 and you didn't want them to become arg2.0 arg3.0? It might be better to use X instead of $arg, since people are more used to X from algebra than $arg. Also, why do you create ...
by stdragon
Wed Oct 17, 2001 7:35 am
Forum: Archive
Topic: clearing ban list
Replies: 3
Views: 925

To get the banlist:
set bans [banlist #channel]

To unset a ban:
killchanban #channel <ban>

To unset the first 10 bans:
set bans [banlist #channel]
for {set i 0} {$i < 10} {incr i} {
killchanban #channel [lindex $bans $i]
}
by stdragon
Wed Oct 17, 2001 7:32 am
Forum: Archive
Topic: tcl request
Replies: 5
Views: 1104

you don't need a script for that

on the dcc console, type this:

.+user everyone
.chattr everyone +c
.chattr everyone +gv #yourchan
.+host everyone *!*@*
by stdragon
Wed Oct 17, 2001 7:29 am
Forum: Archive
Topic: string lookup in file fails
Replies: 13
Views: 2165

imagine you have a variable called "found" you start off with found = 0, because it's not found then you go through the file one line at a time if the line matches the uhost, you set found to 1, and break from the loop after the loop, you test the value of found if it's 1, you send your er...
by stdragon
Wed Oct 17, 2001 7:15 am
Forum: Archive
Topic: How do i add in the conf file so my bot can monitor more tha
Replies: 5
Views: 1158

You don't put both channel names in one command, you do the command twice:

channel add #channel1 {
blah blah blah
}

channel add #channel2 {
blah blah blah
}
by stdragon
Wed Oct 17, 2001 7:12 am
Forum: Archive
Topic: string lookup in file fails
Replies: 13
Views: 2165

First problem is you are opening the file in "a+" mode, which means "append plus read". Opening in append mode means you start at the end of the file. So that's why it's not finding the right entries. The second problem is that you're doing your output within the loop. That means...
by stdragon
Wed Oct 17, 2001 4:39 am
Forum: Archive
Topic: Variables across botnet?
Replies: 5
Views: 1109

add it to your putallbots command, and display it in your remote callback
by stdragon
Mon Oct 15, 2001 8:03 am
Forum: Archive
Topic: mc.sendfile.tcl
Replies: 3
Views: 1024

That is hard to read!

Next time try using [ code ] and [ /code ] around it.

Also, check the "Disable smilies on this post" checkbox before you post.