+};
+
+command findquote => {
+ help => q(syntax .findquote pattern | findqre lets you use a regex pattern),
+ alias => q(findqre),
+}, class extends NDIRC::Command {
+ method execute($c,$pattern) {
+ die 'ARGS' unless $pattern;
+
+ my $matcher;
+ if ($self->name eq 'findqre'){
+ if (defined (eval 'm/$pattern/ix')){
+ $matcher = 'm/$pattern/ix';
+ }else {
+ $c->reply("bad regexp");
+ return;
+ }
+ }else{
+ $matcher = '(index uc($_), uc($pattern)) != -1';
+ }
+ my $file = new File::Temp( SUFFIX => '.txt' );
+ my $n = 1;
+ my $match = 0;
+ for (@FILE){
+ chomp;
+ if (eval $matcher){
+ $match = 1;
+ print $file "$n: $_\n";
+ }
+ $n++;
+ }
+ if ($match){
+ $file->flush;
+ $c->command(dcc => $c->nick => SEND => $file);
+ }else{
+ $c->reply("No quotes matching <b>$pattern.</b>");