i18n fixes

1 files changed, 11 insertions, 0 deletions

diff --git a/clock.pm b/clock.pm
index 58ec25d4..1f0481a8 100755
--- a/clock.pm
+++ b/clock.pm
@@ -10,6 +10,17 @@ use timezone;
 use Data::Dumper;
 init Gtk;
 #use strict;
+use Locale::GetText;
+
+setlocale (LC_ALL, "");
+Locale::GetText::textdomain ("DrakConf");
+import Locale::GetText I_;
+sub _ {
+    my $s = shift @_; my $t = I_($s);
+    $t && ref $t or return sprintf $t, @_;
+    my ($T, @p) = @$t;
+    sprintf $T, @_[@p];
+}
 
 $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
 my $in = vnew interactive('su');