From 16d5d1698725933ae852e0be92c7f4a8823c301a Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 9 Feb 2004 18:26:19 +0000
Subject: in binary mode, allow to install file or save it

---
 urpmi | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/urpmi b/urpmi
index 6419a793..247bb331 100755
--- a/urpmi
+++ b/urpmi
@@ -147,6 +147,15 @@ sub gmessage {
     $msg = to_utf8($msg);
     `gmessage -default "$ok" -buttons "$buttons" "$msg"`;
 }
+sub save_file {
+    my ($orig) = @_;
+    my $msg = N("Choose location to save file");
+    my $location = `gfilechooser "$msg"`;
+    if (!$? && $location) {
+        exec 'mv', '-f', $orig, $location;
+    }
+    exit(1);
+}
 
 #- parse arguments list.
 my @nextargv;
@@ -272,24 +281,20 @@ What would you like to do?", $src_files[0]),
     if ($rc == 0) {
         exit(1);
     } elsif ($rc == 1) {
-        my $msg = N("Choose location to save file");
-        my $location = `gfilechooser "$msg"`;
-        if (!$? && $msg) {
-            exec 'mv', '-f', $src_files[0], $location;
-        }
-        exit(1);
+        save_file($src_files[0]);
     }
 }
 
-#- question to describe what user who clicked on a rpm in file explorer is really doing
 if ($X && @files == 1 && @names == 0 && $verbose >= 0) {
     gmessage(
 N("You are about to install the following software package on your computer:
 
 %s
 
-Is it ok to continue?", $files[0]));
-    $? and exit(1);
+You may prefer to just save it. What is your choice?", $files[0]),
+             ok => N("Install it"),
+             cancel => N("Save file"));
+    $? and save_file($files[0]);
 }
 
 #- prepare bug report.
-- 
cgit v1.2.1