Forums Scripts & Popups Hash Tables

/hadd -m Table $nick $addtok($hget(Table,$nick),$address,32)

var %addresses = $hget(Table,$nick)
var %addresses = $addtok(%addresses,$address,32)
/hadd -m Table $nick %addresses

/writeini -n file.ini section item data

var %r = $hget(table,0).item | while (%r) {

dec %r
}

on *:text:!searchip <nick>:*:{
  if $hget(userips,$1) {    .msg $nick $1 $+ 's IPs are $v1  }
  elseif !$hfind(userips,$+(*,$1,*),0,w) {    .msg $nick No match found for $1  }
  else {
    var %a = 1, %b = $hfind(userips,$+(*,$1,*),0,w)
    .msg $nick Matches for $1 are:
    while %a <= %b {
      .timer 1 %a msg $nick $hfind(userips,$+(*,$1,*),%a,w)
      inc %a
    }
  }
}

alias initohash {
  var %if = myfile.ini, %is = mysection
  var %hn = myhash, %hs = 100
  ;;;;
  if ($hget(%hn)) {
    if ($?!="Hash Table ' %hn ' already exists. $crlf $+ OVERWRITE the existing data?") hfree %hn
    else return
  }
  var %ts = $ticks
  hmake %hn %hs
  var %ii, %id, %di, %dk, %hi, %hk
  var %a = 0, %aa = $ini(%if,%is,0)
  while (%a < %aa) {
    inc %a
    %ii = $ini(%if,%is,%a)
    %id = $readini(%if,%is,%ii)
    var %b = 0, %bb = $numtok(%id,44)
    while (%b < %bb) {
      inc %b
      %di = $gettok(%id,%b,44)
      %dk = %ii
      %hi = $hget(%hn,%dk)
      hadd %hn %dk $addtok(%hi,%di,44)
      %hk = $hget(%hn,%di)
      hadd %hn %di $addtok(%hk,%dk,44)
    }
  }
  echo -at Transferred %if to %hn in $calc(($ticks - %ts) / 1000) $+ s
}

on *:text:!searchip <nick>:*:{
  if $hget(userips,$1) {    .msg $nick $1 $+ 's IPs are $v1  }
  elseif !$hfind(userips,$+(*,$1,*),0,w).data {    .msg $nick No match found for $1  }
  else {
    var %a = 1, %b = $hfind(userips,$+(*,$1,*),0,w).data
    .msg $nick Matches for $1 are:
    while %a <= %b {
      .timer 1 %a msg $nick $hfind(userips,$+(*,$1,*),%a,w).data
      inc %a
    }
  }
}

on *:text:!searchip &:*: {
  if (. !isin $2) {
    if (($2 !isnum) && ($hget(userips,$2))) { .msg $nick $2 $+ 's IPs are: $v1 }
    else { .msg $nick No matches for nick $qt($2) }
  }
  else { 

    ; $1 is a valid (wildcard-)IP "A.A.A.A" (where each A is 1-3 digits/wildcards)
    var %isipreg = /^(?:(?:\d|\*|\?){1,3}\.){3}(\d|\*|\?){1,3}$/

    if ($regex($2,%isipreg)) {
      ; replaces to build a regex that will match wild-IP $2 in a comma-delimited string of IPs
      var %findreg = $replace($regsubex($2,/\*+/g,*),.,\.,*,\d*,?,\d) 
      var %findreg = $+(/(?<=^|\54),%findreg,(?=$|\54)/)

      write -c searchip.txt

     ; perform hfind loop, write results to a file
      var %n = 1
      while ($hfind(userips,%findreg,%n,r).data) {
        write searchip.txt $v1
        inc %n
      }

      var %l = $lines(searchip.txt)
      if (%l = 0) { .msg $nick There are no matches for IP $qt($2) }
      else { 
        ; sort file, play results to nick
        filter -ffct 1 32 searchip.txt searchip.txt
        .msg $nick There $iif((%l == 1),is %l match,are %l matches) for IP $qt($2) : 
        play -m2 $nick searchip.txt 300
      }
    }
    else { .msg $nick Wrong Syntax. use !searchip <nick> or !searchip <IP>. <IP> has to be N.N.N.N and may contain wildcards. }
  } 
}

on *:start:{
  if !$hget(TABLE) { .hmake TABLE 100 }
  if $exists($scriptdirTABLE.hsh)) { .hload TABLE $scriptdirTABLE.hsh }
}
on *:exit:{
  .hsave TABLE $scriptdirTABLE.hsh
}
on *:disconnect:{
  .hsave TABLE $scriptdirTABLE.hsh
}