X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Usermgm.pm;fp=Usermgm.pm;h=16a45285243016c4d52d92d9fd832d6c87424d85;hb=04c0624b174ff51ccd6f1847d342e79a98bfa29b;hp=21fbce815aabdc876d2fe79cfe8095035c617e5e;hpb=2cc4a8683c21bee13c36eb4c24954d7f57f4e967;p=NDIRC.git

diff --git a/Usermgm.pm b/Usermgm.pm
index 21fbce8..16a4528 100644
--- a/Usermgm.pm
+++ b/Usermgm.pm
@@ -25,45 +25,7 @@ require Exporter;
 
 our @ISA = qw/Exporter/;
 
-our @EXPORT = qw/addPoints setHost setPNick getFleet/;
-
-sub getFleet {
-	my ($nick,$command) = @_;
-
-	unless (defined $nick){
-		$ND::server->command("notice $ND::nick Usage: $command nick | % can be used as wildcard, e.g. barr%");
-		return;
-	}
-	if (officer() || dc()){
-		my $f = $ND::DBH->prepare(q{SELECT fs.ship, fs.amount, username
-			FROM fleet_ships fs
-				JOIN (SELECT fid,username
-					FROM fleets f
-						JOIN users u USING (planet)
-					WHERE mission = 'Full fleet' AND name <> 'Unit'
-						AND username ILIKE $1
-					ORDER BY planet,tick DESC,fid DESC
-					LIMIT 1
-				) f  USING (fid)
-			ORDER BY num
-		});
-		$f->execute($nick);
-		my $text;
-		my $username;
-		while (my $ship = $f->fetchrow_hashref){
-			unless (defined $username) {
-				$username = $ship->{username};
-				$text = "$ND::B$username$ND::O has: "
-			}
-			$text .= "$ship->{ship} $ship->{amount} ";
-		}
-		if ($text){
-			$ND::server->command("notice $ND::nick $text");
-		}else{
-			$ND::server->command("notice $ND::nick Couldn't find any fleet for $nick");
-		}
-	}
-}
+our @EXPORT = qw/addPoints setHost setPNick/;
 
 sub addPoints {
 	my ($msg, $t) = @_;