use HTTP::Request::Common;
use LWP::UserAgent;
use strict;

my $serverurl = &getserverurl;
my $reqcontent = &getinput;
my $rescontent = &sendquery;
print $rescontent;

sub getserverurl() {
	if(!(defined $ARGV[0]) || (lc($ARGV[0]) eq "-help") || (lc($ARGV[0]) eq "help") || (lc($ARGV[0]) eq "/?")) {
		&usage;
	}
	$ARGV[0];
}

sub getinput() {
	my @input = <STDIN>;
	my $query = "";
	my $line;
	foreach $line (@input) {
		$query = $query.$line;
	}
	$query;
}

sub sendquery() {
	new LWP::UserAgent->request(POST "$serverurl", Content_Type => 'form-data', Content => [ q(q)  => "$reqcontent"])->content;
}

sub usage () {
	print "\n";
	print "World Wide Mind Research Group\n";
	print "Dublin City University, Ireland\n";
	print "http://w2mind.org info\@w2mind.org\n";
	print "\n";
	print "Usage is \n";
	print " > onestep <serverurl>\n";
	print "\n";
	print "The request SOML will be read from STDIN.\n";
	print "The response SOML will be written to STDOUT.\n";
	print "\n";
	exit(0);
}