summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLMedia.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLMedia.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLMedia.pm51
1 files changed, 0 insertions, 51 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm
index 158fe862ed5..682c05e763b 100644
--- a/Master/tlpkg/TeXLive/TLMedia.pm
+++ b/Master/tlpkg/TeXLive/TLMedia.pm
@@ -13,57 +13,6 @@ use TeXLive::TLUtils qw(tllog copy win32 dirname mkdirhier conv_to_win_path base
use TeXLive::TLPDB;
use Cwd qw/abs_path/;
-sub shortnew
-{
- my ($class, $location) = @_;
- my $media;
- # of no argument is given we assume NET and default URL
- $location = "$TeXLiveURL" unless (defined($location));
- # do media autodetection
- if ($location =~ m,http://|ftp://,) {
- $media = 'NET';
- } else {
- if (-d "$location/texmf/web2c") {
- $media = 'DVD';
- } elsif (-d "$location/$DiskArchive") {
- $media = 'CD';
- } else {
- die ("Cannot find the correct media for $location, please specify!");
- }
- }
- my $database;
- if ($media eq 'NET') {
- $database = "$location/$NetArchive/texlive.pkgver";
- open(WGET, "wget -q --output-document=- $database|") or
- tllog($::LOG_NORMAL, "Cannot get texlive.pkgver the net!\n");
- } elsif ($media eq 'CD') {
- $database = "$location/$DiskArchive/texlive.pkgver";
- open(WGET, "<$database") or
- tllog($::LOG_NORMAL, "Cannot get texlive.pkgver from CD!\n");
- } else {
- $database = "$location/$InfraLocation/texlive.pkgver";
- open(WGET, "<$database") or
- tllog($::LOG_NORMAL, "Cannot get texlive.pkgver from DVD!\n");
- }
- my %revs;
- my @platforms;
- while (<WGET>) {
- chop;
- my $line=$_;
- my ($pkg, $rev) = split " ", $line;
- $revs{$pkg} = $rev;
- if ($rev == -1) {
- push @platforms, $pkg;
- }
- }
- $self->{'media'} = $media;
- $self->{'location'} = $location;
- %{ $self->{'pkgrevs'} } = %revs;
- @{ $self->{'systems'} } = @platforms;
- bless $self, $class;
- return $self;
-}
-
sub new
{
my ($class, $location) = @_;