From 36e4dcac8ecdefa80f313a8484d072d2deab22c9 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 19 Jan 2005 18:38:45 +0000
Subject: Factorize some code in a new module

---
 gurpmi.pm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 gurpmi.pm

(limited to 'gurpmi.pm')

diff --git a/gurpmi.pm b/gurpmi.pm
new file mode 100644
index 00000000..404282c5
--- /dev/null
+++ b/gurpmi.pm
@@ -0,0 +1,34 @@
+package gurpmi;
+
+#- This is needed because text printed by Gtk2 will always be encoded
+#- in UTF-8; we first check if LC_ALL is defined, because if it is,
+#- changing only LC_COLLATE will have no effect.
+use POSIX qw(setlocale LC_ALL LC_COLLATE);
+use locale;
+BEGIN {
+    my $collation_locale = $ENV{LC_ALL};
+    if ($collation_locale) {
+	$collation_locale =~ /UTF-8/ or setlocale(LC_ALL, "$collation_locale.UTF-8");
+    } else {
+	$collation_locale = setlocale(LC_COLLATE);
+	$collation_locale =~ /UTF-8/ or setlocale(LC_COLLATE, "$collation_locale.UTF-8");
+    }
+}
+
+use urpm;
+
+sub usage () {
+    print STDERR <<USAGE;
+gurpmi version $urpm::VERSION
+Usage :
+    gurpmi <rpm> [ <rpm>... ]
+USAGE
+    exit 0;
+}
+
+#- fatal gurpmi initialisation error (*not* fatal urpmi errors)
+sub fatal { print STDERR "$_[0]\n"; exit 1 }
+
+sub but ($) { "    $_[0]    " }
+
+1;
-- 
cgit v1.2.1