\#!/usr/local/bin/perl -w

%Acts = ();
use Getopt::Long;

$time1= time;
       &Actsin1;
       &Group;

$time2 = time;
$time3 = $time2 - $time1;
print "$time3 seconds\n";
print "finished";


sub Actsin1
{
    $filetoopen1 = "c:\\Update\\nosect\.txt";
    open (ACTLIST, $filetoopen1) || die "Could not open file $filetoopen1 \n";
    open (OUTPUT2,">c:\\Update\\Errors.txt") || die "Could not open output \n";
    dbmopen (%Groups, "c:\\Update\\Groups",0666) || die "Could not open Acts database\n";


    while (<ACTLIST>)
    {
        $TheLine = $_;



        @WordList = "$TheLine";



    }

}

sub Group
{

$filetoopen = "c:\\update\\makeme\\statutes\.fff";
open (INPUT, $filetoopen) || die "Could not open file $filetoopen \n";
open (OUTPUT,">c:\\update\\makeme\\newstat.fff") || die "Could not open output \n";


while (<INPUT>)
{
	$TheLine = $_;


        if ($TheLine =~ /<RD>[^\n]*Status Compendium<<.JL>/i)
	{


        $ListPos = 0;

        until($ListPos > $#WordList)
        {

        if ($TheLine eq $WordList[$ListPos])

        {
          $TheLine = "";
        pop(@WordList)

        }



        $ListPos +=1

        }
        }
        print OUTPUT "$TheLine";
}
}