IRCBrowse - no Eggdrop + no FTP!!

I looked at the "IRCUsers" hack written by eyeball (aka supreemball) using the ftp mirc script coded by Rich@home.nl and I thought wow this is cool. Then I looked at what's involved.

*It modifies global.php, meaning that EVERY PAGE of your forum loads this information even though only index.php uses it.

*It adds 1,150 lines of code to your mIRC.

*Requires 24/7 FTP access


So I thought, why not have vBulletin AND mIRC interface with a PHP file?
Thank you eyeball and Rich for the inspiration to write this!

I don't have a photo/snapshot because the PHP script runs "silent" and how the output looks all depends on your vB template.

The PHP script provides the # of total chatters, the highest # of chatters ever, and a formatted (customizable in the PHP script) comma-delimited list of users in the chat which you can insert anywhere in your templates (an example template under forumhome is provided).

The mIRC script opens a socket to your web server (HTTP) and does an "HTTP GET" to request the ircbrowse.php script. The secret is, it puts all the data in the Query line after the URL and then just ignores the page it gets back from the web server and closes the socket. This is all password-protected.

This is my first hack posted here so please be gentle.

This hack is operating on:

SereneScreen Aquarium Forum
Anime System

[TheEDIGuy]

Thanks again, Feldon! I'll apply that this evening.

[feldon23]

Actually, I think a better version would be...

PHP Code:

$ircbrowsenicks = str_replace(", ,", ",", str_replace("FORTbot", "", $ircbrowse['2'])); 


[Bumpaneer]

I have another support question. irc.resum.net also supports "superops" or admins (symbol !). I believe the mode is +a. These users don't currently show up on the list. How would I go about adding them?

~Bumpaneer

[FastAttack]

hmm well it seems that I am doing something wrong as far as the mirc side goes.. there is no scripts.ini.. and I made one..

so would it be possible for you just to release the .ini's already with the script so that we just need to place them on our mirc folder?

[Bumpaneer]

I put it in script.mrc, and that worked fine.

~Bumpaneer

[FastAttack]

this is the stuff I get on my irc window :

* /if: invalid format
* /if: invalid format
* /if: invalid format

[Ember]

This is a really great hack, i've downloaded it and will definatly install it we ever get our IRC channel online *growls*

[Tim Wheatley]

It's not working and I don't know why not. It's not writing to the text file from mIRC, it is reading and working onto the index.php display, and also is working when I enter the write details into the URL, here are my settings (obviously with the key replaced with a fake)...

mIRC 6.03.

aliases

PHP Code:

/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/k /kick # $$1 $2-
/q /query $$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-

/ircbrowse {
  ;## Change the following 3 settings:
  %ircbrowsechannel = #racesimcentral
  %ircbrowseserver = [url]www.racesimcentral.com[/url]
  %ircbrowsestr = /forum/irc/ircbrowse.php?key=2195&action=write
  ;##

  set %ircbrowsetotal $nick(%ircbrowsechannel,0)
  if ($nick(%ircbrowsechannel,0,o) > 0) %ircbrowsestr = %ircbrowsestr $+ &ops=
  var %x = 1
  while (%x <= $nick(%ircbrowsechannel,0,o)) {
    %ircbrowsestr = %ircbrowsestr $+ $nick(%ircbrowsechannel,%x,o) $+ +
    inc %x
  }
  if ($nick(%ircbrowsechannel,0,o) > 0) { %x = $len(%ircbrowsestr) - 1 | %ircbrowsestr = $left(%ircbrowsestr,%x) }
  if ($nick(%ircbrowsechannel,0,h) > 0) %ircbrowsestr = %ircbrowsestr $+ &halfops=
  %x = 1
  while (%x <= $nick(%ircbrowsechannel,0,h)) {
    %ircbrowsestr = %ircbrowsestr $+ $nick(%ircbrowsechannel,%x,h) $+ +
    inc %x
  }
  if ($nick(%ircbrowsechannel,0,h) > 0) { %x = $len(%ircbrowsestr) - 1 | %ircbrowsestr = $left(%ircbrowsestr,%x) }
  if ($nick(%ircbrowsechannel,0,v) > 0) %ircbrowsestr = %ircbrowsestr $+ &voiced=
  %x = 1
  while (%x <= $nick(%ircbrowsechannel,0,v)) {
    %ircbrowsestr = %ircbrowsestr $+ $nick(%ircbrowsechannel,%x,v) $+ +
    inc %x
  }
  if ($nick(%ircbrowsechannel,0,v) > 0) { %x = $len(%ircbrowsestr) - 1 | %ircbrowsestr = $left(%ircbrowsestr,%x) }
  if ($nick(%ircbrowsechannel,0,r) > 0) %ircbrowsestr = %ircbrowsestr $+ &users=
  %x = 1
  while (%x <= $nick(%ircbrowsechannel,0,r)) {
    %ircbrowsestr = %ircbrowsestr $+ $nick(%ircbrowsechannel,%x,r) $+ +
    inc %x
  }
  if ($nick(%ircbrowsechannel,0,r) > 0) { %x = $len(%ircbrowsestr) - 1 | %ircbrowsestr = $left(%ircbrowsestr,%x) }
  sockopen ircbrowse %ircbrowseserver 80
} 


remote

PHP Code:

on *:sockopen:ircbrowse:{
  sockwrite -n $sockname GET %ircbrowsestr HTTP/1.1
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname Accept-Language: en-us
  sockwrite -n $sockname Accept-Encoding: text
  sockwrite -n $sockname User-Agent: mIRC $+ / $+ $version (compatible; MTS Downloader 1.1; Windows $os $+ )
  sockwrite -n $sockname Host: %ircbrowseserver
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}

on *:JOIN:%ircbrowsechannel:.timer 1 4 ircbrowse  ;allow time for ops, auto-voice to gain ops + voice
on *:PART:%ircbrowsechannel:.timer 1 2 if ( %ircbrowsetotal > $!nick(%ircbrowsechannel,0) ) ircbrowse
on *:QUIT:.timer 1 2 if ( %ircbrowsetotal > $!nick(%ircbrowsechannel,0) ) ircbrowse
on *:NICK:.timer 1 2 if ( $newnick ison %ircbrowsechannel ) ircbrowse 


I do something wrong?

[Tim Wheatley]

Ah, just noticed I'm getting the * /if: invalid format the user above reported.

[Tim Wheatley]

Got it! I can either type /ircbrowse or...

I used: /timer 0 120 ircbrowse

* Timer 1 activated

I then had to wait 15mins for it to work.