X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FPOE%2FComponent%2FIRC%2FPlugin%2FLogger%2FIrssi.pm;h=22172a21aab6a7d59efc100020d7e5817ca27cec;hb=8f7e36dc5ccf4304f1de9ab64a741e4be48e57ac;hp=67b5dd1eefa9932c28a68e3d79e11b58b8582ca4;hpb=e628c5975169afa639e9c9998489739e9609aa2c;p=poe-component-irc-plugin-logger-irssi.git

diff --git a/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm b/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm
index 67b5dd1..22172a2 100644
--- a/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm
+++ b/lib/POE/Component/IRC/Plugin/Logger/Irssi.pm
@@ -1,6 +1,6 @@
 package POE::Component::IRC::Plugin::Logger::Irssi;
 
-our $VERSION = 0.001;
+our $VERSION = '0.001002';
 
 use 5.014000;
 use strict;
@@ -13,26 +13,26 @@ our @EXPORT_OK = qw/irssi_format/;
 ##################################################
 
 my %irssi_format = (
-  nick_change => sub { "-!- $_[0] is now known as $_[1]" },
-  topic_is => sub { "-!- Topic for $_[0]: $_[1]"},
-  topic_change => sub {
-	my ($nick, $topic) = @_;
-	return "-!- $nick changed the topic to: $topic" if $topic;
-	return "-!- Topic unset by $nick" unless $topic;
-  },
-  privmsg => sub{ "<$_[0]> $_[1]" },
-  notice => sub { "-$_[0]- $_[1]" },
-  action => sub { "* $_[0] $_[1]" },
-  join => sub { "-!- $_[0] [$_[1]] has joined $_[2]" },
-  part => sub { "-!- $_[0] [$_[1]] has left $_[2] [$_[3]]" },
-  quit => sub { "-!- $_[0] [$_[1]] has quit [$_[2]]"},
-  kick => sub { "-!- $_[1] was kicked from $_[2] by $_[0] [$_[3]]"},
-  topic_set_by => sub { "-!- Topic set by $_[1] [". localtime($_[2]) .']' },
+	nick_change => sub { "-!- $_[0] is now known as $_[1]" },
+	topic_is => sub { "-!- Topic for $_[0]: $_[1]"},
+	topic_change => sub {
+		my ($nick, $topic) = @_;
+		return "-!- $nick changed the topic to: $topic" if $topic;
+		return "-!- Topic unset by $nick" unless $topic;
+	},
+	privmsg => sub{ "<$_[0]> $_[1]" },
+	notice => sub { "-$_[0]- $_[1]" },
+	action => sub { "* $_[0] $_[1]" },
+	join => sub { "-!- $_[0] [$_[1]] has joined $_[2]" },
+	part => sub { "-!- $_[0] [$_[1]] has left $_[2] [$_[3]]" },
+	quit => sub { "-!- $_[0] [$_[1]] has quit [$_[2]]"},
+	kick => sub { "-!- $_[1] was kicked from $_[2] by $_[0] [$_[3]]"},
+	topic_set_by => sub { "-!- Topic set by $_[1] [". localtime($_[2]) .']' },
 );
 
 for my $letter ('a' .. 'z', 'A' .. 'Z') {
-  $irssi_format{"+$letter"} = sub { my $nick = shift; "-!- mode [+$letter @_] by $nick" };
-  $irssi_format{"-$letter"} = sub { my $nick = shift; "-!- mode [-$letter @_] by $nick" }
+	$irssi_format{"+$letter"} = sub { my $nick = shift; "-!- mode [+$letter @_] by $nick" };
+	$irssi_format{"-$letter"} = sub { my $nick = shift; "-!- mode [-$letter @_] by $nick" }
 }
 
 sub irssi_format { \%irssi_format }
@@ -40,6 +40,8 @@ sub irssi_format { \%irssi_format }
 1;
 __END__
 
+=encoding utf-8
+
 =head1 NAME
 
 POE::Component::IRC::Plugin::Logger::Irssi - Log IRC events like irssi