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.

information forum

Old posts that have not been replied to for several years.
Locked
r
ranny
Halfop
Posts: 49
Joined: Wed Jun 22, 2005 2:00 pm
Location: switzerland

information forum

Post by ranny »

Hello all,

I make a script to recover information on line

Code: Select all

foreach line [split [::http::data $token] \n] { 
  if [string match  "*Registered Users*"  $line] {
   #### i don't know how to recover the names of Registered Users???


And with this code

Code: Select all

if [string match  "*In total there are 5 users online :: 2 Registered, 2 Hidden and 1 Guest*"  $line] {
   regexp -- {In total there are <b>(.+)</b> users online :: <b>(.+)</b> Registered, <b>(.+)</b> Hidden and <b>(.+)</b> Guest} $line - user util enr inv
I have a error message: can't read "user": no such variable .

Last question: How to calculate the number of post on a forum? It's possible?

Thanks
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

There's no $user in any of these 2 codes. Try '.set errorInfo' for more info about the error.
r
ranny
Halfop
Posts: 49
Joined: Wed Jun 22, 2005 2:00 pm
Location: switzerland

Post by ranny »

hello,

when I type .set errorinfo in partyline ==> type .help ??

But it's a same error message with $util,$enr,$inv.


Thanks
User avatar
demond
Revered One
Posts: 3073
Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:

Post by demond »

rule #1 for any eggdrop scripter: enable .tcl and .set commands in eggdrop.conf (find those unbinds and remove them)
r
ranny
Halfop
Posts: 49
Joined: Wed Jun 22, 2005 2:00 pm
Location: switzerland

Post by ranny »

hello,

Now it's ok with this code

Code: Select all

regexp -- {In total there are <b>(.+)</b> users online :: <b>(.+)</b> Registered, <b>(.+)</b> Hidden and <b>(.+)</b> Guest} $line match util enr inv nad
Another question, I does not succeed in writing the users who are on line

Code: Select all

foreach line [split [::http::data $token] \n] { 
  if [string match  "*Registered Users*"  $line] { 
#How to make to have all the registered users who are in lines?
Thanks in advance
Locked