mIRC Stats — File Browser

mIRCStatsv4.61 / mIRCStatsv4.61 / stats / webpages / metax / metax.mrc

metax.mrc — 29.46 KB — Download this file

alias statswebmetax {
  var %ticks = $ticks
  sw <html>
  sw <head>
  sw <style type='text/css'>
  sw body $chr(123) font-size: 8pt; background: #ffffff; font-family: tahoma; color: #000000; $chr(125)
  sw table $chr(123) font-size: 8pt; font-family: tahoma $chr(125)

  sw .bar $chr(123) border-right: #000000 1px solid; border-top: #000000 1px solid; font-size: 8pt; background: #eeeeee; border-left: #000000 1px solid; border-bottom: #000000 1px solid; font-family: tahoma $chr(125)
  sw .code $chr(123) background: #eeeeee; font-family: tahoma; margin-left: 30; margin-top: 10; padding-left: 10; padding-top: 3; padding-bottom: 3; padding-right: 10; $chr(125)
  sw td $chr(123) font-weight: bold; $chr(125)
  sw a $chr(123) font-weight: bold; font-size: 8pt; color: #0066AC; font-family: tahoma; text-decoration: none $chr(125)
  sw a.i $chr(123) font-weight: bold; font-size: 8pt; color: #D60000; font-family: tahoma; text-decoration: none $chr(125)
  sw a:link $chr(123) font-weight: bold; font-size: 8pt; color: #888888; font-family: tahoma; text-decoration: none $chr(125)
  sw a:visited $chr(123) font-weight: bold; font-size: 8pt; color: #888888; font-family: tahoma; text-decoration: none $chr(125)
  sw a:active $chr(123) font-weight: bold; font-size: 8pt; color: #888888; font-family: tahoma; text-decoration: none $chr(125)
  sw a:hover $chr(123) font-weight: bold; font-size: 8pt; color: #888888; font-family: tahoma; text-decoration: underline $chr(125)
  sw hr $chr(123) font-weight: bold; font-size: 8pt; color: #0066AC; $chr(125)
  sw </style>

  sw <title> $sinfo(p,wintitle) </title>
  sw </head>

  sw <body topmargin="0" leftmargin="5">

  sw <table border="0" width="100%" cellspacing="0" cellpadding="0">
  sw <tr><td heigth=200 align=left valign=middle><br><br></td></tr>
  sw </table>

  sw <table class=bar width=100%><tr>
  sw <td align=left width=33%><nobr><a href="http://www.voiceofpower.us/scripts/mstats461.zip">mIRC Stats v $+ $sinfo(p,version) </a></nobr></td>
  sw <td align=center width=33%> $sinfo(p,pagetitle) </td>
  sw <td align=right width=33%><nobr><a href='mailto:marckuiper@hotmail.com'>Voice of Power</a></nobr></td>
  sw </tr></table><br>

  sw <table border=0 width="100%" cellspacing=4 cellpadding=2>
  sw <tr valign=top>
  sw <td width=100%>

  sw <p align="justify">
  sw <a href="/info">Personal Information</a>
  if ($sinfo(p,showserv)) { sw - <a href="/servers">Servers</a> }
  if ($sinfo(p,showcount)) { sw - <a href="/counters">Counters</a> }
  if ($sinfo(p,showsys)) { sw - <a href="/sysstats">System Stats</a> }

  sw <hr><br>
  var %page = $1

  if (%page == /) || (%page == /info) {
    sw <ul>
    sw <table border=0 cellpadding=0 cellspacing=0 width=96%>
    sw <tr><td align=left valign=top>

    sw <table width=500 border=0 cellpadding=0 cellspacing=0>
    sw <tr><td width=100><a>Main Nick:</a></td><td align=left> $iif($sinfo(p,nick),$ifmatch,-) </td></tr>
    sw <tr><td><a>Alt-Nick:</a></td><td> $iif($sinfo(p,anick),$ifmatch,-) </td></tr>
    sw <tr><td><a>Full name:</a></td><td> $iif($sinfo(p,fullname),$ifmatch,-) </td></tr>
    sw <tr><td><a>Location:</a></td><td> $iif($sinfo(p,location),$ifmatch,-) </td></tr>
    sw <tr><td><a>Age:</a></td><td> $iif($sinfo(p,age),$ifmatch,-) </td></tr>
    sw <tr><td><a>Gender:</a></td><td> $iif($sinfo(p,gender),$ifmatch,-) </td></tr>
    sw <tr><td><br></td></tr>
    sw <tr><td><a>Hobbies:</a></td><td> $iif($sinfo(p,hobbies),$ifmatch,-) </td></tr>
    sw <tr><td><a>Occupation:</a></td><td> $iif($sinfo(p,occ),$ifmatch,-) </td></tr>
    sw <tr><td><a>Bio:</a></td><td> $iif($sinfo(p,bio),$ifmatch,-) </td></tr>
    sw <tr><td><br></td></tr>
    sw <tr><td><a>E-mail:</a></td><td><a href="mailto: $+ $strip($sinfo(p,email)) $+ " target="_blank"> $iif($sinfo(p,email),$ifmatch,-) </a></td></tr>
    sw <tr><td><a>Website:</a></td><td><a href=" $+ $strip($sinfo(p,website)) $+ " target="_blank"> $iif($sinfo(p,website),$ifmatch,-) </a></td></tr>
    sw <tr><td><a>MSN Addy:</a></td><td> $iif($sinfo(p,msn),$ifmatch,-) </td></tr>
    sw <tr><td><a>AIM Nick:</a></td><td> $iif($sinfo(p,aim),$ifmatch,-) </td></tr>
    sw <tr><td><a>ICQ Number:</a></td><td> $iif($sinfo(p,icq),$ifmatch,-) </td></tr>
    sw <tr><td><a>Yahoo Addy:</a></td><td> $iif($sinfo(p,yahoo),$ifmatch,-) </td></tr>
    sw <tr><td><br></td></tr>
    sw <tr><td><a>IRC Networks:</a></td><td> $iif($sinfo(p,nets),$ifmatch,-) </td></tr>
    sw <tr><td><a>IRC Chans:</a></td><td> $iif($sinfo(p,chans),$ifmatch,-) </td></tr>
    sw <tr><td><a>IRC Nicks:</a></td><td> $iif($sinfo(p,nicks),$ifmatch,-) </td></tr>
    sw </table>
    sw </ul>

    sw </td><td align=right valign=top>

    if ($sinfo(p,showtime)) {
      sw <table width="300" class="bar">
      sw <tr><td colspan=2>Time:<hr></td></tr>
      sw <tr><td width=100>Hour:</td><td> $sinfo(t,time) </td></tr>
      sw <tr><td valign=top>Date:</td><td> $sinfo(t,date) <br><br></td></tr>
      sw <tr><td>Total online:</td><td> $sinfo(t,totalonline) </td></tr>
      sw <tr><td>mIRC uptime:</td><td> $sinfo(t,mirc) </td></tr>
      sw <tr><td>System uptime:</td><td> $sinfo(t,system) </td></tr>
      sw </table>
    }
    sw </td></table></ul>
  }

  ;######################################

  elseif (/servers* iswm %page) && ($sinfo(p,showserv)) {
    sw <ul>
    sw <table width="96%" class="bar">
    sw <tr><td>Server<hr></td><td>Network<hr></td><td>Nick<hr></td><td>Chans<hr></td><td>Query's<hr></td><td>More Info<hr></td></tr>
    if ($scon(1).status == disconnected) { sw <tr><td>Not connected</td><td>-</td><td>-</td><td>-</td><td>-</td><td>-</td></tr> }
    var %s1 $scon(0)
    var %s2 1
    while (%s2 <= %s1) {
      if ($scon(%s2).status == connected) { scon %s2 | sw <tr><td><a href="irc:// $+ $server $+ /"> $server </a></td><td> $iif($network,$ifmatch,unknown) </td><td> $me </td><td> $chan(0) </td><td> $query(0) </td><td><a href="/servers/?id= $+ %s2 $+ ">Click!</a></tr> }
      inc %s2 1
    }
    sw </table><hr>

    if (/servers/?id=* iswm %page) {
      var %s3 = $right(%page,-13)
      scon %s3
      sw <br>
      sw <table border="0" cellpadding="0" cellspacing="0">
      sw <tr><td align="left" valign="top">

      sw <table width="300" class="bar">
      sw <tr><td colspan=2>Server Information:<hr></td></tr>
      sw <tr><td>Server:</td><td> $server </td></tr>
      sw <tr><td>Network:</td><td> $iif($network,$network,-) </td></tr>
      sw <tr><td>Port:</td><td> $iif($port,$port,-) </td></tr>
      sw <tr><td>IP address:</td><td> $iif($serverip,$serverip,-) </td></tr>
      sw <tr><td colspan=2></td></tr>
      sw <tr><td colspan=2></td></tr>
      sw <tr><td>Nickname:</td><td> $me </td></tr>
      sw <tr><td>Usermodes:</td><td> $iif($usermode != $chr(43),$left($usermode,1) $right($usermode,-1),-) </td></tr>
      sw <tr><td>Connected:</td><td> $uptime(server,1) </td></tr>
      sw <tr><td>Idle time:</td><td> $duration($idle) </td></tr>
      sw <tr><td>Away:</td><td> $iif($away == $true,yes,no) </td></tr>
      sw <tr><td colspan=2></td></tr>
      sw <tr><td colspan=2></td></tr>
      sw <tr><td>Chan types:</td><td> $iif($chantypes,$ifmatch,-) </td></tr>
      sw <tr><td>Chan modes:</td><td> $iif($chanmodes,$ifmatch,-) </td></tr>
      sw <tr><td>Mode prefix:</td><td> $iif($prefix,$prefix,-) </td></tr>
      sw <tr><td>Mode params:</td><td> $iif($modespl,$ifmatch,-) </td></tr>
      sw </table><br>

      sw <table width="300" class="bar">
      sw <tr><td>Channels:<hr></td></tr>
      var %c1 = $chan(0),%c2 = 1,%c3,%c5 = $1
      tokenize 45 $1
      while (%c2 <= %c1) {
        if (s isin $gettok($chan(%c2).mode,1,32)) && (!$sinfo(p,showsec)) { goto noshow }
        elseif (p isin $gettok($chan(%c2).mode,1,32)) && (!$hg(showpriv)) { goto noshow }
        else { set %c3 %c3 $+ $iif(%c2 != 1,$chr(44)) <a href=" $+ $1 $+ -c $+ %c2 $+ "> $+ $chan(%c2) $+ </a> }
        :noshow
        inc %c2 1
      }
      if (%c3 == $null) { sw <tr><td>none</td></tr> }
      else { sw <tr><td> %c3 </td></tr> }
      sw </table><br>

      sw <table width="300" class="bar">
      sw <tr><td>Query's:<hr></td></tr>
      var %q1 = $query(0),%q2 = 1,%q3
      while (%q2 <= %q1) {
        set %q3 %q3 $+ $iif(%q2 != 1,$chr(44)) <a href=" $+ $1 $+ -q $+ %q2 $+ "> $+ $query(%q2) $+ </a>
        inc %q2 1
      }
      if (%q3 == $null) { sw <tr><td>none</td></tr> }
      else { sw <tr><td> %q3 </td></tr> }
      sw </table></td><td>&nbsp; &nbsp; &nbsp; </td>


      if (*c* iswm $2) {
        sw <td valign="top" align="left">
        var %c4 = $right($2,-1)
        scon %s3
        sw <table align="left" valign="top" width="300" class="bar">
        sw <tr><td colspan=2>Channel Information:<hr></td></tr>
        sw <tr><td>Channel:</td><td> $chan(%c4) </td></tr>
        sw <tr><td>Total users:</td><td> $nick($chan(%c4),0,a) </td></tr>
        sw <tr><td>Ops:</td><td> $nick($chan(%c4),0,o) ( $+ $iif($int($calc($nick($chan(%c4),0,o) / $nick($chan(%c4),0,a) * 100)) == $null,0,$int($calc($nick($chan(%c4),0,o) / $nick($chan(%c4),0,a) * 100)))) $+ % $+ ) </td></tr>
        sw <tr><td>Halfops:</td><td> $nick($chan(%c4),0,h) ( $+ $iif($int($calc($nick($chan(%c4),0,h) / $nick($chan(%c4),0,a) * 100)) == $null,0,$int($calc($nick($chan(%c4),0,h) / $nick($chan(%c4),0,a) * 100)))) $+ % $+ ) </td></tr>
        sw <tr><td>Voiced:</td><td> $nick($chan(%c4),0,v) ( $+ $iif($int($calc($nick($chan(%c4),0,r) / $nick($chan(%c4),0,a) * 100)) == $null,0,$int($calc($nick($chan(%c4),0,v) / $nick($chan(%c4),0,a) * 100)))) $+ % $+ ) </td></tr>
        sw <tr><td>Regulars:</td><td> $nick($chan(%c4),0,r) ( $+ $iif($int($calc($nick($chan(%c4),0,r) / $nick($chan(%c4),0,a) * 100)) == $null,0,$int($calc($nick($chan(%c4),0,r) / $nick($chan(%c4),0,a) * 100)))) $+ % $+ ) </td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td>Topic:</td><td> $iif($chan(%c4).topic,$strip($ifmatch),-) </td></tr>
        sw <tr><td>Modes:</td><td> $iif($chan($chan(%c4)).mode,$left($chan($chan(%c4)).mode,1) $right($chan($chan(%c4)).mode,-1),-) </td></tr>
        sw <tr><td>Key:</td><td> $iif($chan(%c4).key,$ifmatch,-) </td></tr>
        sw <tr><td>Limit:</td><td> $iif($chan(%c4).limit,$ifmatch,-) </td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td>Window ID:</td><td> $chan(%c4).wid </td></tr>
        sw <tr><td>Connection ID:</td><td> $chan(%c4).cid </td></tr>
        sw </table></td>

        sw <td>&nbsp; &nbsp; &nbsp;</td><td valign="top" align="left"><table align="left" valign="top" width="300" class="bar">
        sw <tr><td colspan=2>Users for $chan(%c4) $+ :<hr></td><td> $nick($chan(%c4),0) <hr></td></tr>
        var %u1 $nick($chan(%c4),0)
        var %u2 1
        while (%u2 <= %u1) {
          sw <tr><td> %u2 $+ .</td><td> $iif($nick($chan(%c4),%u2) !isreg $chan(%c4),$left($nick($chan(%c4),%u2).pnick,1)) $nick($chan(%c4),%u2) </td></tr>
          if (%u2 >= 100) { <tr><td colspan=2><b>- Too much users to list!</b></td></tr> | break }
          inc %u2 1
        }
        sw </table></td>
      }

      if (*q* iswm $2) {
        sw <td valign="top" align="left">
        var %q4 = $right($2,-1)
        scon %s3
        sw <table align="left" valign="top" width="300" class="bar">
        sw <tr><td colspan=2 bgcolor= $+ $hg(colorheadertable) $+ ><b>Query Information:</b></td></tr>
        sw <tr><td>Nickname:</td><td> $query(%q4) </td></tr>
        sw <tr><td>Address:</td><td> $iif($query(%q4).addr,$ifmatch,-) </td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td>Comchans:</td><td> $comchan($query(%q4),0) </td></tr>
        var %q5 $comchan($query(%q4),0)
        var %q6 1
        while (%q6 <= %q5) {
          sw <tr><td> $iif($query(%q4) !isreg $comchan($query(%q4),%q6),$left($nick($comchan($query(%q4),%q6),$query(%q4)).pnick,1)) </td><td> $comchan($query(%q4),%q6) </td></tr>
          inc %q6
        }
        sw <tr><td colspan=2></td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td>Window ID:</td><td> $query(%q4).wid </td></tr>
        sw <tr><td>Connection ID:</td><td> $query(%q4).cid </td></tr>
        sw </table>
      }
      sw </table>
    }
    sw </ul>
  }

  ;######################################

  elseif (/counters* iswm %page) && ($sinfo(p,showcount)) {
    sw <ul>
    sw <table width="100%" border="0" cellpadding="0" cellspacing="0">
    sw <tr><td align="left" valign="top">

    sw <table width="400" class="bar">
    sw <tr><td width=100>Event</td><td>Times</td><td>Per day</td><td>% of total</td></tr>
    sw <tr><td><hr>Basic Events<hr></td><td align=right colspan=3><hr>Since: $sinfo(e,date) <hr></td></tr>
    sw <tr><td>Started mIRC:</td><td> $sinfo(e,started) </td><td> $sinfo(e,started).day </td><td> $sinfo(e,started).p </td></tr>
    sw <tr><td>Viewed stats:</td><td> $sinfo(e,viewed) </td><td> $sinfo(e,viewed).day </td><td> $sinfo(e,viewed).p </td></tr>
    sw <tr><td>Echos:</td><td> $sinfo(e,echo) </td><td> $sinfo(e,echo).day </td><td> $sinfo(e,echo).p </td></tr>
    sw <tr><td>CTCP replies:</td><td> $sinfo(e,ctcps) </td><td> $sinfo(e,ctcps).day </td><td> $sinfo(e,ctcps).p </td></tr>
    sw <tr><td>Webpage hits:</td><td> $sinfo(e,pagehits) </td><td> $sinfo(e,pagehits).day </td><td> $sinfo(e,pagehits).p </td></tr>
    sw <tr><td>DCC sent:</td><td> $sinfo(e,dccsend) </td><td> $sinfo(e,dccsend).day </td><td> $sinfo(e,dccsend).p </td></tr>
    sw <tr><td>&nbsp; &nbsp; Size:</td><td> $bytes($sinfo(e,dccsendsize),3).suf </td><td> $bytes($sinfo(e,dccsendsize).day,3).suf </td><td>-</td></tr>
    sw <tr><td>DCC recieved:</td><td> $sinfo(e,dccget) </td><td> $sinfo(e,dccget).day </td><td> $sinfo(e,dccget).p </td></tr>
    sw <tr><td>&nbsp; &nbsp; Size:</td><td> $bytes($sinfo(e,dccgetsize),3).suf </td><td> $bytes($sinfo(e,dccgetsize).day,3).suf </td><td>-</td></tr>
    sw <tr><td><hr>Text Stuff<hr></td><td align=right colspan=3><hr>Since: $sinfo(e,date).p <hr></td></tr>
    sw <tr><td>Lines:</td><td> $sinfo(e,lines) </td><td> $sinfo(e,lines).day </td><td> $sinfo(e,lines).p </td></tr>
    sw <tr><td>Words:</td><td> $sinfo(e,words) </td><td> $sinfo(e,words).day </td><td> $sinfo(e,words).p </td></tr>
    sw <tr><td>Characters:</td><td> $sinfo(e,chars) </td><td> $sinfo(e,chars).day </td><td> $sinfo(e,chars).p </td></tr>
    sw <tr><td>Punctuations:</td><td> $sinfo(e,puncs) </td><td> $sinfo(e,puncs).day </td><td> $sinfo(e,puncs).p </td></tr>
    sw <tr><td>Smilies:</td><td> $sinfo(e,smilies) </td><td> $sinfo(e,smilies).day </td><td> $sinfo(e,smilies).p </td></tr>
    sw <tr><td><hr>Custom Words<hr></td><td align=right colspan=3><hr>Since: $sinfo(e,date).p <hr></td></tr>
    if ($sinfo(e,cwords,0)) {
      var %c = 1,%c2 = $ifmatch
      while (%c <= %c2) {
        var %w = $sinfo(e,cwords,%c)
        sw <tr><td> $gettok(%w,2-,46) $+ : </td><td> $sinfo(e,%w) </td><td> $sinfo(e,%w).day </td><td> $sinfo(e,%w).p </td></tr>
        inc %c
      }
    }
    sw <tr><td><hr>Total:</td><td><hr> $sinfo(e,total) </td><td><hr> $sinfo(e,total).day </td><td><hr> $sinfo(e,total).p </td></tr>
    else { sw <tr><td>None</td></tr> }
    sw </table>

    sw </td><td align="left" valign="top">&nbsp; &nbsp; &nbsp; </td><td align="left" valign="top">
    sw <table width="400" class="bar" align="left" valign="top">
    sw <tr><td width=100>Event</td><td>Times</td><td>Per day</td><td>% of total</td></tr>
    sw <tr><td><hr>Been Stats<hr></td><td align=right colspan=3><hr>Since: $sinfo(b,date) <hr></td></tr>
    sw <tr><td>Oped:</td><td> $sinfo(b,oped) </td><td> $sinfo(b,oped).day </td><td> $sinfo(b,oped).p </td></tr>
    sw <tr><td>Deoped:</td><td> $sinfo(b,deoped) </td><td> $sinfo(b,deoped).day </td><td> $sinfo(b,deoped).p </td></tr>
    sw <tr><td>Halfoped:</td><td> $sinfo(b,halfoped) </td><td> $sinfo(b,halfoped).day </td><td> $sinfo(b,halfoped).p </td></tr>
    sw <tr><td>Dehalfoped:</td><td> $sinfo(b,dehalfoped) </td><td> $sinfo(b,dehalfoped).day </td><td> $sinfo(b,dehalfoped).p </td></tr>
    sw <tr><td>Voiced:</td><td> $sinfo(b,voiced) </td><td> $sinfo(b,voiced).day </td><td> $sinfo(pb,voiced).p </td></tr>
    sw <tr><td>Devoiced:</td><td> $sinfo(b,devoiced) </td><td> $sinfo(b,devoiced).day </td><td> $sinfo(b,devoiced).p </td></tr>
    sw <tr><td>Kicked:</td><td> $sinfo(b,kicked) </td><td> $sinfo(b,kicked).day </td><td> $sinfo(b,kicked).p </td></tr>
    sw <tr><td>Banned:</td><td> $sinfo(b,banned) </td><td> $sinfo(b,banned).day </td><td> $sinfo(b,banned).p </td></tr>
    sw <tr><td><br>Total:</td><td><br> $sinfo(b,total) </td><td><br> $sinfo(b,total).day </td><td><br> $sinfo(b,total).p </td></tr>

    sw <tr><td><hr>Have Stats<hr></td><td align=right colspan=3><hr>Since: $sinfo(h,date) <hr></td></tr>
    sw <tr><td>Oped:</td><td> $sinfo(h,oped) </td><td> $sinfo(h,oped).day </td><td> $sinfo(h,oped).p </td></tr>
    sw <tr><td>Deoped:</td><td> $sinfo(h,deoped) </td><td> $sinfo(h,deoped).day </td><td> $sinfo(h,deoped).p </td></tr>
    sw <tr><td>Halfoped:</td><td> $sinfo(h,halfoped) </td><td> $sinfo(h,halfoped).day </td><td> $sinfo(h,halfoped).p </td></tr>
    sw <tr><td>Dehalfoped:</td><td> $sinfo(h,dehalfoped) </td><td> $sinfo(h,dehalfoped).day </td><td> $sinfo(h,dehalfoped).p </td></tr>
    sw <tr><td>Voiced:</td><td> $sinfo(h,voiced) </td><td> $sinfo(h,voiced).day </td><td> $sinfo(h,voiced).p </td></tr>
    sw <tr><td>Devoiced:</td><td> $sinfo(h,devoiced) </td><td> $sinfo(h,devoiced).day </td><td> $sinfo(h,devoiced).p </td></tr>
    sw <tr><td>Kicked:</td><td> $sinfo(h,kicked) </td><td> $sinfo(h,kicked).day </td><td> $sinfo(h,kicked).p </td></tr>
    sw <tr><td>Banned:</td><td> $sinfo(h,banned) </td><td> $sinfo(h,banned).day </td><td> $sinfo(h,banned).p </td></tr>
    sw <tr><td>Changed nick:</td><td> $sinfo(h,nick) </td><td> $sinfo(h,nick).day </td><td> $sinfo(h,nick).p </td></tr>
    sw <tr><td>Set topic:</td><td> $sinfo(h,topic) </td><td> $sinfo(h,topic).day </td><td> $sinfo(h,topic).p </td></tr>
    sw <tr><td>Quit server:</td><td> $sinfo(h,quit) </td><td> $sinfo(h,quit).day </td><td> $sinfo(h,quit).p </td></tr>
    sw <tr><td>Joined chan:</td><td> $sinfo(h,joined) </td><td> $sinfo(h,joined).day </td><td> $sinfo(h,joined).p </td></tr>
    sw <tr><td>Parted chan:</td><td> $sinfo(h,parted) </td><td> $sinfo(h,parted).day </td><td> $sinfo(h,parted).p </td></tr>
    sw <tr><td>Querys:</td><td> $sinfo(h,query) </td><td> $sinfo(h,query).day </td><td> $sinfo(h,query).p </td></tr>
    sw <tr><td>Connected:</td><td> $sinfo(h,connected) </td><td> $sinfo(h,connected).day </td><td> $sinfo(h,connected).p </td></tr>
    sw <tr><td><br>Total:</td><td><br> $sinfo(h,total) </td><td><br> $sinfo(h,total).day </td><td><br> $sinfo(h,total).p </td></tr>

    sw <tr><td><hr>Seen Stats<hr></td><td align=right colspan=3><hr>Since: $sinfo(s,date) <hr></td></tr>
    sw <tr><td>Oped:</td><td> $sinfo(s,oped) </td><td> $sinfo(s,oped).day </td><td> $sinfo(s,oped).p </td></tr>
    sw <tr><td>Deoped:</td><td> $sinfo(s,deoped) </td><td> $sinfo(s,deoped).day </td><td> $sinfo(s,deoped).p </td></tr>
    sw <tr><td>Halfoped:</td><td> $sinfo(s,halfoped) </td><td> $sinfo(s,halfoped).day </td><td> $sinfo(s,halfoped).p </td></tr>
    sw <tr><td>Dehalfoped:</td><td> $sinfo(s,dehalfoped) </td><td> $sinfo(s,dehalfoped).day </td><td> $sinfo(s,dehalfoped).p </td></tr>
    sw <tr><td>Voiced:</td><td> $sinfo(s,voiced) </td><td> $sinfo(s,voiced).day </td><td> $sinfo(s,voiced).p </td></tr>
    sw <tr><td>Devoiced:</td><td> $sinfo(s,devoiced) </td><td> $sinfo(s,devoiced).day </td><td> $sinfo(s,devoiced).p </td></tr>
    sw <tr><td>Kicked:</td><td> $sinfo(s,kicked) </td><td> $sinfo(s,kicked).day </td><td> $sinfo(s,kicked).p </td></tr>
    sw <tr><td>Banned:</td><td> $sinfo(s,banned) </td><td> $sinfo(s,banned).day </td><td> $sinfo(s,banned).p </td></tr>
    sw <tr><td>Nick change:</td><td> $sinfo(s,nick) </td><td> $sinfo(s,nick).day </td><td> $sinfo(s,nick).p </td></tr>
    sw <tr><td>Topic change:</td><td> $sinfo(s,topic) </td><td> $sinfo(s,topic).day </td><td> $sinfo(s,topic).p </td></tr>
    sw <tr><td>Server quit:</td><td> $sinfo(s,quit) </td><td> $sinfo(s,quit).day </td><td> $sinfo(s,quit).p </td></tr>
    sw <tr><td>Chan join:</td><td> $sinfo(s,joined) </td><td> $sinfo(s,joined).day </td><td> $sinfo(s,joined).p </td></tr>
    sw <tr><td>Chan part:</td><td> $sinfo(s,parted) </td><td> $sinfo(s,parted).day </td><td> $sinfo(s,parted).p </td></tr>
    sw <tr><td><br>Total:</td><td><br> $sinfo(s,total) </td><td><br> $sinfo(s,total).day </td><td><br> $sinfo(s,total).p </td></tr>
    sw </table>

    sw </td></tr></table>
    sw </ul>
  }

  elseif (/sysstats* iswm %page) && ($sinfo(p,showsys)) {
    sw <ul>
    sw <table border="0" cellpadding="0" cellspacing="0">
    sw <tr><td align="left" valign="top">

    sw <table width="300" class="bar">
    sw <tr><td colspan=2>CPU<hr></td></tr>
    sw <tr><td valign=top>CPU:</td><td> $iif($sinfo(y,cpu),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Manufacturer:</td><td> $iif($sinfo(y,man),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Megahertz:</td><td> $iif($sinfo(y,mhz),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Cache:</td><td> $iif($sinfo(y,cache),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Load:</td><td> $iif($sinfo(y,load),$ifmatch,-) </td></tr>
    sw <tr><td colspan=2><hr>RAM<hr></td></tr>
    sw <tr><td valign=top>RAM ammount:</td><td> $iif($sinfo(y,ram),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>In use:</td><td> $iif($sinfo(y,ramuse),$ifmatch,-) </td></tr>
    sw <tr><td colspan=2><hr>Operating System<hr></td></tr>
    sw <tr><td valign=top>OS:</td><td> $iif($sinfo(y,os),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Version:</td><td> $iif($sinfo(y,osver),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Build:</td><td> $iif($sinfo(y,osbuild),$ifmatch,-) <br><br></td></tr>
    sw <tr><td valign=top>Installed for:</td><td> $iif($sinfo(y,osinst),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Uptime:</td><td> $iif($sinfo(y,osup),$ifmatch,-) </td></tr>
    sw </table>

    sw </td><td>&nbsp; &nbsp; &nbsp; </td><td align=left valign=top>

    sw <table width="300" class="bar">
    sw <tr><td colspan=2>L1 Cache<hr></td></tr>
    sw <tr><td valign=top>Size:</td><td> $iif($sinfo(y,cachesize),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Associativity:</td><td> $iif($sinfo(y,cacheassoc),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Lines:</td><td> $iif($sinfo(y,cachelines),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Line size:</td><td> $iif($sinfo(y,cachelinesize),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Instruction size:</td><td> $iif($sinfo(y,cacheinstrsize),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Instruction associativity:</td><td> $iif($sinfo(y,cacheinstrassoc),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Instruction lines:</td><td> $iif($sinfo(y,cacheinstrlines),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Intruction line size:</td><td> $iif($sinfo(y,cacheinstrlinesize),$ifmatch,-) </td></tr>

    sw <tr><td colspan=2><hr>GFX<hr></td></tr>
    sw <tr><td valign=top>GFX card:</td><td> $iif($sinfo(y,gfx) != -1,$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Resolution:</td><td> $iif($sinfo(y,gfxres),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Refresh rate:</td><td> $iif($sinfo(y,gfxref),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Depth:</td><td> $iif($sinfo(y,gfxdepth),$ifmatch,-) </td></tr>
    sw </table>

    sw </td><td>&nbsp; &nbsp; &nbsp; </td><td align=left valign=top>

    sw <table width="300" class="bar">
    sw <tr><td colspan=2>Dail-up Connection<hr></td></tr>
    sw <tr><td valign=top>Connection:</td><td> $iif($sinfo(y,con),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Speed:</td><td> $iif($sinfo(y,conspeed),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Downloaded:</td><td> $iif($sinfo(y,condown),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Uploaded:</td><td> $iif($sinfo(y,conup),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Active for:</td><td> $iif($sinfo(y,conactive),$ifmatch,-) </td></tr>

    sw <tr><td colspan=2><hr>Ethernet<hr></td></tr>
    sw <tr><td valign=top>Name:</td><td> $iif($sinfo(y,eth),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Speed:</td><td> $iif($sinfo(y,ethspeed),$ifmatch,-) <br><br></td></tr>
    sw <tr><td valign=top>Recieved:</td><td> $iif($sinfo(y,ethget),$ifmatch,-) </td></tr>
    sw <tr><td valign=top>Sent:</td><td> $iif($sinfo(y,ethsent),$ifmatch,-) </td></tr>

    sw <tr><td colspan=2><hr></td></tr>
    sw <tr><td valign=top>IP:</td><td> $sinfo(y,ip) <br><br></td></tr>
    sw <tr><td valign=top>Upstream:</td><td> $sinfo(y,upstream) </td></tr>
    sw <tr><td valign=top>Downstream:</td><td> $sinfo(y,downstream) </td></tr>
    sw </table>

    sw <br><br><br></td></tr><tr><td align=left valign=top colspan=3>

    sw <table width="610" class="bar">
    sw <tr><td colspan=6>HDD<hr></td></tr>
    sw <tr><td>Drive<hr></td><td>Type<hr></td><td>Size<hr></td><td>Used<hr></td><td>Free<hr></td><td>% Free<hr></td></tr>

    var %l = 67,%tfs = 0,%ts = 0,%i = 2,%rtfs = 0,%rts = 0
    while (%l <= 90) {
      if ($disk($chr(%l))) {
        if ($disk($chr(%l)).type == fixed) || ($disk($chr(%l)).type == cdrom) || ($disk($chr(%l)).type == removable) {
          var %f = $disk($chr(%l)).free,%s = $disk($chr(%l)).size
          inc %tfs %f
          inc %ts %s
          sw <tr><td> $chr(%l) $+ : ( $+ $iif($disk($chr(%l)).label,$disk($chr(%l)).label,No label) $+ ) </td><td> $disk($chr(%l)).type </td><td> $bytes(%s,3).suf </td><td> $bytes($calc(%s - %f),3).suf </td><td> $bytes(%f,3).suf </td><td> $round($calc((%f / %s)*100),1) $+ % </td></tr>
          var %dn 1
          inc %i
        }
        elseif ($disk($chr(%l)).type == remote) {
          var %rf = $disk($chr(%l)).free,%rs = $disk($chr(%l)).size
          inc %rtfs %rf
          inc %rts %rs
          sw <tr><td> $chr(%l) $+ : ( $+ $disk($chr(%l)).unc $+ ) </td><td> $disk($chr(%l)).type </td><td> $bytes(%rs,3).suf </td><td> $bytes($calc(%rs - %rf),3).suf </td><td> $bytes(%rf,3).suf </td><td> $round($calc((%rf / %rs)*100),1) $+ % </td></tr>
          var %dn = 1,%rdn = 1
          inc %i
        }
      }
      inc %l
    }
    if (%dn) {
      sw <tr><td><br></td></tr>
      if (%rdn) {
        sw <tr><td>Local total</td><td>-</td><td> $bytes(%ts,3).suf </td><td> $bytes(%tfs,3).suf </td><td> $round($calc((%tfs / %ts)*100),1) $+ % </td></tr>
        sw <tr><td>Mapped total</td><td>-</td><td> $bytes(%rts,3).suf </td><td> $bytes(%rtfs,3).suf </td><td> $round($calc((%rtfs / %rts)*100),1) $+ % </td></tr>
        sw <tr><td><br></td></tr>
      }
      sw <tr><td>Total</td><td>-</td><td> $bytes($calc(%ts + %rts),3).suf </td><td> $bytes($calc((%ts + %rts) - (%rtfs + %tfs)),3).suf </td><td> $bytes($calc(%rtfs + %tfs),3).suf </td><td> $round($calc(((%rtfs + %tfs)/(%ts + %rts))*100),1) $+ % </td></tr>
    }
    sw </table>

    sw </td><td>&nbsp; &nbsp; &nbsp; </td><td align=left valign=top>

    sw <table width="300" class="bar">
    sw <tr><td colspan=2>Misc info<hr></td></tr>
    sw <tr><td>3DNow! support:</td><td> $iif($sinfo(m,3dNow), Yes, No) </td><tr>
    sw <tr><td>Extended 3DNow! support:</td><td> $iif($sinfo(m,3dNowExt), Yes, No) </td><tr>
    sw <tr><td>MMX support:</td><td> $iif($sinfo(m,MMX), Yes, No) </td><tr>
    sw <tr><td>MMX Extensions:</td><td> $iif($sinfo(m,MMXExt), Yes, No) </td><tr>
    sw <tr><td>Supports CPUID instruction:</td><td> $iif($sinfo(m,CPUID), Yes, No) </td><tr>
    sw <tr><td>FPU present:</td><td> $iif($sinfo(m,FPU), Yes, No) </td><tr>
    sw <tr><td>Virtual Mode Extensions:</td><td> $iif($sinfo(m,VME), Yes, No) </td><tr>
    sw <tr><td>Debug Extensions:</td><td> $iif($sinfo(m,DEBUG), Yes, No) </td><tr>
    sw <tr><td>Page Size Extensions:</td><td> $iif($sinfo(m,PSE), Yes, No) </td><tr>
    sw <tr><td>Time Stamp Counter:</td><td> $iif($sinfo(m,TSC), Yes, No) </td><tr>
    sw <tr><td>Model Specific Registers:</td><td> $iif($sinfo(m,MSR), Yes, No) </td><tr>
    sw <tr><td>Page Address Extensions:</td><td> $iif($sinfo(m,PAE), Yes, No) </td><tr>
    sw <tr><td>Machine Check Extensions:</td><td> $iif($sinfo(m,MCE), Yes, No) </td><tr>
    sw <tr><td>CMPXCHG8 instruction:</td><td> $iif($sinfo(m,CMPXCHG8), Yes, No) </td><tr>
    sw <tr><td>APIC:</td><td> $iif($sinfo(m,APIC), Yes, No) </td><tr>
    sw <tr><td>SYSENTER/SYSEXIT instruction:</td><td> $iif($sinfo(m,SYSENTER), Yes, No) </td><tr>
    sw <tr><td>Memory Type Range Registers instruction:</td><td> $iif($sinfo(m,MTRR), Yes, No) </td><tr>
    sw <tr><td>Global Paging Extensions:</td><td> $iif($sinfo(m,GPE), Yes, No) </td><tr>
    sw <tr><td>Machine Check Architecture:</td><td> $iif($sinfo(m,MCA), Yes, No) </td><tr>
    sw <tr><td>CMOV instruction:</td><td> $iif($sinfo(m,CMOV), Yes, No) </td><tr>
    sw <tr><td>Page Attribute Table:</td><td> $iif($sinfo(m,PAT), Yes, No) </td><tr>
    sw <tr><td>PSE36 (Page Size Extensions):</td><td> $iif($sinfo(m,PSE36), Yes, No) </td><tr>
    sw <tr><td>FXSAVE/FXRSTOR instruction:</td><td> $iif($sinfo(m,FXSAVE), Yes, No) </td><tr>
    sw <tr><td>SSE:</td><td> $$iif(sinfo(m,SSE), Yes, No) </td><tr>
    sw <tr><td>SSE FP support:</td><td> $iif($procinfo(m, isSSEFP), Yes, No) </td><tr>
    sw </table>

    sw </td></tr>
    sw </table>
    sw </ul>
  }

  sw <hr></td></tr></table>

  sw <table class=bar width=100%><tr>
  sw <td width=33% align=left><nobr>Recommended resolution: 1024x768</nobr></td>
  sw <td width=33% align=center><nobr> $sinfo(p,pagetitle) </nobr></td>
  sw <td width=33% align=right><nobr>Generated in $calc(($ticks - %ticks) /1000) secs</nobr></td>
  sw </tr></table><br />
  sw </body></html>
}