Patch to the hard-coded constant in http_getter.pl

[helm.git] / helm / interface / http_getter / http_getter.pl

diff --git a/helm/interface/http_getter/http_getter.pl b/helm/interface/http_getter/http_getter.pl
index 4ad35848075ef78c44c230b1c5c4e8ceb6f227b1..650a16a3b2a0179156317247e64bfda13c477bee 100755 (executable)
--- a/helm/interface/http_getter/http_getter.pl
+++ b/helm/interface/http_getter/http_getter.pl
@@ -1,9 +1,15 @@
 #!/usr/bin/perl
 
+# First of all, let's load HELM configuration
+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
-# LUCA - 12 sep 2000
-# require "/usr/lib/helm/configuration.pl";
-require "/home/cadet/sacerdot/local/lib/helm/configuration.pl";
+require $HELM_CONFIGURATION_PATH;
+
+
+
 use HTTP::Daemon;
 use HTTP::Status;
 use HTTP::Request;