class parameter added to the getallrdfuris method.

Values may be forward or backward.

diff --git a/helm/http_getter/http_getter.pl.in b/helm/http_getter/http_getter.pl.in
index 0acf0ca348df80d45be4121810a657d0b02d8822..f4c11e172a94d466f5395242afaf292ba6fdc634 100755 (executable)
--- a/helm/http_getter/http_getter.pl.in
+++ b/helm/http_getter/http_getter.pl.in
@@ -323,8 +323,9 @@ while (my $c = $d->accept) {
                                  # "/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();
+            my $class = $cgi->param('class');
+            print "BASEURI $baseuri, FORMAT $outype, CLASS $class\n";
+            $cont = getallrdfuris($class);
             answer($c,$cont,"text/xml","");
 
         } elsif ($http_method eq 'GET' and $http_path eq "/ls") {
@@ -476,6 +477,7 @@ sub getalluris { # get all the keys whose prefix is cic
 }
 
 sub getallrdfuris {
+ my $class = $_[0];
  my $content = "";
  my ($uri);
  my $debug=1; # for debug
@@ -485,8 +487,14 @@ sub getallrdfuris {
   $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";
+   if ($class eq "forward" &&
+        $uri =~ /^helm:rdf:www.cs.unibo.it\/helm\/rdf\/forward/
+       ||
+        $class eq "backward" &&
+         $uri =~ /^helm:rdf:www.cs.unibo.it\/helm\/rdf\/backward/) {
+      print "GETALLRDFURI: $uri\n" if defined($debug);
+      $content .= "\t<uri value=\"$uri\"/>\n";
+   }
   }
   $content .= "</allrdfuris>\n";
  return $content;