Forums Scripts & Popups Userlists and hash tables..

alias show.userlist {
  var %file = $readini($mircini,rfiles,n0), %i = 1
  
  ;  Decide if our users file is in INI format
  if (($read(%file,s,[users])) && ($read(%file,s,n0=))) {
    while ($readini(%file,users,$+(n,$calc(%i - 1)))) {
      .hadd -m userlist $gettok($gettok($ifmatch,2,58),1,32) $gettok($ifmatch,1,58) $gettok($ifmatch,2-,32)
      inc %i
    }
  }
  
  ;  Or if it's in TXT format
  elseif (*.txt iswm %file) {
    while ($read(%file,%i)) {
      inc %i
      .hadd -m userlist $gettok($gettok($ifmatch,2,58),1,32) $gettok($ifmatch,1,58) $gettok($ifmatch,2-,32)
    }
  }
  %i = 1
  echo -eati2 * Hash Table entries for Userlist
  while ($hget(userlist,%i).item) {
    var %item = $ifmatch
    var %levels = $gettok($hget(userlist,$ifmatch),1,32)
    var %note = $gettok($hget(userlist,$ifmatch),2-,32)
    echo 3 -ati2 $ifmatch $+($chr(3),05,%levels) $+($chr(3),06,%note)
    inc %i
  }
  hfree userlist
}