alias ignrlist {
  did -r srvfdialog 1
  did -b srvfdialog 3
  window -h @refserv
  var %i = 1, %read = scripts\tmp\readserv.txt
  if ($isfile(scripts\tmp\readserv.txt)) {
    .fopen serv scripts\tmp\readserv.txt
    while (!$feof) && ($fread(serv) != $null) {
      var %1 $v1,%2 $wd(%1,2,32)
      if (Services ignore* iswmcs %1) || (Ignore list is empty. iswmcs %1) { dialog -t srvfdialog $remove(%1,$chr(46),$chr(58)) }
      else {
        echo -sg -- %1
        noop $regex($wd($read(%read,tn,%i),3-,32),/(.*)(?:does not expire|expires in (.*))$/F)
        if ($regml(2)) { var %4 = $v1 }
        else { var %4 = does not expire }
        var %3 $regml(1)
        did -a srvfdialog 1 + 0 0 0 $wd(%1,1,32) 	+ 0 0 0 %2 	+ 0 0 0 $iif(%3,%3,n/a) 	+ 0 0 0 %4
        inc %i
      }
    }
    .fclose serv
  }
  close -@ @refserv
  .remove scripts\tmp\readserv.txt
  did $iif($did(srvfdialog,1).lines == 1,-b,-e) srvfdialog 4
}