#!/usr/bin/perl -w
# 
# $Id: SPellet,v 1.3 2006/08/26 20:42:02 eric Exp $

use strict;
require W3C::XML::TidyDom;

use vars qw($PelletIFace $Title);
$PelletIFace = 'http://www.mindswap.org/2003/pellet/demo.shtml';
$Title = 'SPARQL Protocol Interface to the Pellet OWL Reasoner - Online Demo';

my $td = new W3C::XML::TidyDom(-hackNoEmptyDivs => 1, -hackHideCData => []);
my $doc = $td->getDOMfromURL($PelletIFace);
if (!$doc) {
    die $td->getResponse->status_line;
}

$td->getResponse->headers->header('Title', $Title);
$td->getResponse->headers->remove_header('Server');

print "Status: 200\n", $td->toString();

 # $Log: SPellet,v $
 # Revision 1.3  2006/08/26 20:42:02  eric
 # ~ use TidyDom
 #
 # Revision 1.2  2006/08/26 19:28:35  eric
 # + work around XML::DOM CDATA bugs
 # + work around browser empty element bugs
 #
 # Revision 1.1  2006/08/25 01:59:07  eric
 # + start with a painted GET
 #