#!/usr/bin/perl

#Move cleaned files to final location

my $FILEBASE = "/toni/mozillatrans/cvs-aviary";

opendir (DIR, $ARGV[0]);

my @dircont = grep {$_=~/\*/} readdir DIR;

closedir (DIR);

foreach my $file (@dircont)  {

	my $fileout = $file;
	$fileout =~ s/\*/\//g;

	print $fileout, "\n";
	system ("cp $ARGV[0]/$file $FILEBASE/$fileout");
}