create a webpage with /lusers info

openglx · Post by **openglx** » Sun Nov 18, 2001 4:31 pm

Hi

I created a new irc network, and I run some eggdrops on it. I would like to know with anybody could code a tcl for me that get the /lusers info, like actual ircops on the server, number of users and so..

Thanks all

openglx · Post by **openglx** » Sun Nov 18, 2001 4:32 pm

sorry by the spam here, but anyone who talk portuguese it's welcome to irc.openglx.com.br

Wcc · Post by **Wcc** » Mon Nov 19, 2001 1:17 am

Once it gets the info, what should it do with it? Put it in a file, a webpage, dcc, email it to you, print it and mail it to the moon, what?

ppslim · Post by **ppslim** » Mon Nov 19, 2001 11:52 am

note the topic title wcc

Wcc · Post by **Wcc** » Mon Nov 19, 2001 7:48 pm

Oops, hehe, ya I can make that for ya

Wcc · Post by **Wcc** » Tue Nov 20, 2001 2:16 am

This should work... http://dawg.dynu.com/Lusers1.0.zip

JaSoN · Post by **JaSoN** » Fri Nov 23, 2001 10:27 pm

heya,
like this tcl ... i tried it with /list & /links but it doesnt work ... the only thing i see is --> End of List

Can someone help me, writing this tcl, i dun need a html file. 2 *.txt files (1 for /list & 1 for /links) would be enough for it.

Wcc · Post by **Wcc** » Sat Nov 24, 2001 7:58 pm

Sure, I can have it done by later today.

Wcc · Post by **Wcc** » Sun Nov 25, 2001 7:09 pm

http://dawg.dynu.com/NetStats1.2.zip

JaSoN · Post by **JaSoN** » Mon Nov 26, 2001 3:43 am

Thank you Wcc, it works fine

Wcc · Post by **Wcc** » Mon Nov 26, 2001 8:57 pm

no problem

sirgrim · Post by **sirgrim** » Thu Nov 29, 2001 12:18 pm

sorry, not my forum, just wanted to say WCC is god! Thanks for this too hehehe.

sirgrim · Post by **sirgrim** » Thu Nov 29, 2001 2:51 pm

what lines should be commented out to prevent the /list from being displayed. Way to many channels on my server =P.

sirgrim · Post by **sirgrim** » Thu Nov 29, 2001 3:55 pm

n/m found it.

sirgrim · Post by **sirgrim** » Sat Dec 01, 2001 4:40 pm

Hax'd this up a little. Here are the changes I made to make it purdier for a page.

proc netstats_do_final {} {
global netstats_setting netstats_links_data netstats_localserver netstats_list_data netstats_lusers_data
set ffd [open $netstats_setting(file_output) w+]
puts $ffd "<center>"
puts $ffd "Network Stats"
puts $ffd "Connected to $netstats_localserver"
puts $ffd "n"
puts $ffd "/LUSERS:"
foreach i [array names netstats_lusers_data] {
puts $ffd "$netstats_lusers_data($i)"
}
# puts $ffd "n"
# puts $ffd "/LIST:"
# foreach i [array names netstats_list_data] {
# regsub -all -- ":$" "[join $netstats_list_data($i)]" "" text2
# puts $ffd "$i $text2"
# }
puts $ffd "n"
puts $ffd "/MAP:"
puts $ffd " $netstats_localserver "
netstats_do_netmap " " $ffd $netstats_localserver
puts $ffd "n"
puts $ffd "/LINKS:"
foreach i [array names netstats_links_data] {
puts $ffd "[join $netstats_links_data($i)]"
}
puts $ffd "</center>"
close $ffd
puthelp "[exec /bin/netstats]"
}

Notice the <center> and </center> added, and the puthelp "[exec /bin/netstats]" I would have had the regular execute, but tcl didn't like the pipes, etc, so here's my /bin/netstats:

cat /www/htdocs/netstats/netstats.txt|perl -p -e 's/n/<br>n/g'>/www/htdocs/netstats/netstats2.txt

just chmod +x that so it's executable, which just puts <br>s at the end of each line, so it's not all jumbled together. Then I just <?php include("netstats2.txt"); ?> cause php is the shizit. here is my page with it if you want to see it in action. http://wagd.com/netstats/ Thanks everyone! *Hugs WCC*