X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fparseplanets.pl;h=50225cedfda2eafaecfcc306f1bba272ed6736e9;hb=c8563070feee1d24bcdab637f37048b68e8b0b4d;hp=e3c013ac1790d5accbfc52a17c309d176b0c837e;hpb=13e3df1e4218c19325ef732a4a2cb2b7db79a69c;p=ndwebbie.git

diff --git a/scripts/parseplanets.pl b/scripts/parseplanets.pl
index e3c013a..50225ce 100755
--- a/scripts/parseplanets.pl
+++ b/scripts/parseplanets.pl
@@ -27,7 +27,8 @@ use DBD::Pg qw(:pg_types);
 
 use LWP::Simple;
 
-use lib qw{/var/www/ndawn/lib/};
+use FindBin;
+use lib "$FindBin::Bin/../lib";
 
 use ND::Include;
 use ND::DB;
@@ -46,7 +47,7 @@ $dumps->execute($tick);
 if (@_ = $dumps->fetchrow){
 	$_ = $_[0];
 	$hour = (gmtime($_[1]))[2];
-	my $planetid = $dbh->prepare(qq{SELECT findplanetid(?,?,?)});
+	my $planetid = $dbh->prepare(q{SELECT find_planet_id($1,$2,$3)});
 	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;