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

print STDOUT ("Test of something\n");

sub proc_dir
{
#  23 March 1999.  Fix uninitialized variables.  Define date and time 
#	locally.  rcg
  my $file;

  if ($thisdir ne "") {
    closedir (DIR);
#     Didn't want to unlink files w/directory open.  Have no
#     particular knowledge about this...
    foreach $file(@del_files) {
      ($thisdir eq ".") || ($file = $thisdir . $file);
       if (-e $file  and  -M $file  > 7 ) {
		unlink $file;
		&make_log_entry (
			"cache=deleted", "filename=$file", 
			"data_level=$data_level", 
			"$where_name=$where_value");		
	}
     }
  }

}