summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-02-05 13:26:45 +0000
committerNorbert Preining <preining@logic.at>2009-02-05 13:26:45 +0000
commit1bf50b63af76bad30fceebfb740ea39ffeda518e (patch)
tree58a6b986f4177ff1eeeb62e391e026dbd6d1c538 /Master/tlpkg/bin
parentc5ce0d3b21f385962cc9f6b4753d202e516e61c6 (diff)
add a script that can be used to update the perltk-en.sample file
git-svn-id: svn://tug.org/texlive/trunk@12095 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-perltk-en97
1 files changed, 97 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/tl-update-perltk-en b/Master/tlpkg/bin/tl-update-perltk-en
new file mode 100755
index 00000000000..0828fd09446
--- /dev/null
+++ b/Master/tlpkg/bin/tl-update-perltk-en
@@ -0,0 +1,97 @@
+#!/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.
+#
+# Update the strings in tlpkg/installer/lang/perltk-en.sample
+# from the strings in tlpkg/installer/install-translations.pl
+#
+
+BEGIN {
+ $^W = 1;
+ ($mydir = $0) =~ s,/[^/]*$,,;
+ unshift (@INC, "$mydir/..");
+}
+
+use TeXLive::TLUtils;
+use Getopt::Long;
+
+my $opt_help = 0;
+
+TeXLive::TLUtils::process_logging_options();
+
+GetOptions("help|?" => \$opt_help) or pod2usage(1);
+pod2usage(-exitstatus => 0, -verbose => 2) if $opt_help;
+
+exit (&main ());
+
+sub main
+{
+ our %text;
+ our %labels;
+ require("installer/install-translations.pl");
+ print "#
+# english strings file for the TeX Live installer
+# if you want to contribute a new translation please
+# make a copy of this file, name it
+# perltk-XX
+# where XX is a language code, and translate the strings
+#
+";
+ for my $l (sort keys %text) {
+ $text{$l} =~ s/\n/\\n/g;
+ print "text.$l: ", $text{$l}, "\n"
+ }
+ print "\n";
+ for my $l (sort keys %labels) {
+ $labels{$l} =~ s/\n/\\n/g;
+ print "label.$l: ", $labels{$l}, "\n"
+ }
+ print "
+# Local Variables:
+# coding: utf-8
+# End:
+# vim:set fileencoding=utf-8: #
+";
+}
+
+
+__END__
+
+=head1 NAME
+
+tl-update-nsis - creates a .nsi file for tlmgr packages
+
+=head1 SYNOPSIS
+
+tl-update-nsis [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.
+
+=head1 DESCRIPTION
+
+Creates a C<.nsi> file that can be used with NSIS to create an update
+executable for Windows, to work around Windows' inability to overwrite
+open files, and for disaster recovery. It contains the tlmgr-related
+infrastructure files. L<http://tug.org/texlive/tlmgr.html> explains
+more.
+
+=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: #