diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLMedia.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 51 |
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) = @_; |