diff options
author | Thomas Backlund <tmb@mageia.org> | 2011-11-20 22:43:30 +0000 |
---|---|---|
committer | Thomas Backlund <tmb@mageia.org> | 2011-11-20 22:43:30 +0000 |
commit | 6bea4ae32e8c9391979d2fb2e2916822c829a723 (patch) | |
tree | 56440da203c03a93d1601a2567d3e404ba4fb9cf /files/halt.local.CD | |
parent | 297f2cc14b24e74fe6f3efcac4b066615e0b21cc (diff) | |
download | draklive-config-6bea4ae32e8c9391979d2fb2e2916822c829a723.tar draklive-config-6bea4ae32e8c9391979d2fb2e2916822c829a723.tar.gz draklive-config-6bea4ae32e8c9391979d2fb2e2916822c829a723.tar.bz2 draklive-config-6bea4ae32e8c9391979d2fb2e2916822c829a723.tar.xz draklive-config-6bea4ae32e8c9391979d2fb2e2916822c829a723.zip |
adapt for Mageia naming scheme (https://wiki.mageia.org/en/Product_naming)
Diffstat (limited to 'files/halt.local.CD')
-rwxr-xr-x | files/halt.local.CD | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/files/halt.local.CD b/files/halt.local.CD new file mode 100755 index 0000000..1e9fc67 --- /dev/null +++ b/files/halt.local.CD @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +use lib qw(/usr/lib/libDrakX); +use MDK::Common; +use detect_devices; +use c; + +my ($device) = cat_("/proc/mounts") =~ m!(/dev/\S+)\s+/live/media\s+iso9660!; +$device or exit; + +system("chvt 1"); + +# try to put halt/reboot in cache, if not called directly from them +# mount is also needed by end of /etc/init.d/halt +system("$_ --help &>/dev/null") foreach qw(halt mount reboot); + +my $f = detect_devices::tryOpen($device); +# see openCdromTray() from install::any +ioctl($f, c::CDROM_LOCKDOOR(), 0); # unlock door +ioctl($f, c::CDROMEJECT(), 0); + +print "\n\nPlease press <Enter> (or <CTRL><J>) once the medium is removed.\n"; +system("read < /dev/console"); + +ioctl($f, c::CDROMCLOSETRAY(), 0); |