diff options
author | Christian Belisle <cbelisle@mandriva.com> | 2002-01-14 22:43:56 +0000 |
---|---|---|
committer | Christian Belisle <cbelisle@mandriva.com> | 2002-01-14 22:43:56 +0000 |
commit | a952d0ffc8010970c5a51a90d6ec58d5ee03001a (patch) | |
tree | e2ada8e177adcf87afac4f92eb9bdc7af5201e24 /transfugdrake.pm | |
parent | 772239905abe0ec28498e2c5d7b0c439cbbfe750 (diff) | |
download | transfugdrake-a952d0ffc8010970c5a51a90d6ec58d5ee03001a.tar transfugdrake-a952d0ffc8010970c5a51a90d6ec58d5ee03001a.tar.gz transfugdrake-a952d0ffc8010970c5a51a90d6ec58d5ee03001a.tar.bz2 transfugdrake-a952d0ffc8010970c5a51a90d6ec58d5ee03001a.tar.xz transfugdrake-a952d0ffc8010970c5a51a90d6ec58d5ee03001a.zip |
update
Diffstat (limited to 'transfugdrake.pm')
-rw-r--r-- | transfugdrake.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/transfugdrake.pm b/transfugdrake.pm index 57e7277..8b5cba6 100644 --- a/transfugdrake.pm +++ b/transfugdrake.pm @@ -115,6 +115,13 @@ sub mount_partition { my $fstype = $_[0]; my $win_partition = $_[1]; my $mountpoint = "/mnt/windows"; + my @mounts; + + (@mounts) = cat_('/proc/mounts'); + + foreach (@mounts) { + print "$_\n"; + } if(-e $mountpoint) { $mountpoint .= '2'; @@ -122,15 +129,11 @@ sub mount_partition { mkdir($mountpoint); print "mount -t $fstype $win_partition $mountpoint\n"; - if(`mount -t $fstype $win_partition $mountpoint`) { print "Error\n:"; } + #if(`mount -t $fstype $win_partition $mountpoint`) { print "Error\n:"; } return $mountpoint; } -sub get_windows_version { - -} - sub get_windows_config { my %config; my $in = $_[0]; |