X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;ds=sidebyside;f=Usermgm.pm;fp=Usermgm.pm;h=493c05c445bfb4a82b9ae244d3204c7173bc8764;hb=b7392dc113b14a269fe73871c57795e18fe7e271;hp=3c1c9bb3c4dcdf689297871b7107101fad119cd4;hpb=6856d1e1ff5ced860d14929828d6662141342c47;p=NDIRC.git

diff --git a/Usermgm.pm b/Usermgm.pm
index 3c1c9bb..493c05c 100644
--- a/Usermgm.pm
+++ b/Usermgm.pm
@@ -25,54 +25,7 @@ require Exporter;
 
 our @ISA = qw/Exporter/;
 
-our @EXPORT = qw/whois flags flag laston addPoints chattrG setHost setPNick getShips getFleet/;
-
-sub whois {
-	my ($msg, $command) = @_;
-
-	my ($nick);
-	if(defined $msg && $msg =~ /^(\S+)$/){
-		$nick = $1;
-	}else{
-		$ND::server->command("notice $ND::nick syntax: .$command nick | % can be used for wildcards \%arro% will match barrow");
-		return;
-	}
-	if (officer() || ia()){
-		my $f = $ND::DBH->prepare("SELECT username, hostmask, concat(flag) FROM users u LEFT OUTER JOIN (SELECT uid,flag FROM groupmembers NATURAL JOIN groups ORDER BY uid,flag ) g ON g.uid = u.uid  WHERE username ILIKE ? GROUP BY username,hostmask");
-		$f->execute($nick);
-		while (my @row = $f->fetchrow()){
-			$ND::server->command("msg $ND::target $row[0] flags: ($row[2]) host: $row[1]");
-		}
-		if ($f->rows == 0){
-			$ND::server->command("msg $ND::target No hit, maybe spelling mistake, or add % as wildcard");
-		}
-	}else{
-		$ND::server->command("msg $ND::target Only officers are allowed to check that");
-	}
-}
-
-sub flags {
-	my ($msg, $command) = @_;
-
-	my ($nick);
-	if(defined $msg && $msg =~ /^(\S+)$/){
-		$nick = $1;
-	}else{
-		my ($flags) = $ND::DBH->selectrow_array("SELECT TRIM(', ' FROM concat(flag||':'||groupname||', ')) FROM groups");
-		$ND::server->command("notice $ND::nick syntax: .$command nick | % can be used for wildcards \%arro% will match barrow | Current flags: $flags");
-		return;
-	}
-	if (hc()){
-		my $f = $ND::DBH->prepare("SELECT username, concat(flag), TRIM(', ' FROM concat(groupname||', ')) FROM users u LEFT OUTER JOIN (SELECT uid,flag,groupname FROM groupmembers NATURAL JOIN groups ORDER BY uid,flag ) g ON g.uid = u.uid  WHERE username ILIKE ? GROUP BY username,hostmask");
-		$f->execute($nick);
-		while (my @row = $f->fetchrow()){
-			$ND::server->command("msg $ND::target Flags for $row[0] on: $ND::target: $row[1]| (Global: $row[2])");
-		}
-		if ($f->rows == 0){
-			$ND::server->command("msg $ND::target No hit, maybe spelling mistake, or add % as wildcard");
-		}
-	}
-}
+our @EXPORT = qw/flag laston addPoints setHost setPNick getShips getFleet/;
 
 sub flag {
 	my ($msg, $command) = @_;