From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Mon, 5 Feb 2001 17:45:32 +0000 (+0000)
Subject: Done for URLs for DTDs the same thing previously done for stylesheets
X-Git-Tag: v0_1_2~139
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=df36c646d6c414e26e76dbc854ee57839ca0807a;p=helm.git

Done for URLs for DTDs the same thing previously done for stylesheets
---

diff --git a/helm/http_getter/http_getter.pl.in b/helm/http_getter/http_getter.pl.in
index 1c7359b6c..0ea2c02e4 100755
--- a/helm/http_getter/http_getter.pl.in
+++ b/helm/http_getter/http_getter.pl.in
@@ -223,7 +223,12 @@ EOT
                print "Using local copy\n";
                open(FD, $filename) or die "Cannot open $filename\n";
                $cont = "";
-               while(<FD>) { $cont .= $_; }
+               while(<FD>) {
+                # Vary bad heuristic for substituion of absolute URLs
+                # for relative ones
+		s/ENTITY (.*) SYSTEM\s+"/ENTITY $1 SYSTEM "$myownurl\/getdtd?uri=/g;
+	        $cont .= $_;
+	       }
                close(FD);
                answer($c,$cont);
             } else {