From 2305877e6648c7b4b24ac4082e1db4db3d8f60bb Mon Sep 17 00:00:00 2001
From: Alexey Sokolov <alexey+znc@asokolov.org>
Date: Sun, 31 Jan 2016 11:22:01 +0000
Subject: [PATCH] Make perleval module translateable

---
 modules/perleval.pm     |  8 ++++----
 modules/po/perleval.pot | 17 +++++++++++++++++
 2 files changed, 21 insertions(+), 4 deletions(-)
 create mode 100644 modules/po/perleval.pot

diff --git a/modules/perleval.pm b/modules/perleval.pm
index 4ec2139a..0225758b 100644
--- a/modules/perleval.pm
+++ b/modules/perleval.pm
@@ -5,7 +5,7 @@ package perleval;
 use base 'ZNC::Module';
 
 sub description {
-	'Evaluates perl code'
+	shift->t('Evaluates perl code')
 }
 
 sub wiki_page {
@@ -15,7 +15,7 @@ sub wiki_page {
 sub OnLoad {
 	my $self = shift;
 	if (!$self->GetUser->IsAdmin) {
-		$_[1] = 'Only admin can load this module';
+		$_[1] = $self->t('Only admin can load this module');
 		return 0
 	}
 	return 1
@@ -26,9 +26,9 @@ sub OnModCommand {
 	my $cmd = shift;
 	my $x = eval $cmd;
 	if ($@) {
-		$self->PutModule("Error: $@")
+		$self->PutModule($self->f('Error: %s')->($@));
 	} else {
-		$self->PutModule("Result: $x")
+		$self->PutModule($self->f('Result: %s')->($x));
 	}
 }
 
diff --git a/modules/po/perleval.pot b/modules/po/perleval.pot
new file mode 100644
index 00000000..31e49ae5
--- /dev/null
+++ b/modules/po/perleval.pot
@@ -0,0 +1,17 @@
+#: perleval.pm:8
+msgid "Evaluates perl code"
+msgstr ""
+
+#: perleval.pm:18
+msgid "Only admin can load this module"
+msgstr ""
+
+#: perleval.pm:29
+#, perl-format
+msgid "Error: %s"
+msgstr ""
+
+#: perleval.pm:31
+#, perl-format
+msgid "Result: %s"
+msgstr ""