#!/usr/bin/perl 
BEGIN {
  push ( @INC, '/home/pldab/working', '/home/pldab/danbri/swad/rudolf-perl/');
}

use SOAP::Transport::HTTP;
use RDF::RDFWeb::SquishAlgae;

SOAP::Transport::HTTP::CGI   
  -> dispatch_to('RDF::RDFWeb::SOAPDemo')     
  -> handle;

package RDF::RDFWeb::SOAPDemo;

sub squish {                 
  my $cl = shift;
  my $query = shift;
  my $data = shift;
  my $q = new RDF::RDFWeb::SquishAlgae;
    my $algae = $q->squish2algae( $query ) ;
    my @results = $q->doalgae( $data, $algae );
    my $report = $q->formatResultSet( @results ); # list of hashrefs
  return ( \@results );   
}

sub squish2algae {                 
  my $cl = shift;
  my $query = shift;
  my $q = new RDF::RDFWeb::SquishAlgae;
  return( $q->squish2algae( $query ) );
}

sub textsquish {                 
  my $cl = shift;
  my $query = shift;
  my $data = shift;
  my $q = new RDF::RDFWeb::SquishAlgae;
    my $algae = $q->squish2algae( $query ) ;
    my @results = $q->doalgae( $data, $algae );
    my $report = $q->formatResultSet( @results ); # list of hashrefs
  return ("doing squish query on  class:$cl query: $query  data: $data 
		numhits: ".scalar @results ."\n\nalgae: $algae \n\n report: \n $report");   
}