diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-22 16:58:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-22 16:58:56 +0000 |
| commit | 825da272c3b2e89b86e19656ade350240204896b (patch) | |
| tree | 76cd5b7a4df61b94553b4c4e6ed96c5d4a40f235 /perl-install/install_any.pm | |
| parent | 72e8e78cd4d477aa06ac1c9507c109ca63ad0e8f (diff) | |
| download | drakx-825da272c3b2e89b86e19656ade350240204896b.tar drakx-825da272c3b2e89b86e19656ade350240204896b.tar.gz drakx-825da272c3b2e89b86e19656ade350240204896b.tar.bz2 drakx-825da272c3b2e89b86e19656ade350240204896b.tar.xz drakx-825da272c3b2e89b86e19656ade350240204896b.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 4d867ab4b..1575db050 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -13,7 +13,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK); #-###################################################################################### #- misc imports #-###################################################################################### -use common qw(:common :system :functional); +use common qw(:common :system :functional :file); use commands; use run_program; use partition_table qw(:types); @@ -272,3 +272,25 @@ sub enableMD5 { print; } } + +sub lnx4win_postinstall { + my ($prefix) = @_; + my $dir = "/dos/lnx4win"; + my $kernel = "$dir/vmlinuz"; + rename $kernel, "$kernel.old"; + commands::cp("-f", "$prefix/boot/vmlinuz", $kernel); + + unlink "$dir/size.txt"; + unlink "$dir/swapfile.txt"; + symlinkf "/initrd/dos", "$prefix/mnt/dos"; +} + +sub killCardServices { + my $pid = chop_(cat_("/tmp/cardmgr.pid")); + $pid and kill(15, $pid); #- send SIGTERM +} + +sub unlockCdroms { + ioctl detect_devices::tryOpen($_), c::CDROM_LOCKDOOR(), 0 + foreach detect_devices::cdroms(); +} |