Usermgm.pm

   1 #**************************************************************************
   2 #   Copyright (C) 2006 by Michael Andreen <harvATruinDOTnu>               *
   3 #                                                                         *
   4 #   This program is free software; you can redistribute it and/or modify  *
   5 #   it under the terms of the GNU General Public License as published by  *
   6 #   the Free Software Foundation; either version 2 of the License, or     *
   7 #   (at your option) any later version.                                   *
   8 #                                                                         *
   9 #   This program is distributed in the hope that it will be useful,       *
  10 #   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
  11 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
  12 #   GNU General Public License for more details.                          *
  13 #                                                                         *
  14 #   You should have received a copy of the GNU General Public License     *
  15 #   along with this program; if not, write to the                         *
  16 #   Free Software Foundation, Inc.,                                       *
  17 #   51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.         *
  18 #**************************************************************************/
  19 package NDIRC::Usermgm;
  20 use strict;
  21 use warnings;
  22 use ND::DB;
  23 use NDIRC::Access;
  24 require Exporter;
  25
  26 our @ISA = qw/Exporter/;
  27
  28 our @EXPORT = qw/whois flags flag laston addPoints chattrG setHost setPNick getShips getFleet/;
  29
  30 sub whois {
  31         my ($msg, $command) = @_;
  32
  33         my ($nick);
  34         if(defined $msg && $msg =~ /^(\S+)$/){
  35                 $nick = $1;
  36         }else{
  37                 $ND::server->command("notice $ND::nick syntax: .$command nick | % can be used for wildcards \%arro% will match barrow");
  38                 return;
  39         }
  40         if (officer() || ia()){
  41                 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");
  42                 $f->execute($nick);
  43                 while (my @row = $f->fetchrow()){
  44                         $ND::server->command("msg $ND::target $row[0] flags: ($row[2]) host: $row[1]");
  45                 }
  46                 if ($f->rows == 0){
  47                         $ND::server->command("msg $ND::target No hit, maybe spelling mistake, or add % as wildcard");
  48                 }
  49         }else{
  50                 $ND::server->command("msg $ND::target Only officers are allowed to check that");
  51         }
  52 }
  53
  54 sub flags {
  55         my ($msg, $command) = @_;
  56
  57         my ($nick);
  58         if(defined $msg && $msg =~ /^(\S+)$/){
  59                 $nick = $1;
  60         }else{
  61                 my ($flags) = $ND::DBH->selectrow_array("SELECT TRIM(', ' FROM concat(flag||':'||groupname||', ')) FROM groups");
  62                 $ND::server->command("notice $ND::nick syntax: .$command nick | % can be used for wildcards \%arro% will match barrow | Current flags: $flags");
  63                 return;
  64         }
  65         if (hc()){
  66                 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");
  67                 $f->execute($nick);
  68                 while (my @row = $f->fetchrow()){
  69                         $ND::server->command("msg $ND::target Flags for $row[0] on: $ND::target: $row[1]| (Global: $row[2])");
  70                 }
  71                 if ($f->rows == 0){
  72                         $ND::server->command("msg $ND::target No hit, maybe spelling mistake, or add % as wildcard");
  73                 }
  74         }
  75 }
  76
  77 sub flag {
  78         my ($msg, $command) = @_;
  79
  80         my ($flag);
  81         if(defined $msg && $msg =~ /^(\w)$/){
  82                 $flag = $1;
  83         }else{
  84                 $ND::server->command("notice $ND::nick syntax: .$command flag");
  85                 return;
  86         }
  87
  88         if (officer() || ia() || ($ND::target eq $ND::scanchan && $flag eq 'S')){
  89                 my $f = $ND::DBH->prepare(qq{
  90 SELECT TRIM(', ' FROM concat(username||', ')),count(username) FROM
  91         (SELECT uid, username FROM users ORDER BY username) u NATURAL JOIN groupmembers gm
  92         JOIN groups g ON g.gid = gm.gid
  93 WHERE flag = ?;
  94                         });
  95                 if (my ($users,$count) = $ND::DBH->selectrow_array($f,undef,$flag)){
  96                         $ND::server->command("msg $ND::target $ND::B$count$ND::B Users with flag $ND::B$flag$ND::B: $users");
  97                 }
  98         }else{
  99                 $ND::server->command("msg $ND::target Only officers are allowed to check that");
 100         }
 101 }
 102
 103 sub laston {
 104         my ($msg, $command) = @_;
 105
 106         if (officer() || ia()){
 107                 my ($flag,$min);
 108                 my $f;
 109                 if(defined $msg && $msg =~ /^(\w)(?: (\d+)(?:\|(\d+)\|(\d+))?)?$/){
 110                         $flag = $1;
 111                         $min = $2;
 112                         my $forum = $3;
 113                         my $claim = $4;
 114                         $min = 0 unless defined $min;
 115                         $f = $ND::DBH->prepare(q{SELECT username, last
 116                                 ,COALESCE(lastforum::text,'?') AS lastforum
 117                                 ,COALESCE(lastclaim::text,'?') AS lastclaim
 118                                 FROM (SELECT username
 119                                         ,date_part('day',now() - laston)::int AS last
 120                                         ,date_part('day',now() - (SELECT max(time) FROM forum_thread_visits WHERE uid = u.uid)) AS lastforum
 121                                         ,date_part('day',now() - (SELECT max(timestamp) FROM raid_claims WHERE uid = u.uid)) AS lastclaim
 122                                         FROM users u
 123                                                 NATURAL JOIN groupmembers
 124                                                 NATURAL JOIN groups
 125                                         WHERE flag = $1
 126                                 ) a
 127                                 WHERE COALESCE(last >= $2,TRUE) AND COALESCE(lastforum >= $3,TRUE) AND COALESCE(lastclaim >= $4,TRUE)
 128                                 ORDER BY last DESC, lastforum DESC, lastclaim DESC
 129                                 });
 130                         $f->execute($flag,$min,$forum,$claim);
 131                 }elsif(defined $msg && $msg =~ /^(\S+)$/){
 132                         $f = $ND::DBH->prepare(q{SELECT username
 133                                 ,date_part('day',now() - laston)::int AS last
 134                                 ,COALESCE(date_part('day',now() - (SELECT max(time) FROM forum_thread_visits WHERE uid = u.uid))::text,'?')
 135                                         AS lastforum
 136                                 ,COALESCE(date_part('day',now() - (SELECT max(timestamp) FROM raid_claims WHERE uid = u.uid))::text,'?') AS lastclaim
 137                                 FROM users u
 138                                 WHERE username ILIKE $1 ORDER BY lower(username)
 139                                 });
 140                         $f->execute($1);
 141                 }else{
 142                         $ND::server->command("notice $ND::nick syntax: .$command <flag [days]|nick> | lists users and the number of days since they were last seen (irc|forum|claim). If days is specified it will only list users with at least that amount of idle time.");
 143                         return;
 144                 }
 145
 146                 my $text;
 147                 my $i = 0;
 148                 while (my $user = $f->fetchrow_hashref){
 149                         $user->{last} = '?' unless defined $user->{last};
 150                         $text .= "$user->{username}($user->{last}|$user->{lastforum}|$user->{lastclaim}) ";
 151                         $i++;
 152                 }
 153                 $ND::server->command("msg $ND::target $ND::B$i$ND::B Users(days)".(defined $flag ?  " with flag $ND::B$flag$ND::B" : "").": $text");
 154         }else{
 155                 $ND::server->command("msg $ND::target Only officers are allowed to check that");
 156         }
 157 }
 158
 159
 160 sub getShips {
 161         my ($ship,$command) = @_;
 162
 163         unless (defined $ship){
 164                 $ND::server->command("notice $ND::nick Usage: .$command ship | % can be used as wildcard, e.g. beet%");
 165                 return;
 166         }
 167         if (officer() || dc()){
 168                 my $f = $ND::DBH->prepare(qq{SELECT username,SUM(fs.amount) AS amount
 169                         FROM users u
 170                                 JOIN (SELECT DISTINCT ON (planet) planet,fid FROM fleets
 171                                         WHERE mission = 'Full fleet' AND name <> 'Unit'
 172                                         ORDER BY planet,tick DESC,fid DESC) f  USING (planet)
 173                                 JOIN fleet_ships fs USING (fid)
 174                         WHERE ship ILIKE ? AND uid IN (SELECT uid FROM groupmembers WHERE gid = 2)
 175                         GROUP BY username ORDER BY amount DESC
 176                         });
 177                 if ($command eq 'shipshome'){
 178                         $f = $ND::DBH->prepare(q{
 179 SELECT username,SUM(amount) AS amount
 180 FROM available_ships
 181 WHERE ship ILIKE ? AND uid IN (SELECT uid FROM groupmembers WHERE gid = 2)
 182 GROUP BY username ORDER BY amount DESC
 183                         });
 184                 }
 185                 $f->execute($ship);
 186                 my $text;
 187                 my $i = 0;
 188                 my $total = 0;
 189                 while (my $user = $f->fetchrow_hashref){
 190                         $user->{last} = '?' unless defined $user->{last};
 191                         $text .= "$user->{username}: $user->{amount} ";
 192                         $i++;
 193                         $total += $user->{amount};
 194                 }
 195                 if ($text){
 196                         $ND::server->command("notice $ND::nick $ND::B$i$ND::B Users with $ND::B$total $ship$ND::B: $text");
 197                 }else{
 198                         $ND::server->command("msg $ND::target $ND::B$i$ND::B Couldn't find any user with $ND::B$ship$ND::B:");
 199                 }
 200         }
 201 }
 202
 203 sub getFleet {
 204         my ($nick,$command) = @_;
 205
 206         unless (defined $nick){
 207                 $ND::server->command("notice $ND::nick Usage: $command nick | % can be used as wildcard, e.g. barr%");
 208                 return;
 209         }
 210         if (officer() || dc()){
 211                 my $f = $ND::DBH->prepare(q{SELECT fs.ship, fs.amount, username
 212                         FROM fleet_ships fs
 213                                 JOIN (SELECT fid,username
 214                                         FROM fleets f
 215                                                 JOIN users u USING (planet)
 216                                         WHERE mission = 'Full fleet' AND name <> 'Unit'
 217                                                 AND username ILIKE $1
 218                                         ORDER BY planet,tick DESC,fid DESC
 219                                         LIMIT 1
 220                                 ) f  USING (fid)
 221                         ORDER BY num
 222                 });
 223                 $f->execute($nick);
 224                 my $text;
 225                 my $username;
 226                 while (my $ship = $f->fetchrow_hashref){
 227                         unless (defined $username) {
 228                                 $username = $ship->{username};
 229                                 $text = "$ND::B$username$ND::O has: "
 230                         }
 231                         $text .= "$ship->{ship} $ship->{amount} ";
 232                 }
 233                 if ($text){
 234                         $ND::server->command("notice $ND::nick $text");
 235                 }else{
 236                         $ND::server->command("notice $ND::nick Couldn't find any fleet for $nick");
 237                 }
 238         }
 239 }
 240
 241 sub addPoints {
 242         my ($msg, $t) = @_;
 243
 244         my ($nick, $points);
 245         if(defined $msg && $msg =~ /^(\S+)(?: (-?(\d+)?(\.\d+)?))?$/){
 246                 $nick = $1;
 247                 $points = $2;
 248         }else{
 249                 $ND::server->command("notice $ND::nick syntax: .$t nick [points] | % can be used for wildcards \%arro\% will match barrow, if the number of points isn't specified, then 1 will be assumed.");
 250                 return;
 251         }
 252         if (   ($t eq "d" && dc())
 253                 || ($t eq "a" && bc())
 254                 || ($t eq "h" && officer())
 255                 || ($t eq "s" && scanner())){
 256                 $points = 1 unless $points;
 257                 if ($points*$points > 400){
 258                         $ND::server->command("msg $ND::target Values between -20 and 20 please");
 259                         return;
 260                 }
 261                 my $f = $ND::DBH->prepare("SELECT uid,username FROM users WHERE username ILIKE ?");
 262                 $f->execute($nick);
 263                 my @row = $f->fetchrow();
 264                 if ($f->rows == 1){
 265                         my $type = "defense";
 266                         $type = "attack" if $t eq "a";
 267                         $type = "humor" if $t eq "h";
 268                         $type = "scan" if $t eq "s";
 269                         my ($fleets) = $ND::DBH->selectrow_array('SELECT count(*) FROM raids r JOIN raid_targets rt ON r.id = rt.raid JOIN raid_claims rc ON rt.id = rc.target WHERE not launched AND uid = ? AND tick + 24 > tick();',undef,$row[0]);
 270                         if ($t eq 'a' && $fleets > 0 && $points > 0){
 271                                 $ND::server->command("msg $ND::target $row[1] has $fleets claimed waves the last 24 ticks that aren't marked as launched, so no points.");
 272                                 return;
 273                         }
 274                         $type .= "_points";
 275                         $ND::DBH->do("UPDATE users SET $type = $type + ? WHERE uid = ?",undef,$points,$row[0]);
 276                         $ND::server->command("msg $ND::target $row[1] has been given $points $type");
 277                 }elsif ($f->rows == 0){
 278                         $ND::server->command("msg $ND::target No hit, maybe spelling mistake, or add % as wildcard");
 279                 }else{
 280                         $ND::server->command("msg $ND::target More than 1 user matched, please refine the search");
 281                 }
 282                 $f->finish;
 283
 284         }else{
 285                 $ND::server->command("msg $ND::target You don't have access for that");
 286         }
 287 }
 288
 289 sub setHost {
 290         my ($msg, $command) = @_;
 291
 292         my ($nick, $host);
 293         if(defined $msg && $msg =~ /^(\S+) (\S+)$/){
 294                 $nick = $1;
 295                 $host = $2;
 296         }else{
 297                 $ND::server->command("notice $ND::nick syntax: .sethost nick host | % can be used for wildcards \%arro% will match barrow");
 298                 return;
 299         }
 300         if (hc()){
 301                 my $f = $ND::DBH->prepare("SELECT uid,username FROM users WHERE username ILIKE ?");
 302                 $f->execute($nick);
 303                 my ($uid,$nick) = $f->fetchrow();
 304                 if ($f->rows == 1){
 305                         my ($username,$hostname) = $ND::DBH->selectrow_array("SELECT username, hostmask FROM users WHERE hostmask ILIKE ? AND NOT (username ILIKE ?)",undef,$host,$nick);
 306                         if ((not defined $username) && $ND::DBH->do("UPDATE users SET hostmask = ? WHERE uid = ?",undef,$host,$uid) > 0){
 307                                 $ND::server->command("msg $ND::target Updated $ND::B$nick${ND::B}'s host to: $ND::B$host$ND::B");
 308                         }elsif(defined $username){
 309                                 $ND::server->command("msg $ND::target $ND::B$username$ND::B already exists with host: $ND::B$hostname$ND::B.");
 310                         }else{
 311                                 $ND::server->command("msg $ND::target Couldn't update $ND::B$username${ND::B}'s host");
 312                         }
 313                 }elsif ($f->rows == 0){
 314                         $ND::server->command("msg $ND::target No hit, maybe spelling mistake, or add % as wildcard");
 315                 }else{
 316                         $ND::server->command("msg $ND::target More than 1 user matched, please refine the search");
 317                 }
 318                 $f->finish;
 319         }
 320 }
 321
 322 sub setPNick {
 323         my ($msg, $command) = @_;
 324
 325         my ($nick, $pnick);
 326         if(defined $msg && $msg =~ /^(\S+) ([^.\s]+)$/){
 327                 $nick = $1;
 328                 $pnick = $2;
 329         }else{
 330                 $ND::server->command("notice $ND::nick syntax: .$command nick pnick | % can be used for wildcards \%arro% will match barrow");
 331                 return;
 332         }
 333         if (hc()){
 334                 my $f = $ND::DBH->prepare("SELECT uid,username FROM users WHERE username ILIKE ?");
 335                 $f->execute($nick);
 336                 my ($uid,$nick) = $f->fetchrow();
 337                 if ($f->rows == 1){
 338                         my ($username,$p_nick) = $ND::DBH->selectrow_array("SELECT username, pnick FROM users WHERE pnick ILIKE ? AND NOT (username ILIKE ?)",undef,$pnick,$nick);
 339                         my $hostname = "$pnick.users.netgamers.org";
 340                         if ((not defined $username) && $ND::DBH->do("UPDATE users SET pnick = ?, hostmask = ? WHERE uid = ?",undef,$pnick,$hostname,$uid) > 0){
 341                                 $ND::server->command("msg $ND::target Updated $ND::B$nick${ND::B}'s pnick to: $ND::B$pnick$ND::B and hostname to $ND::B$hostname$ND::B");
 342                         }elsif(defined $username){
 343                                 $ND::server->command("msg $ND::target $ND::B$username$ND::B already exists with pnick $ND::B$p_nick$ND::B.");
 344                         }else{
 345                                 $ND::server->command("msg $ND::target Couldn't update $ND::B$username${ND::B}'s host");
 346                         }
 347                 }elsif ($f->rows == 0){
 348                         $ND::server->command("msg $ND::target No hit, maybe spelling mistake, or add % as wildcard");
 349                 }else{
 350                         $ND::server->command("msg $ND::target More than 1 user matched, please refine the search");
 351                 }
 352                 $f->finish;
 353         }
 354 }
 355
 356 1;