summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-10-28 23:33:12 +0000
committerNorbert Preining <preining@logic.at>2008-10-28 23:33:12 +0000
commitcffd71481909995b04be5f15b72c52809a4175c7 (patch)
tree5a191e20abab68b5bdf2566274e5b7e70f9b4c34 /Master/tlpkg
parent634475899720ed177ca3e00aeaaf3b81c0187efb (diff)
add the tl-update-makeself script
git-svn-id: svn://tug.org/texlive/trunk@11094 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-makeself169
1 files changed, 169 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/tl-update-makeself b/Master/tlpkg/bin/tl-update-makeself
new file mode 100755
index 00000000000..b170afcf6fd
--- /dev/null
+++ b/Master/tlpkg/bin/tl-update-makeself
@@ -0,0 +1,169 @@
+#!/usr/bin/env perl
+# $Id$
+# Copyright 2008 Norbert Preining
+# This file is licensed under the GNU General Public License version 2
+# or any later version.
+#
+# Creates a .run file for updating the texlive.infra and bin-texlive packages
+# comparable to the windows .exe updater
+
+BEGIN {
+ $^W = 1;
+ ($mydir = $0) =~ s,/[^/]*$,,;
+ unshift (@INC, "$mydir/..");
+}
+
+our $mydir;
+
+use strict;
+
+use TeXLive::TLConfig;
+use TeXLive::TLUtils;
+use TeXLive::TLPOBJ;
+use TeXLive::TLPDB;
+use Getopt::Long;
+use Pod::Usage;
+use File::Path;
+use Cwd;
+
+my $help = 0;
+
+TeXLive::TLUtils::process_logging_options();
+
+GetOptions("help|?" => \$help) or pod2usage(1);
+pod2usage(-exitstatus => 0, -verbose => 2) if $help;
+
+exit (&main ());
+
+
+sub main
+{
+ # get the db.
+ chomp (my $Master = `cd $mydir/../.. && pwd`);
+ my $tlpdb = TeXLive::TLPDB->new ("root" => $Master);
+ die("Cannot find tlpdb in $Master\n") unless defined($tlpdb);
+ my @packs = ();
+ my $bintexlive = $tlpdb->get_package("bin-texlive");
+ my $texliveinfra = $tlpdb->get_package("texlive.infra");
+ push @packs, $bintexlive;
+ push @packs, $texliveinfra;
+
+ for my $a ($tlpdb->available_architectures) {
+ next if ($a eq "win32");
+ my $foo = $tlpdb->get_package("bin-texlive.$a");
+ push @packs, $foo if defined($foo);
+ my $bar = $tlpdb->get_package("texlive.infra.$a");
+ push @packs, $bar if defined($bar);
+ }
+
+ my @allfiles = ();
+ for my $p (@packs) {
+ push @allfiles, $p->all_files;
+ }
+
+ my $tmpdir = `mktemp -d`;
+ chomp($tmpdir);
+ for my $f (@allfiles) {
+ if ($f !~ m!/!) {
+ $f = "./$f";
+ }
+ my ($dn, $fn) = TeXLive::TLUtils::dirname_and_basename($f);
+ `mkdir -p \"$tmpdir/master/$dn\"`;
+ `cp -a \"$Master/$f\" \"$tmpdir/master/$f\"`;
+ }
+
+ # get highest rev of all these packages.
+ my $rev = 0;
+ for my $p (@packs) {
+ $rev = $p->revision if $rev > $p->revision;
+ }
+
+ # we have to create the tlpobj files, too
+ my $tlpobjdir = "$InfraLocation/tlpobj";
+ if (! -d "$tmpdir/master/$tlpobjdir") {
+ &TeXLive::TLUtils::mkdirhier("$tmpdir/master/$tlpobjdir");
+ }
+ for my $p (@packs) {
+ open(TMP,">$tmpdir/master/$tlpobjdir/$p->{'name'}.tlpobj") or die "Cannot create $tmpdir/master/$tlpobjdir/$p->{'name'}.tlpobj";
+ $p->writeout(\*TMP);
+ close(TMP);
+ }
+
+ open (RUN, ">$tmpdir/runme.sh") or die "Cannot create $tmpdir/runme.sh: $!";
+ print RUN <<'EOF';
+#!/bin/sh
+#
+# updater for tlmgr and infrastructure on unix
+#
+
+ROOT=`kpsewhich --var-value=SELFAUTOPARENT`
+if [ -r "$ROOT/tlpkg/texlive.tlpdb" ] ; then
+ my ./master/bin .
+ cp -a ./master/* "$ROOT/"
+ # now try to get the list of installed architectures by listing the
+ # directories in $ROOT/bin
+ tlpobjs="\"$ROOT/tlpkg/tlpobj/bin-texlive.tlpobj\" \"$ROOT/tlpkg/tlpobj/texlive.infra\""
+ for a in "$ROOT/bin/*" ; do
+ b=`basename $a`
+ cp -a bin/$b "$ROOT/bin/"
+ tlpobjs="$tlpobjs \"$ROOT/tlpkg/tlpobj/bin-texlive.$b\" \"$ROOT/tlpkg/tlpobj/texlive.infra.$b\""
+ done
+else
+ # could be made more intelligent
+ echo "Cannot find root, please call the .run script with --noexec --keep and"
+ echo "then call the runme.sh script in the unpacked directory with the"
+ echo "root as the first argument, i.e., someting like"
+ echo " sh runme.sh /your/path/to/the/texlive/installaton/2008"
+ exit 1
+fi
+
+echo tlmgr _include_tlpobj $tlpobjs
+
+EOF
+
+ close(RUN);
+ `chmod ugo+x "$tmpdir/runme.sh"`;
+
+ `makeself "$tmpdir" update-texlive-${rev}.run \"TeX Live Manager Updater ${rev}\" ./runme.sh`;
+
+ return(0);
+}
+
+
+__END__
+
+=head1 NAME
+
+tl-create-makeself - creates a .run file for bin-texlive and texlive.infra
+
+=head1 SYNOPSIS
+
+tl-create-makeself [OPTION]...
+
+=head1 OPTIONS
+
+Only the standard options B<-help> and B<-q>, B<-v>, and
+B<-logfile>=I<file> are accepted; see the C<process_logging_options>
+function in L<TeXLive::TLUtils> for details.
+
+There should be an option for the destination of the .run file.
+
+=head1 DESCRIPTION
+
+Creates an updater for Unix systems for the central TeX Live packages
+using makeself.
+
+=head1 AUTHORS AND COPYRIGHT
+
+This script and its documentation were written for the TeX Live
+distribution (L<http://tug.org/texlive>) and both are licensed under the
+GNU General Public License Version 2 or later.
+
+=cut
+
+### Local Variables:
+### perl-indent-level: 2
+### tab-width: 2
+### indent-tabs-mode: nil
+### End:
+# vim:set tabstop=2 expandtab: #