;
;  $VER: NodeListUpdate 1.1 (12.06.95)
;
;  Diffs your nodelist automatically, if new nodediffs arrive.
;
;  Copyright  1995 Alexander Stirmlinger, <alex@picard.unterland.de>
;
;  THIS FILE MUST NOT BE DISTRIBUTED OUTSIDE THE NETCALL-ARCHIVE!
;


; Our directories/files:

Set NodeList Mail:Nodelist
Set Inbound  Mail:Inbound
Set Traplist Mail:Bin/Traplist


FailAt 10

ChangeTaskPri -20

List >T:ndudel.temp $Inbound/nodediff.a?? FILES LFORMAT "delete %p%n"
List >T:ndu.temp    $Inbound/nodediff.a?? FILES LFORMAT "arc x %p%n"

Search >NIL: T:ndu.temp nodediff.a

If Not Warn

  Cd $NodeList

  Execute T:ndu.temp

  $Traplist

  Execute T:ndudel.temp

EndIf

Delete >NIL: T:ndu.temp
Delete >NIL: T:ndudel.temp

