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