summaryrefslogtreecommitdiff
path: root/new-infra/TLDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-06-02 17:49:14 +0000
committerNorbert Preining <preining@logic.at>2007-06-02 17:49:14 +0000
commit4dc41c7ce0ba9d2d0f679d1d6825b5b29a4ccb35 (patch)
treeef81201ea064cc9d5c37e590b8ad9fa2e4e2910c /new-infra/TLDB.pm
parent071ffccada1a34c3aa94fe1e5bfb0354a742d699 (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.pm25
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";
}
}