summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/installer
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/installer')
-rw-r--r--systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl8
-rw-r--r--systems/texlive/tlnet/tlpkg/installer/install-menu-extl.pl2
-rw-r--r--systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl32
-rwxr-xr-xsystems/texlive/tlnet/tlpkg/installer/tl-cmd.bat2
-rw-r--r--systems/texlive/tlnet/tlpkg/installer/tl-tray-menu.ini4
5 files changed, 23 insertions, 25 deletions
diff --git a/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl b/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl
index 117ed6a264..1dd297736f 100644
--- a/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl
+++ b/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl
@@ -46,15 +46,11 @@ $mirrors = {
},
'Korea' => {
'http://ftp.ktug.org/tex-archive/' => 1,
- 'https://cran.asia/tex/' => 1,
'https://ftp.kaist.ac.kr/pub/tex-archive/' => 1,
'https://lab.uklee.pe.kr/tex-archive/' => 1,
'https://mirror.kakao.com/CTAN/' => 1,
'https://mirror.navercorp.com/CTAN/' => 1,
},
- 'Philippines' => {
- 'http://mirror.rise.ph/ctan/' => 1,
- },
'Singapore' => {
'https://download.nus.edu.sg/mirror/ctan/' => 1,
},
@@ -157,7 +153,6 @@ $mirrors = {
'https://ctan.ijs.si/tex-archive/' => 1,
},
'Spain' => {
- 'https://ctan.fisiquimicamente.com/' => 1,
'https://ctan.javinator9889.com/' => 1,
'https://osl.ugr.es/CTAN/' => 1,
},
@@ -184,6 +179,9 @@ $mirrors = {
'https://mirror.its.dal.ca/ctan/' => 1,
'https://muug.ca/mirror/ctan/' => 1,
},
+ 'Costa Rica' => {
+ 'https://mirrors.ucr.ac.cr/CTAN/' => 1,
+ },
'USA' => {
'http://bay.uchicago.edu/CTAN/' => 1,
'http://mirrors.ibiblio.org/pub/mirrors/CTAN/' => 1,
diff --git a/systems/texlive/tlnet/tlpkg/installer/install-menu-extl.pl b/systems/texlive/tlnet/tlpkg/installer/install-menu-extl.pl
index 4dd16ade9c..5417d59ae6 100644
--- a/systems/texlive/tlnet/tlpkg/installer/install-menu-extl.pl
+++ b/systems/texlive/tlnet/tlpkg/installer/install-menu-extl.pl
@@ -123,7 +123,7 @@ sub run_menu_extl {
print "year: $texlive_release\n";
print "svn: $::installerrevision\n";
# for windows, add a key indicating elevated permissions
- if (win32()) {
+ if (wndws()) {
print "admin: ". TeXLive::TLWinGoo::admin() . "\n";
}
print_descs();
diff --git a/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl b/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl
index c29e74812a..fe0ea18a39 100644
--- a/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl
+++ b/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: install-menu-text.pl 63643 2022-06-18 21:43:37Z karl $
+# $Id: install-menu-text.pl 65951 2023-02-20 10:13:03Z siepo $
#
# Copyright 2007-2022 Norbert Preining, Karl Berry
# Copyright 2007-2008 Reinhard Kotucha
@@ -40,7 +40,7 @@ $::fileassocdesc[2] = __("All");
$::deskintdesc[0] = __("None");
$::deskintdesc[1] = __("Menu shortcuts");
-if (win32()) { $::deskintdesc[2] = __("Launcher"); }
+if (wndws()) { $::deskintdesc[2] = __("Launcher"); }
sub clear_screen {
return 0 if ($::opt_no_cls);
@@ -323,7 +323,7 @@ sub binary_menu {
print "Unknown command: $answer\n\n";
}
}
- if ($vars{"binary_win32"}) {
+ if ($vars{"binary_windows"}) {
$vars{"collection-wintools"} = 1;
} else {
$vars{"collection-wintools"} = 0;
@@ -371,7 +371,7 @@ sub scheme_menu {
select_scheme($vars{'selected_scheme'});
- if ($vars{"binary_win32"}) {
+ if ($vars{"binary_windows"}) {
$vars{"collection-wintools"} = 1;
} else {
$vars{"collection-wintools"} = 0;
@@ -532,7 +532,7 @@ EOF
EOF
- if (win32) {
+ if (wndws()) {
print " Note: ~ will expand to %USERPROFILE%\n";
} else {
print " Note: ~ will expand to \$HOME (or to %USERPROFILE% on Windows)\n";
@@ -620,7 +620,7 @@ sub input_dirname
chomp (my $answer = <STDIN>);
return "" if $answer eq "";
- $answer =~ s!\\!/!g if win32(); # switch to forward slashes
+ $answer =~ s!\\!/!g if wndws(); # switch to forward slashes
if (!$noexpansion) {
$answer = TeXLive::TLUtils::expand_tilde($answer);
@@ -817,7 +817,7 @@ EOF
EOF
;
}
- if ((win32() && !$vars{'instopt_portable'}) || $::opt_all_options) {
+ if ((wndws() && !$vars{'instopt_portable'}) || $::opt_all_options) {
print " <M> Start menu shortcuts / launcher: ".obutton(
$vars{'tlpdbopt_desktop_integration'}, \@::deskintdesc)."\n";
print " <N> update file associations: ".obutton(
@@ -828,7 +828,7 @@ EOF
}
}
}
- if (win32() || $::opt_all_options) {
+ if (wndws() || $::opt_all_options) {
print " <W> install TeXworks front end: $b_addoneditor\n";
}
if ($media ne "NET") {
@@ -847,7 +847,7 @@ EOF
print "New value for binary directory [$sys_bin]: ";
chomp($answer=<STDIN>);
$vars{'tlpdbopt_sys_bin'} = "$answer" if (length $answer);
- $vars{'tlpdbopt_sys_bin'} =~ s@\\@/@g if (win32());
+ $vars{'tlpdbopt_sys_bin'} =~ s@\\@/@g if (wndws());
$vars{'tlpdbopt_sys_bin'} =~ s/^~/$home/;
if ($vars{'tlpdbopt_sys_bin'}=~/^(.*)\/bin$/) {
$vars{'tlpdbopt_sys_man'}="$1/man";
@@ -856,13 +856,13 @@ EOF
print "New value for man directory [$vars{'tlpdbopt_sys_man'}]: ";
chomp($answer=<STDIN>);
$vars{'tlpdbopt_sys_man'}="$answer" if (length $answer);
- $vars{'tlpdbopt_sys_man'} =~ s@\\@/@g if (win32());
+ $vars{'tlpdbopt_sys_man'} =~ s@\\@/@g if (wndws());
$vars{'tlpdbopt_sys_man'} =~ s/^~/$home/;
print "New value for info directory [$vars{'tlpdbopt_sys_info'}]: ";
chomp($answer=<STDIN>);
$vars{'tlpdbopt_sys_info'}="$answer" if (length $answer);
- $vars{'tlpdbopt_sys_info'} =~ s@\\@/@g if (win32());
+ $vars{'tlpdbopt_sys_info'} =~ s@\\@/@g if (wndws());
$vars{'tlpdbopt_sys_info'} =~ s/^~/$home/;
}
return $command{'self'};
@@ -877,7 +877,7 @@ EOF
# # tlpdbopt_desktop_integration, tlpdbopt_file_assocs
#
-# if (win32() || $::opt_all_options) {
+# if (wndws() || $::opt_all_options) {
# if ("\u$answer" eq 'M' and !$vars{'instopt_portable'}) {
# toggle 'tlpdbopt_desktop_integration';
# return $command{'self'};
@@ -933,7 +933,7 @@ EOF
} elsif (defined $command{"\u$answer"}) {
return $command{"\u$answer"};
- } elsif (("\u$answer" eq 'W') && ($::opt_all_options || win32()) &&
+ } elsif (("\u$answer" eq 'W') && ($::opt_all_options || wndws()) &&
!$opt_in_place ) {
toggle 'collection-texworks';
return $command{'self'};
@@ -1021,7 +1021,7 @@ sub main_menu {
my $b_fmt=button($vars{'tlpdbopt_create_formats'});
my $b_letter=button($vars{'instopt_letter'});
my $b_deskint=button($vars{'tlpdbopt_desktop_integration'}, \@::deskintdesc);
- if (win32()) {
+ if (wndws()) {
my $b_fileassoc=button($vars{'tlpdbopt_file_assocs'}, \@::fileassocdesc);
}
my $b_admin=button($vars{'tlpdbopt_w32_multi_user'});
@@ -1131,7 +1131,7 @@ EOF
print " $b_src install macro/font source tree\n";
}
}
- if (win32()) {
+ if (wndws()) {
if (!$vars{'instopt_portable'}) {
print " $b_path adjust search path\n";
print " $b_deskint add menu items, shortcuts, etc.\n";
@@ -1144,7 +1144,7 @@ EOF
}
print " $b_path create symlinks to standard directories\n"
- unless ($vars{'instopt_portable'} || win32());
+ unless ($vars{'instopt_portable'} || wndws());
print " $b_adjustrepo after install, set CTAN as source "
. "for package updates\n"
diff --git a/systems/texlive/tlnet/tlpkg/installer/tl-cmd.bat b/systems/texlive/tlnet/tlpkg/installer/tl-cmd.bat
index 747d308823..18431d644e 100755
--- a/systems/texlive/tlnet/tlpkg/installer/tl-cmd.bat
+++ b/systems/texlive/tlnet/tlpkg/installer/tl-cmd.bat
@@ -9,7 +9,7 @@ rem Public domain
setlocal enableextensions
rem Add bin dir to beginning of PATH only if it is not already there
-for /f "tokens=1,2 delims=;" %%I in ("%~dp0..\..\bin\win32;%PATH%") do if not "%%~fI"=="%%~fJ" set "PATH=%%~fI;%PATH%"
+for /f "tokens=1,2 delims=;" %%I in ("%~dp0..\..\bin\windows;%PATH%") do if not "%%~fI"=="%%~fJ" set "PATH=%%~fI;%PATH%"
rem Start new console
start "TeX Live" "%COMSPEC%"
diff --git a/systems/texlive/tlnet/tlpkg/installer/tl-tray-menu.ini b/systems/texlive/tlnet/tlpkg/installer/tl-tray-menu.ini
index dcf3822660..801f7739bc 100644
--- a/systems/texlive/tlnet/tlpkg/installer/tl-tray-menu.ini
+++ b/systems/texlive/tlnet/tlpkg/installer/tl-tray-menu.ini
@@ -14,7 +14,7 @@
; program (at the root of your TeX Live installation).
; * Alternatively, the 'program' can be a file which Windows knows how to open.
; Its location can be an absolute or relative path; see previous item.
-; * The directory <menu dir>\bin\win32, where <menu dir> is the directory with
+; * The directory <menu dir>\bin\windows, where <menu dir> is the directory with
; the menu program, is automatically added to the beginning of the search PATH
; * Number of menu items is limited to 30 and their total size to 32KB
;
@@ -25,4 +25,4 @@
;Your own choice of portable editor:
;&My editor=..\my_editor\my_editor.exe
Notepad="%windir%\system32\notepad.exe"
-&Command Prompt=cmd /k "title TeX Live" \ No newline at end of file
+&Command Prompt=cmd /k title TeX Live