X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fparsedumps.pl;h=f1738bf06efd7f54c9c916a08e6be40542250574;hb=ac65e241f748773959b94d66691ee93019fcae84;hp=e02c46b82707acefe91e77d039fcd596b4ee72aa;hpb=e38b5c1ae7b6d15124bd8e7044bf7f563185cbf2;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];