summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-07 02:10:33 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-07 02:10:33 +0000
commitda6253bd50cd251ec0ad73f7f7c019ef7e58589b (patch)
tree09baea6ccde587cc383b09ec6e600f3aa361b0e5 /perl-install
parentb61d71a761ab7aad865622203dda319ec279ed63 (diff)
downloaddrakx-da6253bd50cd251ec0ad73f7f7c019ef7e58589b.tar
drakx-da6253bd50cd251ec0ad73f7f7c019ef7e58589b.tar.gz
drakx-da6253bd50cd251ec0ad73f7f7c019ef7e58589b.tar.bz2
drakx-da6253bd50cd251ec0ad73f7f7c019ef7e58589b.tar.xz
drakx-da6253bd50cd251ec0ad73f7f7c019ef7e58589b.zip
(media_browser): handle nfs
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm104
1 files changed, 73 insertions, 31 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index f9e843368..754d43c81 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1665,25 +1665,83 @@ sub media_browser {
my $dev = (find { $_->[1] eq $media_browser{dev} } @dev_and_text)->[0];
+ my $browse = sub {
+ my ($dir) = @_;
+
+ browse:
+ my $file = $in->ask_filename({ save => $save,
+ directory => $dir,
+ if_($o_suggested_name, file => "$dir/$o_suggested_name"),
+ }) or return;
+ if (-e $file && $save) {
+ $in->ask_yesorno('', N("File already exists. Overwrite it?")) or goto browse;
+ }
+ if ($save) {
+ if (!open(my $_fh, ">>$file")) {
+ $in->ask_warn('', N("Permission denied"));
+ goto browse;
+ }
+ $file;
+ } else {
+ open(my $fh, $file) or goto browse;
+ $fh;
+ }
+ };
+ my $inspect_and_browse = sub {
+ my ($dev) = @_;
+
+ if (my $h = any::inspect($dev, $::prefix, $save)) {
+ if (my $file = $browse->($h->{dir})) {
+ return $h, $file;
+ }
+ undef $h; #- help perl
+ } else {
+ $in->ask_warn(N("Error"), formatError($@));
+ }
+ ();
+ };
+
if (member($dev, @network_protocols)) {
+ require install_interactive;
install_interactive::upNetwork($::o);
+
if ($dev eq 'HTTP') {
require http;
- $media_browser{network} ||= 'http://';
+ $media_browser{url} ||= 'http://';
+
+ while (1) {
+ $in->ask_from('', 'URL', [
+ { val => \$media_browser{url} }
+ ]) or last;
+
+ if ($dev eq 'HTTP') {
+ my $fh = http::getFile($media_browser{url});
+ $fh and return '', $fh;
+ }
+ }
+ } elsif ($dev eq 'NFS') {
+ while (1) {
+ $in->ask_from('', 'NFS', [
+ { val => \$media_browser{nfs} }
+ ]) or last;
+
+ my ($kind) = fs::analyze_wild_device_name($media_browser{nfs});
+ if ($kind ne 'nfs') {
+ $in->ask_warn('', N("Bad NFS name"));
+ next;
+ }
+
+ my $nfs = fs::subpart_from_wild_device_name($media_browser{nfs});
+ $nfs->{fs_type} = 'nfs';
+
+ if (my ($h, $file) = $inspect_and_browse->($nfs)) {
+ return $h, $file;
+ }
+ }
} else {
$in->ask_warn('', 'todo');
goto ask_media;
}
- while (1) {
- $in->ask_from('', 'URL', [
- { val => \$media_browser{network} }
- ]) or last;
-
- if ($dev eq 'HTTP') {
- my $fh = http::getFile($media_browser{network});
- $fh and return '', $fh;
- }
- }
} else {
if (!$dev->{fs_type} || $dev->{fs_type} eq 'auto' || $dev->{fs_type} =~ /:/) {
if (my $p = fs::type::type_subpart_from_magic($dev)) {
@@ -1694,27 +1752,11 @@ sub media_browser {
goto ask_media;
}
}
- my $file;
- if (my $h = any::inspect($dev, $::prefix, $save)) {
- while (1) {
- $file = $in->ask_filename({ save => $save,
- directory => $h->{dir},
- if_($o_suggested_name, file => "$h->{dir}/$o_suggested_name"),
- }) or last;
- if (-e $file && $save) {
- $in->ask_yesorno('', N("File already exists. Overwrite it?")) or next;
- }
- if ($save) {
- return $h, $file;
- } else {
- my $fh;
- open($fh, $file) and return $h, $fh;
- }
- }
- undef $h; #- help perl
- } else {
- $in->ask_warn(N("Error"), formatError($@));
+
+ if (my ($h, $file) = $inspect_and_browse->($dev)) {
+ return $h, $file;
}
+
goto ask_media;
}
}