Make the po location configurable

[deb/packages.git] / lib / Packages / I18N / Locale.pm

diff --git a/lib/Packages/I18N/Locale.pm b/lib/Packages/I18N/Locale.pm
index 3b4ecc606d7c3dea3eaf47de4fa58258ddbe8707..c65c9b70d3f6a6f5ed7dab8bdf4349adae91e8a5 100644 (file)
--- a/lib/Packages/I18N/Locale.pm
+++ b/lib/Packages/I18N/Locale.pm
@@ -4,25 +4,31 @@ use strict;
 use warnings;
 
 use base 'Locale::Maketext';
-use Locale::Maketext::Lexicon {
-    'en' => [Gettext => '/home/djpig/debian/www.d.o/packages/po/pdo.pot',
-            Gettext => '/home/djpig/debian/www.d.o/packages/po/templates.pot',
-            Gettext => '/home/djpig/debian/www.d.o/packages/po/langs.pot',
-            Gettext => '/home/djpig/debian/www.d.o/packages/po/sections.pot',
-            Gettext => '/home/djpig/debian/www.d.o/packages/po/debtags.pot'],
-    '*' => [Gettext => '/home/djpig/debian/www.d.o/packages/po/pdo.*.po',
-           Gettext => '/home/djpig/debian/www.d.o/packages/po/templates.*.po',
-           Gettext => '/home/djpig/debian/www.d.o/packages/po/langs.*.po',
-           Gettext => '/home/djpig/debian/www.d.o/packages/po/sections.*.po',
-           Gettext => '/home/djpig/debian/www.d.o/packages/po/debtags.*.po'],
-    _auto   => 1,
-    _style  => 'gettext',
-};
+use Locale::Maketext::Lexicon;
 
 use base 'Exporter';
 
 our @EXPORT = qw( N_ );
 
+sub load {
+    my ($podir) = @_;
+
+    Locale::Maketext::Lexicon->import( {
+       'en' => [Gettext => "$podir/pdo.pot",
+                Gettext => "$podir/templates.pot",
+                Gettext => "$podir/langs.pot",
+                Gettext => "$podir/sections.pot",
+                Gettext => "$podir/debtags.pot"],
+       '*' => [Gettext => "$podir/pdo.*.po",
+               Gettext => "$podir/templates.*.po",
+               Gettext => "$podir/langs.*.po",
+               Gettext => "$podir/sections.*.po",
+               Gettext => "$podir/debtags.*.po"],
+       _auto   => 1,
+       _style  => 'gettext',
+                                      } );
+}
+
 sub N_ { return $_[0]; }
 
 sub g {