updated Danish file,

i18n'd logdrake

1 files changed, 21 insertions, 3 deletions

diff --git a/logdrake b/logdrake
index 8339e7eb..7f063b28 100755
--- a/logdrake
+++ b/logdrake
@@ -27,10 +27,24 @@ use common qw(:common :file :functional :system);
 use any;
 use my_gtk qw(:helpers :wrappers);
 
+# for i18n
+use POSIX;
+use Locale::GetText;
+setlocale (LC_ALL, "");
+Locale::GetText::textdomain ("DrakConf");
+import Locale::GetText I_;
+
 use Gtk;
 use Config;
 init Gtk;
 
+# for i18n
+sub _ {
+    my $s = shift @_; my $t = I_($s);
+    $t && ref $t or return sprintf $t, @_;
+    my ($T, @p) = @$t;
+    sprintf $T, @_[@p];
+}
 
 $::isInstall and die "Not supported during install.\n";
 
@@ -45,7 +59,7 @@ my $in = vnew interactive('su');
 
 local $_ = join '', @ARGV;
 
-/-h/ and die "usage: logdrake [--version]\n";
+/-h/ and die sprintf( _("usage: logdrake [--version]\n"));
 /-version/ and die 'version: $Id$ '."\n";
 
 my $h=`hostname -s`;
@@ -90,8 +104,8 @@ my $menubar = get_main_menu( $window );
 
 
 ########## font and colors
-my $n = Gtk::Gdk::Font->load("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-*-*");
-my $b = Gtk::Gdk::Font->load("-misc-fixed-bold-r-*-*-*-100-*-*-*-*-*-*");
+my $n = Gtk::Gdk::Font->fontset_load(_("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-*-*,*"));
+my $b = Gtk::Gdk::Font->fontset_load(_("-misc-fixed-bold-r-*-*-*-100-*-*-*-*-*-*,*"));
 
 my $white    = my_gtk::gtkcolor(50400, 655, 20000);
 my $black    = my_gtk::gtkcolor(0, 0, 0);
@@ -349,6 +363,10 @@ sub destroy_window {
 
 # log
 # $Log$
+# Revision 1.6  2001/07/03 19:40:48  pablo
+# updated Danish file,
+# i18n'd logdrake
+#
 # Revision 1.5  2001/07/03 08:54:43  yduret
 # powered by DrakX technologie
 #