diff options
author | Norbert Preining <preining@logic.at> | 2007-06-02 17:49:14 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-06-02 17:49:14 +0000 |
commit | 4dc41c7ce0ba9d2d0f679d1d6825b5b29a4ccb35 (patch) | |
tree | ef81201ea064cc9d5c37e590b8ad9fa2e4e2910c /new-infra/TLDB.pm | |
parent | 071ffccada1a34c3aa94fe1e5bfb0354a742d699 (diff) |
loads of new-infra chnages, many things implemented (zip, multiarch, ...)
git-svn-id: svn://tug.org/texlive/trunk@4405 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'new-infra/TLDB.pm')
-rw-r--r-- | new-infra/TLDB.pm | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/new-infra/TLDB.pm b/new-infra/TLDB.pm index 5d220b8c04d..c04df256721 100644 --- a/new-infra/TLDB.pm +++ b/new-infra/TLDB.pm @@ -8,13 +8,15 @@ package TLDB; +use TLUtils; use TLP; sub new { my $class = shift; my %params = @_; my $self = { - location => $params{'location'}; + location => $params{'location'}, + tlps => $params{'tlps'} }; if (defined($self->{'location'})) { $self->from_file($self->{'location'}); @@ -25,7 +27,7 @@ sub new { sub add_tlp { my ($self,$tlp) = @_; - $self->{$tlp->name} = $tlp; + $self->{'tlps'}{$tlp->name} = $tlp; } sub from_file { @@ -43,6 +45,7 @@ sub from_file { my $found = 0; do { my $tlp = TLP->new; + &TLUtils::debug("creating tlp ...\n"); $found = $tlp->from_fh(\*TMP,1); if ($found) { $self->add_tlp($tlp); @@ -53,8 +56,10 @@ sub from_file { sub writeout { my $self = shift; my $fd = (@_ ? $_[0] : STDOUT); - foreach (sort keys %$self) { - $self->{$_}->writeout($fd); + foreach (sort keys %{$self->{'tlps'}}) { + &TLUtils::debug("tlpname = $_\n"); + &TLUtils::debug("foo: " . $self->{'tlps'}{$_}->name . "\n"); + $self->{'tlps'}{$_}->writeout($fd); print $fd "\n"; } } @@ -68,8 +73,8 @@ sub save { sub get_package { my ($self,$pkg) = @_; - if (defined($self->{$pkg})) { - return($self->{$pkg}); + if (defined($self->{'tlps'}{$pkg})) { + return($self->{'tlps'}{$pkg}); } else { return(undef); } @@ -77,8 +82,8 @@ sub get_package { sub package_revision { my ($self,$pkg) = @_; - if (defined($self->{$pkg})) { - return($self->{$pkg}->revision); + if (defined($self->{'tlps'}{$pkg})) { + return($self->{'tlps'}{$pkg}->revision); } else { return(undef); } @@ -87,8 +92,8 @@ sub package_revision { sub generate_packagelist { my $self = shift; my $fd = (@_ ? $_[0] : STDOUT); - foreach (sort keys %$self) { - print $fd $self->{$_}->name, " ", $self->{$_}->revision, "\n"; + foreach (sort keys %{$self->{'tlps'}}) { + print $fd $self->{'tlps'}{$_}->name, " ", $self->{'tlps'}{$_}->revision, "\n"; } } |