"rdf_index.txt";
my $xslt_indexname = $ENV{'HTTP_GETTER_XSLT_INDEXNAME'} ||
"xslt_index.txt";
+$servers_file = $ENV{'HTTP_GETTER_SERVERS_FILE'} || $servers_file;
+$uris_dbm = $ENV{'HTTP_GETTER_URIS_DBM'} || $uris_dbm;
# </move_to_conf_file>
print "HTTP Getter $VERSION\n"; # print hello information
print "Please contact me at: <URL:", $myownurl."/", ">\n";
print "\n";
+print "servers_file: $servers_file\n";
print "helm_dir: $helm_dir\n";
print "helm_rdf_dir: $helm_rdf_dir\n";
print "style_dir: $style_dir\n";
print "dtd_dir: $dtd_dir\n";
print "urls_of_uris db: $uris_dbm\n";
print "rdf db: $rdf_dbm\n";
+print "xslt db: $xslt_dbm\n";
print "cache mode: $cachemode\n";
print "indexname: $indexname\n";
print "rdf_indexname: $rdf_indexname\n";
+print "xslt_indexname: $xslt_indexname\n";
print "\n";
$SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes
} elsif ($http_method eq 'GET' and $http_path eq "/getxslt") {
+ $url = $xslt_map{$inputuri};
print "Downloading XSLT ...\n";
- helm_wget($tmp_dir, $inputuri);
+ helm_wget($tmp_dir, $url);
print "XSLT downloaded!\n";
$inputuri =~ s/.*\///;
my $filename = $tmp_dir . "/" . $inputuri;
while(<FD>) {
s/xsl:import\s+href="/xsl:import href="$myownurl\/getxslt?uri=/g;
s/xsl:include\s+href="/xsl:include href="$myownurl\/getxslt?uri=/g;
- $cont =. $_;
+ $cont .= $_;
}
close(FD);
answer($c, $cont, "text/xml", "");
print " done\n";
html_nice_answer($c,"Update done");
- # "/ls" does not work with rdf uris
+ # "/getalluris" does not work with rdf uris
+ } elsif ($http_method eq 'GET' and $http_path eq "/getalluris") {
+ # send back all the keys in xml
+ print "BASEURI $baseuri, FORMAT $outype\n";
+ $cont = getalluris();
+ answer($c,$cont,"text/xml","");
+
+ # "/getallrdfuris"
+ } elsif ($http_method eq 'GET' and $http_path eq "/getallrdfuris") {
+ # send back all the keys in xml
+ print "BASEURI $baseuri, FORMAT $outype\n";
+ $cont = getallrdfuris();
+ answer($c,$cont,"text/xml","");
+
} elsif ($http_method eq 'GET' and $http_path eq "/ls") {
# send back keys that begin with a given uri
my ($uritype,$uripattern,$uriprefix);
}
}
+sub getalluris { # get all the keys whose prefix is cic
+ my $content = "";
+ my ($uri);
+ my $debug=1; # for debug
+
+ $content .= '<?xml version="1.0" encoding="ISO-8859-1"?>' . "\n";
+ $content .= "<!DOCTYPE alluris SYSTEM ";
+ $content .= "\"$myownurl/getdtd?uri=alluris.dtd\">" . "\n\n";
+ $content .= "<alluris>\n";
+ foreach $uri (sort (keys(%xml_map))) { # select matching uris
+ if ($uri =~ /^cic:/ && not $uri =~ /.types$/) {
+ print "GETALLURI: $uri\n" if defined($debug);
+ $content .= "\t<uri value=\"$uri\"/>\n";
+ }
+ }
+ $content .= "</alluris>\n";
+ return $content;
+}
+
+sub getallrdfuris {
+ my $content = "";
+ my ($uri);
+ my $debug=1; # for debug
+
+ $content .= '<?xml version="1.0" encoding="ISO-8859-1"?>' . "\n";
+ $content .= "<!DOCTYPE allrdfuris SYSTEM ";
+ $content .= "\"$myownurl/getdtd?uri=alluris.dtd\">" . "\n\n";
+ $content .= "<allrdfuris>\n";
+ foreach $uri (sort (keys(%rdf_map))) {
+ print "GETALLRDFURI: $uri\n" if defined($debug);
+ $content .= "\t<uri value=\"$uri\"/>\n";
+ }
+ $content .= "</allrdfuris>\n";
+ return $content;
+}
+
sub finduris { # find uris for cic and theory trees generation
my ($uritype,$uripattern,$format) = @_;
my $content = "";
close XSLT_INDEX;
# remove temp files
- foreach my $file in ($idxfile, $rdf_idxfile, $xslt_idxfile) {
+ foreach my $file ($idxfile, $rdf_idxfile, $xslt_idxfile) {
print "cannot unlink temporary file: $file\n" if (unlink $file) != 1;
}