# Deletes players which haven't logged for a week and have level below 30
use strict;
use warnings;
use Tie::File;

my $days = 7;
my $minlevel = 30;
my $counter = 0;

for $file (glob "../data/players/*"){
   next unless $file =~ /xml$/;
   open(my $fh, "<", $file) or die $!;
   @content = <FILE>;
   $_ = "@content";
   close(FILE);

   my ($account) = $_ =~ /account="(\d+)"/;
   my ($lastlogin) = $_ =~ /lastlogin="(\d+)"/;
   my ($level) = $_ =~ /level="(\d+)"/;

   my $playername = ''; # muss Du wissen, wie Du auf den Playernamen kommst!

   if ((time() - $lastlogin) > $days*24*3600 && $lastlogin > 0 && $level < $minlevel){
   for my $local_file($file,"../data/accounts/$account.xml","../data/vip/$account.xml"){
     tie my @array,'Tie::File',$local_file) or die $!;
     @array = grep{$_ !~ /$playername/}@array;
     untie @array;
   }
   print "$file\n";
   $counter++;
}
}
print "$counter acccounts deleted\n";