egghelp/eggheads community

some help :)

2003-08-22T02:59:00-04:00

Oke tnx again

Statistics: Posted by bobjuh — Fri Aug 22, 2003 2:59 am

some help :)

2003-08-21T15:47:42-04:00

problem is still the formating.

The problem is your fixed spacing of the nick.

Statistics: Posted by user — Thu Aug 21, 2003 3:47 pm

some help :)

2003-08-21T12:54:10-04:00

script

putidx $idx " \002 Botcrew : \002"
putidx $idx " "
putidx $idx " \002Owner\002"
foreach i [userlist +n] {
putidx $idx " $i [format "%15s %45s " [getuser $i XTRA IRL] [getuser $i XTRA EMAIL]]"
}
putidx $idx " "
putidx $idx " \002Masters\002 "
foreach i [userlist +m-n] {
putidx $idx " $i [format "%15s %45s " [getuser $i XTRA IRL] [getuser $i XTRA EMAIL]]"
}
}

output you can see @
http://bobjuh.daro.info/files/script.txt

problem is still the formating.

Statistics: Posted by bobjuh — Thu Aug 21, 2003 12:54 pm

some help :)

2003-08-08T06:02:25-04:00

Code:
format "%9s %.3s %-4s %s" a bbbb c dreturns '        a bbb c    d'
Read http://tcl.tk/man/tcl8.3/TclCmd/format.htm for details.

hmz yes :/
i was thinking a mutch harder solution silly me

Statistics: Posted by bobjuh — Fri Aug 08, 2003 6:02 am

some help :)

2003-08-07T17:59:49-04:00

Code:

format "%9s %.3s %-4s %s" a bbbb c dreturns '        a bbb c    d'

Read http://tcl.tk/man/tcl8.3/TclCmd/format.htm for details.

Statistics: Posted by user — Thu Aug 07, 2003 5:59 pm

some help :)

2003-08-08T03:03:12-04:00

Oke this is what i got so far

proc dcc:test {hand idx arg} {
putidx $idx " \002Owner\002 "
foreach i [userlist +n] {
putidx $idx " $i [getuser $i XTRA IRL] [getuser $i XTRA EMAIL] [getuser $i XTRA LASTON]"
}
putidx $idx " "
putidx $idx " \002Masters\002 "
foreach i [userlist +m-n] {
putidx $idx " $i [getuser $i XTRA IRL] [getuser $i XTRA EMAIL] [getuser $i XTRA LASTON]"
}
}

Now the problem is that because the handle (also the irl fields) aren't al the same lenght the you get this.

Owner
test mail@my-isp.com mailadres@isp.tld
BoBjUh Ronald bobjuh@name.isp

How can i fix this.
i searched i think it has something to to with string and lenght but i don't know how to do this.

Statistics: Posted by bobjuh — Thu Aug 07, 2003 5:37 pm

Re: some help :)

2003-07-28T08:12:32-04:00

Can you give me a clue how to code this ?

I'm tired of giving you clues. Here's some working code:

Code:

proc ismodule {name} {foreach m [modules] {if {[string eq $name [lindex $m 0]]} {return 1}}return 0}

Statistics: Posted by user — Mon Jul 28, 2003 8:12 am

Re: some help :)

2003-07-28T04:30:51-04:00

how do i do this ?
loop through the list returned by 'modules' or use 'info commands '

Can you give me a clue how to code this ?

Statistics: Posted by bobjuh — Mon Jul 28, 2003 4:30 am

Re: some help :)

2003-07-27T12:31:26-04:00

how do i do this ?

loop through the list returned by 'modules' or use 'info commands '

Statistics: Posted by user — Sun Jul 27, 2003 12:31 pm

Re: some help :)

2003-07-27T11:49:26-04:00

I need an if statement or something to see if a module is loaded
There's at least two ways to do this.
1) check the list of modules returned by 'modules'.
2) check for the existence of a command provided by that module ('info commands cmdname')

how do i do this ?

Statistics: Posted by bobjuh — Sun Jul 27, 2003 11:49 am

Re: some help :)

2003-07-21T10:01:57-04:00

I need an if statement or something to see if a module is loaded

There's at least two ways to do this.
1) check the list of modules returned by 'modules'.
2) check for the existence of a command provided by that module ('info commands cmdname')

Statistics: Posted by user — Mon Jul 21, 2003 10:01 am

Re: some help :)

2003-07-21T03:45:23-04:00

Oke thats work.

next problem.
I need an if statement or something to see if a module is loaded

Statistics: Posted by bobjuh — Mon Jul 21, 2003 3:45 am

Re: some help :)

2003-07-20T11:57:47-04:00

Replace the current line writing the host with:

Code:

foreach host $addhosts {  puts $io "--HOSTS $host"}

Statistics: Posted by user — Sun Jul 20, 2003 11:57 am

some help :)

2003-07-20T05:00:21-04:00

Oke i'm sorta rebuilding my eggdrop config to make it easy to configure.
I now want to build something in that it there is no userfile he will make it itself withe the botadmin in it.

This is what i have added var with admin name en host.

set botadmin "BoBjUh"
set adminmail "bobjuh@linux-nl.org"
set addhosts {
*!*ident@host1.isp.tcl
*!*ident@host1.isp.tcl
}

With that var the idea is dat you can add as many host as possible.
Now the problem is to add this to the userfile.

if {![file exists ${username}.user]} then {
close [open ${username}.user w]
set io [open ${username}.user a]
puts $io "#4v: eggdrop v1.6.12 -- Eggdrop -- written Mon Jan 1 00:00:00 2003"
puts $io "$botadmin - jmnoptx "
puts $io "--PASS +password"
puts $io "--HOSTS *!*@host.isp.tld"
puts $io "--XTRA created 1047407821"
close $io
}

I want it to add the host set in the addhosts. With the addhosts setting the idea is that you can add as many host as you want.

Statistics: Posted by bobjuh — Sun Jul 20, 2003 5:00 am