#!/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 are accepted; see the C function in L 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 explains more. =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live distribution (L) 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: #