From 8ff4fb09747e76644004d8defd67d8807e7065bc Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 7 Jun 2018 09:33:31 +0900 Subject: rsync support WIP --- Master/install-tl | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'Master/install-tl') diff --git a/Master/install-tl b/Master/install-tl index 56863efe87e..390859ead0b 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -504,12 +504,9 @@ if (!$opt_custom_bin && (platform() eq "i386-cygwin")) { # check command line arguments if given if ($opt_location) { my $tmp = $opt_location; - if ($tmp =~ m!^(https?|ftp)://!i) { + if ($tmp =~ m!^(https?|rsync|ftp)://!i) { push @media_available, "NET#$tmp"; - } elsif ($tmp =~ m!^(rsync|)://!i) { - tldie ("$0: sorry, rsync unsupported; use an http or ftp url here.\n"); - } else { # remove leading file:/+ part $tmp =~ s!^file://*!/!i; @@ -678,7 +675,7 @@ sub only_load_remote { $location = $opt_location; $location = $selected_location if defined($selected_location); $location || ($location = "$::installerdir"); - if ($location =~ m!^(ctan$|(https?|ftp)://)!i) { + if ($location =~ m!^(ctan$|(https?|rsync|ftp)://)!i) { $location =~ s,/(tlpkg|archive)?/*$,,; # remove any trailing tlpkg or / if ($location =~ m/^ctan$/i) { $location = TeXLive::TLUtils::give_ctan_mirror(); @@ -2636,7 +2633,7 @@ simplified Chinese (zh_CN), and traditional Chinese (zh_TW). Specify the package repository to be used as the source of the installation. In short, this can be a directory name or a url using -http(s), ftp, or scp. The documentation for C has the details +http(s), ftp, rsync, or scp. The documentation for C has the details (L). For installation, the default is to pick a mirror automatically, using -- cgit v1.2.3