summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-28 15:18:22 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-28 15:18:22 +0000
commitb3f1e27bee0527ff356030d9ece24b7af737bc82 (patch)
tree6336975334d994b77c41e6d9f7d7cee1156cab15 /perl-install
parentbf8e10a202230c6be1232eb9126ad8159d7eef1c (diff)
downloaddrakx-backup-do-not-use-b3f1e27bee0527ff356030d9ece24b7af737bc82.tar
drakx-backup-do-not-use-b3f1e27bee0527ff356030d9ece24b7af737bc82.tar.gz
drakx-backup-do-not-use-b3f1e27bee0527ff356030d9ece24b7af737bc82.tar.bz2
drakx-backup-do-not-use-b3f1e27bee0527ff356030d9ece24b7af737bc82.tar.xz
drakx-backup-do-not-use-b3f1e27bee0527ff356030d9ece24b7af737bc82.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/livedrake52
1 files changed, 52 insertions, 0 deletions
diff --git a/perl-install/standalone/livedrake b/perl-install/standalone/livedrake
new file mode 100755
index 000000000..397294543
--- /dev/null
+++ b/perl-install/standalone/livedrake
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+
+use common qw(:common :system);
+use interactive;
+use mouse;
+use c;
+
+local $_ = join '', @ARGV;
+
+/-h/ and die "usage: livedrake [--auto] [--testing]\n";
+
+$::auto = /-auto/;
+$::testing = /-testing/;
+$::isStandalone = 1;
+
+my $in = vnew interactive('su');
+
+my $cd_mntpoint = "/mnt/cdrom";
+
+while (! -x "$cd_mntpoint/Mandrake/mdkinst/usr/bin/perl-install/live_install") {
+ ejectCdrom();
+ $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") };
+}
+
+if (-x "$cd_mntpoint/Mandrake/mdkinst/usr/bin/perl-install/live_install") {
+ chdir "/$cd_mntpoint/Mandrake/mdkinst/usr/bin/perl-install/";
+ exec "./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;
+ my $f = eval { $cdrom && detect_devices::tryOpen($cdrom) } or return;
+ getFile("XXX"); #- close still opened filehandle
+ eval { fs::umount("/mnt/cdrom") };
+ ioctl $f, c::CDROMEJECT(), 1;
+}