diff options
author | Norbert Preining <preining@logic.at> | 2009-05-12 15:53:11 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-05-12 15:53:11 +0000 |
commit | 7e5585bcd4f8ba119cad8f0a7e13b6a7a610776f (patch) | |
tree | c48db3cea0e4511d09d0e7b7fdf7ef7a04f68f6e /Master/tlpkg/bin/tl-update-nsis | |
parent | c84165218f94bc15a1441e91a421f4d070bc5eb7 (diff) |
Move most of the stuff from tlpkg, tlmgr from branch to trunk
git-svn-id: svn://tug.org/texlive/trunk@13054 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-nsis')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-nsis | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/Master/tlpkg/bin/tl-update-nsis b/Master/tlpkg/bin/tl-update-nsis index a1acbd56ebc..78ef875db99 100755 --- a/Master/tlpkg/bin/tl-update-nsis +++ b/Master/tlpkg/bin/tl-update-nsis @@ -1,6 +1,6 @@ #!/usr/bin/env perl # $Id$ -# Copyright 2008 Norbert Preining +# Copyright 2008, 2009 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # @@ -40,13 +40,9 @@ sub main chomp (my $Master = `cd $mydir/../.. && pwd`); my $tlpdb = TeXLive::TLPDB->new ("root" => $Master); die("Cannot find tlpdb in $Master\n") unless defined($tlpdb); - my $bintexlive = $tlpdb->get_package("bin-texlive"); - my $bintexlivew32 = $tlpdb->get_package("bin-texlive.win32"); my $texliveinfra = $tlpdb->get_package("texlive.infra"); my $texliveinfraw32 = $tlpdb->get_package("texlive.infra.win32"); my @allfiles = (); - push @allfiles, $bintexlive->all_files; - push @allfiles, $bintexlivew32->all_files if defined $bintexlivew32; push @allfiles, $texliveinfra->all_files; push @allfiles, $texliveinfraw32->all_files if defined $texliveinfraw32; @@ -58,7 +54,7 @@ sub main $removetlpobjdir = 1; } my $rev = 0; # we want the highest rev all these packages. - for my $p ($bintexlive, $bintexlivew32, $texliveinfra, $texliveinfraw32) { + for my $p ($texliveinfra, $texliveinfraw32) { if (defined $p) { if ($p->revision > $rev) { $rev = $p->revision; @@ -95,7 +91,7 @@ Page instfiles Name "TeX Live Manager Update ${REV}" OutFile "update-tlmgr-${REV}.exe" -InstallDir "$PROGRAMFILES\texlive\2008" +InstallDir "$PROGRAMFILES\texlive\$TeXLive::TLConfig::ReleaseYear" RequestExecutionLevel "user" @@ -135,7 +131,7 @@ EOF } } print " ExecWait \'\"\$INSTDIR\\bin\\win32\\tlmgr.bat\" _include_tlpobj"; - for my $p ($bintexlive, $bintexlivew32, $texliveinfra, $texliveinfraw32) { + for my $p ($texliveinfra, $texliveinfraw32) { if (defined $p) { print " \"\$INSTDIR\\tlpkg\\tlpobj\\", $p->name, ".tlpobj\""; } |