alias ossnlinelist {
did -r srvndialog 1
did -b srvndialog 3,4
window -h @refserv
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),%3 $wd(%1,3,32), %4 $wd(%1,4-8,32)
if (Current SNLINE list* iswmcs %1) || (SNLINE list is empty. iswmcs %1) { dialog -t srvndialog $remove(%1,$chr(46),$chr(58)) }
else {
noop $regex($wd(%1,9-,32),/(.*)(?:does not expire|expires in ((?:\S+ \S+\x2c )*\S+ \S+)) (.*)$/F)
if ($regml(2)) { var %5 = $v1 }
else { var %5 = does not expire }
var %6 $wd($regml(3),1,32), %7 $wd($regml(3),2-,32)
if ($did(srvndialog,7).text) {
if (* $+ $did(srvndialog,7).text $+ * iswm %1) { did -a srvndialog 1 + 0 0 0 $wd(%1,1,32) + 0 0 0 %2 + 0 0 0 %3 + 0 0 0 %4 + 0 0 0 %5 + 0 0 0 %6 + 0 0 0 %7 }
}
else { did -a srvndialog 1 + 0 0 0 $wd(%1,1,32) + 0 0 0 %2 + 0 0 0 %3 + 0 0 0 %4 + 0 0 0 %5 + 0 0 0 %6 + 0 0 0 %7 }
}
}
.fclose serv
}
close -@ @refserv
did $iif($did(srvndialog,1).lines == 1,-b,-e) srvndialog 4,6
}