/var/log/newlogs/One_Log_Dir/log.txt, screenshots.jpg, etc.

##</code><code>##

@files = `find /var/log/newlogs -name log.txt -maxdepth 2`

##</code><code>##

for my $log ( @logs )
{
  add_and_trash( $log )
}

##</code><code>##

sub add_and_trash
{
  my ($name) = @_;

  my $newname = `convert $name`;
  print "<hr>\n";

  my $cmd1 = "/tools/addbundle.pl $newname";
  print $cmd1. "<hr>\n";
  system( $cmd1 );  # can take ~2-3 minutes

  my $cmd2 = "mv $newname /tmp/trashed";
  print $cmd2. "<hr>\n";
  system( $cmd2 );
}