summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-install-pkg.pat
blob: f2033d689a4b1296113f43991adb579776062bd8 (plain)
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.