X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fparsedumps.pl;h=f1738bf06efd7f54c9c916a08e6be40542250574;hb=2dc71e3dea5b9e14bdb1e069d23d373658a11dcb;hp=e02c46b82707acefe91e77d039fcd596b4ee72aa;hpb=5ac9eb42baadeff4ac28e11c1d27c75ebca9c45d;p=ndwebbie.git diff --git a/scripts/parsedumps.pl b/scripts/parsedumps.pl index e02c46b..f1738bf 100755 --- a/scripts/parsedumps.pl +++ b/scripts/parsedumps.pl @@ -113,7 +113,7 @@ if (@_ = $dumps->fetchrow){ $_ = $_[0]; $hour = (gmtime($_[1]))[2]; my $planetid = $dbh->prepare(qq{SELECT findplanetid(?,?,?)}); - while (m/(\d+)\t(\d+)\t(\d+)\t\"(.+)\"\t\"(.+)\"\t(Ter|Cat|Zik|Xan|Etd)\t(\d+)\t(\d+)\t(\d+)\t(\d+)/g){ + while (m/(\d+)\t(\d+)\t(\d+)\t\"(.*)\"\t\"(.*)\"\t(Ter|Cat|Zik|Xan|Etd)\t(\d+)\t(\d+)\t(\d+)\t(\d+)/g){ $planetid->execute($5,$4,$6); my @id = $planetid->fetchrow; push @planets,[$tick,$id[0],$1,$2,$3,$7,$8,$9,$10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];