- From: Dan Brickley <danbri@w3.org>
- Date: Mon, 6 Aug 2001 12:14:38 -0400 (EDT)
- To: <www-archive@w3.org>
#!/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 );
}
Received on Monday, 6 August 2001 12:14:38 UTC