From a952d0ffc8010970c5a51a90d6ec58d5ee03001a Mon Sep 17 00:00:00 2001 From: Christian Belisle Date: Mon, 14 Jan 2002 22:43:56 +0000 Subject: update --- transfugdrake.pm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'transfugdrake.pm') 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]; -- cgit v1.2.1