diff options
author | David Phillips <david@sighup.nz> | 2018-07-29 22:38:55 +1200 |
---|---|---|
committer | David Phillips <david@sighup.nz> | 2018-07-29 22:38:55 +1200 |
commit | c864470d4cf49249c6b4c0e412d9a060024d656e (patch) | |
tree | 6afc392ae2f49a954f0797740f4f86bd128e29d3 /Plugin | |
parent | c0ff50bd5082bb6c7093d907864dd799d52c5a98 (diff) | |
download | idalius-c864470d4cf49249c6b4c0e412d9a060024d656e.tar.xz |
Add missing arguments to modules
Diffstat (limited to 'Plugin')
-rw-r--r-- | Plugin/Echo.pm | 2 | ||||
-rw-r--r-- | Plugin/Map.pm | 2 | ||||
-rw-r--r-- | Plugin/Ping.pm | 2 | ||||
-rw-r--r-- | Plugin/Timezone.pm | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/Plugin/Echo.pm b/Plugin/Echo.pm index 9b23af8..5f2c53a 100644 --- a/Plugin/Echo.pm +++ b/Plugin/Echo.pm @@ -19,7 +19,7 @@ sub configure { } sub echo { - my ($self, $logger, $who, $where, $rest, @arguments) = @_; + my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_; return $rest; } diff --git a/Plugin/Map.pm b/Plugin/Map.pm index 9ca8cef..4bd65a6 100644 --- a/Plugin/Map.pm +++ b/Plugin/Map.pm @@ -22,7 +22,7 @@ sub configure { } sub map { - my ($self, $logger, $who, $where, $rest, @arguments) = @_; + my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_; my ($command, $subjects) = ($rest =~ /^(.+?)\s+(.*)$/); return "[]" unless $subjects; diff --git a/Plugin/Ping.pm b/Plugin/Ping.pm index d935512..de6fd8e 100644 --- a/Plugin/Ping.pm +++ b/Plugin/Ping.pm @@ -17,7 +17,7 @@ sub configure { } sub ping { - my ($self, $logger, $who, $where, $rest, @arguments) = @_; + my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_; my $nick = (split /!/, $who)[0]; return "$nick: pong"; } diff --git a/Plugin/Timezone.pm b/Plugin/Timezone.pm index 60a0f34..594c5d7 100644 --- a/Plugin/Timezone.pm +++ b/Plugin/Timezone.pm @@ -21,7 +21,7 @@ sub configure { } sub time { - my ($self, $logger, $who, $where, $rest, @arguments) = @_; + my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_; my $requester = ( split /!/, $who)[0]; my @known_zones = (keys %{$config{timezone}}); |