tools/checkChunkLoading.pl

   1 #!/usr/bin/perl
   2
   3 # Given a planet name, searches a log file to check that every chunk on that planet was loaded
   4
   5 ($targetPlanet, $logfile)=@ARGV;
   6 open(LOGFILE,$logfile);
   7 while (<LOGFILE>)
   8 {
   9     if (/ChunkLocator:Chunk (\w+) ([-\d]+) ([-\d]+)/)
  10     {
  11         ($planet, $x, $z) = ($1, $2, $3);
  12         if ($planet eq $targetPlanet)
  13         {
  14             $chunks{$x.":".$z}+=1;
  15         }
  16     }
  17 }
  18
  19 for ($x=-8000; $x<=8000; $x+=100)
  20 {
  21     for ($z=-8000; $z<=8000; $z+=100)
  22     {
  23         if ($chunks{$x.":".$z}!=2)
  24         {
  25             print "Chunk error $targetPlanet $x,$z.  Was in logs ".($chunks{$x.":".$z}+0)." times (should be 2 times)\n";
  26         }
  27     }
  28 }