;;;;;;;;;;;;;;;;;;;;;;;;;
;; List all MRC Files ;;
;; and Delete Unwanted ;;
;; by MikeChat 12/8/05 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;
alias mrc-sort { dialog -dm mrc-sort mrc-sort }
dialog mrc-sort {
Title "Choose MRC Version"
size -1 -1 300 100
option dbu
list 100, 5 5 290 50, sort
button "Delete", 900, 125 65 50 20
}
on *:dialog:mrc-sort:init:0:{
var %null = $findfile($mircdir,*.mrc,0,mrcprop $1-)
}
alias mrcprop {
did -a mrc-sort 100 $nopath($1-) $itsloaded($1-) Last Modified $asctime($file($1-).mtime) $+ $+ $1-
}
on *:dialog:mrc-sort:sclick:900:{
var %fullfile = $gettok($did(mrc-sort,100).seltext,2,0144)
var %check = $input(Are You Sure?,y)
if (%check == $true) {
if ($itsloaded(%fullfile) == Loaded) { unload -rs %fullfile }
remove -b $+(",%fullfile,")
did -d mrc-sort 100 $did(mrc-sort,100).sel
}
}
alias itsloaded {
var %isload = $1-
var %i = 1
while (%i <= $script(0)) {
if ($script(%i) == %isload) { var %itsloaded = Loaded }
inc %i
}
if (%itsloaded == $null) { var %itsloaded = Not Loaded }
return %itsloaded
}