$HELM_LIB_PATH = $DEFAULT_HELM_LIB_DIR."/configuration.pl";
}
-$styles_dir = $ENV{"HELM_STYLE_DIR"} if (defined ($ENV{"HELM_STYLE_DIR"}));
-
# <ZACK>: TODO temporary, move this setting to configuration file
# set the cache mode, may be "gzipped" or "normal"
my $cachemode = $ENV{'HTTP_GETTER_CACHE_MODE'} || 'gzipped';
} else {
die "Could not find DTD!";
}
- } elsif ($http_method eq 'GET' and $http_path eq "/getxslt") {
- my $filename = $inputuri;
- $filename = $styles_dir."/".$filename;
- print "XSLT: $inputuri ==> ($filename)\n";
- if (stat($filename)) {
- print "Using local copy\n";
- open(FD, $filename) or die "Cannot open $filename\n";
- $cont = "";
- while(<FD>) { $cont .= $_; }
- close(FD);
- answer($c,$cont);
- } else {
- die "Could not find XSLT!";
- }
} elsif ($http_method eq 'GET' and $http_path eq "/conf") {
my $quoted_html_link = $html_link;
$quoted_html_link =~ s/&/&/g;