.key ListName/A,UserDat/A
.bra {
.ket }

; 
; ListServ 1.0b2 User.dat Updater
; By Tom Bampton
;
; (c) Copyright 1997 Tom Bampton
;     All Rights Reserved.
;
; Make sure script bit is set (protect UpdateUserDat +s) and call with the
; following:
;
; UpdateUserDat <listname> <pathandfilenameofusers.dat>
;
; For example:
;
; UpdateUserDat testlist NetDevel:ListServ/TestList/Users.dat
;
; ListServ must be in the current directory, also the config must be in the
; current directory. 

Echo "[3mListServ[0m Users.dat Updater Version 1.0b2 by Tom Bampton"
Echo "(c) 1997 Tom Bampton, All rights reserved."
Echo " "
Echo "ListServ is dedicated to Mary-Jane Fortin."
Echo " "
Echo "Updating Users.dat for list {ListName}"

Copy >nil: {UserDat} {UserDat}.bak
Delete >nil: {UserDat}

Copy >nil: {UserDat}.bak T:TempImp

ListServ -i {ListName} T:TempImp
