diff options
Diffstat (limited to '_irpm')
| -rwxr-xr-x | _irpm | 66 |
1 files changed, 0 insertions, 66 deletions
@@ -1,66 +0,0 @@ -#!/usr/bin/perl - -# for i18n -use POSIX; -use Locale::gettext; - -setlocale (LC_ALL, ""); -textdomain ("urpmi"); - -sub N { - my ($format, @params) = @_; - sprintf(Locale::gettext::gettext($format), @params); -} - -$automatic = 0; -$timeout = 15; - -$DIR = "/var/lib/urpmi"; -$BASE = "$DIR/autoirpm"; -$INSTALL_SCRIPT_REP = "$BASE.scripts"; - -$rpm = shift @ARGV; -print STDERR "autoirpm: ", N("installing %s\n",$rpm); - -`xtest`; -$X = ($? == 0); - -my $pid; -$SIG{ALRM} = sub { $pid and kill 9, $pid; not_found(); }; -alarm $timeout; - -if (!$automatic) { - $interactive_mesg = N("Automatic installation of packages...\nYou requested installation of package %s\n",$rpm) . N("Is this OK?"); - if ($X) { - 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 = N("Nn"); - $yesexpr = N("Yy"); - print $interactive_mesg, N(" (Y/n) "); - <STDIN> =~ /[$yesexpr]/ or not_found(); - } else { - # Arghhh not in automatic and no way to contact the user... dying - not_found(); - } - } -} -alarm 0; - -$urpmi = !$automatic && $X ? "gurpmi" : "urpmi"; -fork or exec $urpmi, "--comment", $ARGV[0], $rpm; wait; - -# launch the initial prog -(readlink $ARGV[0]) !~ /$INSTALL_SCRIPT_REP/ and exec @ARGV; - -not_found(); - -sub not_found { - print STDERR N("%s: command not found\n",$rpm); - exit 127; -} - |