[tex-live] antt.tpm occurring in collection-langpolish and -fontsextra

[Norbert Preining]

On Don, 06 Okt 2005, Sebastian Rahtz wrote:
> >(And btw, could you tell me wether this fix for Tpm.pm would include the
> >license information in the tpm files? 
> >  
> >
> looks good to me.

Here is a diff that actually works. I had to add an entry to tpm.dtd and
I had to fix the path to the catalogue, the xml entries are not any
longer present in Master! 

It worked nicely

Best wishes

Norbert

-------------------------------------------------------------------------------
Dr. Norbert Preining <preining AT logic DOT at>             Università di Siena
sip:preining at at43.tuwien.ac.at                             +43 (0) 59966-690018
gpg DSA: 0x09C5B094      fp: 14DF 2E6C 0307 BE6D AD76  A9C0 D2BF 4AA3 09C5 B094
-------------------------------------------------------------------------------
VANCOUVER (n.)
The technical name for one of those huge trucks with whirling brushes
on the bottom used to clean streets.
			--- Douglas Adams, The Meaning of Liff
-------------- next part --------------
--- Tpm.pm.original	2005-10-02 00:48:53.000000000 +0200
+++ Tpm.pm	2005-10-07 00:56:20.000000000 +0200
@@ -143,7 +143,7 @@
 		"texmf/chktex/*" => ( "texmf/chktex/.chktexrc" )
 		);
 
-my $CatalogueDir = "${MasterDir}/texmf-doc/doc/english/catalogue";
+my $CatalogueDir = "/src/debian-tex/texcatalogue";
 my $Catalogue;
 
 my $Verbose = 0;
@@ -413,7 +413,7 @@
   }
 
   for my $tag ("Name", "Type", "Date", "Version", "Creator", "Title",
-               "Description", "Author", "Size") { 
+               "Description", "Author", "Size", "License") { 
     my $attribute = $self->getAttribute("$tag");
     # None of these are optional
     $node = $doc->createElement("TPM:$tag");
@@ -1155,6 +1155,7 @@
   my $old_version = &trim($self->getAttribute("Version"));
   my $old_title = &trim($self->getAttribute("Title"));
   my $old_description = &trim($self->getAttribute("Description"));
+  my $old_license = &trim($self->getAttribute("License"));
 
   if ($author && $author ne $old_author) {
     $self->setAttribute("Author", $author);
@@ -1172,6 +1173,10 @@
     $self->setAttribute("Description", $description);
     print "Replacing $old_description by $description\n";
   }
+  if ($license && ($license ne $old_license)) {
+    $self->setAttribute("License", $license);
+    print "Replacing $old_license by $license\n";
+  }
 }
 
 sub buildPatternsPackage {
--- tpm.dtd.original	2005-10-07 00:49:19.000000000 +0200
+++ tpm.dtd	2005-10-07 00:49:59.000000000 +0200
@@ -20,6 +20,7 @@
 <!ELEMENT TPM:Type (#PCDATA)>
 <!ELEMENT TPM:Date (#PCDATA)>
 <!ELEMENT TPM:Version (#PCDATA)>
+<!ELEMENT TPM:License (#PCDATA)>
 <!ELEMENT TPM:Creator (#PCDATA)>
 <!ELEMENT TPM:Author (#PCDATA)>
 <!ELEMENT TPM:Requires (TPM:Documentation*,TPM:Package*,TPM:TLCore*,TPM:Collection*,TPM:Support*)>