From ad8d3794f840d9f70759c8e599c75dab6ef74a02 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Fri, 17 Nov 2000 13:16:22 +0000 Subject: [PATCH] Some bugs fixed --- helm/http_getter/http_getter.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/helm/http_getter/http_getter.pl b/helm/http_getter/http_getter.pl index 1d99e65ce..884bbc307 100755 --- a/helm/http_getter/http_getter.pl +++ b/helm/http_getter/http_getter.pl @@ -5,7 +5,7 @@ use Env; my $HELM_CONFIGURATION_PREFIX = $ENV{"HELM_CONFIGURATION_PREFIX"}; my $HELM_CONFIGURATION_PATH = $HELM_CONFIGURATION_PREFIX."/local/lib/helm/configuration.pl"; -# next require defines: $helm_dir, $html_link +# next require defines: $helm_dir, $html_link, $dtd_dir, $uris_dbm require $HELM_CONFIGURATION_PATH; @@ -21,6 +21,7 @@ my $d = new HTTP::Daemon LocalPort => 8081; tie(%map, 'DB_File', $uris_dbm.".db", O_RDONLY, 0664); print "Please contact me at: url, ">\n"; print "helm_dir: $helm_dir\n"; +print "dtd_dir: $dtd_dir\n"; print "urls_of_uris.db: $uris_dbm.db\n"; $SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes while (my $c = $d->accept) { @@ -268,7 +269,7 @@ EOT $c->send_response($res); } elsif ($http_method eq 'GET' and $http_path eq "/getdtd") { my $filename = $cicuri; - $filename = $helm_dir."/dtd/".$filename; + $filename = $dtd_dir."/".$filename; print "DTD: $cicuri ==> ($filename)\n"; if (stat($filename)) { print "Using local copy\n"; -- 2.39.2