1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
*** tl-update-install-pkg 2009-10-10 01:54:07.000000000 +0200
--- tl-update-install-pkg-new 2013-03-17 11:23:31.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,217 ----
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);
+ system ('makensis', 'install-tl');
} else {
system ('tar', '-czf', 'install-tl-unx.tar.gz', $install_tl_name);
}
***************
*** 212,228 ****
}
! # copy generated zip+tgz to outputdir,
#
sub install_files
{
$outputdir = abs_path ($outputdir);
info ("$0: Installing to $outputdir\n");
! for my $f ("install-tl-unx.tar.gz", "install-tl.zip") {
copy ("$tmpdir/$f", $outputdir);
system ("cd $outputdir && sha256sum $f >$f.sha256");
system ('ls', '-l', "$outputdir/$f");
}
# create unpacked installer that can run in that directory,
# for the sake of people mirroring.
--- 219,239 ----
}
! # copy generated zip+tgz+nsi to outputdir,
#
sub install_files
{
$outputdir = abs_path ($outputdir);
info ("$0: Installing to $outputdir\n");
! for my $f ("install-tl-unx.tar.gz", "install-tl.zip", "install-tl.exe") {
copy ("$tmpdir/$f", $outputdir);
system ("cd $outputdir && sha256sum $f >$f.sha256");
system ('ls', '-l', "$outputdir/$f");
}
+ for my $e ('', '.sha256') {
+ rename ("$outputdir/install-tl.exe$e",
+ "$outputdir/install-tl-experimental.exe$e");
+ }
# create unpacked installer that can run in that directory,
# for the sake of people mirroring.
|
