alias gl {
if ($0 < 3) { echo -a Correct syntax:04 /gl <user@host> <N[m,h,d]> <reason> | halt }
var %dir $+($mircdir,glines.txt)
var %parms $1 $2 $3-
var %date $+($chr(40),$date,$chr(32),$time,$chr(41))
.gline %parms
.write -i %dir %parms %date
echo -a Saved:03 %parms -> %dir
}
alias lg {
var %dir $+($mircdir,glines.txt)
if (!$lines(%dir)) { echo -a List with glines is empty. | halt }
var %i 1 | while (%i <= 35) {
if (%i > $lines(%dir)) break
if (%i == 1) echo $str(-,50)
echo 12 %i : $read(%dir,%i)
inc %i
}
}