Current IRC chatters on forumhome via mirc (no eggdrop)

Current IRC Channel Chatters on Forumhome Hack
-written by eyeball (aka supreemball) of http://www.somethingleet.com (ftp mirc script coded by Rich@home.nl)

NEW VERSION updated 01/02/03!
- added support for halfops
- added commas (no comma on last nick either )
- added 'total nicks ever on ' specified #channel

to upgrade from the previous version, replace the code in mirc and the forumhome_loggedinusers template. you don't have to overwrite the ftp.mrc file or mess with global.php while upgrading, nothing's changed with those.

This hack shows a specified IRC channel's current userlist, total # of users, and status of each user
(opped, voiced, or normal, including bold/italics for each category), all on your vb forum's main page.
This hack ONLY requires ftp access to the forum server, and <a href="http://www.mirc.com">mIRC</a> 5.91 or above (constantly connected to the channel). No bots or java irc crap needed! (mirc script code can be added to mirc-based bots though.)

A live demo of this hack is shown @ http://www.somethingleet.com/forum/index.php (shown below
the Current Online Forum Users list).

Files modified:
global.php
access.ini (used in mirc)

Templates modified:
forumhome_loggedinusers

Install.txt & needed files attached.

For support, reply to this thread or email eye@somethingleet.com.

(Hack only tested on vb2.2.6, but should work on all other 2.2.* versions)

NOTE: This hack assumes the mirc user (yourself or someone else) has full access to your ftp server via ftp. I'm not held responsible if you accidentally give this hack to someone using mirc (which in turn you would have to give the mirc user your ftp login info).

Enjoy

[ariaforums]

Thanks for the hack...works a treat

Any chance you can make like the coloured on line hack?

eg bots & ops RED , voice GREEN, normal users BLACK.

[TheVoidz]

;==[irc chatter nicklist vb forum upload script begin]=====================
/getnicks { var %x = 1
write -c nicks.php <? $chr(36) $+ ircnicks = "
while (%x <= $nick(#channel,0)) {
if ($nick(#channel,%x) isop #channel) {
write -a nicks.php <font color="#FF0000">@ $+ $nick(#channel,%x) $+ </font> $+ , }
elseif ($nick(#channel,%x) ishop #channel) {
write -a nicks.php <font color="#FF0000"> $+ $chr(37) $+ $nick(#channel,%x) $+ </font> $+ , }
elseif ($nick(#channel,%x) isvoice #channel) {
write -a nicks.php <font color="#00FF00"> $+ $chr(43) $+ $nick(#channel,%x) $+ </font> $+ , }
else { write -a nicks.php $nick(#channel,%x) $+ , }
inc %x
}
set %lastnick $read(nicks.php,$lines(nicks.php))
write -d $+ $lines(nicks.php) nicks.php
set %lastnickchars $calc($len(%lastnick) - 1)
set %nocommanick $left(%lastnick,%lastnickchars)
write -a nicks.php %nocommanick
write -a nicks.php " $+ $chr(59)
set %totalnicks $calc($lines(nicks.php) - 2)
if (%record.users == $null) { set %record.users $nick(#channel,0) }
else {
if ($nick(#channel,0) > %record.users) {
set %record.users $nick(#channel,0)
}
}
write -a nicks.php $chr(36) $+ mostnicks = $chr(34) $+ %record.users $+ $chr(34) $+ $chr(59)
write -a nicks.php $chr(36) $+ totalnicks = $chr(34) $+ %totalnicks $chr(34) $+ $chr(59) ?>
/ftp.upload -dfl ftp.yourserver.com ftplogin ftppassword /path/to/forum/nicks.php c:\path\to\mirc\nicks.php
}
;==[irc chatter nicklist vb forum upload script end]=====================

Replace this with your other mIRC Aliases

Will work assuming your forum default text color is black.

[ariaforums]

I'm getting a parse error on line 3 in nicks.php with that

Tried moding it to this but I still get a parse error on line 3 of nicks.php :

;==[irc chatter nicklist vb forum upload script begin]=====================
/getnicks { var %x = 1
write -c nicks.php <? $chr(36) $+ ircnicks = "
while (%x <= $nick(#mychan,0)) {
if ($nick(#mychan,%x) isop #mychan) {
write -a nicks.php <font color="#FF0000">@ $+ $nick(#mychan,%x) $+ </font> $+ _ }
elseif ($nick(#mychan,%x) isvoice #mychan) {
write -a nicks.php <font color="#00FF00"> $+ $chr(43) $+ $nick(#mychan,%x) $+ </font> $+ _ }
else { write -a nicks.php $nick(#mychan,%x) $+ _ }
inc %x
}
write -a nicks.php " $+ $chr(59)
set %totalnicks $calc($lines(nicks.php) - 2)
write -a nicks.php $chr(36) $+ totalnicks = $chr(34) $+ %totalnicks $chr(34) $+ $chr(59) ?>
/ftp.upload -dfl ftp.myserver.secretstuff /www/portal/forums/nicks.php c:\ircn\system\nicks.php
}
;==[irc chatter nicklist vb forum upload script end]=====================

[supreemball]

use ' instead of " on the font color= statements. that should fix it.

[ariaforums]

Could you elaborate
Im tired and not thinking straight

[TheVoidz]

oh ya that makes sence

;==[irc chatter nicklist vb forum upload script begin]=====================
/getnicks { var %x = 1
write -c nicks.php <? $chr(36) $+ ircnicks = "
while (%x <= $nick(#mychan,0)) {
if ($nick(#mychan,%x) isop #mychan) {
write -a nicks.php <font color='#FF0000'>@ $+ $nick(#mychan,%x) $+ </font> $+ _ }
elseif ($nick(#mychan,%x) isvoice #mychan) {
write -a nicks.php <font color='#00FF00'> $+ $chr(43) $+ $nick(#mychan,%x) $+ </font> $+ _ }
else { write -a nicks.php $nick(#mychan,%x) $+ _ }
inc %x
}
write -a nicks.php " $+ $chr(59)
set %totalnicks $calc($lines(nicks.php) - 2)
write -a nicks.php $chr(36) $+ totalnicks = $chr(34) $+ %totalnicks $chr(34) $+ $chr(59) ?>
/ftp.upload -dfl ftp.myserver.secretstuff /www/portal/forums/nicks.php c:\ircn\system\nicks.php
}
;==[irc chatter nicklist vb forum upload script end]=====================

[Huron]

I hope supreemball doesn't mind but I modded some of the code to display time and date of most chatters. Basically, all I did was do some cutting and pasting of what was there. The following is what I changed...

Beginning at:

if (%record.users == $null) { set %record.users $nick(#channel,0) }
else {
if ($nick(#channel,0) > %record.users) {
set %record.users $nick(#channel,0)
}
}
write -a nicks.php $chr(36) $+ mostnicks = $chr(34) $+ %record.users $+ $chr(34) $+ $chr(59)
write -a nicks.php $chr(36) $+ totalnicks = $chr(34) $+ %totalnicks $chr(34) $+ $chr(59) ?>

To:

if (%record.users == $null) { set %record.users $nick(#channel,0) }
else {
if ($nick(#channel,0) > %record.users) {
set %record.users $nick(#channel,0)
}
if (%record.date == $null) { set %record.date $date(ddd mmm doo yyyy) }
else {
if ($nick(#channel,0) > %record.users) {
set %record.date $date(ddd mmm doo yyyy)
}
if (%record.time == $null) { set %record.time $time(h:nntt) }
else {
if ($nick(#channel,0) > %record.users) {
set %record.time $time(h:nntt)
}
}
write -a nicks.php $chr(36) $+ mostnicks = $chr(34) $+ %record.users $+ $chr(34) $+ $chr(59)
write -a nicks.php $chr(36) $+ mostdate = $chr(34) $+ %record.date $+ $chr(34) $+ $chr(59)
write -a nicks.php $chr(36) $+ mosttime = $chr(34) $+ %record.time $+ $chr(34) $+ $chr(59)
write -a nicks.php $chr(36) $+ totalnicks = $chr(34) $+ %totalnicks $chr(34) $+ $chr(59) ?>

Then in Forumhome_Loggedinusers beggining at:

colspan="6"><normalfont color="#000000"><b>Current #channel chatters: $totalnicks</b></normalfont> <smallfont>(Most chatters ever in #channel: $mostnicks)</smallfont></td>
</tr>
<tr>
<td bgcolor="#13486D" colspan="6"><smallfont>
$ircnicks</smallfont></td>
</tr>

To:

colspan="6"><normalfont color="#000000"><b>Current #channel chatters: $totalnicks</b></normalfont></td>
</tr>
<tr>
<td bgcolor="#13486D" colspan="6"><smallfont>
<nobr>There are currently $totalnicks members in chat.</nobr> | <nobr>Most chatters ever online was $mostnicks on $mostdate at $mosttime.</nobr><br>
$ircnicks</smallfont></td>
</tr>

I'm new here and I hope I'm not breaking some rules. If so then please delete this post. Many thanks go out to supreemball for providing such a great hack-this has been my fav install thus far. My chatroom went from the occasional 1-2 users who would stay for about 5 minutes and then leave when no one else was there to a busy, vibrant chatroom with around 15-20 users at a time being common.

[DaTeX]

Thx Huron thats great

[ariaforums]

Colours work great

Ive added a legend in template forumhome_todaylogged in users:

<tr id="cat">
<td bgcolor="{categorybackcolor}" colspan="6"><normalfont color="{categoryfontcolor}"><b>Currently online @ YOUR IRC NETWORK #mychan: $totalnicks </b></normalfont></td>
</tr>
<tr>
<td bgcolor="{firstaltcolor}" colspan="6"><smallfont>
<font color="red" size="2">? Bots & Ops</font> *
<font color="green" size="2">? Voiced</font> *
<font color="black" size="2">? Member</font><br>
$ircnicks</smallfont></td>
</tr>

[DaTeX]

The record date an time doesnt work.
When a new record is set the %record.time and %record.date didnt gets updatet in mirc.