again

git-svn-id: svn://tug.org/texlive/trunk@6535 c570f23f-e606-0410-a88d-b1316a301751

6 files changed, 3 insertions, 324 deletions

diff --git a/Build/source/texk/texlive/generate-fmtutil b/Build/source/texk/texlive/generate-fmtutil
deleted file mode 100755
index 19824aaa11f..00000000000
--- a/Build/source/texk/texlive/generate-fmtutil
+++ /dev/null
@@ -1,107 +0,0 @@
-#!/usr/bin/env perl
-# $Id: generate-fmtutil 5188 2007-10-14 20:32:44Z karl $
-# Copyright 2007 Norbert Preining.
-# This file is licensed under the GNU General Public License version 2
-# or any later version.
-# 
-# generate fmtutil.cnf file from the data in the tlpdb and -- if present
-# -- with TEXMFLOCAL/web2c/fmtutil-local.cnf
-
-BEGIN {
-  $^W = 1;
-  $master = `kpsewhich -var-value=SELFAUTOPARENT`;
-  chomp($master);
-  if (-r "$master/tlpkg/TeXLive") {
-    unshift (@INC, "$master/tlpkg");
-  } else {
-    die("Cannot find TeX Live's Perl modules, exiting!\n");
-  }
-}
-
-use strict;
-
-use TeXLive::TLConfig;
-use TeXLive::TLPOBJ;
-use TeXLive::TLPDB;
-use TeXLive::TLUtils qw/kpsewhich tllog/;
-use Getopt::Long;
-use Pod::Usage;
-use File::Path;
-
-my $opt_debug = 0;
-my $help = 0;
-my $dest = "";
-my $localconf = "";
-our $master;
-
-GetOptions("debug!", "dest=s" => \$dest, 
-           "local=s" => \$localconf, "help|?" => \$help) or pod2usage(1);
-
-pod2usage(-exitstatus => 0, -verbose => 2) if $help;
-
-if ($opt_debug) {
-  $::LOGLEVELFILE = $::LOG_DDDEBUG;
-  $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
-}
-
-exit (&main ());
-
-sub main
-{
-  # get the db.
-  my $tlpdb = TeXLive::TLPDB->new ("root" => "$master");
-  if (!defined($tlpdb)) {
-    die "Cannot find texlive.tlpdb below $master: $!\n";
-  }
-  $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/web2c/fmtutil.cnf");
-  $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/fmtutil-local.cnf");
-	tllog($::LOG_NORMAL, "writing fmtutil.cnf data to $dest\n");
-  TeXLive::TLUtils::create_fmtutil($tlpdb, $dest, $localconf);
-}
-
-
-__END__
-
-=head1 NAME
-
-generate-fmtutil - generate fmtutil.cnf from a TLPDB and local additions
-
-=head1 SYNOPSIS
-
-generate-fmtutil [OPTION]... 
-
-=head1 OPTIONS
-
-=over 8
-
-=item C<-dest> I<output file>
-
-specifies the output file
-
-=item C<-local> I<local conf file>
-
-specifies the local additions
-
-=back
-
-The standard options C<-help> and C<-debug> are accepted.
-See the tlpfiles documentation for details.
-
-=head1 DESCRIPTION
-
-Missing
-
-=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: #
diff --git a/Build/source/texk/texlive/generate-fmtutil.texlua b/Build/source/texk/texlive/generate-fmtutil.texlua
index efa451eb423..bc497f26fa2 100755
--- a/Build/source/texk/texlive/generate-fmtutil.texlua
+++ b/Build/source/texk/texlive/generate-fmtutil.texlua
@@ -1,4 +1,4 @@
-#!/xusr/bin/env texlua
+#!/usr/bin/env texlua
 --*-Lua-*-
 -- $Id: generate-updmap.fmtutil 6485 2008-02-01 20:15:06Z reinhardk $
 
diff --git a/Build/source/texk/texlive/generate-language b/Build/source/texk/texlive/generate-language
deleted file mode 100755
index 3def1f1e757..00000000000
--- a/Build/source/texk/texlive/generate-language
+++ /dev/null
@@ -1,104 +0,0 @@
-#!/usr/bin/env perl
-# $Id: generate-language 5188 2007-10-14 20:32:44Z karl $
-# Copyright 2007 Norbert Preining.
-# This file is licensed under the GNU General Public License version 2
-# or any later version.
-# 
-# generate language.dat file from the data in the tlpdb and -- if present
-# -- with TEXMFLOCAL/tex/generic/config/language-local.dat
-
-BEGIN {
-  $^W = 1;
-  $master = `kpsewhich -var-value=SELFAUTOPARENT`;
-  chomp($master);
-  if (-r "$master/tlpkg/TeXLive") {
-    unshift (@INC, "$master/tlpkg");
-  } else {
-    die("Cannot find TeX Live's Perl modules, exiting!\n");
-  }
-}
-
-use strict;
-
-use TeXLive::TLConfig;
-use TeXLive::TLPOBJ;
-use TeXLive::TLPDB;
-use TeXLive::TLUtils qw/kpsewhich tllog/;
-use Getopt::Long;
-use Pod::Usage;
-use File::Path;
-
-our $master;
-my $opt_debug = 0;
-my $help = 0;
-my $dest = "";
-my $localconf = "";
-
-GetOptions("debug!", "dest=s" => \$dest, 
-           "local=s" => \$localconf, "help|?" => \$help) or pod2usage(1);
-
-pod2usage(-exitstatus => 0, -verbose => 2) if $help;
-
-if ($opt_debug) {
-  $::LOGLEVELFILE = $::LOG_DDDEBUG;
-  $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
-}
-
-exit (&main ());
-
-sub main
-{
-  # get the db.
-  my $tlpdb = TeXLive::TLPDB->new ("root" => "$master");
-  $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/tex/generic/config/language.dat");
-  $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/tex/generic/config/language-local.dat");
-	tllog($::LOG_NORMAL, "writing language.dat data to $dest\n");
-  TeXLive::TLUtils::create_language($tlpdb, $dest, $localconf);
-}
-
-
-__END__
-
-=head1 NAME
-
-generate-language - generate language.dat from a TLPDB and local additions
-
-=head1 SYNOPSIS
-
-generate-language [OPTION]... 
-
-=head1 OPTIONS
-
-=over 8
-
-=item C<-dest> I<output file>
-
-specifies the output file
-
-=item C<-local> I<local conf file>
-
-specifies the local additions
-
-=back
-
-The standard options C<-help> and C<-debug> are accepted.
-See the tlpfiles documentation for details.
-
-=head1 DESCRIPTION
-
-Missing
-
-=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: #
diff --git a/Build/source/texk/texlive/generate-language.texlua b/Build/source/texk/texlive/generate-language.texlua
index 1180c984881..1f16e0ab345 100755
--- a/Build/source/texk/texlive/generate-language.texlua
+++ b/Build/source/texk/texlive/generate-language.texlua
@@ -1,4 +1,4 @@
-#!/xusr/bin/env texlua
+#!/usr/bin/env texlua
 --*-Lua-*-
 -- $Id: generate-language.texlua 6485 2008-02-01 20:15:06Z reinhardk $
 
diff --git a/Build/source/texk/texlive/generate-updmap b/Build/source/texk/texlive/generate-updmap
deleted file mode 100755
index 10b22bfffa4..00000000000
--- a/Build/source/texk/texlive/generate-updmap
+++ /dev/null
@@ -1,110 +0,0 @@
-#!/usr/bin/env perl
-# $Id: generate-updmap 5188 2007-10-14 20:32:44Z karl $
-# Copyright 2007 Norbert Preining.
-# This file is licensed under the GNU General Public License version 2
-# or any later version.
-# 
-# generate updmap.cfg file from the data in the tlpdb and -- if present
-# -- with TEXMFLOCAL/web2c/updmap-local.cfg
-
-BEGIN {
-  $^W = 1;
-  $master = `kpsewhich -var-value=SELFAUTOPARENT`;
-  chomp($master);
-  if (-r "$master/tlpkg/TeXLive") {
-    unshift (@INC, "$master/tlpkg");
-  } else {
-    die("Cannot find TeX Live's Perl modules, exiting!\n");
-  }
-}
-
-use strict;
-
-use TeXLive::TLConfig;
-use TeXLive::TLPOBJ;
-use TeXLive::TLPDB;
-use TeXLive::TLUtils qw/kpsewhich tllog/;
-use Getopt::Long;
-use Pod::Usage;
-use File::Path;
-
-our $master;
-my $opt_debug = 0;
-my $help = 0;
-my $dest = "";
-my $localconf = "";
-
-GetOptions("debug!", "dest=s" => \$dest, "local=s" => \$localconf,
-           "help|?" => \$help) or pod2usage(1);
-
-pod2usage(-exitstatus => 0, -verbose => 2) if $help;
-
-if ($opt_debug) {
-  $::LOGLEVELFILE = $::LOG_DDDEBUG;
-  $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
-}
-
-exit (&main ());
-
-sub main
-{
-  # get the db.
-  my $tlpdb = TeXLive::TLPDB->new ("root" => "$master");
-  $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/web2c/updmap.cfg");
-  $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/updmap-local.cfg");
-	tllog($::LOG_NORMAL, "$0: writing new updmap.cfg to $dest\n");
-  TeXLive::TLUtils::create_updmap ($tlpdb, $dest, $localconf);
-}
-
-
-__END__
-
-=head1 NAME
-
-generate-updmap - generate updmap.cfg from a TeX Live db and local additions
-
-=head1 SYNOPSIS
-
-generate-updmap [OPTION]... 
-
-=head1 OPTIONS
-
-=over 8
-
-=item C<-dest> I<output_file>
-
-specifies the output file; defaults to
-C<$TEXMFSYSVAR/texmf/web2c/updmap.cfg>.
-
-=item C<-local> I<local_conf_file>
-
-specifies the local additions, if any; defaults to
-C<$TEXMFLOCAL/web2c/updmap-local.cfg>.
-
-=back
-
-The standard options C<-help> and C<-debug> are accepted.
-See the tlpfiles documentation for details.
-
-=head1 DESCRIPTION
-
-B<generate-updmap> creates an updated C<updmap.cfg> file with the C<Map>
-and C<MixedMap> entries taken from the TL database, plus (optionally)
-local additions.
-
-No repository actions are performed in any case.
-
-=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: #
diff --git a/Build/source/texk/texlive/generate-updmap.texlua b/Build/source/texk/texlive/generate-updmap.texlua
index ca362add834..b5ef265bd55 100755
--- a/Build/source/texk/texlive/generate-updmap.texlua
+++ b/Build/source/texk/texlive/generate-updmap.texlua
@@ -1,4 +1,4 @@
-#!/xusr/bin/env texlua
+#!/usr/bin/env texlua
 --*-Lua-*-
 -- $Id: generate-updmap.texlua 6485 2008-02-01 20:15:06Z reinhardk $