summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-22 16:58:56 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-22 16:58:56 +0000
commit825da272c3b2e89b86e19656ade350240204896b (patch)
tree76cd5b7a4df61b94553b4c4e6ed96c5d4a40f235 /perl-install/install_any.pm
parent72e8e78cd4d477aa06ac1c9507c109ca63ad0e8f (diff)
downloaddrakx-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.pm24
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();
+}