Commands/Quotes.pm

   1 #**************************************************************************
   2 #   Copyright (C) 2009 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
  20 use strict;
  21 use warnings;
  22 use feature ':5.10';
  23
  24 use MooseX::Declare;
  25 use NDIRC::Dispatcher;
  26
  27 use Tie::File;
  28 use File::Temp ();
  29
  30 tie my @FILE, 'Tie::File', "quote.txt";
  31 tie my @OLDFILE, 'Tie::File',"oldquotes.txt" or die "test";
  32
  33 command quote => {
  34         help => q(syntax .quote [number] | if number isn't given, then a random quote is used),
  35         alias => q(lastquote),
  36 }, class extends NDIRC::Command {
  37         method execute($c,$msg) {
  38                 my ($n) = $msg =~ /(\d+)/;
  39
  40                 $n = $n-1 if defined $n;
  41                 $n //= int(rand($#FILE));
  42                 $n = $#FILE if $self->name eq 'lastquote';
  43
  44                 my $text = $FILE[$n];
  45                 $text =~ s/(.*?)[\r\n]*$/$1/;
  46                 $n++;
  47                 my $num = $#FILE+1;
  48                 $c->reply("Quote <b>$n</b> of <b>$num</b>: $text");
  49         }
  50 };
  51
  52 command addquote => {
  53         help => q(syntax .addquote quote),
  54 }, class extends NDIRC::Command {
  55         method execute($c,$quote) {
  56
  57                 die 'ARGS' unless $quote;
  58
  59                 push @FILE, $quote;
  60                 my $num = $#FILE+1;
  61                 $c->reply("Quote <b>$num</b> added");
  62         }
  63 };
  64
  65 command findquote => {
  66         help => q(syntax .findquote pattern | findqre lets you use a regex pattern),
  67         alias => q(findqre),
  68 }, class extends NDIRC::Command {
  69         method execute($c,$pattern) {
  70                 die 'ARGS' unless $pattern;
  71
  72                 my $matcher;
  73                 if ($self->name eq 'findqre'){
  74                         if (defined (eval 'm/$pattern/ix')){
  75                                 $matcher = 'm/$pattern/ix';
  76                         }else {
  77                                 $c->reply("bad regexp");
  78                                 return;
  79                         }
  80                 }else{
  81                         $matcher = '(index uc($_), uc($pattern)) != -1';
  82                 }
  83                 my $file = new File::Temp( SUFFIX => '.txt' );
  84                 my $n = 1;
  85                 my $match = 0;
  86                 for (@FILE){
  87                         chomp;
  88                         if (eval $matcher){
  89                                 $match = 1;
  90                                 print $file "$n: $_\n";
  91                         }
  92                         $n++;
  93                 }
  94                 if ($match){
  95                         $file->flush;
  96                         $c->command(dcc => $c->nick => SEND => $file);
  97                 }else{
  98                         $c->reply("No quotes matching <b>$pattern.</b>");
  99                 }
 100         }
 101 };
 102
 103 command delquote => {
 104         help => q(syntax: .delquote number),
 105         acl => q(irc_delquote),
 106 }, class extends NDIRC::Command {
 107         method execute($c,$msg) {
 108                 my ($n) = $msg =~ /(\d+)/ or die 'ARGS';
 109                 $n = $n-1;
 110                 if (exists $FILE[$n]){
 111                         my ($uid,$username) = $c->model->selectrow_array(q{
 112 SELECT uid,username FROM users where uid = ?
 113                                 },undef,$c->uid);
 114
 115                         my $text = $FILE[$n];
 116                         push @OLDFILE,"Removed by $username ($uid): $text";
 117                         splice @FILE,$n,1;
 118                         $n++;
 119                         my $num = $#FILE+1;
 120                         $c->reply("Quote <b>$n</b> {$text} removed, number of quotes now: <b>$num</b>");
 121                 }else{
 122                         $c->reply("No such quote.");
 123                 }
 124         }
 125 };
 126
 127 1;