Channel.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::Channel;
  20 use strict;
  21 use warnings;
  22 use NDIRC::Access;
  23 require Exporter;
  24
  25 our @ISA = qw/Exporter/;
  26
  27 our @EXPORT = qw/op deop voice devoice/;
  28
  29 sub op {
  30         my ($nick) = @_;
  31         umode("op","op",$nick);
  32 }
  33
  34 sub deop {
  35         my ($nick) = @_;
  36         umode("deop","op",$nick);
  37 }
  38
  39 sub voice {
  40         my ($nick) = @_;
  41         umode("voice","voice",$nick);
  42 }
  43
  44 sub devoice {
  45         my ($nick) = @_;
  46         umode("devoice","voice",$nick);
  47 }
  48
  49 sub umode {
  50         my ($command,$access,$nick) = @_;
  51         my $where = "";
  52         unless (defined $nick){
  53                 $nick = $ND::nick;
  54                 $where = "OR f.name = 'auto_$access'";
  55         }
  56
  57         my $mode = qq{
  58 SELECT DISTINCT c.name FROM users u
  59         JOIN groupmembers g ON g.uid = u.uid
  60         JOIN channel_group_flags gf ON g.gid = gf.group
  61         JOIN channels c ON gf.channel = c.id
  62         JOIN channel_flags f ON f.id = gf.flag
  63 WHERE u.hostmask ILIKE ? AND c.name = ? AND (f.name = '$access' $where);
  64                 };
  65         if (masterop()){
  66                 $mode = 1;
  67         }else{
  68                 ($mode) = $ND::DBH->selectrow_array($mode,undef,$ND::address,$ND::target);
  69         }
  70         if ($mode){
  71                 $ND::server->command("$command $ND::target $nick");
  72         }
  73 }
  74
  75 1;