#!/usr/local/bin/perl
#
# $Header$
# copyright (c) Bill Middleton 1993 
#
$spool='/news/in.coming';
$waitingarea='/news/search.pl/waitingarea';
opendir(SPOOL,$spool);
@batches=grep(/^[07]/,readdir(SPOOL));
closedir(SPOOL);
foreach $file (@batches){
 next if (-f "$waitingarea/$file");
 system ("cp $spool/$file $waitingarea");
}

