Use local::lib properly

diff --git a/script/ndweb_fastcgi.pl b/script/ndweb_fastcgi.pl
index 20e6665bd18ec54d7f7faf5e283b7fab7ecbd2a3..11679d19a7a95907aee34ffd76f268d6c01093a6 100755 (executable)
--- a/script/ndweb_fastcgi.pl
+++ b/script/ndweb_fastcgi.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/env perl
 
+use local::lib;
 use Catalyst::ScriptRunner;
 Catalyst::ScriptRunner->run('NDWeb', 'FastCGI');
 

diff --git a/scripts/clean_cache.pl b/scripts/clean_cache.pl
index 313bbe5c89d13347c5ce62f6fd0a6b0162695e14..9516ef8ab953234157a7ae603668d98817b08255 100755 (executable)
--- a/scripts/clean_cache.pl
+++ b/scripts/clean_cache.pl
@@ -3,6 +3,7 @@
 use strict;
 use warnings;
 
+use local::lib;
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 

diff --git a/scripts/fetchdumps.pl b/scripts/fetchdumps.pl
index 6d02704a294e29bdaa06f20eb3786a847deaddf5..b64200f355318487bef1e9fc69a4ba9469fd7cf4 100755 (executable)
--- a/scripts/fetchdumps.pl
+++ b/scripts/fetchdumps.pl
@@ -22,6 +22,7 @@ q{
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 

diff --git a/scripts/ndmail.pl b/scripts/ndmail.pl
index 5f6a00e0cab82edc2a0cf320e8ae212f32d1cd31..f6fe444bed890b3d80c4bbd09550b8c8725ddbca 100755 (executable)
--- a/scripts/ndmail.pl
+++ b/scripts/ndmail.pl
@@ -22,6 +22,7 @@ q{
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 use CGI qw/:standard/;

diff --git a/scripts/ndreport.pl b/scripts/ndreport.pl
index 7300e01093772e1f87cee18b030517d1abc77112..079b3f9f20d4d0e47d9b3737e4cdbcf60d2be077 100755 (executable)
--- a/scripts/ndreport.pl
+++ b/scripts/ndreport.pl
@@ -22,6 +22,7 @@ q{
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 use CGI qw/:standard/;
@@ -48,7 +49,8 @@ my $email = Email::Simple->new($text);
 my $body =  encoder($email->body,'ISO-8859-15')->utf8;
 
 my $c = $dbh->prepare(q{
-SELECT coords(x,y,z) FROM current_planet_stats WHERE pid = (SELECT pid FROM users WHERE username = $1)
+SELECT coords(x,y,z) FROM current_planet_stats WHERE pid = (SELECT pid FROM users WHERE username = $1
+       AND uid IN (SELECT uid FROM groupmembers WHERE gid = 'M'))
 });
 
 my $a = $dbh->prepare(q{

diff --git a/scripts/parsealliances.pl b/scripts/parsealliances.pl
index f42414ba53f3d755a04188fb8ebb2c9102c17592..551dcad1866f1d7c104c4c2583b71c4df03c213c 100755 (executable)
--- a/scripts/parsealliances.pl
+++ b/scripts/parsealliances.pl
@@ -22,6 +22,7 @@ q{
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 

diff --git a/scripts/parsegalaxies.pl b/scripts/parsegalaxies.pl
index f9b6af758c2dbef6bbb56b9617503c6f4c9439a8..3334f88f65cd137f1f05065d3ebae90b56109194 100755 (executable)
--- a/scripts/parsegalaxies.pl
+++ b/scripts/parsegalaxies.pl
@@ -22,6 +22,7 @@ q{
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 

diff --git a/scripts/parseplanets.pl b/scripts/parseplanets.pl
index 0c62298edc96f501b06907f383c30cbc048dcb1a..9278fea56b39fd388ad13e0a90b67f6800562a4b 100755 (executable)
--- a/scripts/parseplanets.pl
+++ b/scripts/parseplanets.pl
@@ -22,6 +22,7 @@ q{
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 

diff --git a/scripts/reset_hosts.pl b/scripts/reset_hosts.pl
index 040445b90b786fa9de102df85c3cba29a9f59dc1..53f82a0d2ff789fdf59b31dae69781b29ac6cfba 100755 (executable)
--- a/scripts/reset_hosts.pl
+++ b/scripts/reset_hosts.pl
@@ -2,6 +2,7 @@
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 

diff --git a/scripts/sms.pl b/scripts/sms.pl
index aef5c7dc24be32fc081e0bd532cdcf705446569d..4b063de87fdb69c9b831d68cd1bc013ec261fa2a 100755 (executable)
--- a/scripts/sms.pl
+++ b/scripts/sms.pl
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use feature ':5.10';
 
+use local::lib;
+
 use Encode;
 
 use LWP::UserAgent;

diff --git a/scripts/tick.pl b/scripts/tick.pl
index cf9f67a601b005b9e76ffc07f13ef6f0946d462b..bd2f5b067a801496fe640d6ebdd4888e62a747bd 100755 (executable)
--- a/scripts/tick.pl
+++ b/scripts/tick.pl
@@ -2,6 +2,7 @@
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);