Updates for round 100

[ndwebbie.git] / scripts / parseplanets.pl

diff --git a/scripts/parseplanets.pl b/scripts/parseplanets.pl
index 8866435d7fcdb6adce037b71bebf2e632a7d5b90..bf5f2dc75c38998c87e642f5ec6bca2361a72232 100755 (executable)
--- a/scripts/parseplanets.pl
+++ b/scripts/parseplanets.pl
@@ -45,7 +45,7 @@ if (@_ = $dumps->fetchrow){
        $_ = $_[0];
        $hour = (gmtime($_[1]))[2];
        my $planetid = $dbh->prepare(q{SELECT find_planet_id($1,$2,$3,$4)});
-       while (m/(\w+)\t(\d+)\t(\d+)\t(\d+)\t\"(.*)\"\t\"(.*)\"\t(Ter|Cat|Zik|Xan|Etd)\t(\d+)\t(\d+)\t(\d+)\t(\d+)/g){
+       while (m/(\w+)\t(\d+)\t(\d+)\t(\d+)\t\"(.*)\"\t\"(.*)\"\t(\w+)\t(\d+)\t(\d+)\t(\d+)\t(\d+)/g){
                $planetid->execute($1,$6,$5,$7);
                my @id = $planetid->fetchrow;
                push @planets,[$tick,$id[0],$2,$3,$4,$8,$9,$10,$11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];