/begintime {
  timeract 0 %ircwait startcount
}

/startcount {
  %sockstring = do=refresh&key= $+ %irckey $+ &chan= $+ %ircchan $+ &activity= $+ %irclines

  sockopen vbmisc %vbserver 80

  set %irclines 0
}

/topicrefresh {
  ircrefresh
  %chantopic = $replace($chan(%ircchan).topic,&,and,+,plus)
  %sockstring = do=refresh&key= $+ %irckey $+ &chan= $+ %ircchan $+ &topic= $+ $strip(%chantopic)

  sockopen vbmisc %vbserver 80
}

/ircrefresh {
  ; Configuration ;

  %vbserver    = www.gamers.gr
  %vbfilepath  = /forums/irconline.php
  %irckey      = 54321
  %ircchan     = #gamers
  %ircwait     = 120

  ; set %irckey to some unique password.  You must change the 
  ;     variable $irckey in irconline.php to match this value!
  ; set %ircchan to your channel handle
  ; set %ircwait to the number of seconds between each activity update

  ; Example config:

  ; %vbserver    = www.mycoolsite.com
  ; %vbfilepath  = /forums/irconline.php
  ; %irckey      = 12345
  ; %ircchan     = #coolstuff
  ; %ircwait     = 120

  ; Don't modify the below ;

  unset %ops
  unset %halfops
  unset %voiced
  unset %users

  set %irconline $nick(%ircchan,0)

  %sockstring = do=refresh&chan= $+ %ircchan $+ &key= $+ %irckey 
  %sockstring = %sockstring $+ &online= $+ %irconline
  %sockstring = %sockstring $+ &dateline= $+ $ctime

  if ($nick(%ircchan,0,o) > 0) {
    %ops = &ops=
  }

  var %i = 1

  while (%i <= $nick(%ircchan,0,o)) {
    %ops = %ops $+ @ $+ $nick(%ircchan,%i,o) $+ +
    inc %i
  }

  if ($nick(%ircchan,0,o) > 0) {
    %i = $len(%ops) - 1
    %ops = $left(%ops,%i)
  }

  if ($nick(%ircchan,0,h) > 0) {
    %halfops = &halfops=
    %i = 1
  }

  while (%i <= $nick(%ircchan,0,h)) {
    %halfops = %halfops $+ % $+ $nick(%ircchan,%i,h) $+ +
    inc %i
  }

  if ($nick(%ircchan,0,h) > 0) {
    %i = $len(%halfops) - 1
    %halfops = $left(%halfops,%i)
  }

  if ($nick(%ircchan,0,v) > 0) {
    %voiced = &voiced=
  }

  %i = 1

  while (%i <= $nick(%ircchan,0,v)) {
    %voiced = %voiced $+ ^ $+ $nick(%ircchan,%i,v) $+ +
    inc %i
  }

  if ($nick(%ircchan,0,v) > 0) {
    %i = $len(%voiced) - 1
    %voiced = $left(%voiced,%i)
  }

  if ($nick(%ircchan,0,r) > 0) {
    %users = &users=
  }

  %i = 1

  while (%i <= $nick(%ircchan,0,r)) {
    %users = %users $+ $nick(%ircchan,%i,r) $+ +
    inc %i
  }

  if ($nick(%ircchan,0,r) > 0) {
    %i = $len(%users) - 1
    %users = $left(%users,%i)
  }

  unset %oplen
  unset %halfoplen
  unset %voicedlen
  unset %userslen

  %oplen = $len(%ops)
  %halfoplen = $len(%halfops)
  %voicedlen = $len(%voiced)
  %userslen = $len(%users)

  %socksize = $calc(%oplen + %halfoplen + %voicedlen + %userslen + $len(%sockstring))

  sockopen vbusers %vbserver 80
}