diff options
Diffstat (limited to 'Master/tlpkg/bin/tl-update-install-pkg.pat')
-rw-r--r-- | Master/tlpkg/bin/tl-update-install-pkg.pat | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/tl-update-install-pkg.pat b/Master/tlpkg/bin/tl-update-install-pkg.pat new file mode 100644 index 00000000000..54d92dd09cb --- /dev/null +++ b/Master/tlpkg/bin/tl-update-install-pkg.pat @@ -0,0 +1,62 @@ +*** tl-update-install-pkg 2009-10-10 01:54:07.000000000 +0200 +--- tl-update-install-pkg-new 2013-03-13 18:33:44.000000000 +0100 +*************** +*** 1,7 **** + #!/usr/bin/env perl + # $Id: tl-update-install-pkg 15732 2009-10-09 23:54:07Z karl $ + # +! # Copyright 2008, 2009 Reinhard Kotucha, Norbert Preining, Karl Berry + # This file is licensed under the GNU General Public License version 2 + # or any later version. + +--- 1,7 ---- + #!/usr/bin/env perl + # $Id: tl-update-install-pkg 15732 2009-10-09 23:54:07Z karl $ + # +! # Copyright 2008, 2009, 2013 Reinhard Kotucha, Norbert Preining, Karl Berry + # This file is licensed under the GNU General Public License version 2 + # or any later version. + +*************** +*** 159,165 **** + } + + my @win32 = (); +! push (@win32, @unix); + if (defined $tlpbin{"win32"}) { + push (@win32, @{$tlpbin{"win32"}}); + } +--- 159,165 ---- + } + + my @win32 = (); +! #push (@win32, @unix); # is this necessary? + if (defined $tlpbin{"win32"}) { + push (@win32, @{$tlpbin{"win32"}}); + } +*************** +*** 171,176 **** +--- 171,177 ---- + + copy_files (@win32); + make_zip ("zip"); ++ make_zip ("nsis"); + + install_files (); + +*************** +*** 205,210 **** +--- 206,218 ---- + chdir ($tmpdir) || die "chdir($tmpdir) failed: $!"; + if ($type eq 'zip') { + system ('zip', '-rq', 'install-tl.zip', $install_tl_name); ++ } elsif ($type eq 'nsis') { ++ # write include file for dated install directory ++ system ("echo !define YYYYMMDD '$YYYYMMDD' >\"$tmpdir/tlsubdir.nsh\""); ++ system ("echo !define INST_TL_NAME '$install_tl_name' >>\"$tmpdir/tlsubdir.nsh\""); ++ copy ("$::installerdir/tlpkg/bin/install-tl.nsi", $tmpdir); ++ copy ("$::installerdir/tlpkg/bin/isadmin_q.cmd", $tmpdir); ++ system ('makensis', 'install-tl'); + } else { + system ('tar', '-czf', 'install-tl-unx.tar.gz', $install_tl_name); + } |