From c452dea4584e1a0650f1ba1f87262a85b511057c Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Mon, 28 Sep 2020 15:08:55 +0000 Subject: Support for updating catalog version git-svn-id: svn://tug.org/texlive/trunk@56461 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/tlshell/tlshell.tcl | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'Master/texmf-dist/scripts') diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl index 0db1b8d86ac..6b363dbb884 100755 --- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl +++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl @@ -905,17 +905,19 @@ proc get_packages_info_remote {} { unset -nocomplain ::loaded track_err + set catv "rcat-version" + if {[dict get $::pkgs texlive.infra localrev] < 56458} { set catv "cat-version" } if [catch {run_cmd \ - "info --data name,localrev,remoterev,cat-version,category,shortdesc"}] { + "info --data name,remoterev,$catv,category,shortdesc"}] { do_debug [get_stacktrace] tk_messageBox -message [__ "A configured repository is unavailable."] return 0 } vwait ::done_waiting set ::loaded 1 - set re {^([^,]+),([0-9]+),([0-9]+),([^,]*),([^,]*),(.*)$} + set re {^([^,]+),([0-9]+),([^,]*),([^,]*),(.*)$} foreach l $::out_log { - if [regexp $re $l m nm lrev rrev rcatv catg pdescr] { + if [regexp $re $l m nm rrev rcatv catg pdescr] { # double-quotes in short description: remove outer, unescape inner if {[string index $pdescr 0] eq "\""} { set pdescr [string range $pdescr 1 end-1] @@ -942,7 +944,9 @@ proc get_packages_info_remote {} { ## update ::pkgs after installing packages without going online again. proc update_local_revnumbers {} { do_debug "update_local_revnumbers" - run_cmd_waiting "info --only-installed --data name,localrev,cat-version" + set catv "lcat-version" + if {[dict get $::pkgs texlive.infra localrev] < 56458} { set catv "cat-version" } + run_cmd_waiting "info --only-installed --data name,localrev,$catv" set re {^([^,]+),([0-9]+),(.*)$} dict for {pk pk_dict} $::pkgs { do_debug "zeroing local data for $pk" @@ -955,6 +959,7 @@ proc update_local_revnumbers {} { set pk_dict [dict get $::pkgs $pk] dict set pk_dict "localrev" $lr dict set pk_dict "lcatv" $lv + dict set pk_dict "rcatv" $lv dict set ::pkgs $pk $pk_dict } } -- cgit v1.2.3