remove old installer, CD vs. DVD files

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

1 files changed, 0 insertions, 150 deletions

diff --git a/Master/setuptl/tlpm-x86_64-linux.pl b/Master/setuptl/tlpm-x86_64-linux.pl
deleted file mode 100755
index eec92ea8725..00000000000
--- a/Master/setuptl/tlpm-x86_64-linux.pl
+++ /dev/null
@@ -1,150 +0,0 @@
-#!/usr/bin/env perl
-# This file belongs to TLPM v2.21, TeX Live Package Manager
-# Public Domain, P.Jackowski@gust.org.pl
-
-BEGIN{$tlpm_version="2.21";$tlpm_os="x86_64-linux"}
-
-# the main tlpm script
-
-use TLPM::common;
-use TLPM::constants;
-
-use TLPM::pkg;
-use TLPM::reg;
-use TLPM::cmdl;
-
-use TLPM::list;
-use TLPM::incl;
-use TLPM::blng;
-use TLPM::inst;
-use TLPM::uninst;
-use TLPM::check;
-use TLPM::help;
-use TLPM::info;
-
-%commands =
-(
-        'exit' => sub {exit(0)},
-        'quit' => sub {exit(0)},
-        'list' => \&list,
-        'incl' => \&incl,
-        'blng' => \&blng,
-        'inst' => \&inst,
-      'uninst' => \&uninst,
-       'check' => \&check,
-        'info' => \&info,
-        'help' => \&help,
-#        'Help' => \&readme,
-#      'readme' => \&readme,
-#     'version' => \&version,
-         'cmd' => \&sys,
-         'set' => \&set
-);
-
-# interactive mode
-
-sub prompt
-{
-      local ($cmd_name,@cmd_args,$cmd_line);
-      while($true)
-      {
-            print STDOUT $tlpm_prompt;
-            $cmd_line = <STDIN>;
-            exit(0) unless defined $cmd_line; # otherwise looop after 'echo <command> | tlpm'
-            chomp $cmd_line;
-            &execute_cmd();
-      }
-}
-
-# batch mode
-
-sub batch
-{
-      local ($cmd_name,@cmd_args,$cmd_line);
-      local *INP;
-      &norm_path($batch_file);
-      $batch_file = &rel2abs($batch_file,$curr_dir);
-      open(INP,"<$batch_file") or exit $error{'wrong_inp'} -> ($batch_file);
-      $message -> ("Executing batch file '$batch_file'");
-      foreach $cmd_line (<INP>)
-      {
-            exit(0) unless defined $cmd_line;
-            chomp $cmd_line;
-            next if $cmd_line =~ /\A\s*(%|#|\z)/; # comment
-            print STDOUT $tlpm_prompt . $cmd_line . "\n";
-            &execute_cmd();
-      }
-      close INP;
-}
-
-sub execute_cmd
-{
-      my $err;
-      &resolve_env($cmd_line);
-      &set_out($cmd_line);
-      &open_out();
-      @cmd_args = &parse_cmd($cmd_line);
-      return(0) unless @cmd_args; # return prompt on ENTER
-      $cmd_name = shift @cmd_args;
-      if(defined $commands{$cmd_name})
-      {
-            $err = $commands{$cmd_name} -> (@cmd_args);
-      }
-      else
-      {
-            $err = $error{'wrong_cmd'} -> ($cmd_name,'help');
-      }
-      &close_out();
-      return $err;
-}
-
-# the main procedure
-
-sub main
-{
-      my ($arg,@args);
-      @args = &parse_cmd(join(" ",@ARGV));
-      while(defined($arg = shift @args))
-      {
-               $arg eq ''                    and next
-#            or &no_opt($arg)                 and return $error{'wrong_cmd'} -> ($arg,'tlpm --help')
-            or &no_opt($arg)                 and do {$tl_binaries{$arg} = $true}
-            or &is_opt($arg,'d','directory') and do {$tl_target = shift @args;1}
-            or &is_opt($arg,'s','source')    and do {$tl_source = shift @args;1}
-            or &is_opt($arg,'v','version')   and return $heeelp -> ('tlpm_banner')
-            or &is_opt($arg,'h','help')      and return &help(shift @args)
-            or &is_opt($arg,'H','Help','readme') and return &readme()
-            or &is_opt($arg,'b','batch')     and do {$batch_file  = shift @args;$batch_mode = 1}
-#            or &is_opt($arg,'q','quiet')     and do {$quiet_mode = 1}
-            or &is_opt($arg,'D','debug')     and do {&enable_dbg();}
-            or &rem_opt($arg)                and return $error{'wrong_opt'} -> ($arg,'tlpm --help');
-      }
-      unless(defined $tl_source){$tl_source = $ENV{'tl_source'}}# ...or remains undefined
-      unless(defined $tl_target){$tl_target = $ENV{'tl_target'}}
-      $tl_source_indeed = $false; # we need to check the source availability anyway
-      unless(defined %tl_binaries) # new; installing not only native binaries
-      {
-            %tl_binaries = ($tlpm_os => $true);
-      }
-      $tl_target_indeed = $false;
-      if($batch_mode)
-      {
-            &batch($batch_file);
-      }
-      else
-      {
-            $heeelp -> ('tlpm_banner');
-            $heeelp -> ('type_help');
-            &prompt();
-      }
-}
-
-#$quiet_mode = 0;
-&not2log();
-&disable_dbg();
-$batch_mode = 0;
-$batch_file = '';
-
-&main();
-
-# uff