display all created users and their flags with pub or pm msg

[CrazyCat]

Peharps the INFO field is empty for users.

Have a look @ https://github.com/eggheads/eggdrop/blo ... s.doc#L265 to know what does getuser.

If you can't have what you want with that, try other things as (as willyw said) putserv "PRIVMSG $nick :$handle as following global flags: [chattr $uhandle]"

[willyw]

tested but it seems to output empty content

For each user, *IS* there anything to output for INFO ?

Look up just what that INFO is, here:
https://docs.eggheads.org/mainDocs/tcl- ... extra-info

Perhaps the script is returning just what it finds ... which is nothing.

So go look at some user's account in bot with .whois .
Figure out how to add something to that user's INFO line. Add it. ( You can remove it later)
Test your script again.
Does it find it and report it?


To further explore and test - try other things. I mentioned this, above:

$n - [chattr $n]"

Modifying that for your current experimental script, would be something like:

Code: Select all

bind pub -|- !uinfo pub:userinfo


 proc pub:userinfo {nick host hand chan text} {
        foreach uhandle [userlist] {
                  #putserv "privmsg $chan :[getuser $uhandle INFO] "
                    putserv "privmsg $chan :$uhandle - [chattr $uhandle] "

                  # Experiment! you can try outputting a variety of things, here

        }
 } 

[willyw]

... try other things ...

...
To further explore and test - try other things.
...

...
Experiment!
...

Those are probably THE most important things that we've said.

They apply - always. No matter what the project is.

I try to keep a spare bot running - just for playing with tcl. Because I KNOW that I'm going to make a mistake or a typo and crash it.
Then ... I just find the mistake, edit it, start the bot, and move on to the next mistake, until I get them all out. And re-arranging and re-coding, adding things, etc.

Fun stuff....

[simo]

oh nice this one seems to work well outputting user and flags

putserv "privmsg $chan :$uhandle - [chattr $uhandle] "


this one outputs blanks not sure why

putserv "privmsg $chan :[getuser $uhandle INFO] "


i will work with that thanks willyw

[willyw]

I'm glad you got something going.

...
this one outputs blanks not sure why

putserv "privmsg $chan :[getuser $uhandle INFO] "
...

...
For each user, *IS* there anything to output for INFO ?

Look up just what that INFO is, here:
https://docs.eggheads.org/mainDocs/tcl- ... extra-info

Perhaps the script is returning just what it finds ... which is nothing.

[simo]

nice thanks willyw that helps a lot

i managed to have this

putserv "NOTICE $nick :$uhandle - [chattr $uhandle] [getuser $uhandle HOSTS] [getuser $uhandle XTRA] "


only it outputs the time of created user in like

{created 1640809963} unlike a more readable date

[simo]

i tried this but got error: Tcl error [pub:userinfo]: expected integer but got ""

set created1 [getuser $uhandle XTRA]
set createds [string trimleft created1 "{"]
set createda [string trimright createds "}"]
set created2 [lindex [split $createda] 1]
set createdtime [clock format $created2 -format "%d.%m.%Y - %H:%M:%S"]
putserv "NOTICE $nick :$uhandle - [chattr $uhandle] [getuser $uhandle HOSTS] $createdtime "

[willyw]

...

only it outputs the time of created user in like

{created 1640809963} unlike a more readable date

I'm having trouble finding exactly what that is. I have a guess, but I wanted to be sure.

Maybe you can tell me.

Have a look at this:

<jack3> .tcl ctime 1640809963
<botnick> Tcl: Wed Dec 29 20:32:43 2021

Is that the correct date and time ?

If it is, then we know that [ctime] is the command that you want, and we can proceed with discussing how to apply it.

[simo]

yes thats the proper date

[SpiKe^^]

Code: Select all

set created [lindex [getuser $uhandle XTRA] 0 1]
set createdtime [clock format $created -format "%d.%m.%Y - %H:%M:%S"]
putserv "NOTICE $nick :$uhandle - [chattr $uhandle] [getuser $uhandle HOSTS] $createdtime"

That will only work if the created info is the only data in the EXTRA field.

[simo]

thanks Spike^^ that seems to get the proper date and time

[SpiKe^^]

Code: Select all

set created [getuser $uhandle XTRA created]
set createdtime [clock format $created -format "%d.%m.%Y - %H:%M:%S"]
putserv "NOTICE $nick :$uhandle - [chattr $uhandle] [getuser $uhandle HOSTS] $createdtime"

I believe this is the more correct way to use the getuser XTRA command.
This method should work even if there is also other data added to the XTRA field.

[simo]

excellent thanks Spike^^