aboutsummaryrefslogtreecommitdiff
path: root/plugin/map.pm
diff options
context:
space:
mode:
Diffstat (limited to 'plugin/map.pm')
-rw-r--r--plugin/map.pm34
1 files changed, 0 insertions, 34 deletions
diff --git a/plugin/map.pm b/plugin/map.pm
deleted file mode 100644
index f8cb256..0000000
--- a/plugin/map.pm
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/env perl
-
-package plugin::map;
-
-use strict;
-use warnings;
-
-my %config;
-my $run_command;
-
-
-sub configure {
- my $self = shift;
- my $cmdref = shift;
- my $cref = shift;
- %config = %$cref;
- $run_command = shift;
-
- $cmdref->("map", sub { $self->map(@_); } );
-
- return $self;
-}
-
-sub map {
- my ($self, $logger, $who, $where, $rest, @arguments) = @_;
- my ($command, $subjects) = ($rest =~ /^(.+?)\s+(.*)$/);
-
- return "[]" unless $subjects;
-
- my @array = map { $run_command->("$command $_", $who, $where) } (split /,/, $subjects);
-
- return "[" . (join ", ", @array). "]";
-}
-1;