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 {