W3C home > Mailing lists > Public > www-archive@w3.org > August 2001

soap rdfq server basics

From: Dan Brickley <danbri@w3.org>
Date: Mon, 6 Aug 2001 12:14:38 -0400 (EDT)
To: <www-archive@w3.org>
Message-ID: <Pine.LNX.4.30.0108061213370.15857-100000@tux.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 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Wednesday, 7 November 2012 14:17:13 GMT