User On Channel (View At Website)

blood_x · Post by **blood_x** » Thu May 15, 2003 4:42 pm

Dear All,

Anyone can review and fixed this script to be working. I've try it, but failed to work on my web server. When I opened that page, nothing is wrote in html. Furthermore, how can I set up the entire user on channel will be in vertical format i.e.

User On #mychannel
User1
User2
User3
User......

Beta Script As Below;

#USER ON CHANNEL

set usoc_ver "1.00 Beta"
set usoc_htmlfile "../public_html/userlist.php"
set usoc_chan "#kampung"
set usoc_pg_title "User On $usoc_chan"
set usoc_pg_heading "User On $usoc_chan"
set usoc_refresh_time "6"
set usoc_pgbg_color "#FFFFFF"
set usoc_topmgn "0"
set usoc_leftmgn "0"
set usoc_font_color "#808080"
set usoc_font_face "Tahoma, Sans-serif"
set usoc_font_size "2"

proc usoc:make {} {
global usoc_htmlfile usoc_chan usoc_pg_title usoc_refresh_time usoc_pgbg_color usoc_topmgn usoc_leftmgn usoc_font_color usoc_font_face usoc_font_size
set usoc_file [open $usoc_htmlfile w]
puts $usoc_file "<html>\n<head>\n <title>$usoc_pg_title</title>\n <meta http-equiv=\"Content-Language\" content=\"en-us\">\n <meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">\n <meta http-equiv=\"Refresh\" content=\"$usoc_refresh_time\">\n <style>BODY{scrollbar-arrow-color: #004080;scrollbar-3dlight-color: #BDD0EE;scrollbar-highlight-color: #004080;scrollbar-face-color: #BDD0EE;scrollbar-shadow-color: #004080;scrollbar-darkshadow-color: #BDD0EE;scrollbar-track-color: #DADADA;}</style>\n</head>"
puts $usoc_file "<body topmargin=\"$usoc_topmgn\" leftmargin=\"$usoc_leftmgn\" bgcolor=\"$usoc_pgbg_color\" text=\"$usoc_font_color\" style=\"font-family: $usoc_font_face; size: $usoc_font_size\">\n"
puts $usoc_file "<div align=\"center\">\n"
puts $usoc_file "<center>\n <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"100%\">\n"
puts $usoc_file "<td width=\"100%\" align=\"center\" valign=\"top\" style=\"font-family: $usoc_font_face; font-size: $usoc_font_size\">\n <b>$usoc_pg_heading</b><br>\n"
puts $usoc_file "[lrange [chanlist $usoc_chan] 0 end] \[[llength [chanlist $usoc_chan]]\]</td></tr></table></center></div></body><html>\n"
close $usoc_file
return 1
}

utimer 2 usoc:make

putlog "usoc v$usoc_ver by blood_x <irc@ykznet.com> loaded."

Thanks for your support and commitments.

Post by **caesar** » Fri May 16, 2003 5:59 am

One small sugestion, set it's entire path like: /home/bla/web/myhtml.php in the set usoc_htmlfile. This should help a bit. Also try placing some putlog's to see where it stucks.

blood_x · Post by **blood_x** » Fri May 16, 2003 2:11 pm

caesar wrote:One small sugestion, set it's entire path like: /home/bla/web/myhtml.php in the set usoc_htmlfile. This should help a bit. Also try placing some putlog's to see where it stucks.

Thanks Caesar, its work

I've fixed the script as below;

#USER ON CHANNEL

set usoc_ver "1.01 Beta"
set usoc_htmlfile "dir/dir/username/public_html/userlist.php"
set usoc_chan "#kampung"
set usoc_pg_title "User On $usoc_chan"
set usoc_pg_heading "User On $usoc_chan"
set usoc_refresh_time "6"
set usoc_pgbg_color "#FFFFFF"
set usoc_topmgn "0"
set usoc_leftmgn "0"
set usoc_font_color "#808080"
set usoc_font_face "Tahoma"
set usoc_font_size "2"

proc usoc:make {} {
global usoc_htmlfile usoc_chan usoc_pg_title usoc_pg_heading usoc_refresh_time usoc_pgbg_color usoc_topmgn usoc_leftmgn usoc_font_color usoc_font_face usoc_font_size
set usoc_file [open $usoc_htmlfile w]
puts $usoc_file "<html>\n<head>\n <title>$usoc_pg_title</title>\n <meta http-equiv="Content-Language" content="en-us">\n <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">\n <meta http-equiv="Refresh" content="$usoc_refresh_time">\n <style>BODY{scrollbar-arrow-color: #004080;scrollbar-3dlight-color: #BDD0EE;scrollbar-highlight-color: #004080;scrollbar-face-color: #BDD0EE;scrollbar-shadow-color: #004080;scrollbar-darkshadow-color: #BDD0EE;scrollbar-track-color: #DADADA;}</style>\n</head>"
puts $usoc_file "<body topmargin="$usoc_topmgn" leftmargin="$usoc_leftmgn" bgcolor="$usoc_pgbg_color" text="$usoc_font_color" style="font-family: $usoc_font_face; size: $usoc_font_size">\n"
puts $usoc_file "<div align="center">\n"
puts $usoc_file "<center>\n <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">\n"
puts $usoc_file "<td width="100%" align="center" valign="top">\n <font size="$usoc_font_size" face="usoc_font_face">\n<b>$usoc_pg_heading</font></b><font><br>\n"
puts $usoc_file "<font size="$usoc_font_size" face="$usoc_font_face">\n[lrange [chanlist $usoc_chan] 0 end] \[[llength [chanlist $usoc_chan]]\]</font></td>\n"
puts $usoc_file "</tr></table></center></div>\n"
close $usoc_file
return 1
}

utimer 2 usoc:make

putlog "usoc v$usoc_ver by blood_x <irc@ykznet.com> loaded."

Seems there's nothing error, but how can I set up nicklist to be in vertical format. For example, the script will return into html as below;

User On #mychannel
Nick1
Nick2
Nick3
Nick4
Nick etc
Nick etc...

In other word, the table will automatically arange user nick in vertical format instead of nick1 nick2 nick3 nick4 nick_etc1 nick_etc2 nick_etc...... as seen on my web http://rs1.risingnet.net/~fzay/userlist.php

Papillon · Post by **Papillon** » Fri May 16, 2003 3:08 pm

Code: Select all

[lrange [chanlist $usoc_chan] 0 end]

change this to

Code: Select all

[join [lrange [chanlist $usoc_chan] 0 end]]

blood_x · Post by **blood_x** » Fri May 16, 2003 3:34 pm

Papillon wrote:
Code: Select all
[lrange [chanlist $usoc_chan] 0 end]
change this to
Code: Select all
[join [lrange [chanlist $usoc_chan] 0 end]]

Dear Papillon,

I've changed it but still doesn't work... I need it to fit in inline frame as seen on http://rs1.risingnet.net/~fzay/usertest.htm

So, it require nick list to be in vertical format, rite?