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 ""