Convert messy pl/perl functions into cleaner pl/pgsql functions.

[ndwebbie.git] / scripts / parseplanets.pl

diff --git a/scripts/parseplanets.pl b/scripts/parseplanets.pl
index e3c013ac1790d5accbfc52a17c309d176b0c837e..50225cedfda2eafaecfcc306f1bba272ed6736e9 100755 (executable)
--- 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;