X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fndrank.pl;h=eff1d380cc07a6c9d82ac6e69a92b07c1de561ff;hb=6772ec335287679e8837ebe85b8b1218cc2be8ff;hp=be8b1cc4f99f0cd084770c961984c97d1722290d;hpb=83be73d01437ba9841257bb9064314d63fab9487;p=ndwebbie.git diff --git a/scripts/ndrank.pl b/scripts/ndrank.pl index be8b1cc..eff1d38 100755 --- a/scripts/ndrank.pl +++ b/scripts/ndrank.pl @@ -27,13 +27,15 @@ use DBD::Pg qw(:pg_types); use LWP::Simple; -use lib qw{/var/www/ndawn/}; +use FindBin; +use lib "$FindBin::Bin/../lib"; + use ND::DB; our $dbh = ND::DB::DB(); $dbh->begin_work; -my $st = $dbh->prepare(q{SELECT uid FROM current_planet_stats p JOIN users u ON p.id = u.planet WHERE alliance_id = 1 ORDER BY score DESC}); +my $st = $dbh->prepare(q{SELECT uid FROM current_planet_stats p JOIN users u USING (pid) WHERE alliance = 'NewDawn' ORDER BY score DESC}); my $update = $dbh->prepare(q{UPDATE users SET rank = ? WHERE uid = ?}); $st->execute; my $rank = 1;