summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2009-02-03 10:41:51 +0000
committerPascal Terjan <pterjan@mandriva.org>2009-02-03 10:41:51 +0000
commitda9f593e8715b075d0fb84a81de7909b6881bacb (patch)
treefedf124c0a45e28a8192811293e1e96c2ad04dbe /perl-install
parentd6d283296829b5acce01a0e9fd3196bcdad83f0c (diff)
downloaddrakx-da9f593e8715b075d0fb84a81de7909b6881bacb.tar
drakx-da9f593e8715b075d0fb84a81de7909b6881bacb.tar.gz
drakx-da9f593e8715b075d0fb84a81de7909b6881bacb.tar.bz2
drakx-da9f593e8715b075d0fb84a81de7909b6881bacb.tar.xz
drakx-da9f593e8715b075d0fb84a81de7909b6881bacb.zip
allow browsing partitions content to easily select the ones to destroy
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/diskdrake/interactive.pm31
-rw-r--r--perl-install/install/NEWS1
3 files changed, 32 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index f645934e5..379e0d087 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -3,6 +3,7 @@
- diskdrake:
o don't rewrite label when it did not change (#47186)
o rewrite gpt support with libparted
+ o allow browsing partitions content to easily select the ones to destroy
- drakdvb: introduce new DVB channels scanning tool
(from Pascal Terjan)
- draksound:
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index eaf2c8db4..8c5445f83 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -395,6 +395,7 @@ sub part_possible_actions {
$part or return;
my %actions = my @l = (
+ N_("View") => '!isSwap && !isNonMountable && maybeFormatted',
N_("Mount point") => '$part->{real_mntpoint} || (!isBusy && !isSwap && !isNonMountable)',
N_("Type") => '!isBusy && $::expert && (!readonly || $part->{pt_type} == 0x83)',
N_("Options") => '!isSwap($part) && !isNonMountable && $::expert',
@@ -438,6 +439,34 @@ sub part_possible_actions {
}
}
+sub View {
+ my ($in, $hd, $part, $all_hds) = @_;
+ my $old_mountpoint = $part->{mntpoint};
+ my $old_real_mountpoint = $part->{real_mntpoint};
+ my $was_mounted = $part->{isMounted};
+ my $mountpoint;
+ if(!$was_mounted) {
+ $part->{mntpoint} = '/tmp/mnt_browse';
+ $mountpoint = $part->{mntpoint};
+ mkdir_p($part->{mntpoint});
+ my $w;
+ fs::mount::part($part, 0, sub {
+ my ($msg) = @_;
+ $w ||= $in->wait_message(N("Please wait"), $msg);
+ $w->set($msg);
+ });
+ } else {
+ $mountpoint = $part->{real_mntpoint} || $part->{mntpoint};
+ }
+ $in->ask_directory({'directory'=>$part->{mntpoint}});
+ if(!$was_mounted) {
+ fs::mount::umount($part);
+ $part->{mntpoint} = $old_mountpoint;
+ $part->{real_mntpoint} = $old_real_mountpoint;
+ unlink($mountpoint);
+ }
+}
+
#- in case someone use diskdrake only to create partitions,
#- ie without assigning a mount point,
#- do not suggest mount points anymore
@@ -698,7 +727,7 @@ sub Resize {
$nice_resize{fat} = resize_fat::main->new($part->{device}, devices::make($part->{device}));
$min = max($min, $nice_resize{fat}->min_size);
$max = min($max, $nice_resize{fat}->max_size);
- } elsif (member($part->{fs_type}, qw(ext2 ext3))) { # resize2fs is known to be broken regarding extents with ext4
+ } elsif (member($part->{fs_type}, qw(ext2 ext3))) { # resize2fs is known to be broken regarding extents with ext4
write_partitions($in, $hd) or return;
require diskdrake::resize_ext2;
if ($nice_resize{ext2} = diskdrake::resize_ext2->new($part->{device}, devices::make($part->{device}))) {
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index a641fcd91..bb5ec74ff 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- allow browsing partitions content to easily select the ones to destroy
- do not warn about "servers which open ports on outside by default"
(the list of servers is not maintained, and the policy for those servers has changed)
- use a file selector in text mode too