From c19e3039a252f50b986a2e4b8e66817395f512ee Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Wed, 5 Mar 2003 20:06:46 +0000 Subject: changed name of _() function to N() use of perl_checker to create pot file --- _irpm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to '_irpm') diff --git a/_irpm b/_irpm index b66301ee..354a1769 100755 --- a/_irpm +++ b/_irpm @@ -7,7 +7,7 @@ use Locale::gettext; setlocale (LC_ALL, ""); textdomain ("urpmi"); -sub _ { +sub N { my ($format, @params) = @_; sprintf(Locale::gettext::gettext($format), @params); } @@ -20,7 +20,7 @@ $BASE = "$DIR/autoirpm"; $INSTALL_SCRIPT_REP = "$BASE.scripts"; $rpm = shift @ARGV; -print STDERR "autoirpm: ", _("installing %s\n",$rpm); +print STDERR "autoirpm: ", N("installing %s\n",$rpm); `xtest`; $X = ($? == 0); @@ -30,18 +30,18 @@ $SIG{ALRM} = sub { $pid and kill 9, $pid; not_found(); }; alarm $timeout; if (!$automatic) { - $interactive_mesg = _("Automatic installation of packages...\nYou requested installation of package %s\n",$rpm) . _("Is this OK?"); + $interactive_mesg = N("Automatic installation of packages...\nYou requested installation of package %s\n",$rpm) . N("Is this OK?"); if ($X) { - my $ok = _("Ok"); - my $cancel = _("Cancel"); + my $ok = N("Ok"); + my $cancel = N("Cancel"); ($pid = fork) or exec "gmessage", "-default", $ok, "-buttons", "$ok:0,$cancel:2", $interactive_mesg; wait(); $? and not_found(); } else { if (isatty(0)) { - $noexpr = _("Nn"); - $yesexpr = _("Yy"); - print $interactive_mesg, _(" (Y/n) "); + $noexpr = N("Nn"); + $yesexpr = N("Yy"); + print $interactive_mesg, N(" (Y/n) "); =~ /[$yesexpr]/ or not_found(); } else { # Arghhh not in automatic and no way to contact the user... dying @@ -60,7 +60,7 @@ fork or exec $urpmi, "--comment", $ARGV[0], $rpm; wait; not_found(); sub not_found { - print STDERR _("%s: command not found\n",$rpm); + print STDERR N("%s: command not found\n",$rpm); exit 127; } -- cgit v1.2.1