# For details, see the HELM World-Wide-Web page,
# http://cs.unibo.it/helm/.
+my $VERSION = "@VERSION@";
+
# First of all, let's load HELM configuration
use Env;
my $HELM_LIB_DIR = $ENV{"HELM_LIB_DIR"};
}
# Let's override the configuration file
-$styles_dir = $ENV{"HELM_STYLE_DIR"} if (defined ($ENV{"HELM_STYLE_DIR"}));
+$style_dir = $ENV{"HELM_STYLE_DIR"} if (defined ($ENV{"HELM_STYLE_DIR"}));
$dtd_dir = $ENV{"HELM_DTD_DIR"} if (defined ($ENV{"HELM_DTD_DIR"}));
# <ZACK>: TODO temporary, move this setting to configuration file
tie(%map, 'DB_File', $uris_dbm.".db", O_RDONLY, 0664);
print "Please contact me at: <URL:", $myownurl."/", ">\n";
print "helm_dir: $helm_dir\n";
-print "styles_dir: $styles_dir\n";
+print "style_dir: $style_dir\n";
print "dtd_dir: $dtd_dir\n";
print "urls_of_uris.db: $uris_dbm.db\n";
print "cache mode: $cachemode\n";
die "Could not find DTD!";
}
} elsif ($http_method eq 'GET' and $http_path eq "/getstyleconf") {
- $filename = $styles_dir."/config/style-configuration.xml";
- print "Style Configuration: $filename\n";
+ my $filename = $inputuri;
+ $filename = $style_dir."/config/".$filename;
if (stat($filename)) {
open(FD, $filename) or die "Cannot open $filename\n";
$cont = "";
while(<FD>) {
+ s/DOCTYPE (.*) SYSTEM\s+"/DOCTYPE $1 SYSTEM "$myownurl\/getstyleconf?uri=/g;
$cont .= $_;
}
close(FD);
}
} elsif ($http_method eq 'GET' and $http_path eq "/getxslt") {
my $filename = $inputuri;
- $filename = $styles_dir."/".$filename;
+ $filename = $style_dir."/".$filename;
print "XSLT: $inputuri ==> ($filename)\n";
if (stat($filename)) {
print "Using local copy\n";
kill(USR1,getppid());
print " done\n";
answer($c,"<html><body><h1>Update done</h1></body></html>");
+ } elsif ($http_method eq 'GET' and $http_path eq "/version") {
+ print "Version requested!";
+ answer($c,"<html><body><h1>HTTP Getter Version ".$VERSION."</h1></body></html>");
} else {
print "\nINVALID REQUEST!!!!!\n";
$c->send_error(RC_FORBIDDEN)