summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/livedrake
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-28 16:33:49 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-28 16:33:49 +0000
commita3e2c7be4443cb41d435ea38cd7f3e253709afcc (patch)
treed19d2b513c6f268cbe4c912068b85a3b2fc941d0 /perl-install/standalone/livedrake
parentf9128b9427f10815fb59db2eb65ee29a8d80b6d8 (diff)
downloaddrakx-backup-do-not-use-a3e2c7be4443cb41d435ea38cd7f3e253709afcc.tar
drakx-backup-do-not-use-a3e2c7be4443cb41d435ea38cd7f3e253709afcc.tar.gz
drakx-backup-do-not-use-a3e2c7be4443cb41d435ea38cd7f3e253709afcc.tar.bz2
drakx-backup-do-not-use-a3e2c7be4443cb41d435ea38cd7f3e253709afcc.tar.xz
drakx-backup-do-not-use-a3e2c7be4443cb41d435ea38cd7f3e253709afcc.zip
*** empty log message ***
Diffstat (limited to 'perl-install/standalone/livedrake')
-rwxr-xr-xperl-install/standalone/livedrake18
1 files changed, 6 insertions, 12 deletions
diff --git a/perl-install/standalone/livedrake b/perl-install/standalone/livedrake
index b9c1e9471..f93cfefbb 100755
--- a/perl-install/standalone/livedrake
+++ b/perl-install/standalone/livedrake
@@ -2,9 +2,9 @@
use lib qw(/usr/lib/libDrakX);
-use common qw(:common :system);
+use common qw(:common :system :file);
use interactive;
-use mouse;
+use run_program;
use c;
local $_ = join '', @ARGV;
@@ -23,7 +23,7 @@ while (! -x "$cd_mntpoint/Mandrake/mdkinst/usr/bin/perl-install/live_install") {
$in->ask_okcancel(_("Change Cd-Rom"),
_("Please insert the Installation Cd-Rom in your drive and press Ok when done.
If you don't have it, press Cancel to avoid live upgrade."), 1) or $in->exit(0);
- eval { fs::mount("/mnt/cdrom") };
+ run_program::run("mount", "/mnt/cdrom");
}
if (-x "$cd_mntpoint/Mandrake/mdkinst/usr/bin/perl-install/live_install") {
@@ -34,18 +34,12 @@ if (-x "$cd_mntpoint/Mandrake/mdkinst/usr/bin/perl-install/live_install") {
$in->ask_warn('', _("Unable to start live upgrade !!!\n"));
$in->exit(1);
-sub unlockCdrom {
- my ($cdrom) = @_;
- $cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom\s| and $cdrom = $1;
- $cdrom or cat_("/etc/fstab") =~ m|(/dev/\S+)\s+/mnt/cdrom\s| and $cdrom = $1;
- eval { $cdrom and ioctl detect_devices::tryOpen($1), c::CDROM_LOCKDOOR(), 0 };
-}
-
sub ejectCdrom {
my ($cdrom) = @_;
$cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom\s| and $cdrom = $1;
+ $cdrom or cat_("/etc/fstab") =~ m|(/dev/\S+)\s+/mnt/cdrom\s| and $cdrom = $1;
my $f = eval { $cdrom && detect_devices::tryOpen($cdrom) } or return;
- getFile("XXX"); #- close still opened filehandle
- eval { fs::umount("/mnt/cdrom") };
+ run_program::run("umount", "/mnt/cdrom");
+ ioctl $f, c::CDROM_LOCKDOOR(), 0;
ioctl $f, c::CDROMEJECT(), 1;
}