#!/usr/bin/perl
use strict 'vars'; #this is to protect unquotted string,bareword which come from Soap trace
use warnings;
use SOAP::Lite + trace;

my $thay =SOAP::Lite->new();

$thay->proxy('http://localhost:9002');
$thay->uri('Todo');

print "Enter Your Acronym:\n";

my $acro=<STDIN>;
chomp $acro;

print "Enter Time(YYYY-MM-DD-hr:MM)\n";

my $time=<STDIN>;
chomp  $time;
print "Enter a text to your ToDoList\n";

my $text=<STDIN>;
chomp $text;
print "Enter The Priority your ToDoList(1-10)\n";

my $prio=<STDIN>;
chomp $prio;

my $data =$thay->call( 
    createTodo=>(
	SOAP::Data->name("acronym")->value("$acro"),SOAP::Data->name("time")->value("$time"), 
	SOAP::Data->name("note")->value("$text"),SOAP::Data->name("priority")->value("$prio") 
    )
    );