#! /usr/bin/env perl

use strict;

use File::Slurp;
use LWP::UserAgent;
use HTTP::Request;
use URI::Escape qw( uri_escape_utf8 );
use Data::Dumper;

my $dataURL = "http://www.ldodds.com/ldodds.rdf";
my $inputFn = $ARGV[0] || die "Need query filename";
my $server = "localhost";
my $port = 8080;
my $uri = "http://$server:$port/sparql/";
print "Submitting to '$uri'\n";
my $ua = LWP::UserAgent->new();

my $rawText = read_file($inputFn);
print "Reading text from $inputFn\n";

#my $response = $ua->get("http://$server:$port/$request");
my $req = HTTP::Request->new(POST => $uri);
$req->content_type('application/x-www-form-urlencoded');
$req->content("query=$rawText&default-graph-uri=$dataURL&".
              "named-graph-uri=$dataURL");
print "Request:\n".$req->as_string()."\n\nSubmitting...\n";

my $response = $ua->request($req);
if ($response->is_success()) {
    print "OK\n".$response->headers()."\n".$response->content()."\n";
} else {
    print "Failed\n";
}